summaryrefslogtreecommitdiffstats
path: root/generic/tclOOBasic.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2014-01-07 14:13:37 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2014-01-07 14:13:37 (GMT)
commit8bb7405765b9aed27270dfd145037e3c5884a34a (patch)
tree81f6a89a90de99a911e5c745d601b6780602b18c /generic/tclOOBasic.c
parent23573493d5f31cddea12c4e9b6f8ae5a5d3f50c9 (diff)
downloadtcl-8bb7405765b9aed27270dfd145037e3c5884a34a.zip
tcl-8bb7405765b9aed27270dfd145037e3c5884a34a.tar.gz
tcl-8bb7405765b9aed27270dfd145037e3c5884a34a.tar.bz2
make function static once more; not needed outside of source file
Diffstat (limited to 'generic/tclOOBasic.c')
-rw-r--r--generic/tclOOBasic.c21
1 files changed, 9 insertions, 12 deletions
diff --git a/generic/tclOOBasic.c b/generic/tclOOBasic.c
index 49c917b..6084cf2 100644
--- a/generic/tclOOBasic.c
+++ b/generic/tclOOBasic.c
@@ -17,14 +17,11 @@
#include "tclOOInt.h"
static inline Tcl_Object *AddConstructionFinalizer(Tcl_Interp *interp);
-static int AfterNRDestructor(ClientData data[],
- Tcl_Interp *interp, int result);
-static int DecrRefsPostClassConstructor(ClientData data[],
- Tcl_Interp *interp, int result);
-static int FinalizeConstruction(ClientData data[],
- Tcl_Interp *interp, int result);
-static int FinalizeEval(ClientData data[],
- Tcl_Interp *interp, int result);
+static Tcl_NRPostProc AfterNRDestructor;
+static Tcl_NRPostProc DecrRefsPostClassConstructor;
+static Tcl_NRPostProc FinalizeConstruction;
+static Tcl_NRPostProc FinalizeEval;
+static Tcl_NRPostProc NextRestoreFrame;
/*
* ----------------------------------------------------------------------
@@ -806,7 +803,7 @@ TclOONextObjCmd(
* that this is like [uplevel 1] and not [eval].
*/
- TclNRAddCallback(interp, TclOONextRestoreFrame, framePtr, NULL,NULL,NULL);
+ TclNRAddCallback(interp, NextRestoreFrame, framePtr, NULL,NULL,NULL);
iPtr->varFramePtr = framePtr->callerVarPtr;
return TclNRObjectContextInvokeNext(interp, context, objc, objv, 1);
}
@@ -875,7 +872,7 @@ TclOONextToObjCmd(
* context. Note that this is like [uplevel 1] and not [eval].
*/
- TclNRAddCallback(interp, TclOONextRestoreFrame, framePtr,
+ TclNRAddCallback(interp, NextRestoreFrame, framePtr,
contextPtr, INT2PTR(contextPtr->index), NULL);
contextPtr->index = i-1;
iPtr->varFramePtr = framePtr->callerVarPtr;
@@ -905,8 +902,8 @@ TclOONextToObjCmd(
return TCL_ERROR;
}
-int
-TclOONextRestoreFrame(
+static int
+NextRestoreFrame(
ClientData data[],
Tcl_Interp *interp,
int result)