diff options
| author | max <max@tclers.tk> | 2014-02-26 12:44:12 (GMT) |
|---|---|---|
| committer | max <max@tclers.tk> | 2014-02-26 12:44:12 (GMT) |
| commit | 7b8b2d52e5298c10a227114f17db436bacceb56c (patch) | |
| tree | 153a518a388a7c6e6f9ec74fdb60a20a43484568 /generic/tclLiteral.c | |
| parent | b58c67dddc5793d12e85d5b0066a4660d2b08671 (diff) | |
| parent | 259729fa361e6d184ef91be067a93309e14cd998 (diff) | |
| download | tcl-7b8b2d52e5298c10a227114f17db436bacceb56c.zip tcl-7b8b2d52e5298c10a227114f17db436bacceb56c.tar.gz tcl-7b8b2d52e5298c10a227114f17db436bacceb56c.tar.bz2 | |
Merge trunk
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; |