diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-07-02 15:11:56 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-07-02 15:11:56 (GMT) |
| commit | 9e3cbe2c2f2edf7bd88649e927c9ac16a4ad0936 (patch) | |
| tree | 8fdc150776322e30a4962cac4ed0f3066d6e123a /generic/tclAssembly.c | |
| parent | d1c2087b3947042cc731e8b5b45d38a1168e4af7 (diff) | |
| download | tcl-9e3cbe2c2f2edf7bd88649e927c9ac16a4ad0936.zip tcl-9e3cbe2c2f2edf7bd88649e927c9ac16a4ad0936.tar.gz tcl-9e3cbe2c2f2edf7bd88649e927c9ac16a4ad0936.tar.bz2 | |
NRInterpCoroutine -> TclNRInterpCoroutine
make NRCommand static
make TalInstructionTable static const
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index 02144a1..83f4fe9 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -265,7 +265,7 @@ static int CheckStrictlyPositive(Tcl_Interp*, int); static ByteCode * CompileAssembleObj(Tcl_Interp *interp, Tcl_Obj *objPtr); static void CompileEmbeddedScript(AssemblyEnv*, Tcl_Token*, - TalInstDesc*); + const TalInstDesc*); static int DefineLabel(AssemblyEnv* envPtr, const char* label); static void DeleteMirrorJumpTable(JumptableInfo* jtPtr); static void DupAssembleCodeInternalRep(Tcl_Obj* src, @@ -350,7 +350,7 @@ static const Tcl_ObjType assembleCodeType = { * Source instructions recognized in the Tcl Assembly Language (TAL) */ -TalInstDesc TalInstructionTable[] = { +static const TalInstDesc TalInstructionTable[] = { /* PUSH must be first, see the code near the end of TclAssembleCode */ {"push", ASSEM_PUSH, (INST_PUSH1<<8 | INST_PUSH4), 0, 1}, @@ -1768,7 +1768,7 @@ static void CompileEmbeddedScript( AssemblyEnv* assemEnvPtr, /* Assembly environment */ Tcl_Token* tokenPtr, /* Tcl_Token containing the script */ - TalInstDesc* instPtr) /* Instruction that determines whether + const TalInstDesc* instPtr) /* Instruction that determines whether * the script is 'expr' or 'eval' */ { CompileEnv* envPtr = assemEnvPtr->envPtr; |