diff options
author | Miguel Sofer <miguel.sofer@gmail.com> | 2008-07-31 14:43:35 (GMT) |
---|---|---|
committer | Miguel Sofer <miguel.sofer@gmail.com> | 2008-07-31 14:43:35 (GMT) |
commit | 53bc9e6c6a1e6f0cfa6ad54e6c95be54753e3b49 (patch) | |
tree | 6c96fbd692f683a13fbe376d5e0fb3f7aec3a3b5 /generic/tclExecute.c | |
parent | 8b4bd2bb9a913d76dbb65ca98921a537bce251fd (diff) | |
download | tcl-53bc9e6c6a1e6f0cfa6ad54e6c95be54753e3b49.zip tcl-53bc9e6c6a1e6f0cfa6ad54e6c95be54753e3b49.tar.gz tcl-53bc9e6c6a1e6f0cfa6ad54e6c95be54753e3b49.tar.bz2 |
Dumped tclNRE.h's contents into tclInt.h. The file is now empty and
unrefernced everywhere but in macosx/Tcl.xcodeproj/project.pbxproj: some
knowledgeable maintainer please remove tclNRE.h after making sure it
doesn't break the build on macosx
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r-- | generic/tclExecute.c | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 9ee7ec0..0645d53 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -14,17 +14,20 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclExecute.c,v 1.392 2008/07/31 03:42:15 msofer Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.393 2008/07/31 14:43:44 msofer Exp $ */ #include "tclInt.h" #include "tclCompile.h" #include "tommath.h" -#include "tclNRE.h" #include <math.h> #include <float.h> +#if NRE_ENABLE_ASSERTS +#include <assert.h> +#endif + /* * Hack to determine whether we may expect IEEE floating point. The hack is * formally incorrect in that non-IEEE platforms might have the same precision @@ -1808,8 +1811,8 @@ TclExecuteByteCode( Tcl_NRPostProc *procPtr = callbackPtr->procPtr; ByteCode *newCodePtr = callbackPtr->data[0]; - assert((result==TCL_OK)); - assert((callbackPtr != bottomPtr->rootPtr)); + NRE_ASSERT(result==TCL_OK); + NRE_ASSERT(callbackPtr != bottomPtr->rootPtr); TOP_CB(interp) = callbackPtr->nextPtr; TCLNR_FREE(interp, callbackPtr); @@ -2662,7 +2665,7 @@ TclExecuteByteCode( CACHE_STACK_INFO(); if (TOP_CB(interp) != bottomPtr->rootPtr) { - assert ((result == TCL_OK)); + NRE_ASSERT(result == TCL_OK); pc += pcAdjustment; goto nonRecursiveCallStart; } @@ -7707,6 +7710,7 @@ TclExecuteByteCode( * Start the new bytecode. */ + NRE_ASSERT(result == TCL_OK); goto nonRecursiveCallStart; } Tcl_Panic("TEBC: TRCB sent us a callback we cannot handle! (2)"); |