diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2008-07-29 20:53:20 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2008-07-29 20:53:20 (GMT) |
| commit | 580724e069e7de6cbe19b235d60d6a6abe6712e3 (patch) | |
| tree | 11f27063fd6dfc6f363573bce19b26f0758be39b /generic/tclNRE.h | |
| parent | e0dc5ad1dac50c004c16b1b5945aeda964c40ecd (diff) | |
| download | tcl-580724e069e7de6cbe19b235d60d6a6abe6712e3.zip tcl-580724e069e7de6cbe19b235d60d6a6abe6712e3.tar.gz tcl-580724e069e7de6cbe19b235d60d6a6abe6712e3.tar.bz2 | |
a timid start at cleaning up
Diffstat (limited to 'generic/tclNRE.h')
| -rw-r--r-- | generic/tclNRE.h | 21 |
1 files changed, 7 insertions, 14 deletions
diff --git a/generic/tclNRE.h b/generic/tclNRE.h index 3943cfb..3a5af55 100644 --- a/generic/tclNRE.h +++ b/generic/tclNRE.h @@ -11,7 +11,7 @@ * this file, and for a DISCLAIMER OF ALL WARRANTIES. * * // FIXME: RCS numbering? - * RCS: @(#) $Id: tclNRE.h,v 1.9 2008/07/29 18:19:17 msofer Exp $ + * RCS: @(#) $Id: tclNRE.h,v 1.10 2008/07/29 20:53:22 msofer Exp $ */ @@ -22,20 +22,16 @@ * Stuff during devel *****************************************************************************/ -#define USE_SMALL_ALLOC 1 /* perf is important for some of these things! */ -#define ENABLE_ASSERTS 1 - -/***************************************************************************** - * Private api fo NRE - *****************************************************************************/ +#define ENABLE_ASSERTS 0 +#define USE_SMALL_ALLOC 1 /* Only turn off for debugging purposes. */ /* - * Main data struct for representing NR commands (generated at runtime). + * TEOV_callback - + * + * Main data struct for representing NR commands. It is designed to fit in + * sizeof(Tcl_Obj) in order to exploit the fastest memory allocator available. */ -struct ByteCode; - -/* Fill up a SmallAlloc: 4 free ptrs for the user */ typedef struct TEOV_callback { Tcl_NRPostProc *procPtr; ClientData data[4]; @@ -44,9 +40,6 @@ typedef struct TEOV_callback { #define TOP_CB(iPtr) (((Interp *)(iPtr))->execEnvPtr->callbackPtr) -#define GET_TOSPTR(iPtr) \ - (((Interp *)iPtr)->execEnvPtr->execStackPtr->tosPtr) - /* * Inline version of Tcl_NRAddCallback */ |