Posted to tcl by miguel at Sat Jul 12 20:27:50 GMT 2008view raw
- #define TclSmallAlloc(nbytes, memPtr) \
- { \
- Tcl_Obj *objPtr; \
- switch (nbytes>sizeof(Tcl_Obj)) { \
- case (2 +(nbytes>sizeof(Tcl_Obj))): \
- case 3: \
- case 1: \
- Tcl_Panic("TclSmallAlloc: nBytes too large!"); \
- case 0: (void)0; \
- } \
- TclIncrObjsAllocated(); \
- TclAllocObjStorage(objPtr); \
- memPtr = (ClientData) objPtr; \
- }
- #define TclSmallFree(memPtr) \
- TclFreeObjStorage((Tcl_Obj *) memPtr); \
- TclIncrObjsFreed()