diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-12-19 14:35:50 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-12-19 14:35:50 (GMT) |
commit | 40ee4723305e14d61c083785f230b614b2829361 (patch) | |
tree | b59bea8ad4fd032b82977040f6f7b6a5fcecda0c /generic/tclLiteral.c | |
parent | a57fb188ea468df01d1134b67313f1c175e15a84 (diff) | |
download | tcl-40ee4723305e14d61c083785f230b614b2829361.zip tcl-40ee4723305e14d61c083785f230b614b2829361.tar.gz tcl-40ee4723305e14d61c083785f230b614b2829361.tar.bz2 |
Add TclRegisterLiteral() to internal stub table (from "mig-optimize" branch, looks like a good idea anyway)
Diffstat (limited to 'generic/tclLiteral.c')
-rw-r--r-- | generic/tclLiteral.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclLiteral.c b/generic/tclLiteral.c index 11da6f8..2b0cc7e 100644 --- a/generic/tclLiteral.c +++ b/generic/tclLiteral.c @@ -358,7 +358,7 @@ TclFetchLiteral( int TclRegisterLiteral( - CompileEnv *envPtr, /* Points to the CompileEnv in whose object + void *ePtr, /* Points to the CompileEnv in whose object * array an object is found or created. */ register char *bytes, /* Points to string for which to find or * create an object in CompileEnv's object @@ -372,6 +372,7 @@ TclRegisterLiteral( * the literal should not be shared accross * namespaces. */ { + CompileEnv *envPtr = ePtr; Interp *iPtr = envPtr->iPtr; LiteralTable *localTablePtr = &envPtr->localLitTable; LiteralEntry *globalPtr, *localPtr; |