Index: generic/xotclStack85.c =================================================================== diff -u -r023406d3ec3ce8115b89ae42b0c48c317c63ae0a -r485f041db31fc83046fbeba0d3e64beeb1abca1f --- generic/xotclStack85.c (.../xotclStack85.c) (revision 023406d3ec3ce8115b89ae42b0c48c317c63ae0a) +++ generic/xotclStack85.c (.../xotclStack85.c) (revision 485f041db31fc83046fbeba0d3e64beeb1abca1f) @@ -30,7 +30,7 @@ } } -Tcl_CallFrame * +static Tcl_CallFrame * nonXotclObjectProcFrame(Tcl_CallFrame *framePtr) { for (; framePtr; framePtr = Tcl_CallFrame_callerPtr(framePtr)) { int flag = Tcl_CallFrame_isProcCallFrame(framePtr); @@ -45,7 +45,7 @@ return framePtr; } -Tcl_CallFrame * +static Tcl_CallFrame * nextFrameOfType(Tcl_CallFrame *framePtr, int flags) { for (; framePtr; framePtr = Tcl_CallFrame_callerPtr(framePtr)) { if (Tcl_CallFrame_isProcCallFrame(framePtr) & flags) @@ -280,7 +280,7 @@ * if "exit" is called and we were jumping out of the * callframe */ -void CallStackPopAll(Tcl_Interp *interp) { +static void CallStackPopAll(Tcl_Interp *interp) { while (1) { Tcl_CallFrame *framePtr = Tcl_Interp_framePtr(interp);