From 954522812e2e6644f38fa1ee44ce949a6c83a9d1 Mon Sep 17 00:00:00 2001 From: dgp Date: Fri, 9 Mar 2018 21:07:12 +0000 Subject: Return routine to file scope. --- generic/tclInt.h | 2 -- generic/tclUtil.c | 12 +++++++----- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/generic/tclInt.h b/generic/tclInt.h index 3821e42..ef48126 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -2978,8 +2978,6 @@ MODULE_SCOPE int TclGetChannelFromObj(Tcl_Interp *interp, MODULE_SCOPE CmdFrame * TclGetCmdFrameForProcedure(Proc *procPtr); MODULE_SCOPE int TclGetCompletionCodeFromObj(Tcl_Interp *interp, Tcl_Obj *value, int *code); -MODULE_SCOPE int TclGetEndOffsetFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, int endValue, int *indexPtr); MODULE_SCOPE int TclGetNumberFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, ClientData *clientDataPtr, int *typePtr); diff --git a/generic/tclUtil.c b/generic/tclUtil.c index f6a92fc..768b2f5 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -107,6 +107,8 @@ static Tcl_ThreadDataKey precisionKey; static void ClearHash(Tcl_HashTable *tablePtr); static void FreeProcessGlobalValue(ClientData clientData); static void FreeThreadHash(ClientData clientData); +static int GetEndOffsetFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, int endValue, int *indexPtr); static Tcl_HashTable * GetThreadHash(Tcl_ThreadDataKey *keyPtr); static int SetEndOffsetFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr); @@ -3575,7 +3577,7 @@ TclGetIntForIndex( return TCL_OK; } - if (TclGetEndOffsetFromObj(NULL, objPtr, endValue, indexPtr) == TCL_OK) { + if (GetEndOffsetFromObj(NULL, objPtr, endValue, indexPtr) == TCL_OK) { return TCL_OK; } @@ -3678,7 +3680,7 @@ UpdateStringOfEndOffset( /* *---------------------------------------------------------------------- * - * TclGetEndOffsetFromObj -- + * GetEndOffsetFromObj -- * * Look for a string of the form "end[+-]offset" and convert it to an * internal representation holding the offset. @@ -3692,8 +3694,8 @@ UpdateStringOfEndOffset( *---------------------------------------------------------------------- */ -int -TclGetEndOffsetFromObj( +static int +GetEndOffsetFromObj( Tcl_Interp *interp, /* For error reporting, may be NULL. */ Tcl_Obj *objPtr, /* Pointer to the object to parse */ int endValue, /* The value to be stored at "indexPtr" if @@ -3886,7 +3888,7 @@ TclIndexEncode( idx = after; } /* usual case, the absolute index value encodes itself */ - } else if (TCL_OK == TclGetEndOffsetFromObj(NULL, objPtr, 0, &idx)) { + } else if (TCL_OK == GetEndOffsetFromObj(NULL, objPtr, 0, &idx)) { /* * We parsed an end+offset index value. * idx holds the offset value in the range INT_MIN...INT_MAX. -- cgit v0.12