diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-03-05 20:19:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-03-05 20:19:14 (GMT) |
| commit | 9e95ecd95bda273bf6f0b4c6b3816c6043b868ae (patch) | |
| tree | 141f4f4f48bcfc8c71d195842f7b82ea31013225 /generic/tclCompile.c | |
| parent | d6e479b3377880b1560387ab9385656aeaba9ccf (diff) | |
| parent | ff33155b738339c0ecc8f822888b8a8eba45e676 (diff) | |
| download | tcl-9e95ecd95bda273bf6f0b4c6b3816c6043b868ae.zip tcl-9e95ecd95bda273bf6f0b4c6b3816c6043b868ae.tar.gz tcl-9e95ecd95bda273bf6f0b4c6b3816c6043b868ae.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 | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index cf165f6..cf1e25e 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -557,6 +557,7 @@ static int GetCmdLocEncodingSize(CompileEnv *envPtr); #ifdef TCL_COMPILE_STATS static void RecordByteCodeStats(ByteCode *codePtr); #endif /* TCL_COMPILE_STATS */ +static void RegisterAuxDataType(const AuxDataType *typePtr); static int SetByteCodeFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr); static int FormatInstruction(ByteCode *codePtr, @@ -3573,7 +3574,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. @@ -3589,8 +3590,8 @@ TclGetInstructionTable(void) *-------------------------------------------------------------- */ -void -TclRegisterAuxDataType( +static void +RegisterAuxDataType( const AuxDataType *typePtr) /* Information about object type; storage must * be statically allocated (must live forever; * will not be deallocated). */ @@ -3694,9 +3695,9 @@ TclInitAuxDataTypeTable(void) * There are only two AuxData type at this time, so register them here. */ - TclRegisterAuxDataType(&tclForeachInfoType); - TclRegisterAuxDataType(&tclJumptableInfoType); - TclRegisterAuxDataType(&tclDictUpdateInfoType); + RegisterAuxDataType(&tclForeachInfoType); + RegisterAuxDataType(&tclJumptableInfoType); + RegisterAuxDataType(&tclDictUpdateInfoType); } /* |