Tcl Source Code: Artifact [b491af3f8f]

Artifact b491af3f8fe483cc56af52108ffb2a49df512506:

Attachment "tclBasic.c.diff" to ticket [3030870fff] added by nijtmans 2010-07-20 14:32:27.

*** generic/tclBasic.c.orig	Tue Jul 20 09:26:37 2010
--- generic/tclBasic.c	Tue Jul 20 09:28:49 2010
***************
*** 475,483 ****
       * the Tcl_CallFrame structure (or vice versa).
       */
  
!     if (sizeof(Tcl_CallFrame) != sizeof(CallFrame)) {
  	/*NOTREACHED*/
! 	Tcl_Panic("Tcl_CallFrame and CallFrame are not the same size");
      }
  
      if (cancelTableInitialized == 0) {
--- 475,483 ----
       * the Tcl_CallFrame structure (or vice versa).
       */
  
!     if (sizeof(Tcl_CallFrame) < sizeof(CallFrame)) {
  	/*NOTREACHED*/
! 	Tcl_Panic("Tcl_CallFrame must not be smaller than CallFrame");
      }
  
      if (cancelTableInitialized == 0) {