diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-10-06 09:31:38 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-10-06 09:31:38 (GMT) |
| commit | 2f6f66554efaaedda7a222ccb744879d1d3c787f (patch) | |
| tree | 3f9c06246cca5eacdeba2035fc1a8d08d16a3b2a | |
| parent | 243de42fd28301b4b4fffbeb555fe06c4a1ac9c7 (diff) | |
| download | tcl-2f6f66554efaaedda7a222ccb744879d1d3c787f.zip tcl-2f6f66554efaaedda7a222ccb744879d1d3c787f.tar.gz tcl-2f6f66554efaaedda7a222ccb744879d1d3c787f.tar.bz2 | |
Convert string to stringPtr
| -rw-r--r-- | generic/tclCompile.c | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index a262f34..d320a15 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.76 2004/09/29 22:17:31 dkf Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.77 2004/10/06 09:31:38 dkf Exp $ */ #include "tclInt.h" @@ -381,7 +381,7 @@ TclSetByteCodeFromAny(interp, objPtr, hookProc, clientData) LiteralEntry *entryPtr; register int i; int length, result = TCL_OK; - char *string; + char *stringPtr; #ifdef TCL_COMPILE_DEBUG if (!traceInitialized) { @@ -393,9 +393,9 @@ TclSetByteCodeFromAny(interp, objPtr, hookProc, clientData) } #endif - string = Tcl_GetStringFromObj(objPtr, &length); - TclInitCompileEnv(interp, &compEnv, string, length); - TclCompileScript(interp, string, length, &compEnv); + stringPtr = Tcl_GetStringFromObj(objPtr, &length); + TclInitCompileEnv(interp, &compEnv, stringPtr, length); + TclCompileScript(interp, stringPtr, length, &compEnv); /* * Successful compilation. Add a "done" instruction at the end. @@ -704,18 +704,18 @@ TclCleanupByteCode(codePtr) */ void -TclInitCompileEnv(interp, envPtr, string, numBytes) +TclInitCompileEnv(interp, envPtr, stringPtr, numBytes) Tcl_Interp *interp; /* The interpreter for which a CompileEnv * structure is initialized. */ register CompileEnv *envPtr; /* Points to the CompileEnv structure to * initialize. */ - char *string; /* The source string to be compiled. */ + char *stringPtr; /* The source string to be compiled. */ int numBytes; /* Number of bytes in source string. */ { Interp *iPtr = (Interp *) interp; envPtr->iPtr = iPtr; - envPtr->source = string; + envPtr->source = stringPtr; envPtr->numSrcBytes = numBytes; envPtr->procPtr = iPtr->compiledProcPtr; envPtr->numCommands = 0; @@ -3392,21 +3392,21 @@ TclPrintObject(outFile, objPtr, maxChars) */ void -TclPrintSource(outFile, string, maxChars) +TclPrintSource(outFile, stringPtr, maxChars) FILE *outFile; /* The file to print the source to. */ - CONST char *string; /* The string to print. */ + CONST char *stringPtr; /* The string to print. */ int maxChars; /* Maximum number of chars to print. */ { register CONST char *p; register int i = 0; - if (string == NULL) { + if (stringPtr == NULL) { fprintf(outFile, "\"\""); return; } fprintf(outFile, "\""); - p = string; + p = stringPtr; for (; (*p != '\0') && (i < maxChars); p++, i++) { switch (*p) { case '"': |