diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-03-05 20:16:41 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-03-05 20:16:41 (GMT) |
| commit | ff33155b738339c0ecc8f822888b8a8eba45e676 (patch) | |
| tree | 73d638f098debe1bd7609e4ee397f95dec1130ca /generic/tclCompile.c | |
| parent | 33b8406c4a553a30d78a199ded858428e4c91ee8 (diff) | |
| download | tcl-ff33155b738339c0ecc8f822888b8a8eba45e676.zip tcl-ff33155b738339c0ecc8f822888b8a8eba45e676.tar.gz tcl-ff33155b738339c0ecc8f822888b8a8eba45e676.tar.bz2 | |
Remove from tclCompile.h declarations used in only one source file.
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index fee30bd..cba659d 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -417,6 +417,7 @@ static int GetCmdLocEncodingSize(CompileEnv *envPtr); #ifdef TCL_COMPILE_STATS static void RecordByteCodeStats(ByteCode *codePtr); #endif /* TCL_COMPILE_STATS */ +static void RegisterAuxDataType(AuxDataType *typePtr); static int SetByteCodeFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr); static int FormatInstruction(ByteCode *codePtr, @@ -3134,7 +3135,7 @@ TclGetInstructionTable(void) /* *-------------------------------------------------------------- * - * TclRegisterAuxDataType -- + * RegisterAuxDataType -- * * This procedure is called to register a new AuxData type in the table * of all AuxData types supported by Tcl. @@ -3150,8 +3151,8 @@ TclGetInstructionTable(void) *-------------------------------------------------------------- */ -void -TclRegisterAuxDataType( +static void +RegisterAuxDataType( AuxDataType *typePtr) /* Information about object type; storage must * be statically allocated (must live forever; * will not be deallocated). */ @@ -3255,8 +3256,8 @@ TclInitAuxDataTypeTable(void) * There are only two AuxData type at this time, so register them here. */ - TclRegisterAuxDataType(&tclForeachInfoType); - TclRegisterAuxDataType(&tclJumptableInfoType); + RegisterAuxDataType(&tclForeachInfoType); + RegisterAuxDataType(&tclJumptableInfoType); } /* |