Import Tcl 8.6.10
This commit is contained in:
@@ -132,7 +132,7 @@ typedef int celt; /* Type to hold chr, or NOCELT */
|
||||
#if 1
|
||||
#define AllocVars(vPtr) \
|
||||
static Tcl_ThreadDataKey varsKey; \
|
||||
register struct vars *vPtr = (struct vars *) \
|
||||
struct vars *vPtr = (struct vars *) \
|
||||
Tcl_GetThreadData(&varsKey, sizeof(struct vars))
|
||||
#else
|
||||
/*
|
||||
@@ -141,7 +141,7 @@ typedef int celt; /* Type to hold chr, or NOCELT */
|
||||
* faster in practice (measured!)
|
||||
*/
|
||||
#define AllocVars(vPtr) \
|
||||
register struct vars *vPtr = (struct vars *) MALLOC(sizeof(struct vars))
|
||||
struct vars *vPtr = (struct vars *) MALLOC(sizeof(struct vars))
|
||||
#define FreeVars(vPtr) \
|
||||
FREE(vPtr)
|
||||
#endif
|
||||
|
||||
Reference in New Issue
Block a user