Lines Matching defs:procPtr
33 static void InitLocalCache(Proc *procPtr);
45 static int ProcCompileProc(Tcl_Interp *interp, Proc *procPtr,
123 Proc *procPtr;
168 &procPtr) != TCL_OK) {
190 TclObjInterpProc, (ClientData) procPtr, TclProcDeleteProc);
201 procPtr->cmdPtr = (Command *) cmd;
266 hePtr = Tcl_CreateHashEntry(iPtr->linePBodyPtr, (char *) procPtr, &isNew);
394 register Proc *procPtr;
414 procPtr = bodyPtr->internalRep.otherValuePtr;
415 procPtr->iPtr = iPtr;
416 procPtr->refCount++;
427 * "procPtr->numCompiledLocals = numArgs" assignment below). This
457 procPtr = (Proc *) ckalloc(sizeof(Proc));
458 procPtr->iPtr = iPtr;
459 procPtr->refCount = 1;
460 procPtr->bodyPtr = bodyPtr;
461 procPtr->numArgs = 0; /* Actual argument count is set below. */
462 procPtr->numCompiledLocals = 0;
463 procPtr->firstLocalPtr = NULL;
464 procPtr->lastLocalPtr = NULL;
483 if (numArgs > procPtr->numArgs) {
487 procPtr->numArgs));
490 localPtr = procPtr->firstLocalPtr;
492 procPtr->numArgs = numArgs;
493 procPtr->numCompiledLocals = numArgs;
619 if (procPtr->firstLocalPtr == NULL) {
620 procPtr->firstLocalPtr = procPtr->lastLocalPtr = localPtr;
622 procPtr->lastLocalPtr->nextPtr = localPtr;
623 procPtr->lastLocalPtr = localPtr;
650 *procPtrPtr = procPtr;
656 procPtr->refCount--;
659 while (procPtr->firstLocalPtr != NULL) {
660 localPtr = procPtr->firstLocalPtr;
661 procPtr->firstLocalPtr = localPtr->nextPtr;
670 ckfree((char *) procPtr);
1089 register Proc *procPtr = framePtr->procPtr;
1091 int localCt = procPtr->numCompiledLocals, numArgs, i;
1099 numArgs = framePtr->procPtr->numArgs;
1175 bodyPtr = framePtr->procPtr->bodyPtr;
1183 InitLocalCache(framePtr->procPtr) ;
1229 localPtr = iPtr->framePtr->procPtr->firstLocalPtr;
1345 InitLocalCache(Proc *procPtr)
1347 Interp *iPtr = procPtr->iPtr;
1348 ByteCode *codePtr = procPtr->bodyPtr->internalRep.otherValuePtr;
1349 int localCt = procPtr->numCompiledLocals;
1350 int numArgs = procPtr->numArgs, i = 0;
1370 localPtr = procPtr->firstLocalPtr;
1404 register Proc *procPtr = framePtr->procPtr;
1405 ByteCode *codePtr = procPtr->bodyPtr->internalRep.otherValuePtr;
1407 int localCt = procPtr->numCompiledLocals, numArgs, argCt, i, imax;
1417 InitLocalCache(procPtr) ;
1443 numArgs = procPtr->numArgs;
1568 Proc *procPtr = (Proc *) clientData;
1569 Namespace *nsPtr = procPtr->cmdPtr->nsPtr;
1578 * compiling the body might increase procPtr->numCompiledLocals if new
1582 if (procPtr->bodyPtr->typePtr == &tclByteCodeType) {
1594 codePtr = procPtr->bodyPtr->internalRep.otherValuePtr;
1603 result = ProcCompileProc(interp, procPtr, procPtr->bodyPtr, nsPtr,
1605 TclGetString(objv[isLambda]), &procPtr);
1629 framePtr->procPtr = procPtr;
1702 register Proc *procPtr = iPtr->varFramePtr->procPtr;
1755 procPtr->refCount++;
1762 procPtr->bodyPtr->internalRep.otherValuePtr;
1784 procPtr->refCount--;
1785 if (procPtr->refCount <= 0) {
1786 TclProcCleanupProc(procPtr);
1892 Proc *procPtr, /* Data associated with procedure. */
1893 Tcl_Obj *bodyPtr, /* Body of proc. (Usually procPtr->bodyPtr,
1900 return ProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description,
1907 Proc *procPtr, /* Data associated with procedure. */
1908 Tcl_Obj *bodyPtr, /* Body of proc. (Usually procPtr->bodyPtr,
1930 * procPtr->numCompiledLocals if new local variables are found while
1980 * Plug the current procPtr into the interpreter and coerce the code
1989 if (procPtrPtr != NULL && procPtr->refCount > 1) {
1994 newProc->iPtr = procPtr->iPtr;
1996 newProc->cmdPtr = procPtr->cmdPtr;
2001 newProc->numArgs = procPtr->numArgs;
2006 localPtr = procPtr->firstLocalPtr;
2035 if (info.objClientData == (ClientData) procPtr) {
2038 if (info.clientData == (ClientData) procPtr) {
2041 if (info.deleteData == (ClientData) procPtr) {
2046 procPtr->refCount--;
2047 *procPtrPtr = procPtr = newProc;
2049 iPtr->compiledProcPtr = procPtr;
2059 hePtr = Tcl_FindHashEntry(iPtr->linePBodyPtr, (char *) procPtr);
2144 Proc *procPtr = (Proc *) clientData;
2146 procPtr->refCount--;
2147 if (procPtr->refCount <= 0) {
2148 TclProcCleanupProc(procPtr);
2172 register Proc *procPtr) /* Procedure to be deleted. */
2175 Tcl_Obj *bodyPtr = procPtr->bodyPtr;
2180 Interp *iPtr = procPtr->iPtr;
2185 for (localPtr = procPtr->firstLocalPtr; localPtr != NULL; ) {
2204 ckfree((char *) procPtr);
2217 hePtr = Tcl_FindHashEntry(iPtr->linePBodyPtr, (char *) procPtr);
2331 Proc *procPtr) /* the Proc struct to store as the internal
2336 if (!procPtr) {
2343 objPtr->internalRep.otherValuePtr = procPtr;
2345 procPtr->refCount++;
2374 Proc *procPtr = srcPtr->internalRep.otherValuePtr;
2377 dupPtr->internalRep.otherValuePtr = procPtr;
2378 procPtr->refCount++;
2405 Proc *procPtr = objPtr->internalRep.otherValuePtr;
2407 procPtr->refCount--;
2408 if (procPtr->refCount <= 0) {
2409 TclProcCleanupProc(procPtr);
2433 Proc *procPtr = srcPtr->internalRep.twoPtrValue.ptr1;
2436 copyPtr->internalRep.twoPtrValue.ptr1 = procPtr;
2439 procPtr->refCount++;
2449 Proc *procPtr = objPtr->internalRep.twoPtrValue.ptr1;
2452 procPtr->refCount--;
2453 if (procPtr->refCount == 0) {
2454 TclProcCleanupProc(procPtr);
2468 Proc *procPtr;
2495 &procPtr) != TCL_OK) {
2503 * procPtr->refCount = 1;
2506 procPtr->cmdPtr = NULL;
2585 (char *) procPtr, &isNew), cfPtr);
2626 objPtr->internalRep.twoPtrValue.ptr1 = procPtr;
2658 Proc *procPtr = NULL;
2677 procPtr = lambdaPtr->internalRep.twoPtrValue.ptr1;
2699 if ((procPtr == NULL) || (procPtr->iPtr != iPtr)) {
2704 procPtr = lambdaPtr->internalRep.twoPtrValue.ptr1;
2708 procPtr->cmdPtr = &cmd;
2748 result = PushProcCallFrame((ClientData) procPtr, interp, objc, objv, 1);
2839 Proc *procPtr = NULL;
2849 procPtr = objv[2]->internalRep.twoPtrValue.ptr1;
2851 if (procPtr == NULL || procPtr->iPtr != (Interp *) interp) {
2856 procPtr = objv[2]->internalRep.twoPtrValue.ptr1;
2866 procPtr->cmdPtr = &cmd;
2867 result = PushProcCallFrame(procPtr, interp, objc, objv, 1);
2872 if (((ByteCode *) procPtr->bodyPtr->internalRep.otherValuePtr)->flags
2878 Tcl_SetObjResult(interp, TclDisassembleByteCodeObj(procPtr->bodyPtr));
2882 Proc *procPtr = TclFindProc((Interp *) interp, TclGetString(objv[2]));
2884 if (procPtr == NULL) {
2894 result = PushProcCallFrame(procPtr, interp, 2, objv+1, 1);
2899 if (((ByteCode *) procPtr->bodyPtr->internalRep.otherValuePtr)->flags
2905 Tcl_SetObjResult(interp, TclDisassembleByteCodeObj(procPtr->bodyPtr));