diff options
author | dkf <dkf@noemail.net> | 2002-07-19 12:31:09 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2002-07-19 12:31:09 (GMT) |
commit | d9241d70c77cf4405d75c8dbb53e90e41b2bb2f9 (patch) | |
tree | 4bf2d4935b5e97743834dba726fe88543f867664 /generic/tclCompile.c | |
parent | 1d75b3aadbe5415be2db82c8226e5431c51b7947 (diff) | |
download | tcl-d9241d70c77cf4405d75c8dbb53e90e41b2bb2f9.zip tcl-d9241d70c77cf4405d75c8dbb53e90e41b2bb2f9.tar.gz tcl-d9241d70c77cf4405d75c8dbb53e90e41b2bb2f9.tar.bz2 |
Global symbols are now all either prefixed with 'tcl' (or 'Tcl' or ...) or have file-scope.
FossilOrigin-Name: 86e27ff753182370088914b09b67faefe53a8d37
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r-- | generic/tclCompile.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 20d0448..dc2aa25 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompile.c,v 1.38 2002/07/11 12:39:16 msofer Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.39 2002/07/19 12:31:09 dkf Exp $ */ #include "tclInt.h" @@ -52,7 +52,7 @@ static int traceInitialized = 0; * existence of a procedure call frame to distinguish these. */ -InstructionDesc instructionTable[] = { +InstructionDesc tclInstructionTable[] = { /* Name Bytes stackEffect #Opnds Operand types Stack top, next */ {"done", 1, -1, 0, {OPERAND_NONE}}, /* Finish ByteCode execution and return stktop (top stack item) */ @@ -2518,7 +2518,7 @@ TclFixupForwardJump(envPtr, jumpFixupPtr, jumpDist, distThreshold) * * Results: * Returns a pointer to the global instruction table, same as the - * expression (&instructionTable[0]). + * expression (&tclInstructionTable[0]). * * Side effects: * None. @@ -2529,7 +2529,7 @@ TclFixupForwardJump(envPtr, jumpFixupPtr, jumpDist, distThreshold) void * /* == InstructionDesc* == */ TclGetInstructionTable() { - return &instructionTable[0]; + return &tclInstructionTable[0]; } /* @@ -3186,7 +3186,7 @@ TclPrintInstruction(codePtr, pc) { Proc *procPtr = codePtr->procPtr; unsigned char opCode = *pc; - register InstructionDesc *instDesc = &instructionTable[opCode]; + register InstructionDesc *instDesc = &tclInstructionTable[opCode]; unsigned char *codeStart = codePtr->codeStart; unsigned int pcOffset = (pc - codeStart); int opnd, i, j; |