diff options
author | Steve Bennett <steveb@workware.net.au> | 2020-12-12 22:19:41 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2020-12-14 08:07:06 +1000 |
commit | 6b287b9c6b6ec8fbc62f1cbaad48547cf5a4b65c (patch) | |
tree | ac559b73e49ad20ccb3f9d8b3935b56451bef529 /jim.c | |
parent | 0490da395651936d844cce2e32d4972cc2ba985a (diff) | |
download | jimtcl-6b287b9c6b6ec8fbc62f1cbaad48547cf5a4b65c.zip jimtcl-6b287b9c6b6ec8fbc62f1cbaad48547cf5a4b65c.tar.gz jimtcl-6b287b9c6b6ec8fbc62f1cbaad48547cf5a4b65c.tar.bz2 |
core: remove procargs and procbody from callframe
These stored the currently executing proc args and body
(the same as are available via info args and info body),
but were never used anywhere.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jim.c')
-rw-r--r-- | jim.c | 10 |
1 files changed, 0 insertions, 10 deletions
@@ -5050,8 +5050,6 @@ static Jim_CallFrame *JimCreateCallFrame(Jim_Interp *interp, Jim_CallFrame *pare cf->argv = NULL; cf->argc = 0; - cf->procArgsObjPtr = NULL; - cf->procBodyObjPtr = NULL; cf->next = NULL; cf->staticVars = NULL; cf->localCommands = NULL; @@ -5169,10 +5167,6 @@ static void JimFreeCallFrame(Jim_Interp *interp, Jim_CallFrame *cf, int action) { JimDeleteLocalProcs(interp, cf->localCommands); - if (cf->procArgsObjPtr) - Jim_DecrRefCount(interp, cf->procArgsObjPtr); - if (cf->procBodyObjPtr) - Jim_DecrRefCount(interp, cf->procBodyObjPtr); Jim_DecrRefCount(interp, cf->nsObj); if (action == JIM_FCF_FULL || cf->vars.size != JIM_HT_INITIAL_SIZE) Jim_FreeHashTable(&cf->vars); @@ -11142,8 +11136,6 @@ int Jim_EvalNamespace(Jim_Interp *interp, Jim_Obj *scriptObj, Jim_Obj *nsObj) callFramePtr = JimCreateCallFrame(interp, interp->framePtr, nsObj); callFramePtr->argv = &interp->emptyObj; callFramePtr->argc = 0; - callFramePtr->procArgsObjPtr = NULL; - callFramePtr->procBodyObjPtr = scriptObj; callFramePtr->staticVars = NULL; callFramePtr->fileNameObj = interp->emptyObj; callFramePtr->line = 0; @@ -11204,8 +11196,6 @@ static int JimCallProcedure(Jim_Interp *interp, Jim_Cmd *cmd, int argc, Jim_Obj callFramePtr = JimCreateCallFrame(interp, interp->framePtr, cmd->u.proc.nsObj); callFramePtr->argv = argv; callFramePtr->argc = argc; - callFramePtr->procArgsObjPtr = cmd->u.proc.argListObjPtr; - callFramePtr->procBodyObjPtr = cmd->u.proc.bodyObjPtr; callFramePtr->staticVars = cmd->u.proc.staticVars; /* Remember where we were called from. */ |