Index: generic/gentclAPI.tcl =================================================================== diff -u -r91a7b7d13c9ad7bbf50deb591d1cf62a8607e9d3 -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- generic/gentclAPI.tcl (.../gentclAPI.tcl) (revision 91a7b7d13c9ad7bbf50deb591d1cf62a8607e9d3) +++ generic/gentclAPI.tcl (.../gentclAPI.tcl) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -30,7 +30,7 @@ # set ::converter "" -set ::objCmdProc "(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv)" +set ::objCmdProc "(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv)" proc convertername {type typename} { if {[info exists ::registeredConverter($type)]} { @@ -278,14 +278,14 @@ "args" { set type "int " set calledArg "objc - pc.lastObjc, objv + pc.lastObjc" - lappend if "int trailingObjc" "Tcl_Obj *const* trailingObjv" + lappend if "TCL_OBJC_T trailingObjc" "Tcl_Obj *const* trailingObjv" set ifSet 1 set cVar 0 } "allargs" { set type "int " set calledArg "objc, objv" - lappend if "int objc" "Tcl_Obj *const* objv" + lappend if "TCL_OBJC_T objc" "Tcl_Obj *const* objv" set ifSet 1 set cVar 0 } @@ -369,7 +369,7 @@ } return [subst -nocommands { static int -${stub}(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +${stub}(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; $intro if (likely(ArgumentParse(interp, objc, objv, $obj, objv[0], @@ -392,7 +392,7 @@ if {$cleanup ne ""} {error "$stub cleanup code '$cleanup' must be empty"} return [subst -nocommands { static int -${stub}(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +${stub}(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { $intro $cDefs $pre Index: generic/nsf.c =================================================================== diff -u -rd9d5b503e345228c7a5e8bc549f9ade549f22eec -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- generic/nsf.c (.../nsf.c) (revision d9d5b503e345228c7a5e8bc549f9ade549f22eec) +++ generic/nsf.c (.../nsf.c) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -141,14 +141,14 @@ typedef struct ForwardCmdClientData { NsfObject *object; Tcl_Obj *cmdName; - Tcl_ObjCmdProc *objProc; + TCL_OBJCMDPROC_T *objProc; ClientData clientData; bool passthrough; bool needobjmap; bool verbose; bool hasNonposArgs; Tcl_Obj *args; - int nr_args; + TCL_OBJC_T nr_args; int frame; #if defined(NSF_FORWARD_WITH_ONERROR) Tcl_Obj *onerror; @@ -161,7 +161,7 @@ typedef struct AliasCmdClientData { NsfObject *object; Tcl_Obj *cmdName; - Tcl_ObjCmdProc *objProc; + TCL_OBJCMDPROC_T *objProc; ClientData clientData; NsfClass *class; Tcl_Interp *interp; @@ -196,8 +196,8 @@ Tcl_Obj *objv_static[PARSE_CONTEXT_PREALLOC+1]; unsigned int flags_static[PARSE_CONTEXT_PREALLOC+1]; unsigned int status; - int lastObjc; /* points to the first "unprocessed" argument */ - int objc; + TCL_OBJC_T lastObjc; /* points to the first "unprocessed" argument */ + TCL_OBJC_T objc; NsfObject *object; bool varArgs; /* does the parameter end with some kind of "args" */ } ParseContext; @@ -230,12 +230,12 @@ /* * Prototypes for method definitions */ -static Tcl_ObjCmdProc NsfForwardMethod; -static Tcl_ObjCmdProc NsfObjscopedMethod; -static Tcl_ObjCmdProc NsfSetterMethod; -static Tcl_ObjCmdProc NsfProcAliasMethod; -static Tcl_ObjCmdProc NsfAsmProc; -Tcl_ObjCmdProc NsfProcStub; +static TCL_OBJCMDPROC_T NsfForwardMethod; +static TCL_OBJCMDPROC_T NsfObjscopedMethod; +static TCL_OBJCMDPROC_T NsfSetterMethod; +static TCL_OBJCMDPROC_T NsfProcAliasMethod; +static TCL_OBJCMDPROC_T NsfAsmProc; +TCL_OBJCMDPROC_T NsfProcStub; /* * Prototypes for interpreter life-cyle @@ -257,16 +257,16 @@ nonnull(1) nonnull(2); static int NsfCAllocMethod_(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *nameObj, Tcl_Namespace *parentNsPtr) nonnull(1) nonnull(2) nonnull(3); -static int NsfCCreateMethod(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *nameObj, int objc, Tcl_Obj *const objv[]) +static int NsfCCreateMethod(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *nameObj, TCL_OBJC_T objc, Tcl_Obj *const objv[]) nonnull(1) nonnull(2) nonnull(3) nonnull(5); static int NsfOCleanupMethod(Tcl_Interp *interp, NsfObject *object) nonnull(1) nonnull(2); -static int NsfOConfigureMethod(Tcl_Interp *interp, NsfObject *object, int objc, Tcl_Obj *const objv[], Tcl_Obj *objv0) +static int NsfOConfigureMethod(Tcl_Interp *interp, NsfObject *object, TCL_OBJC_T objc, Tcl_Obj *const objv[], Tcl_Obj *objv0) nonnull(1) nonnull(2) nonnull(4) nonnull(5); static int NsfODestroyMethod(Tcl_Interp *interp, NsfObject *object) nonnull(1) nonnull(2); static int MethodDispatch( - Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], + Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[], Tcl_Command cmd, NsfObject *object, NsfClass *class, const char *methodName, unsigned short frameType, unsigned int flags ) nonnull(1) nonnull(3) nonnull(4) nonnull(5) nonnull(7); @@ -276,12 +276,12 @@ nonnull(1) nonnull(2); static int DispatchUnknownMethod( Tcl_Interp *interp, NsfObject *object, - int objc, Tcl_Obj *const objv[], Tcl_Obj *callInfoObj, + TCL_OBJC_T objc, Tcl_Obj *const objv[], Tcl_Obj *callInfoObj, Tcl_Obj *methodObj, unsigned int flags ) nonnull(1) nonnull(2) nonnull(4) nonnull(6); NSF_INLINE static int ObjectDispatch( - ClientData clientData, Tcl_Interp *interp, int objc, + ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[], unsigned int flags ) nonnull(1) nonnull(2) nonnull(4); @@ -293,7 +293,7 @@ /* * Prototypes for object life-cycle management */ -static int RecreateObject(Tcl_Interp *interp, NsfClass *class, NsfObject *object, int objc, Tcl_Obj *const objv[]) +static int RecreateObject(Tcl_Interp *interp, NsfClass *class, NsfObject *object, TCL_OBJC_T objc, Tcl_Obj *const objv[]) nonnull(1) nonnull(2) nonnull(3) nonnull(5); static void FinalObjectDeletion(Tcl_Interp *interp, NsfObject *object) nonnull(1) nonnull(2); @@ -381,7 +381,7 @@ Tcl_Obj *withDefault, int withEarlybinding, Tcl_Obj *withOnerror, Tcl_Obj *withMethodprefix, int withFrame, bool withVerbose, - Tcl_Obj *target, int objc, Tcl_Obj * const objv[], + Tcl_Obj *target, TCL_OBJC_T objc, Tcl_Obj * const objv[], ForwardCmdClientData **tcdPtr ) nonnull(1) nonnull(2) nonnull(11); @@ -444,7 +444,7 @@ unsigned int processFlags, NsfParamDefs *paramDefs, Tcl_Obj *methodNameObj, - int objc, Tcl_Obj *const objv[] + TCL_OBJC_T objc, Tcl_Obj *const objv[] ) nonnull(1) nonnull(2) nonnull(5) nonnull(6) nonnull(8); static int ParameterCheck( @@ -484,11 +484,11 @@ static int ArgumentParse( Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[], + TCL_OBJC_T objc, Tcl_Obj *const objv[], NsfObject *object, Tcl_Obj *procNameObj, const Nsf_Param *paramPtr, - int nrParams, + TCL_OBJC_T nrParams, int serial, unsigned int processFlags, ParseContext *pcPtr @@ -582,7 +582,7 @@ static int NextSearchAndInvoke( Tcl_Interp *interp, - const char *methodName, int objc, Tcl_Obj *const objv[], + const char *methodName, TCL_OBJC_T objc, Tcl_Obj *const objv[], NsfCallStackContent *cscPtr, bool freeArgumentVector ) nonnull(1) nonnull(2) nonnull(5); @@ -595,7 +595,7 @@ static Tcl_Command GetOriginalCommand(Tcl_Command cmd) nonnull(1) returns_nonnull; -EXTERN void NsfDStringArgv(Tcl_DString *dsPtr, int objc, Tcl_Obj *const objv[]) +EXTERN void NsfDStringArgv(Tcl_DString *dsPtr, TCL_OBJC_T objc, Tcl_Obj *const objv[]) nonnull(1) nonnull(3); static NsfObjectOpt *NsfRequireObjectOpt(NsfObject *object) @@ -971,12 +971,12 @@ *---------------------------------------------------------------------- */ static void ParseContextInit( - ParseContext *pcPtr, int objc, NsfObject *object, Tcl_Obj *procName + ParseContext *pcPtr, TCL_OBJC_T objc, NsfObject *object, Tcl_Obj *procName ) nonnull(1) nonnull(4); static void ParseContextInit( - ParseContext *pcPtr, int objc, NsfObject *object, Tcl_Obj *procName + ParseContext *pcPtr, TCL_OBJC_T objc, NsfObject *object, Tcl_Obj *procName ) { nonnull_assert(pcPtr != NULL); nonnull_assert(procName != NULL); @@ -1074,7 +1074,7 @@ memcpy(pcPtr->objv + from, source, sizeof(Tcl_Obj *) * (size_t)elts); memset(pcPtr->flags + from, 0, sizeof(int) * (size_t)elts); - pcPtr->objc = pcPtr->objc + (int)elts; + pcPtr->objc = pcPtr->objc + (TCL_OBJC_T)elts; /*NsfPrintObjv("AFTER: ", pcPtr->objc, pcPtr->full_objv);*/ } @@ -1164,7 +1164,7 @@ if (unlikely(status != 0u)) { if ((status & NSF_PC_STATUS_MUST_DECR) != 0u) { - int i; + TCL_OBJC_T i; /*fprintf(stderr, "ParseContextRelease %p loop from 0 to %d\n", pcPtr, pcPtr->objc-1);*/ for (i = 0; i < pcPtr->objc; i++) { @@ -1225,12 +1225,12 @@ */ static int CallMethod(ClientData clientData, Tcl_Interp *interp, Tcl_Obj *methodObj, - int objc, Tcl_Obj *const objv[], unsigned int flags) + TCL_OBJC_T objc, Tcl_Obj *const objv[], unsigned int flags) nonnull(1) nonnull(2) nonnull(3); static int CallMethod(ClientData clientData, Tcl_Interp *interp, Tcl_Obj *methodObj, - int objc, Tcl_Obj *const objv[], unsigned int flags) { + TCL_OBJC_T objc, Tcl_Obj *const objv[], unsigned int flags) { NsfObject *object; int result; ALLOC_ON_STACK(Tcl_Obj*, objc, tov); @@ -1280,13 +1280,13 @@ */ int NsfCallMethodWithArgs(Tcl_Interp *interp, Nsf_Object *object, Tcl_Obj *methodObj, - Tcl_Obj *arg1, int givenObjc, Tcl_Obj *const objv[], unsigned int flags) + Tcl_Obj *arg1, TCL_OBJC_T givenObjc, Tcl_Obj *const objv[], unsigned int flags) nonnull(1) nonnull(2) nonnull(3); int NsfCallMethodWithArgs(Tcl_Interp *interp, Nsf_Object *object, Tcl_Obj *methodObj, - Tcl_Obj *arg1, int givenObjc, Tcl_Obj *const objv[], unsigned int flags) { - int objc = givenObjc + 2; + Tcl_Obj *arg1, TCL_OBJC_T givenObjc, Tcl_Obj *const objv[], unsigned int flags) { + TCL_OBJC_T objc = givenObjc + 2; int result; ALLOC_ON_STACK(Tcl_Obj*, objc, tov); @@ -1462,7 +1462,7 @@ nonnull(1) nonnull(2) nonnull(3) nonnull(5); Tcl_Obj * Nsf_ObjGetVar2(Nsf_Object *object, Tcl_Interp *interp, Tcl_Obj *name1, Tcl_Obj *name2, unsigned int flags) nonnull(1) nonnull(2) nonnull(3); -int NsfCreate(Tcl_Interp *interp, Nsf_Class *class, Tcl_Obj *nameObj, int objc, Tcl_Obj *const objv[]) +int NsfCreate(Tcl_Interp *interp, Nsf_Class *class, Tcl_Obj *nameObj, TCL_OBJC_T objc, Tcl_Obj *const objv[]) nonnull(1) nonnull(2) nonnull(3) nonnull(5); int NsfDeleteObject(Tcl_Interp *interp, Nsf_Object *object) nonnull(1) nonnull(2); @@ -1615,7 +1615,7 @@ int NsfCreate(Tcl_Interp *interp, Nsf_Class *class, Tcl_Obj *nameObj, - int objc, Tcl_Obj *const objv[]) { + TCL_OBJC_T objc, Tcl_Obj *const objv[]) { NsfClass *cl = (NsfClass *) class; int result; ALLOC_ON_STACK(Tcl_Obj*, objc, tov); @@ -2062,7 +2062,7 @@ cmdObject = NsfGetObjectFromCmdPtr(cmd); /* fprintf(stderr, "GetObjectFromObj obj %s, o is %p objProc %p NsfObjDispatch %p\n", - ObjStr(objPtr), cmdObject, Tcl_Command_objProc(cmd), NsfObjDispatch);*/ + ObjStr(objPtr), cmdObject, TCL_COMMAND_OBJPROC(cmd), NsfObjDispatch);*/ if (likely(cmdObject != NULL)) { *objectPtr = cmdObject; @@ -2153,8 +2153,9 @@ Tcl_Obj *argumentObj, NsfObject *object ) { - Tcl_Obj *ov[4]; - int result, oc = 3; + Tcl_Obj *ov[4]; + int result; + TCL_OBJC_T oc = 3; nonnull_assert(interp != NULL); nonnull_assert(methodObj != NULL); @@ -2224,11 +2225,11 @@ * resolved, but we have to care, if a class is "imported" via "interp * alias". */ - Tcl_Interp *alias_interp; - const char *alias_cmd_name, *qualifiedObjName; - Tcl_Obj *nameObj = objPtr; - Tcl_Obj **alias_ov; - int alias_oc = 0; + Tcl_Interp *alias_interp; + const char *alias_cmd_name, *qualifiedObjName; + Tcl_Obj *nameObj = objPtr; + Tcl_Obj **alias_ov; + int alias_oc = 0; if (!isAbsolutePath(objName)) { nameObj = NameInNamespaceObj(objName, CallingNameSpace(interp)); @@ -3866,7 +3867,7 @@ const Tcl_Namespace *parentNsPtr; const NsfObject *ensembleObject; Tcl_Obj *methodHandleObj, **ov; - int oc, i; + TCL_OBJC_T oc, i; /* * When the methodName is required, we have to provide a methodNameDS as @@ -4059,7 +4060,7 @@ * below. */ nonnull_assert(cmd != NULL); - return (Tcl_Command_objProc(cmd) == TclObjInterpProc); + return (TCL_COMMAND_OBJPROC(cmd) == (TCL_OBJCMDPROC_T*)TclObjInterpProc); } /* @@ -4082,7 +4083,7 @@ NSF_INLINE static bool CmdIsNsfObject(Tcl_Command cmd) { nonnull_assert(cmd != NULL); - return Tcl_Command_objProc(cmd) == NsfObjDispatch; + return (TCL_OBJCMDPROC_T*)Tcl_Command_objProc(cmd) == NsfObjDispatch; } /* @@ -7441,14 +7442,14 @@ */ int NsfAddObjectMethod( Tcl_Interp *interp, Nsf_Object *object, const char *methodName, - Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, + TCL_OBJCMDPROC_T *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, unsigned int flags ) nonnull(1) nonnull(2) nonnull(3) nonnull(4); int NsfAddObjectMethod( Tcl_Interp *interp, Nsf_Object *object, const char *methodName, - Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, + TCL_OBJCMDPROC_T *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, unsigned int flags ) { NsfObject *currentObject; @@ -7482,7 +7483,7 @@ Tcl_DStringInit(dsPtr); DStringAppendQualName(dsPtr, ns, methodName); - newCmd = Tcl_CreateObjCommand(interp, Tcl_DStringValue(dsPtr), proc, clientData, dp); + newCmd = TCL_CREATEOBJCOMMAND(interp, Tcl_DStringValue(dsPtr), proc, clientData, dp); if (flags != 0u) { ((Command *) newCmd)->flags |= (int)flags; @@ -7508,14 +7509,14 @@ */ int NsfAddClassMethod( Tcl_Interp *interp, Nsf_Class *class, const char *methodName, - Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, + TCL_OBJCMDPROC_T *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, unsigned int flags ) nonnull(1) nonnull(2) nonnull(3) nonnull(4); int NsfAddClassMethod( Tcl_Interp *interp, Nsf_Class *class, const char *methodName, - Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, + TCL_OBJCMDPROC_T *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, unsigned int flags ) { Tcl_DString newCmdName, *dsPtr = &newCmdName; @@ -7549,7 +7550,7 @@ Tcl_DStringInit(dsPtr); DStringAppendQualName(dsPtr, c->nsPtr, methodName); - newCmd = Tcl_CreateObjCommand(interp, Tcl_DStringValue(dsPtr), proc, clientData, dp); + newCmd = TCL_CREATEOBJCOMMAND(interp, Tcl_DStringValue(dsPtr), proc, clientData, dp); if (flags != 0) { ((Command *) newCmd)->flags |= (int)flags; @@ -8486,14 +8487,14 @@ static NsfTclObjList * AssertionNewList(Tcl_Interp *interp, Tcl_Obj *aObj) { - Tcl_Obj **ov; int oc; + Tcl_Obj **ov; TCL_OBJC_T oc; NsfTclObjList *last = NULL; nonnull_assert(interp != NULL); if (aObj && Tcl_ListObjGetElements(interp, aObj, &oc, &ov) == TCL_OK) { if (oc > 0) { - int i; + TCL_OBJC_T i; for (i = oc - 1; i >= 0; i--) { TclObjListNewElement(&last, ov[i], NULL); } @@ -8861,8 +8862,8 @@ static int AssertionSetCheckOptions(Tcl_Interp *interp, NsfObject *object, Tcl_Obj *arg) { NsfObjectOpt *opt; - int ocArgs; - Tcl_Obj **ovArgs; + TCL_OBJC_T ocArgs; + Tcl_Obj **ovArgs; nonnull_assert(interp != NULL); nonnull_assert(object != NULL); @@ -8873,7 +8874,8 @@ if (Tcl_ListObjGetElements(interp, arg, &ocArgs, &ovArgs) == TCL_OK && ocArgs > 0) { - int i; + TCL_OBJC_T i; + for (i = 0; i < ocArgs; i++) { const char *option = ObjStr(ovArgs[i]); if (option != NULL) { @@ -12071,15 +12073,15 @@ * *---------------------------------------------------------------------- */ -static int SuperclassAdd(Tcl_Interp *interp, NsfClass *class, int oc, Tcl_Obj **ov, Tcl_Obj *arg) +static int SuperclassAdd(Tcl_Interp *interp, NsfClass *class, TCL_OBJC_T oc, Tcl_Obj **ov, Tcl_Obj *arg) nonnull(1) nonnull(2) nonnull(4) nonnull(5); static int -SuperclassAdd(Tcl_Interp *interp, NsfClass *class, int oc, Tcl_Obj **ov, Tcl_Obj *arg) { +SuperclassAdd(Tcl_Interp *interp, NsfClass *class, TCL_OBJC_T oc, Tcl_Obj **ov, Tcl_Obj *arg) { NsfClasses *superClasses, *subClasses, *osl = NULL; NsfObjectSystem *osPtr; NsfClass **classPtr; - int i, j; + TCL_OBJC_T i, j; nonnull_assert(interp != NULL); nonnull_assert(class != NULL); @@ -12482,15 +12484,15 @@ */ static int PushProcCallFrame( Proc *procPtr, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[], + TCL_OBJC_T objc, Tcl_Obj *const objv[], Tcl_Namespace *execNsPtr, NsfCallStackContent *cscPtr ) nonnull(1) nonnull(2) nonnull(4) nonnull(6); static int PushProcCallFrame( Proc *procPtr, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[], + TCL_OBJC_T objc, Tcl_Obj *const objv[], Tcl_Namespace *execNsPtr, NsfCallStackContent *cscPtr ) { @@ -14207,14 +14209,14 @@ *---------------------------------------------------------------------- */ static int ProcMethodDispatch( - ClientData cp, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], + ClientData cp, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[], const char *methodName, NsfObject *object, NsfClass *class, Tcl_Command cmdPtr, NsfCallStackContent *cscPtr ) nonnull(1) nonnull(2) nonnull(4) nonnull(5) nonnull(6) nonnull(8) nonnull(9); static int ProcMethodDispatch( - ClientData cp, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], + ClientData cp, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[], const char *methodName, NsfObject *object, NsfClass *class, Tcl_Command cmdPtr, NsfCallStackContent *cscPtr ) { @@ -14417,13 +14419,13 @@ *---------------------------------------------------------------------- */ static int CmdMethodDispatch( - ClientData cp, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], + ClientData cp, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[], NsfObject *object, Tcl_Command cmd, NsfCallStackContent *cscPtr ) nonnull(2) nonnull(4) nonnull(5) nonnull(6); static int CmdMethodDispatch( - ClientData cp, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], + ClientData cp, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[], NsfObject *object, Tcl_Command cmd, NsfCallStackContent *cscPtr ) { CallFrame frame, *framePtr = &frame; @@ -14449,10 +14451,10 @@ */ /*fprintf(stderr, "Nsf_PushFrameCsc %s %s\n", ObjectName(object), Tcl_GetCommandName(interp, cmd));*/ Nsf_PushFrameCsc(interp, cscPtr, framePtr); - result = Tcl_NRCallObjProc(interp, Tcl_Command_objProc(cmd), cp, (TCL_SIZE_T)objc, objv); + result = TCL_NRCALLOBJPROC(interp, TCL_COMMAND_OBJPROC(cmd), cp, (TCL_SIZE_T)objc, objv); Nsf_PopFrameCsc(interp, framePtr); } else { - result = Tcl_NRCallObjProc(interp, Tcl_Command_objProc(cmd), cp, (TCL_SIZE_T)objc, objv); + result = TCL_NRCALLOBJPROC(interp, TCL_COMMAND_OBJPROC(cmd), cp, (TCL_SIZE_T)objc, objv); } #if defined(NSF_WITH_ASSERTIONS) @@ -14494,13 +14496,13 @@ */ static int ObjectCmdMethodDispatch( - NsfObject *invokedObject, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], + NsfObject *invokedObject, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[], const char *methodName, NsfObject *callerSelf, NsfCallStackContent *cscPtr ) nonnull(1) nonnull(2) nonnull(4) nonnull(5) nonnull(6) nonnull(7); static int ObjectCmdMethodDispatch( - NsfObject *invokedObject, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], + NsfObject *invokedObject, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[], const char *methodName, NsfObject *callerSelf, NsfCallStackContent *cscPtr ) { CallFrame frame, *framePtr = &frame; @@ -14791,7 +14793,8 @@ if (RUNTIME_STATE(interp)->unknown) { Tcl_Obj *callInfoObj = Tcl_NewListObj(1, &callerSelf->cmdName); Tcl_CallFrame *varFramePtr, *tclFramePtr = CallStackGetTclFrame(interp, (Tcl_CallFrame *)framePtr, 1); - int pathLength, pathLength0 = 0, unknownIndex; + int pathLength, pathLength0 = 0; + TCL_OBJC_T unknownIndex; Tcl_Obj *pathObj = NsfMethodNamePath(interp, tclFramePtr, MethodName(objv[0])); bool getPath = NSF_TRUE; @@ -14862,7 +14865,7 @@ } } - unknownIndex = pathLength <= pathLength0 ? 1 : 1 + pathLength - pathLength0; + unknownIndex = pathLength <= pathLength0 ? 1 : 1 + (TCL_SIZE_T)(pathLength - pathLength0); assert(objc > unknownIndex); INCR_REF_COUNT(callInfoObj); @@ -14885,7 +14888,7 @@ #if !defined(NSF_ASSEMBLE) static int NsfAsmProc(ClientData UNUSED(clientData), Tcl_Interp *UNUSED(interp), - int UNUSED(objc), Tcl_Obj *const UNUSED(objv[])) { + TCL_OBJC_T UNUSED(ojbc), Tcl_Obj *const UNUSED(objv[])) { return TCL_OK; } #endif @@ -14965,7 +14968,7 @@ */ static int MethodDispatchCsc( ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[], + TCL_OBJC_T objc, Tcl_Obj *const objv[], Tcl_Command cmd, NsfCallStackContent *cscPtr, const char *methodName, @@ -14975,15 +14978,15 @@ static int MethodDispatchCsc( ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[], + TCL_OBJC_T objc, Tcl_Obj *const objv[], Tcl_Command cmd, NsfCallStackContent *cscPtr, const char *methodName, bool *validCscPtr ) { NsfObject *object; ClientData cp; - Tcl_ObjCmdProc *proc; + TCL_OBJCMDPROC_T *proc; NsfCallStackContent *cscPtr1; nonnull_assert(clientData != NULL); @@ -14995,7 +14998,7 @@ nonnull_assert(validCscPtr != NULL); cp = Tcl_Command_objClientData(cmd); - proc = Tcl_Command_objProc(cmd); + proc = (TCL_OBJCMDPROC_T*)Tcl_Command_objProc(cmd); object = cscPtr->self; /* @@ -15027,7 +15030,7 @@ * finishes. */ - if (likely(proc == TclObjInterpProc)) { + if (likely((Tcl_ObjCmdProc*)proc == TclObjInterpProc)) { int result; #if defined(NRE) NRE_callback *rootPtr = TOP_CB(interp); @@ -15168,7 +15171,7 @@ *---------------------------------------------------------------------- */ static int -MethodDispatch(Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], +MethodDispatch(Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[], Tcl_Command cmd, NsfObject *object, NsfClass *class, const char *methodName, unsigned short frameType, unsigned int flags) { NsfCallStackContent csc, *cscPtr; @@ -15386,12 +15389,12 @@ CmdObjProcName( Tcl_Command cmd ) { - const char *result; - Tcl_ObjCmdProc *proc; + const char *result; + TCL_OBJCMDPROC_T *proc; nonnull_assert(cmd != NULL); - proc = Tcl_Command_objProc(cmd); + proc = (TCL_OBJCMDPROC_T*)Tcl_Command_objProc(cmd); if (CmdIsNsfObject(cmd)) { result = "object"; } else if (CmdIsProc(cmd)) { @@ -15426,12 +15429,12 @@ result = "setter"; } else if (proc == NsfAsmProc) { result = "asm"; - } else if (proc == TclObjInterpProc) { + } else if (proc == (TCL_OBJCMDPROC_T*)TclObjInterpProc) { result = "alt proc"; #if 0 - } else if (proc == Tcl_ApplyObjCmd) { + } else if (proc == (TCL_OBJCMDPROC_T*)Tcl_ApplyObjCmd) { result = "apply"; - } else if (proc == Tcl_EvalObjCmd) { + } else if (proc == (TCL_OBJCMDPROC_T*)Tcl_EvalObjCmd) { result = "eval"; #endif } else { @@ -15569,7 +15572,7 @@ * benefit is not clear. * * (methodObjTypePtr != Nsf_OT_tclCmdNameType) - * || (Tcl_Command_objProc(cmd) == NsfProcAliasMethod) + * || (TCL_COMMAND_OBJPROC(cmd) == NsfProcAliasMethod) * */ NsfColonCmdContext *ccCtxPtr = methodObj->internalRep.twoPtrValue.ptr2; @@ -15647,15 +15650,15 @@ *---------------------------------------------------------------------- */ NSF_INLINE static int ObjectDispatch(ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[], + TCL_OBJC_T objc, Tcl_Obj *const objv[], unsigned int flags) nonnull(1) nonnull(2) nonnull(4); NSF_INLINE static int ObjectDispatch( ClientData clientData, Tcl_Interp *interp, - int objc, + TCL_OBJC_T objc, Tcl_Obj *const objv[], unsigned int flags ) { @@ -16426,12 +16429,12 @@ *---------------------------------------------------------------------- */ static int DispatchInitMethod(Tcl_Interp *interp, NsfObject *object, - int objc, Tcl_Obj *const objv[], unsigned int flags) + TCL_OBJC_T objc, Tcl_Obj *const objv[], unsigned int flags) nonnull(1) nonnull(2); static int DispatchInitMethod(Tcl_Interp *interp, NsfObject *object, - int objc, Tcl_Obj *const objv[], unsigned int flags) { + TCL_OBJC_T objc, Tcl_Obj *const objv[], unsigned int flags) { int result; Tcl_Obj *methodObj; @@ -16488,7 +16491,7 @@ static int DispatchUnknownMethod(Tcl_Interp *interp, NsfObject *object, - int objc, Tcl_Obj *const objv[], + TCL_OBJC_T objc, Tcl_Obj *const objv[], Tcl_Obj *callInfoObj, Tcl_Obj *methodObj, unsigned int flags) { int result; Tcl_Obj *unknownObj; @@ -16595,26 +16598,26 @@ *---------------------------------------------------------------------- */ #if defined(NRE) -Tcl_ObjCmdProc NsfObjDispatchNRE; +TCL_OBJCMDPROC_T NsfObjDispatchNRE; int -NsfObjDispatch(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) { +NsfObjDispatch(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { nonnull_assert(clientData != NULL); nonnull_assert(interp != NULL); nonnull_assert(objv != NULL); - return Tcl_NRCallObjProc(interp, NsfObjDispatchNRE, clientData, (TCL_SIZE_T)objc, objv); + return TCL_NRCALLOBJPROC(interp, NsfObjDispatchNRE, clientData, (TCL_SIZE_T)objc, objv); } -int NsfObjDispatchNRE(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) +int NsfObjDispatchNRE(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[]) nonnull(1) nonnull(2) nonnull(4); int -NsfObjDispatchNRE(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) +NsfObjDispatchNRE(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[]) #else EXTERN int -NsfObjDispatch(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) +NsfObjDispatch(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[]) #endif { @@ -17373,16 +17376,17 @@ *---------------------------------------------------------------------- */ -static int ConvertViaCmd(Tcl_Interp *interp, Tcl_Obj *objPtr, const Nsf_Param *pPtr, +static int ConvertViaCmd(Tcl_Interp *interp, Tcl_Obj *objPtr, const Nsf_Param *pPtr, ClientData *clientData, Tcl_Obj **outObjPtr) nonnull(1) nonnull(2) nonnull(3) nonnull(4) nonnull(5); static int -ConvertViaCmd(Tcl_Interp *interp, Tcl_Obj *objPtr, const Nsf_Param *pPtr, +ConvertViaCmd(Tcl_Interp *interp, Tcl_Obj *objPtr, const Nsf_Param *pPtr, ClientData *clientData, Tcl_Obj **outObjPtr) { - Tcl_Obj *ov[5], *savedResult; + Tcl_Obj *ov[5], *savedResult; NsfObject *object; - int result, oc; + TCL_OBJC_T oc; + int result; nonnull_assert(interp != NULL); nonnull_assert(objPtr != NULL); @@ -18522,7 +18526,7 @@ paramDefs = ParamDefsNew(); paramDefs->paramsPtr = paramsPtr; - paramDefs->nrParams = (int)(paramPtr - paramsPtr); + paramDefs->nrParams = (TCL_OBJC_T)(paramPtr - paramsPtr); /*fprintf(stderr, "method %s serial %d paramDefs %p ifsize %ld, possible unknowns = %d,\n", ObjStr(procNameObj), paramDefs->serial, paramDefs, paramPtr-paramsPtr, possibleUnknowns);*/ @@ -18567,9 +18571,10 @@ ParameterMethodForwardDispatch(Tcl_Interp *interp, NsfObject *object, const Nsf_Param *paramPtr, Tcl_Obj *newValue, NsfCallStackContent *cscPtr) { - Tcl_Obj **nobjv, *ov[3], *methodObj, *forwardSpec; + Tcl_Obj **nobjv, *ov[3], *methodObj, *forwardSpec; ForwardCmdClientData *tcd = NULL; - int result, oc, nobjc; + TCL_OBJC_T oc, nobjc; + int result; nonnull_assert(interp != NULL); nonnull_assert(object != NULL); @@ -18594,7 +18599,7 @@ NULL /*withMethodprefix*/, 0 /*withFrame*/, NSF_FALSE /*withVerbose*/, - nobjv[0], nobjc-1, nobjv+1, &tcd); + nobjv[0], (TCL_OBJC_T)(nobjc-1), nobjv+1, &tcd); if (unlikely(result != TCL_OK)) { if (tcd != NULL) { ForwardCmdDeleteProc(tcd); @@ -18652,7 +18657,7 @@ CallFrame *uplevelVarFramePtr, const char *initString, Tcl_Obj **nextObjPtr, - int nrRemainingArgs + TCL_OBJC_T nrRemainingArgs ) nonnull(1) nonnull(2) nonnull(3) nonnull(4) nonnull(6) nonnull(7); static int @@ -18662,7 +18667,7 @@ CallFrame *uplevelVarFramePtr, const char *initString, Tcl_Obj **nextObjPtr, - int nrRemainingArgs + TCL_OBJC_T nrRemainingArgs ) { CallFrame *varFramePtr; NsfCallStackContent csc, *cscPtr = &csc; @@ -18677,7 +18682,7 @@ nonnull_assert(nextObjPtr != NULL); #if 0 - {int i; + {int TCL_OBJC_T; fprintf(stderr, "ParameterMethodDispatch %s flags %06x nrRemainingArgs %d ", paramPtr->name, paramPtr->flags, nrRemainingArgs); for(i = 0; i < nrRemainingArgs; i++) { @@ -18715,7 +18720,7 @@ Tcl_Obj *methodObj, **ovPtr, *ov0; static Tcl_Obj *constantObj = NULL; const char *methodString; - int oc = 0; + TCL_OBJC_T oc = 0; /* * Restore the variable frame context as found at the original call @@ -18773,8 +18778,8 @@ * A simple alias, receives no arg (when noarg was specified) or a * single argument (which might be the default value). */ - int moc = 1; - Tcl_Obj **movPtr = NULL; + TCL_OBJC_T moc = 1; + Tcl_Obj **movPtr = NULL; ov0 = NULL; ovPtr = &constantObj; @@ -19245,7 +19250,8 @@ struct Tcl_Time *trtPtr, unsigned int cmdFlags, Tcl_Namespace *execNsPtr) { Tcl_Obj *const *objv; - int objc, result, includeTiming; + TCL_OBJC_T objc; + int result, includeTiming; const char *fullMethodName; Tcl_CallFrame *framePtr; Proc *procPtr; @@ -19338,7 +19344,7 @@ *---------------------------------------------------------------------- * NsfProcStub -- * - * Tcl_ObjCmdProc implementing Proc Stubs. This function processes + * TCL_OBJCMDPROC_T implementing Proc Stubs. This function processes * the argument list in accordance with the parameter definitions * and calls in case of success the shadowed proc. * @@ -19352,7 +19358,7 @@ */ int -NsfProcStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) { +NsfProcStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { NsfProcClientData *tcd; int result; ParseContext *pcPtr; @@ -19539,7 +19545,7 @@ * needed as the inner namespace of the shadowed proc. */ tcd = NEW(NsfProcClientData); - cmd = Tcl_CreateObjCommand(interp, procName, NsfProcStub, + cmd = TCL_CREATEOBJCOMMAND(interp, procName, NsfProcStub, tcd, NsfProcStubDeleteProc); if (unlikely(cmd == NULL)) { /* @@ -19712,7 +19718,7 @@ static int ProcessMethodArguments(ParseContext *pcPtr, Tcl_Interp *interp, NsfObject *object, unsigned int processFlags, NsfParamDefs *paramDefs, - Tcl_Obj *methodNameObj, int objc, Tcl_Obj *const objv[]) { + Tcl_Obj *methodNameObj, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { int result; CallFrame frame, *framePtr = &frame; @@ -19790,7 +19796,7 @@ /* * The last argument was "args". */ - int elts = objc - pcPtr->lastObjc; + TCL_OBJC_T elts = objc - pcPtr->lastObjc; if (elts == 0) { /* @@ -20028,10 +20034,11 @@ Tcl_Obj *withMethodprefix, int withFrame, bool withVerbose, - Tcl_Obj *target, int objc, Tcl_Obj * const objv[], - ForwardCmdClientData **tcdPtr) { + Tcl_Obj *target, TCL_OBJC_T objc, Tcl_Obj * const objv[], + ForwardCmdClientData **tcdPtr) { ForwardCmdClientData *tcd; - int i, result = 0; + TCL_OBJC_T i; + int result = 0; nonnull_assert(interp != NULL); nonnull_assert(nameObj != NULL); @@ -20116,14 +20123,14 @@ goto forward_process_options_exit; } if (CmdIsNsfObject(cmd) /* don't do direct invoke on nsf objects */ - || Tcl_Command_objProc(cmd) == TclObjInterpProc /* don't do direct invoke on Tcl procs */ + || TCL_COMMAND_OBJPROC(cmd) == (TCL_OBJCMDPROC_T*)TclObjInterpProc /* don't do direct invoke on Tcl procs */ ) { /* * Silently ignore earlybinding flag */ tcd->objProc = NULL; } else { - tcd->objProc = Tcl_Command_objProc(cmd); + tcd->objProc = TCL_COMMAND_OBJPROC(cmd); tcd->clientData = Tcl_Command_objClientData(cmd); } } @@ -20565,16 +20572,16 @@ *---------------------------------------------------------------------- */ static int NextGetArguments( - Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], + Tcl_Interp *interp, ptrdiff_t objc, Tcl_Obj *const objv[], NsfCallStackContent **cscPtrPtr, const char **methodNamePtr, - int *outObjc, Tcl_Obj ***outObjv, bool *freeArgumentVector + TCL_OBJC_T *outObjc, Tcl_Obj ***outObjv, bool *freeArgumentVector ) nonnull(1) nonnull(4) nonnull(5) nonnull(6) nonnull(7) nonnull(8); static int NextGetArguments( - Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], + Tcl_Interp *interp, ptrdiff_t objc, Tcl_Obj *const objv[], NsfCallStackContent **cscPtrPtr, const char **methodNamePtr, - int *outObjc, Tcl_Obj ***outObjv, bool *freeArgumentVector + TCL_OBJC_T *outObjc, Tcl_Obj ***outObjv, bool *freeArgumentVector ) { Tcl_Obj **nobjv; TCL_SIZE_T nobjc, oc; @@ -20679,7 +20686,7 @@ } *cscPtrPtr = cscPtr; - *outObjc = (int)nobjc; + *outObjc = (TCL_OBJC_T)nobjc; *outObjv = nobjv; return TCL_OK; @@ -20770,7 +20777,7 @@ static int NextSearchAndInvoke( Tcl_Interp *interp, const char *methodName, - int objc, Tcl_Obj *const objv[], + TCL_OBJC_T objc, Tcl_Obj *const objv[], NsfCallStackContent *cscPtr, bool freeArgumentVector ) { @@ -21064,12 +21071,13 @@ *---------------------------------------------------------------------- */ static int -NsfNextObjCmd(ClientData UNUSED(clientData), Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) +NsfNextObjCmd(ClientData UNUSED(clientData), Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[]) nonnull(2) nonnull(4); static int -NsfNextObjCmd(ClientData UNUSED(clientData), Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) { - int result, nobjc = 0; +NsfNextObjCmd(ClientData UNUSED(clientData), Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { + int result; + TCL_OBJC_T nobjc = 0; bool freeArgumentVector; const char *methodName = NULL; NsfCallStackContent *cscPtr; @@ -21095,7 +21103,7 @@ } } - result = NextGetArguments(interp, objc-1, &objv[1], &cscPtr, &methodName, + result = NextGetArguments(interp, ((ptrdiff_t)objc)-1, &objv[1], &cscPtr, &methodName, &nobjc, &nobjv, &freeArgumentVector); if (likely(result == TCL_OK)) { assert(nobjc > 0); @@ -21255,7 +21263,7 @@ /* int - NsfKObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) { + NsfKObjCmd(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { if (objc < 2) { return NsfPrintError(interp, "wrong # of args for K"); } @@ -21985,12 +21993,12 @@ NSNamespacePreserve(nsPtr); } #if defined(NRE) - object->id = Tcl_NRCreateCommand(interp, nameString, + object->id = TCL_NRCREATECOMMAND(interp, nameString, NsfObjDispatch, NsfObjDispatchNRE, object, TclDeletesObject); #else - object->id = Tcl_CreateObjCommand(interp, nameString, NsfObjDispatch, + object->id = TCL_CREATEOBJCOMMAND(interp, nameString, NsfObjDispatch, object, TclDeletesObject); #endif @@ -22538,12 +22546,12 @@ NSNamespacePreserve(nsPtr); } #if defined(NRE) - object->id = Tcl_NRCreateCommand(interp, nameString, + object->id = TCL_NRCREATECOMMAND(interp, nameString, NsfObjDispatch, NsfObjDispatchNRE, class, TclDeletesObject); #else - object->id = Tcl_CreateObjCommand(interp, nameString, NsfObjDispatch, + object->id = TCL_CREATEOBJCOMMAND(interp, nameString, NsfObjDispatch, class, TclDeletesObject); #endif PrimitiveOInit(object, interp, nameString, nsPtr, metaClass); @@ -22643,11 +22651,11 @@ * *---------------------------------------------------------------------- */ -static int DoObjInitialization(Tcl_Interp *interp, NsfObject *object, int objc, Tcl_Obj *const objv[]) +static int DoObjInitialization(Tcl_Interp *interp, NsfObject *object, TCL_OBJC_T objc, Tcl_Obj *const objv[]) nonnull(1) nonnull(2) nonnull(4); static int -DoObjInitialization(Tcl_Interp *interp, NsfObject *object, int objc, Tcl_Obj *const objv[]) { +DoObjInitialization(Tcl_Interp *interp, NsfObject *object, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { Tcl_Obj *methodObj, *savedObjResult; int result; @@ -23293,7 +23301,7 @@ *---------------------------------------------------------------------- * NsfSetterMethod -- * - * This Tcl_ObjCmdProc is called, when a setter method is invoked. A setter + * This TCL_OBJCMDPROC_T is called, when a setter method is invoked. A setter * is a method that accesses/modifies a same-named instance variable. If * the setter is called without arguments, it returns the values, if it is * called with one argument, the argument is used as new value. @@ -23306,11 +23314,11 @@ * *---------------------------------------------------------------------- */ -static int NsfSetterMethod(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) +static int NsfSetterMethod(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[]) nonnull(1) nonnull(2) nonnull(4); static int -NsfSetterMethod(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) { +NsfSetterMethod(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { SetterCmdClientData *cd; NsfObject *object; int result; @@ -23400,13 +23408,13 @@ */ static int NsfForwardPrintError(Tcl_Interp *interp, ForwardCmdClientData *tcd, - int objc, Tcl_Obj *const objv[], + TCL_OBJC_T objc, Tcl_Obj *const objv[], const char *fmt, ...) nonnull(1) nonnull(2) nonnull(5) NSF_attribute_format((printf,5,6)); static int NsfForwardPrintError(Tcl_Interp *interp, ForwardCmdClientData *tcd, - int objc, Tcl_Obj *const objv[], + TCL_OBJC_T objc, Tcl_Obj *const objv[], const char *fmt, ...) { Tcl_DString ds; va_list ap; @@ -23479,27 +23487,28 @@ *---------------------------------------------------------------------- */ static int ForwardArg( - Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], + Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[], Tcl_Obj *forwardArgObj, ForwardCmdClientData *tcd, Tcl_Obj **out, - Tcl_Obj **freeListObjPtr, int *inputArg, long *mapvalue, - int firstPosArg, int *outputincr + Tcl_Obj **freeListObjPtr, TCL_OBJC_T *inputArg, ptrdiff_t *mapvalue, + TCL_OBJC_T firstPosArg, TCL_OBJC_T *outputincr ) nonnull(1) nonnull(3) nonnull(4) nonnull(5) nonnull(6) nonnull(7) nonnull(8) nonnull(9) nonnull(11); static int ForwardArg( Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[], + TCL_OBJC_T objc, Tcl_Obj *const objv[], Tcl_Obj *forwardArgObj, ForwardCmdClientData *tcd, Tcl_Obj **out, Tcl_Obj **freeListObjPtr, - int *inputArg, - long *mapvalue, - int firstPosArg, - int *outputincr + TCL_OBJC_T *inputArg, + ptrdiff_t *mapvalue, + TCL_OBJC_T firstPosArg, + TCL_OBJC_T *outputincr ) { const char *ForwardArgString, *p; - int totalargs, result = TCL_OK; + int result = TCL_OK; + TCL_OBJC_T totalargs; char c; nonnull_assert(interp != NULL); @@ -23527,19 +23536,19 @@ c = *ForwardArgString; if (c == '%' && *(ForwardArgString+1) == '@') { - char *remainder = NULL; - long pos; + char *remainder = NULL; + ptrdiff_t pos; ForwardArgString += 2; - pos = strtol(ForwardArgString, &remainder, 0); + pos = (ptrdiff_t)strtol(ForwardArgString, &remainder, 0); if (ForwardArgString == remainder && *ForwardArgString == 'e' && !strncmp(ForwardArgString, "end", 3)) { pos = -1; remainder += 3; } else if (pos < 0) { pos --; } - if (ForwardArgString == remainder || labs(pos) > totalargs) { + if (ForwardArgString == remainder || labs(pos) > (ptrdiff_t)totalargs) { return NsfForwardPrintError(interp, tcd, objc, objv, "forward: invalid index specified in argument %s", ObjStr(forwardArgObj)); @@ -23565,7 +23574,8 @@ if (c == '%') { Tcl_Obj *listObj = NULL, **listElements = NULL; - int nrArgs = objc-1, nrPosArgs = objc - firstPosArg, nrElements = 0; + TCL_OBJC_T nrArgs = objc-1, nrPosArgs = objc - firstPosArg; + int nrElements = 0; char c1, *firstActualArgument = nrArgs > 0 ? ObjStr(objv[1]) : NULL; const char *c1Ptr; @@ -23616,12 +23626,12 @@ ObjStr(tcd->subcommands)); } } else { - assert(nrElements <= nrPosArgs); + assert((TCL_SIZE_T)nrElements <= nrPosArgs); } /*fprintf(stderr, "nrElements=%d, nra=%d firstPos %d objc %d\n", nrElements, nrArgs, firstPosArg, objc);*/ - if (nrElements > nrPosArgs) { + if ((TCL_SIZE_T)nrElements > nrPosArgs) { /* * Insert default subcommand depending on number of arguments. */ @@ -23659,7 +23669,7 @@ firstElementString++; /* we skip the dash */ if (firstActualArgument && *firstActualArgument == '-') { - int i; + TCL_OBJC_T i; /*fprintf(stderr, "we have a flag in first argument '%s'\n", firstActualArgument);*/ for (i = 1; i < firstPosArg; i++) { @@ -23721,7 +23731,7 @@ "forward: %%argclindex contains invalid list '%s'", ObjStr(listObj)); - } else if (nrArgs >= nrElements) { + } else if (nrArgs >= (TCL_SIZE_T)nrElements) { result = NsfForwardPrintError(interp, tcd, objc, objv, "forward: not enough elements in specified list of ARGC argument %s", ForwardArgString); @@ -23776,11 +23786,11 @@ *---------------------------------------------------------------------- */ -static int CallForwarder(ForwardCmdClientData *tcd, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) +static int CallForwarder(ForwardCmdClientData *tcd, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[]) nonnull(1) nonnull(2) nonnull(4); static int -CallForwarder(ForwardCmdClientData *tcd, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) { +CallForwarder(ForwardCmdClientData *tcd, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { int result; NsfObject *object; CallFrame frame, *framePtr = &frame; @@ -23810,7 +23820,7 @@ } if (tcd->objProc != NULL) { /*fprintf(stderr, "CallForwarder Tcl_NRCallObjProc %p\n", tcd->clientData);*/ - result = Tcl_NRCallObjProc(interp, tcd->objProc, tcd->clientData, (TCL_SIZE_T)objc, objv); + result = TCL_NRCALLOBJPROC(interp, tcd->objProc, tcd->clientData, (TCL_SIZE_T)objc, objv); } else if (TclObjIsNsfObject(interp, tcd->cmdName, &object)) { /*fprintf(stderr, "CallForwarder NsfObjDispatch object %s, objc=%d\n", ObjStr(tcd->cmdName), objc);*/ @@ -23848,7 +23858,7 @@ *---------------------------------------------------------------------- * NsfForwardMethod -- * - * This Tcl_ObjCmdProc is called, when a forwarder is invoked. It + * This TCL_OBJCMDPROC_T is called, when a forwarder is invoked. It * performs argument substitution through ForwardArg() and calls * finally the method, to which the call was forwarded via * CallForwarder(). @@ -23863,14 +23873,15 @@ */ static int NsfForwardMethod(ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]) + TCL_OBJC_T objc, Tcl_Obj *const objv[]) nonnull(1) nonnull(2) nonnull(4); static int NsfForwardMethod(ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]) { + TCL_OBJC_T objc, Tcl_Obj *const objv[]) { ForwardCmdClientData *tcd = (ForwardCmdClientData *)clientData; - int result, inputArg = 1; + TCL_OBJC_T inputArg = 1; + int result; nonnull_assert(clientData != NULL); nonnull_assert(interp != NULL); @@ -23907,20 +23918,19 @@ return result; } else { - Tcl_Obj **ov, *freeList = NULL; - int j, outputincr, outputArg = 0, firstPosArg=1, - totalargs = objc + tcd->nr_args + 3; + Tcl_Obj **ov, *freeList = NULL; + TCL_OBJC_T outputArg = 0, firstPosArg=1, totalargs = objc + tcd->nr_args + 3, outputincr; ALLOC_ON_STACK(Tcl_Obj*, totalargs, OV); { - ALLOC_ON_STACK(long, totalargs, objvmap); + ALLOC_ON_STACK(ptrdiff_t, totalargs, objvmap); /*fprintf(stderr, "+++ forwardMethod standard case, allocated %d args, tcd->args %s\n", totalargs, ObjStr(tcd->args));*/ ov = &OV[1]; if (tcd->needobjmap) { - memset(objvmap, -1, sizeof(long) * (size_t)totalargs); + memset(objvmap, -1, sizeof(ptrdiff_t) * (size_t)totalargs); } /* @@ -23939,6 +23949,8 @@ * for %1 */ if (tcd->hasNonposArgs) { + TCL_OBJC_T j; + firstPosArg = objc; for (j = outputArg; j < objc; j++) { const char *arg = ObjStr(objv[j]); @@ -23950,15 +23962,16 @@ } if (tcd->args != NULL) { - Tcl_Obj **listElements; - int nrElements; + Tcl_Obj **listElements; + int nrElements; + TCL_OBJC_T j; /* * Copy argument list from the definitions. */ Tcl_ListObjGetElements(interp, tcd->args, &nrElements, &listElements); - for (j = 0; j < nrElements; j++, outputArg += outputincr) { + for (j = 0; j < (TCL_SIZE_T)nrElements; j++, outputArg += outputincr) { if ((result = ForwardArg(interp, objc, objv, listElements[j], tcd, &ov[outputArg], &freeList, &inputArg, &objvmap[outputArg], @@ -23984,12 +23997,12 @@ * addressing relative from the end; -2 means last, -3 element before * last, etc. */ - int max = objc + tcd->nr_args - inputArg; + TCL_OBJC_T j, max = objc + tcd->nr_args - inputArg; for (j = 0; j < totalargs; j++) { if (objvmap[j] < -1) { /*fprintf(stderr, "must reduct, v=%d\n", objvmap[j]);*/ - objvmap[j] = max + objvmap[j] + 2; + objvmap[j] = (ptrdiff_t)max + objvmap[j] + 2; /*fprintf(stderr, "... new value=%d, max = %d\n", objvmap[j], max);*/ } } @@ -24005,26 +24018,28 @@ #endif if (tcd->needobjmap) { + ptrdiff_t j; - for (j = 0; j < totalargs; j++) { - Tcl_Obj *tmp; - long pos = objvmap[j], i; + for (j = 0; j < (ptrdiff_t)totalargs; j++) { + Tcl_Obj *tmp; + ptrdiff_t pos = objvmap[j]; + ptrdiff_t ii; if (pos == -1 || pos == j) { continue; } tmp = ov[j]; if (j > pos) { - for(i = j; i > pos; i--) { - /*fprintf(stderr, "...moving right %d to %d\n", i-1, i);*/ - ov[i] = ov[i-1]; - objvmap[i] = objvmap[i-1]; + for(ii = j; ii > pos; ii--) { + /*fprintf(stderr, "...moving right %d to %d\n", ii-1, ii);*/ + ov[ii] = ov[ii-1]; + objvmap[ii] = objvmap[ii-1]; } } else { - for(i = j; i < pos; i++) { - /*fprintf(stderr, "...moving left %d to %d\n", i+1, i);*/ - ov[i] = ov[i+1]; - objvmap[i] = objvmap[i+1]; + for(ii = j; ii < pos; ii++) { + /*fprintf(stderr, "...moving left %d to %d\n", ii+1, ii);*/ + ov[ii] = ov[ii+1]; + objvmap[ii] = objvmap[ii+1]; } } /*fprintf(stderr, "...setting at %d -> %s\n", pos, ObjStr(tmp));*/ @@ -24080,7 +24095,7 @@ *---------------------------------------------------------------------- * NsfProcAliasMethod -- * - * Since alias-resolving happens in dispatch, this Tcl_ObjCmdProc + * Since alias-resolving happens in dispatch, this TCL_OBJCMDPROC_T * should never be called during normal operations. The only way to * invoke this could happen via directly calling the handle. * @@ -24095,13 +24110,13 @@ */ static int NsfProcAliasMethod(ClientData clientData, - Tcl_Interp *interp, int UNUSED(objc), + Tcl_Interp *interp, TCL_OBJC_T UNUSED(ojbc), Tcl_Obj *const UNUSED(objv[])) nonnull(1) nonnull(2) nonnull(4); static int NsfProcAliasMethod(ClientData clientData, - Tcl_Interp *interp, int UNUSED(objc), + Tcl_Interp *interp, TCL_OBJC_T UNUSED(ojbc), Tcl_Obj *const UNUSED(objv[])) { AliasCmdClientData *tcd; @@ -24118,7 +24133,7 @@ *---------------------------------------------------------------------- * NsfObjscopedMethod -- * - * This Tcl_ObjCmdProc is called, when an obj-scoped alias is + * This TCL_OBJCMDPROC_T is called, when an obj-scoped alias is * invoked. * * Results: @@ -24130,11 +24145,11 @@ *---------------------------------------------------------------------- */ -static int NsfObjscopedMethod(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) +static int NsfObjscopedMethod(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[]) nonnull(1) nonnull(2) nonnull(4); static int -NsfObjscopedMethod(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) { +NsfObjscopedMethod(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { AliasCmdClientData *tcd; NsfObject *object; CallFrame frame, *framePtr = &frame; @@ -24157,7 +24172,7 @@ Nsf_PushFrameObj(interp, object, framePtr); #pragma GCC diagnostic pop - result = Tcl_NRCallObjProc(interp, tcd->objProc, tcd->clientData, (TCL_SIZE_T)objc, objv); + result = TCL_NRCALLOBJPROC(interp, tcd->objProc, tcd->clientData, (TCL_SIZE_T)objc, objv); Nsf_PopFrameObj(interp, framePtr); return result; @@ -24184,12 +24199,12 @@ typedef enum {NO_DASH, SCALAR_DASH, LIST_DASH} dashArgType; static dashArgType IsDashArg(Tcl_Interp *interp, Tcl_Obj *obj, int isFirstArg, const char **methodName, - int *objcPtr, Tcl_Obj **objvPtr[]) + TCL_OBJC_T *objcPtr, Tcl_Obj **objvPtr[]) nonnull(1) nonnull(2) nonnull(4) nonnull(5) nonnull(6); static dashArgType IsDashArg(Tcl_Interp *interp, Tcl_Obj *obj, int isFirstArg, const char **methodName, - int *objcPtr, Tcl_Obj **objvPtr[]) { + TCL_OBJC_T *objcPtr, Tcl_Obj **objvPtr[]) { const char *flag; nonnull_assert(interp != NULL); @@ -24257,13 +24272,13 @@ */ static int CallConfigureMethod(Tcl_Interp *interp, NsfObject *object, const char *initString, const char *methodName, - int argc, Tcl_Obj *const argv[]) + TCL_OBJC_T argc, Tcl_Obj *const argv[]) nonnull(1) nonnull(2) nonnull(3) nonnull(4); static int CallConfigureMethod(Tcl_Interp *interp, NsfObject *object, const char *initString, const char *methodName, - int argc, Tcl_Obj *const argv[]) { + TCL_OBJC_T argc, Tcl_Obj *const argv[]) { int result; Tcl_Obj *methodObj = Tcl_NewStringObj(methodName, TCL_INDEX_NONE); @@ -24435,8 +24450,9 @@ unsigned int *flags, ClientData *clientData, Tcl_Obj **outObjPtr) { - int objc, i, result; - Tcl_Obj **ov; + int result; + TCL_OBJC_T objc, i; + Tcl_Obj **ov; nonnull_assert(interp != NULL); nonnull_assert(objPtr != NULL); @@ -24546,7 +24562,7 @@ * values (in case, the converter alters the values). */ if (unlikely((pPtr->flags & NSF_ARG_MULTIVALUED) != 0u)) { - int objc, i; + TCL_OBJC_T objc, i; Tcl_Obj **ov; result = Tcl_ListObjGetElements(interp, objPtr, &objc, &ov); @@ -24639,14 +24655,14 @@ *---------------------------------------------------------------------- */ static int ArgumentDefaults(ParseContext *pcPtr, Tcl_Interp *interp, - const Nsf_Param *ifd, int nrParams, unsigned int processFlags) + const Nsf_Param *ifd, TCL_OBJC_T nrParams, unsigned int processFlags) nonnull(1) nonnull(2) nonnull(3); static int ArgumentDefaults(ParseContext *pcPtr, Tcl_Interp *interp, - const Nsf_Param *ifd, int nrParams, unsigned int processFlags) { + const Nsf_Param *ifd, TCL_OBJC_T nrParams, unsigned int processFlags) { const Nsf_Param *pPtr; - int i; + TCL_OBJC_T i; nonnull_assert(pcPtr != NULL); nonnull_assert(interp != NULL); @@ -24834,9 +24850,9 @@ */ int Nsf_ArgumentParse( - Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], + Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[], Nsf_Object *object, Tcl_Obj *procNameObj, - const Nsf_Param *paramPtr, int nrParams, int serial, + const Nsf_Param *paramPtr, TCL_OBJC_T nrParams, int serial, unsigned int processFlags, Nsf_ParseContext *pcPtr ) { @@ -24899,12 +24915,12 @@ static int ArgumentParse( - Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], + Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[], NsfObject *object, Tcl_Obj *procNameObj, - const Nsf_Param *paramPtr, int nrParams, int serial, + const Nsf_Param *paramPtr, TCL_OBJC_T nrParams, int serial, unsigned int processFlags, ParseContext *pcPtr ) { - int o, fromArg; + TCL_OBJC_T o, fromArg; bool dashdash = NSF_FALSE; long j; const Nsf_Param *currentParamPtr; @@ -25536,7 +25552,7 @@ * since we identify the alias reference on the AliasCmdDeleteProc. */ if (Tcl_Command_deleteProc(cmd) == NsfProcDeleteProc - && Tcl_Command_objProc(cmd) == NsfProcAliasMethod) { + && TCL_COMMAND_OBJPROC(cmd) == NsfProcAliasMethod) { NsfProcContext *ctxPtr = Tcl_Command_deleteData(cmd); if (ctxPtr->oldDeleteProc == AliasCmdDeleteProc) { @@ -25737,7 +25753,7 @@ * If a command is not found for the object|class, check whether we * find the parameter definitions for the C-defined method. */ - Nsf_methodDefinition *mdPtr = Nsf_CmdDefinitionGet(((Command *)cmd)->objProc); + Nsf_methodDefinition *mdPtr = Nsf_CmdDefinitionGet((TCL_OBJCMDPROC_T*)((Command *)cmd)->objProc); if (mdPtr != NULL) { NsfParamDefs localParamDefs = {mdPtr->paramDefs, mdPtr->nrParameters, 1, 0}; Tcl_Obj *list = ListParamDefs(interp, localParamDefs.paramsPtr, contextObject, pattern, printStyle); @@ -25748,7 +25764,7 @@ } } - if (((Command *)cmd)->objProc == NsfSetterMethod) { + if ((TCL_OBJCMDPROC_T*)((Command *)cmd)->objProc == NsfSetterMethod) { SetterCmdClientData *cd = (SetterCmdClientData *)Tcl_Command_objClientData(cmd); if (cd != NULL && cd->paramsPtr) { @@ -25792,7 +25808,7 @@ } } - if (Tcl_Command_objProc(cmd) == NsfForwardMethod) { + if (TCL_COMMAND_OBJPROC(cmd) == NsfForwardMethod) { result = NsfPrintError(interp, "could not obtain parameter definition for forwarder '%s'", methodName); @@ -25803,7 +25819,7 @@ ... ensemble objects ... plain objects */ - } else if (Tcl_Command_objProc(cmd) == NsfProcStub) { + } else if (TCL_COMMAND_OBJPROC(cmd) == NsfProcStub) { /* * Reached for C-implemented Tcl command procs. */ @@ -26036,7 +26052,7 @@ const char *pattern, bool withPer_object) { - Tcl_ObjCmdProc *objCmdProc; + TCL_OBJCMDPROC_T *objCmdProc; Proc *procPtr; bool outputPerObject; Tcl_Obj *resultObj; @@ -26178,7 +26194,7 @@ break; } - objCmdProc = Tcl_Command_objProc(cmd); + objCmdProc = TCL_COMMAND_OBJPROC(cmd); procPtr = GetTclProcFromCommand(cmd); /* @@ -26739,15 +26755,15 @@ MethodTypeMatches(Tcl_Interp *interp, MethodtypeIdx_t methodType, Tcl_Command cmd, NsfObject *object, const char *methodName, int withPer_object, bool *isObject) { - Tcl_ObjCmdProc *proc; + TCL_OBJCMDPROC_T *proc; Tcl_Command importedCmd; nonnull_assert(interp != NULL); nonnull_assert(cmd != NULL); nonnull_assert(methodName != NULL); nonnull_assert(isObject != NULL); - proc = Tcl_Command_objProc(cmd); + proc = TCL_COMMAND_OBJPROC(cmd); importedCmd = GetOriginalCommand(cmd); /* @@ -26763,14 +26779,14 @@ return NSF_FALSE; } } else { - Tcl_ObjCmdProc *resolvedProc; + TCL_OBJCMDPROC_T *resolvedProc; if (proc == NsfProcAliasMethod) { if ((methodType & NSF_METHODTYPE_ALIAS) == 0) { return NSF_FALSE; } } - resolvedProc = Tcl_Command_objProc(importedCmd); + resolvedProc = TCL_COMMAND_OBJPROC(importedCmd); /* * The following cases are disjoint. @@ -26974,7 +26990,7 @@ /*fprintf(stderr, "key <%s> isObject %d childObject %p directo %p ensemble %d prefixl %d ali %d ali2 %d hasChild %d\n", key, isObject, (void*)childObject,(void*)directObject, childObject ? ((childObject->flags & NSF_KEEP_CALLER_SELF) != 0u) : 0, - prefixLength, Tcl_Command_objProc(cmd) == NsfProcAliasMethod, + prefixLength, TCL_COMMAND_OBJPROC(cmd) == NsfProcAliasMethod, childObject ? AliasGet(interp, childObject->cmdName, key, withPer_object, NSF_FALSE) != NULL : 0, childObject ? (childObject->nsPtr == NULL) : 0 );*/ @@ -27236,7 +27252,7 @@ ClientData clientData = (cmd != NULL) ? Tcl_Command_objClientData(cmd) : NULL; ForwardCmdClientData *tcd = (ForwardCmdClientData *)clientData; - if (tcd != NULL && Tcl_Command_objProc(cmd) == NsfForwardMethod) { + if (tcd != NULL && TCL_COMMAND_OBJPROC(cmd) == NsfForwardMethod) { Tcl_Obj *listObj = Tcl_NewListObj(0, NULL); AppendForwardDefinition(interp, listObj, tcd); @@ -27683,10 +27699,10 @@ return result; } - assert(Tcl_Command_objProc(cmd) != NULL); + assert(TCL_COMMAND_OBJPROC(cmd) != NULL); NsfCommandRelease(tcd->aliasedCmd); - tcd->objProc = Tcl_Command_objProc(cmd); + tcd->objProc = TCL_COMMAND_OBJPROC(cmd); tcd->aliasedCmd = cmd; tcd->clientData = Tcl_Command_objClientData(cmd); NsfCommandPreserve(tcd->aliasedCmd); @@ -27727,7 +27743,7 @@ nonnull_assert(methodName != NULL); nonnull_assert(cmd != NULL); - if (unlikely(Tcl_Command_objProc(cmd) == NsfProcAliasMethod)) { + if (unlikely(TCL_COMMAND_OBJPROC(cmd) == NsfProcAliasMethod)) { AliasCmdClientData *tcd = (AliasCmdClientData *)Tcl_Command_objClientData(cmd); assert(tcd != NULL); @@ -28448,7 +28464,7 @@ } */ static int -NsfColonCmd(Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) { +NsfColonCmd(Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { const char *methodName = ObjStr(objv[0]); NsfObject *self; int result; @@ -28569,12 +28585,12 @@ */ static int NsfDirectDispatchCmd(Tcl_Interp *interp, NsfObject *object, FrameIdx_t withFrame, - Tcl_Obj *commandObj, int trailingObjc, Tcl_Obj *const trailingObjv[]) { + Tcl_Obj *commandObj, TCL_OBJC_T trailingObjc, Tcl_Obj *const trailingObjv[]) { int result; const char *methodName; Tcl_Command cmd, importedCmd; CallFrame frame, *framePtr = &frame; - Tcl_ObjCmdProc *proc; + TCL_OBJCMDPROC_T *proc; unsigned int flags = 0u; bool useCmdDispatch = NSF_TRUE; @@ -28605,8 +28621,8 @@ return NsfPrintError(interp, "cannot lookup command '%s'", methodName); } - proc = Tcl_Command_objProc(cmd); - if (proc == TclObjInterpProc || + proc = TCL_COMMAND_OBJPROC(cmd); + if (proc == (TCL_OBJCMDPROC_T*)TclObjInterpProc || proc == NsfForwardMethod || proc == NsfObjscopedMethod || proc == NsfSetterMethod || @@ -28690,7 +28706,7 @@ NsfDispatchCmd(Tcl_Interp *interp, NsfObject *object, int withIntrinsic, int withSystem, Tcl_Obj *commandObj, - int trailingObjc, Tcl_Obj *const trailingObjv[]) { + TCL_OBJC_T trailingObjc, Tcl_Obj *const trailingObjv[]) { unsigned int flags = NSF_CM_NO_UNKNOWN|NSF_CSC_IMMEDIATE|NSF_CM_IGNORE_PERMISSIONS|NSF_CM_NO_SHIFT; Tcl_Obj *const *objv = trailingObjv-1; @@ -28843,7 +28859,7 @@ * Create a slave interp that calls Next Scripting Init */ static int -NsfInterpObjCmd(Tcl_Interp *interp, const char *name, int objc, Tcl_Obj *const objv[]) { +NsfInterpObjCmd(Tcl_Interp *interp, const char *name, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { nonnull_assert(interp != NULL); nonnull_assert(name != NULL); @@ -28967,7 +28983,7 @@ unsigned int processFlags = 0u; ParamDefsRefCountIncr(paramDefs); - result = ArgumentParse(interp, objc, objv, NULL, NsfGlobalObjs[NSF_PARSE_ARGS], + result = ArgumentParse(interp, (TCL_OBJC_T)objc, objv, NULL, NsfGlobalObjs[NSF_PARSE_ARGS], paramDefs->paramsPtr, paramDefs->nrParams, paramDefs->serial, processFlags|NSF_ARGPARSE_START_ZERO|RUNTIME_STATE(interp)->doCheckArguments, &pc); @@ -29034,7 +29050,7 @@ const char *methodName, FrameIdx_t withFrame, ProtectionIdx_t withProtection, Tcl_Obj *cmdNameObj ) { - Tcl_ObjCmdProc *objProc, *newObjProc; + TCL_OBJCMDPROC_T *objProc, *newObjProc; Tcl_CmdDeleteProc *deleteProc; AliasCmdClientData *tcd; Tcl_Command cmd, oldCmd, newCmd; @@ -29056,7 +29072,7 @@ } cmd = GetOriginalCommand(cmd); - objProc = Tcl_Command_objProc(cmd); + objProc = TCL_COMMAND_OBJPROC(cmd); assert(objProc != NULL); /* @@ -29143,7 +29159,7 @@ */ newObjProc = NsfProcAliasMethod; - if (objProc == TclObjInterpProc) { + if (objProc == (TCL_OBJCMDPROC_T*)TclObjInterpProc) { /* * We have an alias to a Tcl proc; */ @@ -29451,7 +29467,7 @@ FrameIdx_t withFrame, int withVerbose, Tcl_Obj *targetObj, - int trailingObjc, Tcl_Obj *const trailingObjv[]) { + TCL_OBJC_T trailingObjc, Tcl_Obj *const trailingObjv[]) { ForwardCmdClientData *tcd = NULL; int result; @@ -29481,11 +29497,11 @@ if (class == NULL) { result = NsfAddObjectMethod(interp, (Nsf_Object *)object, methodName, - (Tcl_ObjCmdProc *)NsfForwardMethod, + (TCL_OBJCMDPROC_T *)NsfForwardMethod, tcd, ForwardCmdDeleteProc, 0u); } else { result = NsfAddClassMethod(interp, (Nsf_Class *)class, methodName, - (Tcl_ObjCmdProc *)NsfForwardMethod, + (TCL_OBJCMDPROC_T *)NsfForwardMethod, tcd, ForwardCmdDeleteProc, 0u); } if (likely(result == TCL_OK)) { @@ -29513,7 +29529,7 @@ NsfForwardPropertyCmd(Tcl_Interp *interp, NsfObject *object, int withPer_object, Tcl_Obj *methodNameObj, ForwardpropertyIdx_t forwardProperty, Tcl_Obj *valueObj) { ForwardCmdClientData *tcd; - Tcl_ObjCmdProc *procPtr; + TCL_OBJCMDPROC_T *procPtr; Tcl_Command cmd; NsfObject *defObject; const NsfClass *class; @@ -29535,7 +29551,7 @@ ObjStr(methodNameObj), ObjectName_(object)); } - procPtr = Tcl_Command_objProc(cmd); + procPtr = TCL_COMMAND_OBJPROC(cmd); if (procPtr != NsfForwardMethod) { return NsfPrintError(interp, "%s is not a forwarder method", ObjStr(methodNameObj)); @@ -29836,11 +29852,11 @@ if (class != NULL) { result = NsfAddClassMethod(interp, (Nsf_Class *)class, methodName, - (Tcl_ObjCmdProc *)NsfSetterMethod, + (TCL_OBJCMDPROC_T *)NsfSetterMethod, setterClientData, SetterCmdDeleteProc, 0u); } else { result = NsfAddObjectMethod(interp, (Nsf_Object *)object, methodName, - (Tcl_ObjCmdProc *)NsfSetterMethod, + (TCL_OBJCMDPROC_T *)NsfSetterMethod, setterClientData, SetterCmdDeleteProc, 0u); } if (likely(result == TCL_OK)) { @@ -30107,11 +30123,12 @@ } if (systemMethodsObj != NULL) { - int oc, idx; - Tcl_Obj **ov; + int idx; + TCL_OBJC_T oc; + Tcl_Obj **ov; if ((Tcl_ListObjGetElements(interp, systemMethodsObj, &oc, &ov)) == TCL_OK) { - int i; + TCL_OBJC_T i; if (oc % 2) { ObjectSystemFree(interp, osPtr); @@ -30217,7 +30234,7 @@ NsfMyCmd(Tcl_Interp *interp, int withIntrinsic, int withLocal, int withSystem, Tcl_Obj *methodNameObj, - int trailingObjc, Tcl_Obj *const trailingObjv[]) { + TCL_OBJC_T trailingObjc, Tcl_Obj *const trailingObjv[]) { NsfObject *self; int result; @@ -30287,7 +30304,9 @@ */ static int NsfNextCmd(Tcl_Interp *interp, Tcl_Obj *argumentsObj) { - int oc, nobjc = 0, result; + TCL_OBJC_T nobjc = 0; + ptrdiff_t oc; + int result; bool freeArgumentVector; NsfCallStackContent *cscPtr = NULL; const char *methodName = NULL; @@ -30299,11 +30318,13 @@ /* * Arguments were provided. */ - int rc = Tcl_ListObjGetElements(interp, argumentsObj, &oc, &ov); + int ocValue = 0, rc; + rc = Tcl_ListObjGetElements(interp, argumentsObj, &ocValue, &ov); if (unlikely(rc != TCL_OK)) { return rc; } + oc = ocValue; } else { /* * No arguments were provided. @@ -30859,15 +30880,15 @@ * *---------------------------------------------------------------------- */ -static int NsfRelationClassMixinsSet(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *valueObj, int oc, Tcl_Obj **ov) +static int NsfRelationClassMixinsSet(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *valueObj, TCL_OBJC_T oc, Tcl_Obj **ov) nonnull(1) nonnull(2) nonnull(3); static int -NsfRelationClassMixinsSet(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *valueObj, int oc, Tcl_Obj **ov) { +NsfRelationClassMixinsSet(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *valueObj, TCL_OBJC_T oc, Tcl_Obj **ov) { NsfCmdList *newMixinCmdList = NULL, *cmds; NsfClasses *subClasses; NsfClassOpt *clopt; - int i; + TCL_OBJC_T i; nonnull_assert(interp != NULL); nonnull_assert(class != NULL); @@ -30934,11 +30955,12 @@ */ static int NsfRelationSetCmd(Tcl_Interp *interp, NsfObject *object, RelationtypeIdx_t type, Tcl_Obj *valueObj) { - int oc = 0, i; + TCL_OBJC_T oc = 0; Tcl_Obj **ov; NsfClass *class = NULL; NsfObjectOpt *objopt = NULL; NsfClassOpt *clopt = NULL, *nclopt = NULL; + int i; nonnull_assert(interp != NULL); nonnull_assert(object != NULL); @@ -31068,12 +31090,13 @@ case RelationtypeObject_mixinIdx: { NsfCmdList *newMixinCmdList = NULL, *cmds; + TCL_OBJC_T ii; /* * Add every mixin class */ - for (i = 0; i < oc; i++) { - if (unlikely(MixinAdd(interp, &newMixinCmdList, ov[i]) != TCL_OK)) { + for (ii = 0; ii < oc; ii++) { + if (unlikely(MixinAdd(interp, &newMixinCmdList, ov[ii]) != TCL_OK)) { CmdListFree(&newMixinCmdList, GuardDel); return TCL_ERROR; } @@ -31138,9 +31161,10 @@ case RelationtypeObject_filterIdx: { NsfCmdList *newFilterCmdList = NULL; + TCL_OBJC_T ii; - for (i = 0; i < oc; i ++) { - if (unlikely(FilterAdd(interp, &newFilterCmdList, ov[i], object, NULL) != TCL_OK)) { + for (ii = 0; ii < oc; ii ++) { + if (unlikely(FilterAdd(interp, &newFilterCmdList, ov[ii], object, NULL) != TCL_OK)) { CmdListFree(&newFilterCmdList, GuardDel); return TCL_ERROR; } @@ -31166,9 +31190,10 @@ case RelationtypeClass_filterIdx: { NsfCmdList *newFilterCmdList = NULL; + TCL_OBJC_T ii; - for (i = 0; i < oc; i ++) { - if (unlikely(FilterAdd(interp, &newFilterCmdList, ov[i], NULL, class) != TCL_OK)) { + for (ii = 0; ii < oc; ii ++) { + if (unlikely(FilterAdd(interp, &newFilterCmdList, ov[ii], NULL, class) != TCL_OK)) { CmdListFree(&newFilterCmdList, GuardDel); return TCL_ERROR; } @@ -31498,13 +31523,14 @@ } */ static int NsfVarImport(Tcl_Interp *interp, NsfObject *object, const char *cmdName, - int objc, Tcl_Obj *const objv[]) + TCL_OBJC_T objc, Tcl_Obj *const objv[]) nonnull(1) nonnull(2) nonnull(3) nonnull(5); static int NsfVarImport(Tcl_Interp *interp, NsfObject *object, const char *cmdName, - int objc, Tcl_Obj *const objv[]) { - int i, result = TCL_OK; + TCL_OBJC_T objc, Tcl_Obj *const objv[]) { + TCL_OBJC_T i; + int result = TCL_OK; nonnull_assert(interp != NULL); nonnull_assert(object != NULL); @@ -31513,7 +31539,7 @@ for (i = 0; i < objc && result == TCL_OK; i++) { Tcl_Obj **ov; - int oc; + TCL_OBJC_T oc; /*fprintf(stderr, "ListGetElements %p %s\n", objv[i], ObjStr(objv[i]));*/ if ((result = Tcl_ListObjGetElements(interp, objv[i], &oc, &ov)) == TCL_OK) { @@ -31545,7 +31571,7 @@ } static int -NsfVarImportCmd(Tcl_Interp *interp, NsfObject *object, int trailingObjc, Tcl_Obj *const trailingObjv[]) { +NsfVarImportCmd(Tcl_Interp *interp, NsfObject *object, TCL_OBJC_T trailingObjc, Tcl_Obj *const trailingObjv[]) { nonnull_assert(interp != NULL); nonnull_assert(object != NULL); @@ -32171,15 +32197,16 @@ static int -NsfOConfigureMethod(Tcl_Interp *interp, NsfObject *object, int objc, Tcl_Obj *const objv[], Tcl_Obj *objv0) { - int result, i; +NsfOConfigureMethod(Tcl_Interp *interp, NsfObject *object, TCL_OBJC_T objc, Tcl_Obj *const objv[], Tcl_Obj *objv0) { + int result; NsfParsedParam parsedParam; Nsf_Param *paramPtr; NsfParamDefs *paramDefs; Tcl_Obj *newValue, *initMethodObj; const char *initString; ParseContext pc; CallFrame frame, *framePtr = &frame, *uplevelVarFramePtr; + TCL_OBJC_T i; nonnull_assert(interp != NULL); nonnull_assert(object != NULL); @@ -32288,9 +32315,9 @@ * alias). */ /*fprintf(stderr, "[%d] param %s, object init called %d is default %d value = '%s' nrArgs %d\n", - i, paramPtr->name, (object->flags & NSF_INIT_CALLED), - (pc.flags[i-1] & NSF_PC_IS_DEFAULT), - ObjStr(pc.full_objv[i]), paramPtr->nrArgs);*/ + i, paramPtr->name, (object->flags & NSF_INIT_CALLED), + (pc.flags[i-1] & NSF_PC_IS_DEFAULT), + ObjStr(pc.full_objv[i]), paramPtr->nrArgs);*/ if ((pc.flags[i-1] & NSF_PC_IS_DEFAULT)) { /* @@ -32306,8 +32333,8 @@ * The value exists already, ignore this parameter. */ /*fprintf(stderr, "a variable for %s exists already, " - "ignore param flags %.6x valueObj %p\n", - paramPtr->name, paramPtr->flags, pc.full_objv[i]);*/ + "ignore param flags %.6x valueObj %p\n", + paramPtr->name, paramPtr->flags, pc.full_objv[i]);*/ continue; } } else if ((object->flags & NSF_INIT_CALLED) != 0u) { @@ -32356,9 +32383,9 @@ newValue = pc.full_objv[i]; /*fprintf(stderr, " new Value of %s = [%d] %p '%s', type %s addr %p\n", - ObjStr(paramPtr->nameObj), i, - newValue, (newValue != NULL) ? ObjStr(newValue) : "(null)", paramPtr->type, - &(pc.full_objv[i]));*/ + ObjStr(paramPtr->nameObj), i, + newValue, (newValue != NULL) ? ObjStr(newValue) : "(null)", paramPtr->type, + &(pc.full_objv[i]));*/ /* * Handling slot initialize @@ -32411,8 +32438,8 @@ paramPtr->nameObj, 0); /*fprintf(stderr, "### NSF_ARRAY_INITCMD %s has a value %s\n", - NsfGlobalStrings[NSF_ARRAY_INITCMD], - ObjStr(paramPtr->defaultValue));*/ + NsfGlobalStrings[NSF_ARRAY_INITCMD], + ObjStr(paramPtr->defaultValue));*/ if (varObj == NULL) { /* @@ -32466,7 +32493,7 @@ continue; } - setvars: + setvars: if (newValue == NsfGlobalObjs[NSF___UNKNOWN__]) { /* * Nothing to do, we have a value setter, but no value is specified and @@ -32827,7 +32854,7 @@ */ static int -NsfOInstvarMethod(Tcl_Interp *interp, NsfObject *object, int objc, Tcl_Obj *const objv[]) { +NsfOInstvarMethod(Tcl_Interp *interp, NsfObject *object, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { callFrameContext ctx = {NULL, NULL, 0}; int result; @@ -32925,8 +32952,9 @@ } */ static int -NsfOResidualargsMethod(Tcl_Interp *interp, NsfObject *object, int objc, Tcl_Obj *const objv[]) { - int i, start = 1, argc = 0, nextArgc = 0, normalArgs, result = TCL_OK; +NsfOResidualargsMethod(Tcl_Interp *interp, NsfObject *object, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { + int result = TCL_OK; + TCL_OBJC_T i, start = 1, argc = 0, nextArgc = 0, normalArgs; dashArgType isdasharg = NO_DASH; const char *methodName, *nextMethodName = NULL, *initString = NULL; Tcl_Obj **argv = NULL, **nextArgv = NULL; @@ -32972,7 +33000,7 @@ switch (isdasharg) { case SCALAR_DASH: /* Argument is a scalar with a leading dash */ - { int j; + { TCL_OBJC_T j; nextMethodName = NULL; nextArgv = NULL; @@ -33041,7 +33069,7 @@ } */ static int -NsfOUplevelMethod(Tcl_Interp *interp, NsfObject *object, int objc, Tcl_Obj *const objv[]) { +NsfOUplevelMethod(Tcl_Interp *interp, NsfObject *object, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { int result, getFrameResult = 0; CallFrame *requestedFramePtr = NULL; @@ -33074,7 +33102,7 @@ if (likely(result == TCL_OK)) { Tcl_CallFrame *framePtr, *savedVarFramePtr; - objc -= getFrameResult + 1; + objc -= (TCL_OBJC_T)(getFrameResult + 1); objv += getFrameResult + 1; if (getFrameResult == 0) { @@ -33144,9 +33172,10 @@ } */ static int -NsfOUpvarMethod(Tcl_Interp *interp, NsfObject *object, int objc, Tcl_Obj *const objv[]) { +NsfOUpvarMethod(Tcl_Interp *interp, NsfObject *object, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { Tcl_Obj *frameInfoObj; - int i, result = TCL_ERROR; + int result = TCL_ERROR; + TCL_OBJC_T i; const char *frameInfo; callFrameContext ctx = {NULL, NULL, 0}; @@ -33454,7 +33483,7 @@ } */ static int -NsfCCreateMethod(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *nameObj, int objc, Tcl_Obj *const objv[]) { +NsfCCreateMethod(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *nameObj, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { NsfObject *newObject = NULL; Tcl_Obj *actualNameObj, *methodObj, *tmpObj = NULL; int result; @@ -33796,7 +33825,7 @@ static int NsfCNewMethod(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *childofObj, - int trailingObjc, Tcl_Obj *const trailingObjv[]) { + TCL_OBJC_T trailingObjc, Tcl_Obj *const trailingObjv[]) { Tcl_Obj *fullnameObj; Tcl_DString dFullname, *dsPtr = &dFullname; int result; @@ -33887,7 +33916,7 @@ */ static int RecreateObject(Tcl_Interp *interp, NsfClass *class, NsfObject *object, - int objc, Tcl_Obj *const objv[]) { + TCL_OBJC_T objc, Tcl_Obj *const objv[]) { int result; nonnull_assert(interp != NULL); @@ -33948,7 +33977,7 @@ static int NsfCRecreateMethod(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *objectNameObj, - int trailingObjc, Tcl_Obj *const trailingObjv[]) { + TCL_OBJC_T trailingObjc, Tcl_Obj *const trailingObjv[]) { NsfObject *object; nonnull_assert(interp != NULL); @@ -35260,9 +35289,9 @@ entryPtr = Tcl_NextHashEntry(&search)) { cmd = (Tcl_Command)Tcl_GetHashValue(entryPtr); - if (Tcl_Command_objProc(cmd) == RUNTIME_STATE(interp)->objInterpProc) { + if (TCL_COMMAND_OBJPROC(cmd) == RUNTIME_STATE(interp)->objInterpProc) { /*fprintf(stderr, "cmdname = %s cmd %p proc %p objProc %p %d\n", - Tcl_GetHashKey(cmdTablePtr, entryPtr), cmd, Tcl_Command_proc(cmd), Tcl_Command_objProc(cmd), + Tcl_GetHashKey(cmdTablePtr, entryPtr), cmd, Tcl_Command_proc(cmd), TCL_COMMAND_OBJPROC(cmd), Tcl_Command_proc(cmd)==RUNTIME_STATE(interp)->objInterpProc);*/ Tcl_DeleteCommandFromToken(interp, cmd); @@ -35384,7 +35413,7 @@ entryPtr = Tcl_NextHashEntry(&search)) { Tcl_Command cmd = (Tcl_Command)Tcl_GetHashValue(entryPtr); - if (Tcl_Command_objProc(cmd) == NsfProcStub) { + if (TCL_COMMAND_OBJPROC(cmd) == NsfProcStub) { /*fprintf(stderr, "cmdname = %s cmd %p\n", Tcl_GetHashKey(cmdTablePtr, entryPtr), cmd);*/ Tcl_DeleteCommandFromToken(interp, cmd); @@ -36246,7 +36275,7 @@ * Create all method commands (will use the namespaces above). */ for (i = 0; i < nr_elements(method_definitions)-1; i++) { - Tcl_CreateObjCommand(interp, method_definitions[i].methodName, method_definitions[i].proc, 0, 0); + TCL_CREATEOBJCOMMAND(interp, method_definitions[i].methodName, method_definitions[i].proc, 0, 0); } /* @@ -36262,12 +36291,12 @@ #ifdef NSF_BYTECODE instructions[INST_NEXT].cmdPtr = (Command *) #endif - Tcl_CreateObjCommand(interp, "::nsf::xotclnext", NsfNextObjCmd, 0, 0); + TCL_CREATEOBJCOMMAND(interp, "::nsf::xotclnext", NsfNextObjCmd, 0, 0); #ifdef NSF_BYTECODE instructions[INST_SELF].cmdPtr = (Command *)Tcl_FindCommand(interp, "::nsf::current", NULL, TCL_GLOBAL_ONLY); #endif - /*Tcl_CreateObjCommand(interp, "::nsf::K", NsfKObjCmd, 0, 0);*/ + /*TCL_CREATEOBJCOMMAND(interp, "::nsf::K", NsfKObjCmd, 0, 0);*/ #ifdef NSF_BYTECODE NsfBytecodeInit(); Index: generic/nsf.decls =================================================================== diff -u -ra963e8896fd07c345ccfa034cbd043344edbf083 -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- generic/nsf.decls (.../nsf.decls) (revision a963e8896fd07c345ccfa034cbd043344edbf083) +++ generic/nsf.decls (.../nsf.decls) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -129,29 +129,29 @@ declare 21 generic { int NsfCallMethodWithArgs(Tcl_Interp *interp, Nsf_Object *object, Tcl_Obj *methodObj, Tcl_Obj *arg1, - int givenObjc, Tcl_Obj *const objv[], + TCL_OBJC_T givenObjc, Tcl_Obj *const objv[], unsigned int flags) } declare 22 generic { int NsfAddObjectMethod(Tcl_Interp *interp, struct Nsf_Object *object, - const char *methodName, Tcl_ObjCmdProc *proc, + const char *methodName, TCL_OBJCMDPROC_T *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, unsigned int flags) } declare 23 generic { int NsfAddClassMethod(Tcl_Interp *interp, struct Nsf_Class *class, - const char *methodName, Tcl_ObjCmdProc *proc, + const char *methodName, TCL_OBJCMDPROC_T *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, unsigned int flags) } declare 24 generic { int NsfCreate(Tcl_Interp *interp, Nsf_Class *class, Tcl_Obj *nameObj, - int objc, Tcl_Obj *const objv[]) + TCL_OBJC_T objc, Tcl_Obj *const objv[]) } declare 25 generic { - int Nsf_ArgumentParse(Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], + int Nsf_ArgumentParse(Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[], Nsf_Object *object, Tcl_Obj *procNameObj, - Nsf_Param const *paramPtr, int nrParams, int serial, + Nsf_Param const *paramPtr, TCL_OBJC_T nrParams, int serial, unsigned int processFlags, Nsf_ParseContext *pcPtr) } declare 26 generic { Index: generic/nsf.h =================================================================== diff -u -r8c0fd2cd2e86285486f0dde372524dff93605317 -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- generic/nsf.h (.../nsf.h) (revision 8c0fd2cd2e86285486f0dde372524dff93605317) +++ generic/nsf.h (.../nsf.h) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -75,12 +75,47 @@ # define PRE9 #endif +#ifndef NS_TCL_PRE87 +# if TCL_MAJOR_VERSION<=8 && TCL_MINOR_VERSION>=7 && TCL_RELEASE_SERIAL>=6 +# define NS_TCL_HAVE_TIP629 +# elif (TCL_MAJOR_VERSION>=9) +# define NS_TCL_HAVE_TIP629 +/* +# else +# define XSTR(x) STR(x) +# define STR(x) #x +# pragma message "The value of ABC: " XSTR(TCL_MAJOR_VERSION) +*/ +# endif +#endif + #if defined(PRE86) # define Tcl_GetErrorLine(interp) (interp)->errorLine #else # define NRE #endif +#ifndef NS_TCL_HAVE_TIP629 +# define TCL_OBJC_T int +# define TCL_OBJCMDPROC_T Tcl_ObjCmdProc +# define TCL_CREATEOBJCOMMAND Tcl_CreateObjCommand +# define TCL_NRCREATECOMMAND Tcl_NRCreateCommand +# define TCL_NRCALLOBJPROC Tcl_NRCallObjProc +# define TCL_COMMAND_OBJPROC Tcl_Command_objProc + +#else +/* + * Support for TIP 627 + * https://core.tcl-lang.org/tips/doc/trunk/tip/627.md +*/ +# define TCL_OBJC_T size_t +# define TCL_OBJCMDPROC_T Tcl_ObjCmdProc2 +# define TCL_CREATEOBJCOMMAND Tcl_CreateObjCommand2 +# define TCL_NRCREATECOMMAND Tcl_NRCreateCommand2 +# define TCL_NRCALLOBJPROC Tcl_NRCallObjProc2 +# define TCL_COMMAND_OBJPROC (TCL_OBJCMDPROC_T*)Tcl_Command_objProc +#endif + #ifdef PRE9 # if !defined(Tcl_LibraryInitProc) # define Tcl_LibraryInitProc Tcl_PackageInitProc @@ -215,9 +250,9 @@ # define NSF_DTRACE_METHOD_RETURN_PROBE(cscPtr,retCode) \ if (cscPtr->cmdPtr && NSF_DTRACE_METHOD_RETURN_ENABLED()) { \ NSF_DTRACE_METHOD_RETURN(ObjectName((cscPtr)->self), \ - (cscPtr)->cl ? ClassName((cscPtr)->cl) : ObjectName((cscPtr)->self), \ - (char *)(cscPtr)->methodName, \ - (retCode)); \ + (cscPtr)->cl ? ClassName((cscPtr)->cl) : ObjectName((cscPtr)->self), \ + (char *)(cscPtr)->methodName, \ + (retCode)); \ } #else # define NSF_DTRACE_METHOD_RETURN_PROBE(cscPtr,retCode) {} @@ -325,10 +360,10 @@ struct Nsf_Param; typedef int (Nsf_TypeConverter)(Tcl_Interp *interp, - Tcl_Obj *obj, - struct Nsf_Param const *pPtr, - ClientData *clientData, - Tcl_Obj **outObjPtr); + Tcl_Obj *obj, + struct Nsf_Param const *pPtr, + ClientData *clientData, + Tcl_Obj **outObjPtr); typedef struct { Nsf_TypeConverter *converter; @@ -363,49 +398,49 @@ } Nsf_Param; /* Argument parse processing flags */ -#define NSF_ARGPARSE_CHECK 0x0001 -#define NSF_ARGPARSE_FORCE_REQUIRED 0x0002 -#define NSF_ARGPARSE_BUILTIN (NSF_ARGPARSE_CHECK|NSF_ARGPARSE_FORCE_REQUIRED) -#define NSF_ARGPARSE_START_ZERO 0x0010 +#define NSF_ARGPARSE_CHECK 0x0001 +#define NSF_ARGPARSE_FORCE_REQUIRED 0x0002 +#define NSF_ARGPARSE_BUILTIN (NSF_ARGPARSE_CHECK|NSF_ARGPARSE_FORCE_REQUIRED) +#define NSF_ARGPARSE_START_ZERO 0x0010 /* Special flags for process method arguments */ -#define NSF_ARGPARSE_METHOD_PUSH 0x0100 +#define NSF_ARGPARSE_METHOD_PUSH 0x0100 /* flags for NsfParams */ -#define NSF_ARG_REQUIRED 0x00000001u -#define NSF_ARG_MULTIVALUED 0x00000002u -#define NSF_ARG_NOARG 0x00000004u -#define NSF_ARG_NOCONFIG 0x00000008u -#define NSF_ARG_CURRENTLY_UNKNOWN 0x00000010u -#define NSF_ARG_SUBST_DEFAULT 0x00000020u -#define NSF_ARG_ALLOW_EMPTY 0x00000040u -#define NSF_ARG_INITCMD 0x00000080u -#define NSF_ARG_CMD 0x00000100u -#define NSF_ARG_ALIAS 0x00000200u -#define NSF_ARG_FORWARD 0x00000400u -#define NSF_ARG_SWITCH 0x00000800u -#define NSF_ARG_BASECLASS 0x00001000u -#define NSF_ARG_METACLASS 0x00002000u -#define NSF_ARG_HAS_DEFAULT 0x00004000u -#define NSF_ARG_IS_CONVERTER 0x00008000u -#define NSF_ARG_IS_ENUMERATION 0x00010000u -#define NSF_ARG_CHECK_NONPOS 0x00020000u -#define NSF_ARG_SET 0x00040000u -#define NSF_ARG_WARN 0x00080000u -#define NSF_ARG_UNNAMED 0x00100000u -#define NSF_ARG_IS_RETURNVALUE 0x00200000u -#define NSF_ARG_NODASHALNUM 0x00400000u -#define NSF_ARG_SLOTSET 0x00800000u -#define NSF_ARG_SLOTINITIALIZE 0x01000000u -#define NSF_ARG_SUBST_DEFAULT_COMMANDS 0x10000000u +#define NSF_ARG_REQUIRED 0x00000001u +#define NSF_ARG_MULTIVALUED 0x00000002u +#define NSF_ARG_NOARG 0x00000004u +#define NSF_ARG_NOCONFIG 0x00000008u +#define NSF_ARG_CURRENTLY_UNKNOWN 0x00000010u +#define NSF_ARG_SUBST_DEFAULT 0x00000020u +#define NSF_ARG_ALLOW_EMPTY 0x00000040u +#define NSF_ARG_INITCMD 0x00000080u +#define NSF_ARG_CMD 0x00000100u +#define NSF_ARG_ALIAS 0x00000200u +#define NSF_ARG_FORWARD 0x00000400u +#define NSF_ARG_SWITCH 0x00000800u +#define NSF_ARG_BASECLASS 0x00001000u +#define NSF_ARG_METACLASS 0x00002000u +#define NSF_ARG_HAS_DEFAULT 0x00004000u +#define NSF_ARG_IS_CONVERTER 0x00008000u +#define NSF_ARG_IS_ENUMERATION 0x00010000u +#define NSF_ARG_CHECK_NONPOS 0x00020000u +#define NSF_ARG_SET 0x00040000u +#define NSF_ARG_WARN 0x00080000u +#define NSF_ARG_UNNAMED 0x00100000u +#define NSF_ARG_IS_RETURNVALUE 0x00200000u +#define NSF_ARG_NODASHALNUM 0x00400000u +#define NSF_ARG_SLOTSET 0x00800000u +#define NSF_ARG_SLOTINITIALIZE 0x01000000u +#define NSF_ARG_SUBST_DEFAULT_COMMANDS 0x10000000u #define NSF_ARG_SUBST_DEFAULT_VARIABLES 0x20000000u #define NSF_ARG_SUBST_DEFAULT_BACKSLASHES 0x40000000u #define NSF_ARG_SUBST_DEFAULT_ALL 0x70000000u #if defined __GNUC__ && defined __GNUC_MINOR__ # define NSF__GNUC_PREREQ(maj, min) \ - ((__GNUC__ << 16) + __GNUC_MINOR__ >= ((maj) << 16) + (min)) + ((__GNUC__ << 16) + __GNUC_MINOR__ >= ((maj) << 16) + (min)) #else # define NSF__GNUC_PREREQ(maj, min) (0) #endif @@ -448,13 +483,13 @@ /* EXTERN int NsfArgumentError(Tcl_Interp *interp, const char *errorMsg, Nsf_Param const *paramPtr, - Tcl_Obj *cmdNameObj, Tcl_Obj *methodPathObj) + Tcl_Obj *cmdNameObj, Tcl_Obj *methodPathObj) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(3); */ EXTERN int NsfDispatchClientDataError(Tcl_Interp *interp, ClientData clientData, - const char *what, const char *methodName) + const char *what, const char *methodName) NSF_nonnull(1) NSF_nonnull(3) NSF_nonnull(4); EXTERN int @@ -463,17 +498,17 @@ EXTERN int NsfUnexpectedArgumentError(Tcl_Interp *interp, const char *argumentString, - Nsf_Object *object, Nsf_Param const *paramPtr, - Tcl_Obj *methodPathObj) + Nsf_Object *object, Nsf_Param const *paramPtr, + Tcl_Obj *methodPathObj) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4) NSF_nonnull(5); EXTERN int NsfUnexpectedNonposArgumentError(Tcl_Interp *interp, - const char *argumentString, - Nsf_Object *object, - Nsf_Param const *currentParamPtr, - Nsf_Param const *paramPtr, - Tcl_Obj *methodPathObj) + const char *argumentString, + Nsf_Object *object, + Nsf_Param const *currentParamPtr, + Nsf_Param const *paramPtr, + Tcl_Obj *methodPathObj) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4) NSF_nonnull(5) NSF_nonnull(6); /* @@ -514,10 +549,10 @@ */ typedef struct Nsf_methodDefinition { - const char *methodName; - Tcl_ObjCmdProc *proc; - int nrParameters; - Nsf_Param paramDefs[12]; + const char *methodName; + TCL_OBJCMDPROC_T *proc; + TCL_OBJC_T nrParameters; + Nsf_Param paramDefs[12]; } Nsf_methodDefinition; /* Index: generic/nsfAPI.h =================================================================== diff -u -rb44ba341aa4dc2d759201f6413dc2ef36eba555d -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- generic/nsfAPI.h (.../nsfAPI.h) (revision b44ba341aa4dc2d759201f6413dc2ef36eba555d) +++ generic/nsfAPI.h (.../nsfAPI.h) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -422,250 +422,250 @@ "::nsf::methods::class::info", "::nsf::methods::class" }; -static int NsfCAllocMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfCAllocMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfCCreateMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfCCreateMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfCDeallocMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfCDeallocMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfCFilterGuardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfCFilterGuardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfCGetCachendParametersMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfCGetCachendParametersMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfCMixinGuardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfCMixinGuardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfCNewMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfCNewMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfCRecreateMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfCRecreateMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfCSuperclassMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfCSuperclassMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfClassInfoFilterguardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfClassInfoFilterguardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfClassInfoFiltersMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfClassInfoFiltersMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfClassInfoForwardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfClassInfoForwardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfClassInfoHeritageMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfClassInfoHeritageMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfClassInfoInstancesMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfClassInfoInstancesMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfClassInfoMethodMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfClassInfoMethodMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfClassInfoMethodsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfClassInfoMethodsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfClassInfoMixinOfMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfClassInfoMixinOfMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfClassInfoMixinguardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfClassInfoMixinguardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfClassInfoMixinsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfClassInfoMixinsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfClassInfoSlotobjectsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfClassInfoSlotobjectsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfClassInfoSubclassMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfClassInfoSubclassMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfClassInfoSuperclassMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfClassInfoSuperclassMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfAsmMethodCreateCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfAsmMethodCreateCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfAsmProcCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfAsmProcCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfCallgrindDumpStatsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfCallgrindDumpStatsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfCallgrindStartInstrumentationCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfCallgrindStartInstrumentationCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfCallgrindStopInstrumentationCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfCallgrindStopInstrumentationCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfCallgrindToggleCollectCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfCallgrindToggleCollectCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfCallgrindZeroStatsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfCallgrindZeroStatsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfCmdInfoCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfCmdInfoCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfColonCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfColonCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfConfigureCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfConfigureCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfCurrentCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfCurrentCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfDebugCompileEpochStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfDebugCompileEpochStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfDebugGetDictStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfDebugGetDictStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfDebugRunAssertionsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfDebugRunAssertionsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfDebugShowObjStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfDebugShowObjStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfDefinitionNamespaceCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfDefinitionNamespaceCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfDirectDispatchCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfDirectDispatchCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfDispatchCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfDispatchCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfFinalizeCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfFinalizeCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfForwardPropertyCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfForwardPropertyCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfInterpObjCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfInterpObjCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfIsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfIsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMethodAliasCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMethodAliasCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMethodAssertionCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMethodAssertionCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMethodCreateCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMethodCreateCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMethodDeleteCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMethodDeleteCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMethodForwardCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMethodForwardCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMethodPropertyCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMethodPropertyCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMethodRegisteredCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMethodRegisteredCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMethodSetterCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMethodSetterCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMyCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMyCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfNSCopyVarsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfNSCopyVarsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfNextCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfNextCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjectAllocCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjectAllocCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjectExistsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjectExistsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjectPropertyCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjectPropertyCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjectQualifyCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjectQualifyCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjectSystemCreateCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjectSystemCreateCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfParameterCacheClassInvalidateCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfParameterCacheClassInvalidateCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfParameterCacheObjectInvalidateCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfParameterCacheObjectInvalidateCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfParameterInfoCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfParameterInfoCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfParameterSpecsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfParameterSpecsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfParseArgsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfParseArgsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfProcCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfProcCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfProfileClearDataStubStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfProfileClearDataStubStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfProfileGetDataStubStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfProfileGetDataStubStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfProfileTraceStubStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfProfileTraceStubStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfRelationGetCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfRelationGetCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfRelationSetCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfRelationSetCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfSelfCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfSelfCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfShowStackCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfShowStackCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfUnsetUnknownArgsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfUnsetUnknownArgsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfVarExistsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfVarExistsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfVarGetCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfVarGetCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfVarImportCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfVarImportCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfVarSetCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfVarSetCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfVarUnsetCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfVarUnsetCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfOAutonameMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfOAutonameMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfOCgetMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfOCgetMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfOClassMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfOClassMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfOCleanupMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfOCleanupMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfOConfigureMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfOConfigureMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfODestroyMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfODestroyMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfOExistsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfOExistsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfOFilterGuardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfOFilterGuardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfOInstvarMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfOInstvarMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfOMixinGuardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfOMixinGuardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfONoinitMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfONoinitMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfORequireNamespaceMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfORequireNamespaceMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfOResidualargsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfOResidualargsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfOUplevelMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfOUplevelMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfOUpvarMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfOUpvarMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfOVolatile1MethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfOVolatile1MethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfOVolatileMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfOVolatileMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoBaseclassMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoBaseclassMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoChildrenMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoChildrenMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoClassMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoClassMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoFilterguardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoFilterguardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoFiltersMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoFiltersMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoForwardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoForwardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoHasMixinMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoHasMixinMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoHasTypeMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoHasTypeMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoHasnamespaceMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoHasnamespaceMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoLookupFilterMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoLookupFilterMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoLookupFiltersMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoLookupFiltersMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoLookupMethodMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoLookupMethodMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoLookupMethodsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoLookupMethodsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoLookupMixinsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoLookupMixinsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoLookupSlotsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoLookupSlotsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoMethodMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoMethodMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoMethodsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoMethodsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoMixinguardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoMixinguardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoMixinsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoMixinsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoNameMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoNameMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoParentMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoParentMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoPrecedenceMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoPrecedenceMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoSlotobjectsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoSlotobjectsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfObjInfoVarsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfObjInfoVarsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); static int NsfCAllocMethod(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *objectNameObj) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(3); -static int NsfCCreateMethod(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *objectNameObj, int trailingObjc, Tcl_Obj *const* trailingObjv) +static int NsfCCreateMethod(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *objectNameObj, TCL_OBJC_T trailingObjc, Tcl_Obj *const* trailingObjv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(3); static int NsfCDeallocMethod(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *objectObj) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(3); @@ -675,9 +675,9 @@ NSF_nonnull(1) NSF_nonnull(2); static int NsfCMixinGuardMethod(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *mixinObj, Tcl_Obj *guardObj) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(3) NSF_nonnull(4); -static int NsfCNewMethod(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *childofObj, int trailingObjc, Tcl_Obj *const* trailingObjv) +static int NsfCNewMethod(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *childofObj, TCL_OBJC_T trailingObjc, Tcl_Obj *const* trailingObjv) NSF_nonnull(1) NSF_nonnull(2); -static int NsfCRecreateMethod(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *objectNameObj, int trailingObjc, Tcl_Obj *const* trailingObjv) +static int NsfCRecreateMethod(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *objectNameObj, TCL_OBJC_T trailingObjc, Tcl_Obj *const* trailingObjv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(3); static int NsfCSuperclassMethod(Tcl_Interp *interp, NsfClass *class, Tcl_Obj *superclassesObj) NSF_nonnull(1) NSF_nonnull(2); @@ -723,7 +723,7 @@ NSF_nonnull(1); static int NsfCmdInfoCmd(Tcl_Interp *interp, InfomethodsubcmdIdx_t subcmd, NsfObject *contextObject, Tcl_Obj *methodNameObj, const char *pattern) NSF_nonnull(1) NSF_nonnull(4); -static int NsfColonCmd(Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfColonCmd(Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1); static int NsfConfigureCmd(Tcl_Interp *interp, ConfigureoptionIdx_t option, Tcl_Obj *valueObj) NSF_nonnull(1); @@ -739,15 +739,15 @@ NSF_nonnull(1) NSF_nonnull(2); static int NsfDefinitionNamespaceCmd(Tcl_Interp *interp) NSF_nonnull(1); -static int NsfDirectDispatchCmd(Tcl_Interp *interp, NsfObject *object, FrameIdx_t withFrame, Tcl_Obj *commandObj, int trailingObjc, Tcl_Obj *const* trailingObjv) +static int NsfDirectDispatchCmd(Tcl_Interp *interp, NsfObject *object, FrameIdx_t withFrame, Tcl_Obj *commandObj, TCL_OBJC_T trailingObjc, Tcl_Obj *const* trailingObjv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfDispatchCmd(Tcl_Interp *interp, NsfObject *object, int withIntrinsic, int withSystem, Tcl_Obj *commandObj, int trailingObjc, Tcl_Obj *const* trailingObjv) +static int NsfDispatchCmd(Tcl_Interp *interp, NsfObject *object, int withIntrinsic, int withSystem, Tcl_Obj *commandObj, TCL_OBJC_T trailingObjc, Tcl_Obj *const* trailingObjv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(5); static int NsfFinalizeCmd(Tcl_Interp *interp, int withKeepvars) NSF_nonnull(1); static int NsfForwardPropertyCmd(Tcl_Interp *interp, NsfObject *object, int withPer_object, Tcl_Obj *methodNameObj, ForwardpropertyIdx_t forwardProperty, Tcl_Obj *valueObj) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfInterpObjCmd(Tcl_Interp *interp, const char *name, int objc, Tcl_Obj *const* objv) +static int NsfInterpObjCmd(Tcl_Interp *interp, const char *name, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2); static int NsfIsCmd(Tcl_Interp *interp, int withComplain, int withConfigure, const char *withName, Tcl_Obj *constraintObj, Tcl_Obj *valueObj) NSF_nonnull(1) NSF_nonnull(5) NSF_nonnull(6); @@ -759,15 +759,15 @@ NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(7) NSF_nonnull(8) NSF_nonnull(9); static int NsfMethodDeleteCmd(Tcl_Interp *interp, NsfObject *object, int withPer_object, Tcl_Obj *methodNameObj) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMethodForwardCmd(Tcl_Interp *interp, NsfObject *object, int withPer_object, Tcl_Obj *methodObj, Tcl_Obj *defaultObj, int withEarlybinding, Tcl_Obj *onerrorObj, Tcl_Obj *prefixObj, FrameIdx_t withFrame, int withVerbose, Tcl_Obj *targetObj, int trailingObjc, Tcl_Obj *const* trailingObjv) +static int NsfMethodForwardCmd(Tcl_Interp *interp, NsfObject *object, int withPer_object, Tcl_Obj *methodObj, Tcl_Obj *defaultObj, int withEarlybinding, Tcl_Obj *onerrorObj, Tcl_Obj *prefixObj, FrameIdx_t withFrame, int withVerbose, Tcl_Obj *targetObj, TCL_OBJC_T trailingObjc, Tcl_Obj *const* trailingObjv) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); static int NsfMethodPropertyCmd(Tcl_Interp *interp, NsfObject *object, int withPer_object, Tcl_Obj *methodNameObj, MethodpropertyIdx_t methodProperty, Tcl_Obj *valueObj) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); static int NsfMethodRegisteredCmd(Tcl_Interp *interp, Tcl_Obj *handleObj) NSF_nonnull(1) NSF_nonnull(2); static int NsfMethodSetterCmd(Tcl_Interp *interp, NsfObject *object, int withPer_object, Tcl_Obj *parameterObj) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMyCmd(Tcl_Interp *interp, int withIntrinsic, int withLocal, int withSystem, Tcl_Obj *methodNameObj, int trailingObjc, Tcl_Obj *const* trailingObjv) +static int NsfMyCmd(Tcl_Interp *interp, int withIntrinsic, int withLocal, int withSystem, Tcl_Obj *methodNameObj, TCL_OBJC_T trailingObjc, Tcl_Obj *const* trailingObjv) NSF_nonnull(1) NSF_nonnull(5); static int NsfNSCopyVarsCmd(Tcl_Interp *interp, Tcl_Obj *fromNsObj, Tcl_Obj *toNsObj) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(3); @@ -815,7 +815,7 @@ NSF_nonnull(1) NSF_nonnull(3) NSF_nonnull(4); static int NsfVarGetCmd(Tcl_Interp *interp, int withArray, int withNotrace, NsfObject *object, Tcl_Obj *varNameObj) NSF_nonnull(1) NSF_nonnull(4) NSF_nonnull(5); -static int NsfVarImportCmd(Tcl_Interp *interp, NsfObject *object, int trailingObjc, Tcl_Obj *const* trailingObjv) +static int NsfVarImportCmd(Tcl_Interp *interp, NsfObject *object, TCL_OBJC_T trailingObjc, Tcl_Obj *const* trailingObjv) NSF_nonnull(1) NSF_nonnull(2); static int NsfVarSetCmd(Tcl_Interp *interp, int withArray, int withNotrace, NsfObject *object, Tcl_Obj *varNameObj, Tcl_Obj *valueObj) NSF_nonnull(1) NSF_nonnull(4) NSF_nonnull(5); @@ -829,27 +829,27 @@ NSF_nonnull(1) NSF_nonnull(2); static int NsfOCleanupMethod(Tcl_Interp *interp, NsfObject *object) NSF_nonnull(1) NSF_nonnull(2); -static int NsfOConfigureMethod(Tcl_Interp *interp, NsfObject *object, int trailingObjc, Tcl_Obj *const* trailingObjv, Tcl_Obj *objv0) +static int NsfOConfigureMethod(Tcl_Interp *interp, NsfObject *object, TCL_OBJC_T trailingObjc, Tcl_Obj *const* trailingObjv, Tcl_Obj *objv0) NSF_nonnull(1) NSF_nonnull(2); static int NsfODestroyMethod(Tcl_Interp *interp, NsfObject *object) NSF_nonnull(1) NSF_nonnull(2); static int NsfOExistsMethod(Tcl_Interp *interp, NsfObject *object, const char *varName) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(3); static int NsfOFilterGuardMethod(Tcl_Interp *interp, NsfObject *object, const char *filter, Tcl_Obj *guardObj) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(3) NSF_nonnull(4); -static int NsfOInstvarMethod(Tcl_Interp *interp, NsfObject *object, int objc, Tcl_Obj *const* objv) +static int NsfOInstvarMethod(Tcl_Interp *interp, NsfObject *object, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2); static int NsfOMixinGuardMethod(Tcl_Interp *interp, NsfObject *object, Tcl_Obj *mixinObj, Tcl_Obj *guardObj) NSF_nonnull(1) NSF_nonnull(2) NSF_nonnull(3) NSF_nonnull(4); static int NsfONoinitMethod(Tcl_Interp *interp, NsfObject *object) NSF_nonnull(1) NSF_nonnull(2); static int NsfORequireNamespaceMethod(Tcl_Interp *interp, NsfObject *object) NSF_nonnull(1) NSF_nonnull(2); -static int NsfOResidualargsMethod(Tcl_Interp *interp, NsfObject *object, int objc, Tcl_Obj *const* objv) +static int NsfOResidualargsMethod(Tcl_Interp *interp, NsfObject *object, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2); -static int NsfOUplevelMethod(Tcl_Interp *interp, NsfObject *object, int objc, Tcl_Obj *const* objv) +static int NsfOUplevelMethod(Tcl_Interp *interp, NsfObject *object, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2); -static int NsfOUpvarMethod(Tcl_Interp *interp, NsfObject *object, int objc, Tcl_Obj *const* objv) +static int NsfOUpvarMethod(Tcl_Interp *interp, NsfObject *object, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(1) NSF_nonnull(2); static int NsfOVolatile1Method(Tcl_Interp *interp, NsfObject *object) NSF_nonnull(1) NSF_nonnull(2); @@ -1029,7 +1029,7 @@ static int -NsfCAllocMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfCAllocMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { NsfClass *class; NSF_nonnull_assert(clientData != NULL); @@ -1053,7 +1053,7 @@ } static int -NsfCCreateMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfCCreateMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfClass *class; @@ -1081,7 +1081,7 @@ } static int -NsfCDeallocMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfCDeallocMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { NsfClass *class; NSF_nonnull_assert(clientData != NULL); @@ -1105,7 +1105,7 @@ } static int -NsfCFilterGuardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfCFilterGuardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfClass *class; @@ -1134,7 +1134,7 @@ } static int -NsfCGetCachendParametersMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfCGetCachendParametersMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { NsfClass *class; NSF_nonnull_assert(clientData != NULL); @@ -1158,7 +1158,7 @@ } static int -NsfCMixinGuardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfCMixinGuardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfClass *class; @@ -1187,7 +1187,7 @@ } static int -NsfCNewMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfCNewMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfClass *class; @@ -1215,7 +1215,7 @@ } static int -NsfCRecreateMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfCRecreateMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfClass *class; @@ -1243,7 +1243,7 @@ } static int -NsfCSuperclassMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfCSuperclassMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { NsfClass *class; NSF_nonnull_assert(clientData != NULL); @@ -1267,7 +1267,7 @@ } static int -NsfClassInfoFilterguardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfClassInfoFilterguardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfClass *class; @@ -1295,7 +1295,7 @@ } static int -NsfClassInfoFiltersMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfClassInfoFiltersMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfClass *class; @@ -1324,7 +1324,7 @@ } static int -NsfClassInfoForwardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfClassInfoForwardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfClass *class; @@ -1353,7 +1353,7 @@ } static int -NsfClassInfoHeritageMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfClassInfoHeritageMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfClass *class; @@ -1381,7 +1381,7 @@ } static int -NsfClassInfoInstancesMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfClassInfoInstancesMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfClass *class; @@ -1429,7 +1429,7 @@ } static int -NsfClassInfoMethodMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfClassInfoMethodMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfClass *class; @@ -1458,7 +1458,7 @@ } static int -NsfClassInfoMethodsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfClassInfoMethodsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfClass *class; @@ -1491,7 +1491,7 @@ } static int -NsfClassInfoMixinOfMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfClassInfoMixinOfMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfClass *class; @@ -1540,7 +1540,7 @@ } static int -NsfClassInfoMixinguardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfClassInfoMixinguardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfClass *class; @@ -1568,7 +1568,7 @@ } static int -NsfClassInfoMixinsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfClassInfoMixinsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfClass *class; @@ -1618,7 +1618,7 @@ } static int -NsfClassInfoSlotobjectsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfClassInfoSlotobjectsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfClass *class; @@ -1649,7 +1649,7 @@ } static int -NsfClassInfoSubclassMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfClassInfoSubclassMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfClass *class; @@ -1698,7 +1698,7 @@ } static int -NsfClassInfoSuperclassMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfClassInfoSuperclassMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfClass *class; @@ -1727,7 +1727,7 @@ } static int -NsfAsmMethodCreateCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfAsmMethodCreateCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -1754,7 +1754,7 @@ } static int -NsfAsmProcCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfAsmProcCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -1778,7 +1778,7 @@ } static int -NsfCallgrindDumpStatsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfCallgrindDumpStatsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -1798,7 +1798,7 @@ } static int -NsfCallgrindStartInstrumentationCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfCallgrindStartInstrumentationCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -1814,7 +1814,7 @@ } static int -NsfCallgrindStopInstrumentationCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfCallgrindStopInstrumentationCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -1830,7 +1830,7 @@ } static int -NsfCallgrindToggleCollectCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfCallgrindToggleCollectCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -1846,7 +1846,7 @@ } static int -NsfCallgrindZeroStatsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfCallgrindZeroStatsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -1862,7 +1862,7 @@ } static int -NsfCmdInfoCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfCmdInfoCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -1885,7 +1885,7 @@ } static int -NsfColonCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfColonCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -1895,7 +1895,7 @@ } static int -NsfConfigureCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfConfigureCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -1916,7 +1916,7 @@ } static int -NsfCurrentCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfCurrentCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -1936,7 +1936,7 @@ } static int -NsfDebugCompileEpochStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfDebugCompileEpochStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -1952,7 +1952,7 @@ } static int -NsfDebugGetDictStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfDebugGetDictStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -1968,7 +1968,7 @@ } static int -NsfDebugRunAssertionsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfDebugRunAssertionsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -1984,7 +1984,7 @@ } static int -NsfDebugShowObjStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfDebugShowObjStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -2000,7 +2000,7 @@ } static int -NsfDefinitionNamespaceCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfDefinitionNamespaceCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -2016,7 +2016,7 @@ } static int -NsfDirectDispatchCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfDirectDispatchCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2038,7 +2038,7 @@ } static int -NsfDispatchCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfDispatchCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2061,7 +2061,7 @@ } static int -NsfFinalizeCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfFinalizeCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2081,7 +2081,7 @@ } static int -NsfForwardPropertyCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfForwardPropertyCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2105,7 +2105,7 @@ } static int -NsfInterpObjCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfInterpObjCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2125,7 +2125,7 @@ } static int -NsfIsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfIsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2149,7 +2149,7 @@ } static int -NsfMethodAliasCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMethodAliasCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2174,7 +2174,7 @@ } static int -NsfMethodAssertionCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMethodAssertionCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2196,7 +2196,7 @@ } static int -NsfMethodCreateCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMethodCreateCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2225,7 +2225,7 @@ } static int -NsfMethodDeleteCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMethodDeleteCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2247,7 +2247,7 @@ } static int -NsfMethodForwardCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMethodForwardCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2276,7 +2276,7 @@ } static int -NsfMethodPropertyCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMethodPropertyCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2300,7 +2300,7 @@ } static int -NsfMethodRegisteredCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMethodRegisteredCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -2316,7 +2316,7 @@ } static int -NsfMethodSetterCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMethodSetterCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2338,7 +2338,7 @@ } static int -NsfMyCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMyCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2361,7 +2361,7 @@ } static int -NsfNSCopyVarsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfNSCopyVarsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2382,7 +2382,7 @@ } static int -NsfNextCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfNextCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -2398,7 +2398,7 @@ } static int -NsfObjectAllocCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjectAllocCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2420,7 +2420,7 @@ } static int -NsfObjectExistsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjectExistsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -2436,7 +2436,7 @@ } static int -NsfObjectPropertyCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjectPropertyCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2458,7 +2458,7 @@ } static int -NsfObjectQualifyCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjectQualifyCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -2474,7 +2474,7 @@ } static int -NsfObjectSystemCreateCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjectSystemCreateCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2496,7 +2496,7 @@ } static int -NsfParameterCacheClassInvalidateCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfParameterCacheClassInvalidateCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2516,7 +2516,7 @@ } static int -NsfParameterCacheObjectInvalidateCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfParameterCacheObjectInvalidateCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2536,7 +2536,7 @@ } static int -NsfParameterInfoCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfParameterInfoCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2558,7 +2558,7 @@ } static int -NsfParameterSpecsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfParameterSpecsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2580,7 +2580,7 @@ } static int -NsfParseArgsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfParseArgsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2602,7 +2602,7 @@ } static int -NsfProcCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfProcCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2629,7 +2629,7 @@ } static int -NsfProfileClearDataStubStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfProfileClearDataStubStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -2645,7 +2645,7 @@ } static int -NsfProfileGetDataStubStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfProfileGetDataStubStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -2661,7 +2661,7 @@ } static int -NsfProfileTraceStubStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfProfileTraceStubStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2684,7 +2684,7 @@ } static int -NsfRelationGetCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfRelationGetCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2705,7 +2705,7 @@ } static int -NsfRelationSetCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfRelationSetCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2727,7 +2727,7 @@ } static int -NsfSelfCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfSelfCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -2743,7 +2743,7 @@ } static int -NsfShowStackCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfShowStackCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -2759,7 +2759,7 @@ } static int -NsfUnsetUnknownArgsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfUnsetUnknownArgsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -2775,7 +2775,7 @@ } static int -NsfVarExistsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfVarExistsCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2797,7 +2797,7 @@ } static int -NsfVarGetCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfVarGetCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2820,7 +2820,7 @@ } static int -NsfVarImportCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfVarImportCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2840,7 +2840,7 @@ } static int -NsfVarSetCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfVarSetCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2864,7 +2864,7 @@ } static int -NsfVarUnsetCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfVarUnsetCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -2886,7 +2886,7 @@ } static int -NsfOAutonameMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfOAutonameMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -2912,7 +2912,7 @@ } static int -NsfOCgetMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfOCgetMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { NsfObject *object; NSF_nonnull_assert(clientData != NULL); @@ -2932,7 +2932,7 @@ } static int -NsfOClassMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfOClassMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { NsfObject *object; NSF_nonnull_assert(clientData != NULL); @@ -2952,7 +2952,7 @@ } static int -NsfOCleanupMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfOCleanupMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { NsfObject *object; NSF_nonnull_assert(clientData != NULL); @@ -2972,7 +2972,7 @@ } static int -NsfOConfigureMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfOConfigureMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -2996,7 +2996,7 @@ } static int -NsfODestroyMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfODestroyMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { NsfObject *object; NSF_nonnull_assert(clientData != NULL); @@ -3016,7 +3016,7 @@ } static int -NsfOExistsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfOExistsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3040,7 +3040,7 @@ } static int -NsfOFilterGuardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfOFilterGuardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3065,7 +3065,7 @@ } static int -NsfOInstvarMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfOInstvarMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3089,7 +3089,7 @@ } static int -NsfOMixinGuardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfOMixinGuardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3114,7 +3114,7 @@ } static int -NsfONoinitMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfONoinitMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { NsfObject *object; NSF_nonnull_assert(clientData != NULL); @@ -3134,7 +3134,7 @@ } static int -NsfORequireNamespaceMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfORequireNamespaceMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { NsfObject *object; NSF_nonnull_assert(clientData != NULL); @@ -3154,7 +3154,7 @@ } static int -NsfOResidualargsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfOResidualargsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3178,7 +3178,7 @@ } static int -NsfOUplevelMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfOUplevelMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3202,7 +3202,7 @@ } static int -NsfOUpvarMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfOUpvarMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3226,7 +3226,7 @@ } static int -NsfOVolatile1MethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfOVolatile1MethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { NsfObject *object; NSF_nonnull_assert(clientData != NULL); @@ -3246,7 +3246,7 @@ } static int -NsfOVolatileMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfOVolatileMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { NsfObject *object; NSF_nonnull_assert(clientData != NULL); @@ -3266,7 +3266,7 @@ } static int -NsfObjInfoBaseclassMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoBaseclassMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { NsfObject *object; NSF_nonnull_assert(clientData != NULL); @@ -3286,7 +3286,7 @@ } static int -NsfObjInfoChildrenMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoChildrenMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3311,7 +3311,7 @@ } static int -NsfObjInfoClassMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoClassMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { NsfObject *object; NSF_nonnull_assert(clientData != NULL); @@ -3331,7 +3331,7 @@ } static int -NsfObjInfoFilterguardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoFilterguardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3355,7 +3355,7 @@ } static int -NsfObjInfoFiltersMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoFiltersMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3380,7 +3380,7 @@ } static int -NsfObjInfoForwardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoForwardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3405,7 +3405,7 @@ } static int -NsfObjInfoHasMixinMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoHasMixinMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3429,7 +3429,7 @@ } static int -NsfObjInfoHasTypeMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoHasTypeMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3453,7 +3453,7 @@ } static int -NsfObjInfoHasnamespaceMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoHasnamespaceMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { NsfObject *object; NSF_nonnull_assert(clientData != NULL); @@ -3473,7 +3473,7 @@ } static int -NsfObjInfoLookupFilterMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoLookupFilterMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3497,7 +3497,7 @@ } static int -NsfObjInfoLookupFiltersMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoLookupFiltersMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3522,7 +3522,7 @@ } static int -NsfObjInfoLookupMethodMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoLookupMethodMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { NsfObject *object; NSF_nonnull_assert(clientData != NULL); @@ -3542,7 +3542,7 @@ } static int -NsfObjInfoLookupMethodsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoLookupMethodsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3572,7 +3572,7 @@ } static int -NsfObjInfoLookupMixinsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoLookupMixinsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3616,7 +3616,7 @@ } static int -NsfObjInfoLookupSlotsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoLookupSlotsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3642,7 +3642,7 @@ } static int -NsfObjInfoMethodMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoMethodMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3667,7 +3667,7 @@ } static int -NsfObjInfoMethodsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoMethodsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3694,7 +3694,7 @@ } static int -NsfObjInfoMixinguardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoMixinguardMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3718,7 +3718,7 @@ } static int -NsfObjInfoMixinsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoMixinsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3762,7 +3762,7 @@ } static int -NsfObjInfoNameMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoNameMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { NsfObject *object; NSF_nonnull_assert(clientData != NULL); @@ -3782,7 +3782,7 @@ } static int -NsfObjInfoParentMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoParentMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { NsfObject *object; NSF_nonnull_assert(clientData != NULL); @@ -3802,7 +3802,7 @@ } static int -NsfObjInfoPrecedenceMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoPrecedenceMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3827,7 +3827,7 @@ } static int -NsfObjInfoSlotobjectsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoSlotobjectsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; @@ -3852,7 +3852,7 @@ } static int -NsfObjInfoVarsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfObjInfoVarsMethodStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; NsfObject *object; Index: generic/nsfAccessInt.h =================================================================== diff -u -r58c09af31e1d9cf656138ea3d3dac8d1a29e8b81 -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- generic/nsfAccessInt.h (.../nsfAccessInt.h) (revision 58c09af31e1d9cf656138ea3d3dac8d1a29e8b81) +++ generic/nsfAccessInt.h (.../nsfAccessInt.h) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -72,6 +72,7 @@ Tcl_GetCommandInfoFromToken(cmd, infoPtr) */ #define Tcl_Command_nsPtr(cmd) ((Tcl_Namespace*)(((Command *)(cmd))->nsPtr)) #define Tcl_Command_objProc(cmd) ((Command *)(cmd))->objProc +#define Tcl_Command_objProc2(cmd) (TCL_OBJCMDPROC_T)((Command *)(cmd))->objProc #if defined(NRE) # define Tcl_Command_nreProc(cmd) ((Command *)(cmd))->nreProc #endif Index: generic/nsfCmdDefinitions.c =================================================================== diff -u -r42dbfd5df1fa6248468d00c7d68fd699a5a69e64 -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- generic/nsfCmdDefinitions.c (.../nsfCmdDefinitions.c) (revision 42dbfd5df1fa6248468d00c7d68fd699a5a69e64) +++ generic/nsfCmdDefinitions.c (.../nsfCmdDefinitions.c) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -142,7 +142,7 @@ *---------------------------------------------------------------------- */ Nsf_methodDefinition * -Nsf_CmdDefinitionGet(Tcl_ObjCmdProc *proc) { +Nsf_CmdDefinitionGet(TCL_OBJCMDPROC_T *proc) { Tcl_HashEntry *hPtr; nonnull_assert(proc != NULL); Index: generic/nsfCmdPtr.c =================================================================== diff -u -r62dc29237e6a643169841f002784c7dc0b29f201 -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- generic/nsfCmdPtr.c (.../nsfCmdPtr.c) (revision 62dc29237e6a643169841f002784c7dc0b29f201) +++ generic/nsfCmdPtr.c (.../nsfCmdPtr.c) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -50,14 +50,14 @@ nonnull_assert(cmd != NULL); - /*fprintf(stderr, "objProc=%p %p\n", Tcl_Command_objProc(cmd), NsfObjDispatch);*/ - if (likely(Tcl_Command_objProc(cmd) == NsfObjDispatch)) { + /*fprintf(stderr, "objProc=%p %p\n", TCL_COMMAND_OBJPROC(cmd), NsfObjDispatch);*/ + if (likely((TCL_OBJCMDPROC_T*)Tcl_Command_objProc(cmd) == NsfObjDispatch)) { result = Tcl_Command_objClientData(cmd); } else { Tcl_Command cmd1 = TclGetOriginalCommand(cmd); - if (likely(cmd1 != NULL) && unlikely(Tcl_Command_objProc(cmd1) == NsfObjDispatch)) { + if (likely(cmd1 != NULL) && unlikely((TCL_OBJCMDPROC_T*)Tcl_Command_objProc(cmd1) == NsfObjDispatch)) { result = Tcl_Command_objClientData(cmd1); } else { result = NULL; Index: generic/nsfDebug.c =================================================================== diff -u -r9f2bb394fca71a456c6e9e8135e493625f8edecf -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- generic/nsfDebug.c (.../nsfDebug.c) (revision 9f2bb394fca71a456c6e9e8135e493625f8edecf) +++ generic/nsfDebug.c (.../nsfDebug.c) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -176,10 +176,10 @@ *---------------------------------------------------------------------- */ -void NsfPrintObjv(char *string, int objc, Tcl_Obj *CONST objv[]) nonnull(1) nonnull(3); +void NsfPrintObjv(char *string, TCL_OBJC_T objc, Tcl_Obj *CONST objv[]) nonnull(1) nonnull(3); void -NsfPrintObjv(char *string, int objc, Tcl_Obj *CONST objv[]) { +NsfPrintObjv(char *string, TCL_OBJC_T objc, Tcl_Obj *CONST objv[]) { int j; nonnull_assert(string != NULL); Index: generic/nsfError.c =================================================================== diff -u -re48161ab167236344f7d23da3e855c31d1a1ebc7 -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- generic/nsfError.c (.../nsfError.c) (revision e48161ab167236344f7d23da3e855c31d1a1ebc7) +++ generic/nsfError.c (.../nsfError.c) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -230,13 +230,14 @@ void NsfDStringArgv( Tcl_DString *dsPtr, - int objc, Tcl_Obj *const objv[] + TCL_OBJC_T objc, Tcl_Obj *const objv[] ) { nonnull_assert(dsPtr != NULL); nonnull_assert(objv != NULL); if (objc > 0) { - int i; + TCL_OBJC_T i; + Tcl_DStringAppendElement(dsPtr, NsfMethodName(objv[0])); for (i = 1; i < objc; i++) { Tcl_DStringAppendElement(dsPtr, ObjStr(objv[i])); Index: generic/nsfInt.h =================================================================== diff -u -rf0bca18a085d7e071f54af9b4f0136b65ad1f8e6 -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- generic/nsfInt.h (.../nsfInt.h) (revision f0bca18a085d7e071f54af9b4f0136b65ad1f8e6) +++ generic/nsfInt.h (.../nsfInt.h) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -633,7 +633,7 @@ typedef struct NsfParamDefs { Nsf_Param *paramsPtr; - int nrParams; + TCL_OBJC_T nrParams; int refCount; int serial; } NsfParamDefs; @@ -856,7 +856,7 @@ * Next Scripting ShadowTclCommands */ typedef struct NsfShadowTclCommandInfo { - Tcl_ObjCmdProc *proc; + TCL_OBJCMDPROC_T *proc; ClientData clientData; int nrArgs; } NsfShadowTclCommandInfo; @@ -867,7 +867,7 @@ NSF_PARAMS_PARAMETER, NSF_PARAMS_SYNTAX} NsfParamsPrintStyle; int NsfCallCommand(Tcl_Interp *interp, NsfGlobalNames name, - int objc, Tcl_Obj *const objv[]) + TCL_OBJC_T objc, Tcl_Obj *const objv[]) nonnull(1) nonnull(4); int NsfShadowTclCommands(Tcl_Interp *interp, NsfShadowOperations load) @@ -880,7 +880,7 @@ nonnull(1) nonnull(2) nonnull(3); int NsfReplaceCommand(Tcl_Interp *interp, Tcl_Obj *nameObj, - Tcl_ObjCmdProc *nsfReplacementProc, + TCL_OBJCMDPROC_T *nsfReplacementProc, ClientData cd, NsfShadowTclCommandInfo *ti) nonnull(1) nonnull(2) nonnull(5); @@ -895,7 +895,7 @@ Tcl_Command cmdPtr; NsfFilterStack *filterStackEntry; Tcl_Obj *const* objv; - int objc; + TCL_OBJC_T objc; unsigned int flags; #if defined(NSF_PROFILE) || defined(NSF_DTRACE) long int startUsec; @@ -1097,7 +1097,7 @@ /* * Prototypes for method definitions */ -EXTERN Tcl_ObjCmdProc NsfObjDispatch; +EXTERN TCL_OBJCMDPROC_T NsfObjDispatch; /* * NsfObject Reference Accounting @@ -1148,7 +1148,7 @@ const char *methodName, const char *altMethod) nonnull(1) nonnull(2) nonnull(4) nonnull(5); EXTERN void NsfProfileDebugCall(Tcl_Interp *interp, NsfObject *object, NsfClass *class, const char *methodName, - int objc, Tcl_Obj **objv) + TCL_OBJC_T objc, Tcl_Obj **objv) nonnull(1) nonnull(4); EXTERN void NsfProfileDebugExit(Tcl_Interp *interp, NsfObject *object, NsfClass *class, const char *methodName, long startSec, long startUsec) @@ -1216,18 +1216,18 @@ int bytecode; Command *cmdPtr; CompileProc *compileProc; - Tcl_ObjCmdProc *callProc; + TCL_OBJCMDPROC_T *callProc; } NsfCompEnv; typedef enum {INST_INITPROC, INST_NEXT, INST_SELF, INST_SELF_DISPATCH, LAST_INSTRUCTION} NsfByteCodeInstructions; -Tcl_ObjCmdProc NsfInitProcNSCmd, NsfSelfDispatchCmd, +TCL_OBJCMDPROC_T NsfInitProcNSCmd, NsfSelfDispatchCmd, NsfNextObjCmd, NsfGetSelfObjCmd; EXTERN NsfCompEnv *NsfGetCompEnv(void); int NsfDirectSelfDispatch(ClientData cd, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]) + TCL_OBJC_T objc, Tcl_Obj *const objv[]) nonnull(1) nonnull(2); #endif @@ -1246,7 +1246,7 @@ EXTERN void NsfInitPkgConfig(Tcl_Interp *interp) nonnull(1); -EXTERN void NsfDStringArgv(Tcl_DString *dsPtr, int objc, Tcl_Obj *const objv[]) +EXTERN void NsfDStringArgv(Tcl_DString *dsPtr, TCL_OBJC_T objc, Tcl_Obj *const objv[]) nonnull(1) nonnull(3); EXTERN Tcl_Obj *NsfMethodNamePath(Tcl_Interp *interp, @@ -1374,7 +1374,7 @@ */ EXTERN void Nsf_CmdDefinitionInit(void); EXTERN void Nsf_CmdDefinitionRelease(void); -EXTERN Nsf_methodDefinition *Nsf_CmdDefinitionGet(Tcl_ObjCmdProc *proc) +EXTERN Nsf_methodDefinition *Nsf_CmdDefinitionGet(TCL_OBJCMDPROC_T *proc) nonnull(1); @@ -1422,5 +1422,7 @@ #define NsfCallStackFindLastInvocation(interp, offset, framePtrPtr) \ NsfCallStackFindCallingContext((interp), (offset), (framePtrPtr), NULL) +typedef void (*nsf_funcptr_t)(void); + EXTERN const Nsf_ObjvTable Nsf_Configureoption[]; #endif /* NSF_INCLUDE_nsf_int_h_ */ Index: generic/nsfObj.c =================================================================== diff -u -ra2f1d9672f99e4e8a5981e11a6676dd174594883 -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- generic/nsfObj.c (.../nsfObj.c) (revision a2f1d9672f99e4e8a5981e11a6676dd174594883) +++ generic/nsfObj.c (.../nsfObj.c) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -487,7 +487,7 @@ Tcl_Obj *objPtr /* The object to convert. */ ) { NsfClass *mixin = NULL; - int oc, result; + TCL_OBJC_T oc, result; Tcl_Obj **ov; result = Tcl_ListObjGetElements(interp, objPtr, &oc, &ov); @@ -793,7 +793,7 @@ ) { Tcl_Obj *guardObj = NULL, *filterObj; Filterreg *filterregPtr; - int oc; Tcl_Obj **ov; + TCL_OBJC_T oc; Tcl_Obj **ov; if (Tcl_ListObjGetElements(interp, objPtr, &oc, &ov) == TCL_OK) { if (oc == 1) { Index: generic/nsfProfile.c =================================================================== diff -u -re48161ab167236344f7d23da3e855c31d1a1ebc7 -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- generic/nsfProfile.c (.../nsfProfile.c) (revision e48161ab167236344f7d23da3e855c31d1a1ebc7) +++ generic/nsfProfile.c (.../nsfProfile.c) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -156,7 +156,7 @@ */ void NsfProfileDebugCall(Tcl_Interp *interp, NsfObject *object, NsfClass *class, const char *methodName, - int objc, Tcl_Obj **objv) { + TCL_OBJC_T objc, Tcl_Obj **objv) { NsfRuntimeState *rst; Tcl_Obj *listObj; Tcl_DString ds; @@ -338,7 +338,7 @@ *---------------------------------------------------------------------- */ static int -Nsf_ProfileFilterObjCmd(ClientData cd, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) { +Nsf_ProfileFilterObjCmd(ClientData cd, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { NsfShadowTclCommandInfo *ti; int result; struct Tcl_Time start; @@ -371,7 +371,7 @@ NsfProfileTraceCallAppend(interp, label); Tcl_GetTime(&start); - result = Tcl_NRCallObjProc(interp, ti->proc, ti->clientData, (TCL_SIZE_T)objc, objv); + result = TCL_NRCALLOBJPROC(interp, ti->proc, ti->clientData, (TCL_SIZE_T)objc, objv); NsfProfileRecordProcData(interp, label, start.sec, start.usec); if (label != fullMethodName) { Index: generic/nsfShadow.c =================================================================== diff -u -re48161ab167236344f7d23da3e855c31d1a1ebc7 -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- generic/nsfShadow.c (.../nsfShadow.c) (revision e48161ab167236344f7d23da3e855c31d1a1ebc7) +++ generic/nsfShadow.c (.../nsfShadow.c) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -40,10 +40,10 @@ #include "nsfAccessInt.h" #include "nsfCmdPtr.c" -static Tcl_ObjCmdProc Nsf_InfoFrameObjCmd; -EXTERN Tcl_ObjCmdProc NsfProcStub; -static Tcl_ObjCmdProc Nsf_InfoBodyObjCmd; -static Tcl_ObjCmdProc Nsf_RenameObjCmd; +static TCL_OBJCMDPROC_T Nsf_InfoFrameObjCmd; +EXTERN TCL_OBJCMDPROC_T NsfProcStub; +static TCL_OBJCMDPROC_T Nsf_InfoBodyObjCmd; +static TCL_OBJCMDPROC_T Nsf_RenameObjCmd; /* *---------------------------------------------------------------------- @@ -73,7 +73,7 @@ /*fprintf(stderr, " cleanup for %s ti=%p in %p\n", NsfGlobalStrings[name], ti, interp);*/ cmd = Tcl_GetCommandFromObj(interp, nameObj); if (cmd != NULL) { - Tcl_Command_objProc(cmd) = ti->proc; + Tcl_Command_objProc(cmd) = (Tcl_ObjCmdProc*)ti->proc; if (ti->clientData != NULL) { Tcl_Command_objClientData(cmd) = ti->clientData; } @@ -101,12 +101,12 @@ * *---------------------------------------------------------------------- */ -static void NsfReplaceCommandCheck(Tcl_Interp *interp, Tcl_Obj *nameObj, Tcl_ObjCmdProc *proc, +static void NsfReplaceCommandCheck(Tcl_Interp *interp, Tcl_Obj *nameObj, TCL_OBJCMDPROC_T *proc, NsfShadowTclCommandInfo *ti) nonnull(1) nonnull(2) nonnull(3) nonnull(4); static void -NsfReplaceCommandCheck(Tcl_Interp *interp, Tcl_Obj *nameObj, Tcl_ObjCmdProc *proc, +NsfReplaceCommandCheck(Tcl_Interp *interp, Tcl_Obj *nameObj, TCL_OBJCMDPROC_T *proc, NsfShadowTclCommandInfo *ti) { Tcl_Command cmd; @@ -117,14 +117,14 @@ cmd = Tcl_GetCommandFromObj(interp, nameObj); - if (cmd != NULL && ti->proc && Tcl_Command_objProc(cmd) != proc) { + if (cmd != NULL && ti->proc && TCL_COMMAND_OBJPROC(cmd) != proc) { /* fprintf(stderr, "we have to do something about %s %p %p\n", - NsfGlobalStrings[name], Tcl_Command_objProc(cmd), proc); + NsfGlobalStrings[name], TCL_COMMAND_OBJPROC(cmd), proc); */ - ti->proc = Tcl_Command_objProc(cmd); + ti->proc = TCL_COMMAND_OBJPROC(cmd); ti->clientData = Tcl_Command_objClientData(cmd); - Tcl_Command_objProc(cmd) = proc; + Tcl_Command_objProc(cmd) = (Tcl_ObjCmdProc*)proc; } } @@ -146,7 +146,7 @@ */ int NsfReplaceCommand(Tcl_Interp *interp, Tcl_Obj *nameObj, - Tcl_ObjCmdProc *nsfReplacementProc, + TCL_OBJCMDPROC_T *nsfReplacementProc, ClientData cd, NsfShadowTclCommandInfo *ti) { Tcl_Command cmd; @@ -162,12 +162,12 @@ if (cmd == NULL) { result = TCL_ERROR; } else { - Tcl_ObjCmdProc *objProc = Tcl_Command_objProc(cmd); + TCL_OBJCMDPROC_T *objProc = TCL_COMMAND_OBJPROC(cmd); if (nsfReplacementProc != objProc) { ti->proc = objProc; ti->clientData = Tcl_Command_objClientData(cmd); if (nsfReplacementProc != NULL) { - Tcl_Command_objProc(cmd) = nsfReplacementProc; + Tcl_Command_objProc(cmd) = (Tcl_ObjCmdProc*)nsfReplacementProc; } if (cd != NULL) { Tcl_Command_objClientData(cmd) = cd; @@ -200,7 +200,7 @@ */ static int -Nsf_InfoBodyObjCmd(ClientData UNUSED(clientData), Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) { +Nsf_InfoBodyObjCmd(ClientData UNUSED(clientData), Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { Tcl_Command cmd; nonnull_assert(interp != NULL); @@ -213,7 +213,7 @@ cmd = Tcl_FindCommand(interp, ObjStr(objv[1]), (Tcl_Namespace *)NULL, 0); if (cmd != NULL) { - Tcl_ObjCmdProc *proc = Tcl_Command_objProc(cmd); + TCL_OBJCMDPROC_T *proc = TCL_COMMAND_OBJPROC(cmd); ClientData procClientData = Tcl_Command_objClientData(cmd); if (proc == NsfProcStub && procClientData != NULL) { NsfProcClientData *tcd = procClientData; @@ -250,7 +250,7 @@ */ static int -Nsf_RenameObjCmd(ClientData UNUSED(clientData), Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) { +Nsf_RenameObjCmd(ClientData UNUSED(clientData), Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { Tcl_Command cmd; if (objc != 3) { @@ -261,7 +261,7 @@ /* if an obj/cl should be renamed => call the Nsf move method */ cmd = Tcl_FindCommand(interp, ObjStr(objv[1]), (Tcl_Namespace *)NULL, 0); if (cmd != NULL) { - Tcl_ObjCmdProc *proc = Tcl_Command_objProc(cmd); + TCL_OBJCMDPROC_T *proc = TCL_COMMAND_OBJPROC(cmd); ClientData procClientData = Tcl_Command_objClientData(cmd); NsfObject *object = NsfGetObjectFromCmdPtr(cmd); Tcl_Command parentCmd; @@ -333,7 +333,7 @@ */ static int -Nsf_InfoFrameObjCmd(ClientData UNUSED(clientData), Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) { +Nsf_InfoFrameObjCmd(ClientData UNUSED(clientData), Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[]) { int result; result = NsfCallCommand(interp, NSF_INFO_FRAME, objc, objv); @@ -371,7 +371,7 @@ ((NsfCallStackContent *)Tcl_CallFrame_clientData(varFramePtr)); const char *frameType; Tcl_Obj *listObj, **ov; - int oc, i; + TCL_OBJC_T oc, i; listObj = Tcl_NewListObj(0, NULL); @@ -516,7 +516,7 @@ */ int NsfCallCommand(Tcl_Interp *interp, NsfGlobalNames name, - int objc, Tcl_Obj *const objv[]) { + TCL_OBJC_T objc, Tcl_Obj *const objv[]) { int result; NsfShadowTclCommandInfo *ti = &RUNTIME_STATE(interp)->tclCommands[name-NSF_EXPR]; ALLOC_ON_STACK(Tcl_Obj*, objc, ov); @@ -532,7 +532,7 @@ if (objc > 1) { memcpy(ov+1, objv+1, sizeof(Tcl_Obj *) * ((size_t)objc - 1u)); } - result = Tcl_NRCallObjProc(interp, ti->proc, ti->clientData, (TCL_SIZE_T)objc, objv); + result = TCL_NRCALLOBJPROC(interp, ti->proc, ti->clientData, (TCL_SIZE_T)objc, objv); FREE_ON_STACK(Tcl_Obj *, ov); return result; } Index: generic/nsfStack.c =================================================================== diff -u -r286401d1ba226b1fa0b060c43d296f1bb56e1aa2 -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- generic/nsfStack.c (.../nsfStack.c) (revision 286401d1ba226b1fa0b060c43d296f1bb56e1aa2) +++ generic/nsfStack.c (.../nsfStack.c) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -981,8 +981,8 @@ */ static Tcl_Obj* CallStackMethodPath(Tcl_Interp *interp, Tcl_CallFrame *framePtr) { - int elements; - Tcl_Obj *resultObj, *methodPathObj = Tcl_NewListObj(0, NULL); + TCL_OBJC_T elements; + Tcl_Obj *resultObj, *methodPathObj = Tcl_NewListObj(0, NULL); nonnull_assert(interp != NULL); nonnull_assert(framePtr != NULL); @@ -1044,8 +1044,8 @@ * arguments, reverse the list to obtain the right order. */ if (elements > 1) { - int oc, i; - Tcl_Obj **ov; + TCL_OBJC_T oc, i; + Tcl_Obj **ov; INCR_REF_COUNT(methodPathObj); Tcl_ListObjGetElements(interp, methodPathObj, &oc, &ov); @@ -1241,9 +1241,9 @@ static NsfCallStackContent * CscAlloc(Tcl_Interp *interp, NsfCallStackContent *cscPtr, const Tcl_Command cmd) { #if defined(NRE) - Tcl_ObjCmdProc *proc = (cmd != NULL) ? Tcl_Command_objProc(cmd) : NULL; + TCL_OBJCMDPROC_T *proc = (cmd != NULL) ? TCL_COMMAND_OBJPROC(cmd) : NULL; - if (proc == TclObjInterpProc) { + if (proc == (TCL_OBJCMDPROC_T*)TclObjInterpProc) { cscPtr = (NsfCallStackContent *) NsfTclStackAlloc(interp, sizeof(NsfCallStackContent), "csc"); cscPtr->flags = NSF_CSC_CALL_IS_NRE; } else { Index: generic/stubs8.5/nsfDecls.h =================================================================== diff -u -r65d1c0f8d783d97a78b93f14871045fa9d4e5a41 -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- generic/stubs8.5/nsfDecls.h (.../nsfDecls.h) (revision 65d1c0f8d783d97a78b93f14871045fa9d4e5a41) +++ generic/stubs8.5/nsfDecls.h (.../nsfDecls.h) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -214,15 +214,15 @@ #define NsfCreate_TCL_DECLARED /* 24 */ EXTERN int NsfCreate(Tcl_Interp *interp, Nsf_Class *class, - Tcl_Obj *nameObj, int objc, + Tcl_Obj *nameObj, TCL_OBJC_T objc, Tcl_Obj *CONST objv[]); #endif #ifndef Nsf_ArgumentParse_TCL_DECLARED #define Nsf_ArgumentParse_TCL_DECLARED /* 25 */ -EXTERN int Nsf_ArgumentParse(Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[], Nsf_Object *object, - Tcl_Obj *procNameObj, +EXTERN int Nsf_ArgumentParse(Tcl_Interp *interp, + TCL_OBJC_T objc, Tcl_Obj *CONST objv[], + Nsf_Object *object, Tcl_Obj *procNameObj, Nsf_Param CONST *paramPtr, int nrParams, int serial, unsigned int processFlags, Nsf_ParseContext *pcPtr); @@ -367,8 +367,8 @@ int (*nsfCallMethodWithArgs) (Tcl_Interp *interp, Nsf_Object *object, Tcl_Obj *methodObj, Tcl_Obj *arg1, int givenObjc, Tcl_Obj *CONST objv[], unsigned int flags); /* 21 */ int (*nsfAddObjectMethod) (Tcl_Interp *interp, struct Nsf_Object *object, CONST char *methodName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, unsigned int flags); /* 22 */ int (*nsfAddClassMethod) (Tcl_Interp *interp, struct Nsf_Class *class, CONST char *methodName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, unsigned int flags); /* 23 */ - int (*nsfCreate) (Tcl_Interp *interp, Nsf_Class *class, Tcl_Obj *nameObj, int objc, Tcl_Obj *CONST objv[]); /* 24 */ - int (*nsf_ArgumentParse) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], Nsf_Object *object, Tcl_Obj *procNameObj, Nsf_Param CONST *paramPtr, int nrParams, int serial, unsigned int processFlags, Nsf_ParseContext *pcPtr); /* 25 */ + int (*nsfCreate) (Tcl_Interp *interp, Nsf_Class *class, Tcl_Obj *nameObj, TCL_OBJC_T objc, Tcl_Obj *CONST objv[]); /* 24 */ + int (*nsf_ArgumentParse) (Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *CONST objv[], Nsf_Object *object, Tcl_Obj *procNameObj, Nsf_Param CONST *paramPtr, int nrParams, int serial, unsigned int processFlags, Nsf_ParseContext *pcPtr); /* 25 */ void (*nsfLog) (Tcl_Interp *interp, int requiredLevel, CONST char *fmt, ...); /* 26 */ int (*nsf_PointerAdd) (Tcl_Interp *interp, char *buffer, size_t size, CONST char *typeName, VOID *valuePtr); /* 27 */ int (*nsf_PointerDelete) (CONST char *key, VOID *valuePtr, int free); /* 28 */ Index: generic/stubs8.6/nsfDecls.h =================================================================== diff -u -r65d1c0f8d783d97a78b93f14871045fa9d4e5a41 -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- generic/stubs8.6/nsfDecls.h (.../nsfDecls.h) (revision 65d1c0f8d783d97a78b93f14871045fa9d4e5a41) +++ generic/stubs8.6/nsfDecls.h (.../nsfDecls.h) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -143,12 +143,12 @@ unsigned int flags); /* 24 */ EXTERN int NsfCreate(Tcl_Interp *interp, Nsf_Class *class, - Tcl_Obj *nameObj, int objc, + Tcl_Obj *nameObj, TCL_OBJC_T objc, Tcl_Obj *const objv[]); /* 25 */ -EXTERN int Nsf_ArgumentParse(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], Nsf_Object *object, - Tcl_Obj *procNameObj, +EXTERN int Nsf_ArgumentParse(Tcl_Interp *interp, + TCL_OBJC_T objc, Tcl_Obj *const objv[], + Nsf_Object *object, Tcl_Obj *procNameObj, Nsf_Param const *paramPtr, int nrParams, int serial, unsigned int processFlags, Nsf_ParseContext *pcPtr); @@ -244,8 +244,8 @@ int (*nsfCallMethodWithArgs) (Tcl_Interp *interp, Nsf_Object *object, Tcl_Obj *methodObj, Tcl_Obj *arg1, int givenObjc, Tcl_Obj *const objv[], unsigned int flags); /* 21 */ int (*nsfAddObjectMethod) (Tcl_Interp *interp, struct Nsf_Object *object, const char *methodName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, unsigned int flags); /* 22 */ int (*nsfAddClassMethod) (Tcl_Interp *interp, struct Nsf_Class *class, const char *methodName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, unsigned int flags); /* 23 */ - int (*nsfCreate) (Tcl_Interp *interp, Nsf_Class *class, Tcl_Obj *nameObj, int objc, Tcl_Obj *const objv[]); /* 24 */ - int (*nsf_ArgumentParse) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], Nsf_Object *object, Tcl_Obj *procNameObj, Nsf_Param const *paramPtr, int nrParams, int serial, unsigned int processFlags, Nsf_ParseContext *pcPtr); /* 25 */ + int (*nsfCreate) (Tcl_Interp *interp, Nsf_Class *class, Tcl_Obj *nameObj, TCL_OBJC_T objc, Tcl_Obj *const objv[]); /* 24 */ + int (*nsf_ArgumentParse) (Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[], Nsf_Object *object, Tcl_Obj *procNameObj, Nsf_Param const *paramPtr, int nrParams, int serial, unsigned int processFlags, Nsf_ParseContext *pcPtr); /* 25 */ void (*nsfLog) (Tcl_Interp *interp, int requiredLevel, const char *fmt, ...); /* 26 */ int (*nsf_PointerAdd) (Tcl_Interp *interp, char *buffer, size_t size, const char *typeName, void *valuePtr); /* 27 */ int (*nsf_PointerDelete) (const char *key, void *valuePtr, int free); /* 28 */ Index: generic/stubs8.7/nsfDecls.h =================================================================== diff -u -r65d1c0f8d783d97a78b93f14871045fa9d4e5a41 -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- generic/stubs8.7/nsfDecls.h (.../nsfDecls.h) (revision 65d1c0f8d783d97a78b93f14871045fa9d4e5a41) +++ generic/stubs8.7/nsfDecls.h (.../nsfDecls.h) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -143,12 +143,12 @@ unsigned int flags); /* 24 */ EXTERN int NsfCreate(Tcl_Interp *interp, Nsf_Class *class, - Tcl_Obj *nameObj, int objc, + Tcl_Obj *nameObj, TCL_OBJC_T objc, Tcl_Obj *const objv[]); /* 25 */ -EXTERN int Nsf_ArgumentParse(Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[], Nsf_Object *object, - Tcl_Obj *procNameObj, +EXTERN int Nsf_ArgumentParse(Tcl_Interp *interp, + TCL_OBJC_T objc, Tcl_Obj *const objv[], + Nsf_Object *object, Tcl_Obj *procNameObj, Nsf_Param const *paramPtr, int nrParams, int serial, unsigned int processFlags, Nsf_ParseContext *pcPtr); @@ -244,8 +244,8 @@ int (*nsfCallMethodWithArgs) (Tcl_Interp *interp, Nsf_Object *object, Tcl_Obj *methodObj, Tcl_Obj *arg1, int givenObjc, Tcl_Obj *const objv[], unsigned int flags); /* 21 */ int (*nsfAddObjectMethod) (Tcl_Interp *interp, struct Nsf_Object *object, const char *methodName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, unsigned int flags); /* 22 */ int (*nsfAddClassMethod) (Tcl_Interp *interp, struct Nsf_Class *class, const char *methodName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, unsigned int flags); /* 23 */ - int (*nsfCreate) (Tcl_Interp *interp, Nsf_Class *class, Tcl_Obj *nameObj, int objc, Tcl_Obj *const objv[]); /* 24 */ - int (*nsf_ArgumentParse) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], Nsf_Object *object, Tcl_Obj *procNameObj, Nsf_Param const *paramPtr, int nrParams, int serial, unsigned int processFlags, Nsf_ParseContext *pcPtr); /* 25 */ + int (*nsfCreate) (Tcl_Interp *interp, Nsf_Class *class, Tcl_Obj *nameObj, TCL_OBJC_T objc, Tcl_Obj *const objv[]); /* 24 */ + int (*nsf_ArgumentParse) (Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[], Nsf_Object *object, Tcl_Obj *procNameObj, Nsf_Param const *paramPtr, int nrParams, int serial, unsigned int processFlags, Nsf_ParseContext *pcPtr); /* 25 */ void (*nsfLog) (Tcl_Interp *interp, int requiredLevel, const char *fmt, ...); /* 26 */ int (*nsf_PointerAdd) (Tcl_Interp *interp, char *buffer, size_t size, const char *typeName, void *valuePtr); /* 27 */ int (*nsf_PointerDelete) (const char *key, void *valuePtr, int free); /* 28 */ Index: generic/stubs9.0/nsfDecls.h =================================================================== diff -u -re48161ab167236344f7d23da3e855c31d1a1ebc7 -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- generic/stubs9.0/nsfDecls.h (.../nsfDecls.h) (revision e48161ab167236344f7d23da3e855c31d1a1ebc7) +++ generic/stubs9.0/nsfDecls.h (.../nsfDecls.h) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -127,29 +127,29 @@ /* 21 */ EXTERN int NsfCallMethodWithArgs(Tcl_Interp *interp, Nsf_Object *object, Tcl_Obj *methodObj, - Tcl_Obj *arg1, int givenObjc, + Tcl_Obj *arg1, TCL_OBJC_T givenObjc, Tcl_Obj *const objv[], unsigned int flags); /* 22 */ EXTERN int NsfAddObjectMethod(Tcl_Interp *interp, struct Nsf_Object *object, - const char *methodName, Tcl_ObjCmdProc *proc, + const char *methodName, TCL_OBJCMDPROC_T *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, unsigned int flags); /* 23 */ EXTERN int NsfAddClassMethod(Tcl_Interp *interp, struct Nsf_Class *class, - const char *methodName, Tcl_ObjCmdProc *proc, + const char *methodName, TCL_OBJCMDPROC_T *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, unsigned int flags); /* 24 */ EXTERN int NsfCreate(Tcl_Interp *interp, Nsf_Class *class, - Tcl_Obj *nameObj, int objc, + Tcl_Obj *nameObj, TCL_OBJC_T objc, Tcl_Obj *const objv[]); /* 25 */ -EXTERN int Nsf_ArgumentParse(Tcl_Interp *interp, int objc, +EXTERN int Nsf_ArgumentParse(Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[], Nsf_Object *object, Tcl_Obj *procNameObj, - Nsf_Param const *paramPtr, int nrParams, + Nsf_Param const *paramPtr, TCL_OBJC_T nrParams, int serial, unsigned int processFlags, Nsf_ParseContext *pcPtr); /* 26 */ @@ -241,11 +241,11 @@ void (*nsfSetClassClientData) (Tcl_Interp *interp, Nsf_Class *cl, ClientData data); /* 18 */ ClientData (*nsfGetClassClientData) (Tcl_Interp *interp, Nsf_Class *cl); /* 19 */ void (*nsfRequireObjNamespace) (Tcl_Interp *interp, Nsf_Object *object); /* 20 */ - int (*nsfCallMethodWithArgs) (Tcl_Interp *interp, Nsf_Object *object, Tcl_Obj *methodObj, Tcl_Obj *arg1, int givenObjc, Tcl_Obj *const objv[], unsigned int flags); /* 21 */ - int (*nsfAddObjectMethod) (Tcl_Interp *interp, struct Nsf_Object *object, const char *methodName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, unsigned int flags); /* 22 */ - int (*nsfAddClassMethod) (Tcl_Interp *interp, struct Nsf_Class *class, const char *methodName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, unsigned int flags); /* 23 */ - int (*nsfCreate) (Tcl_Interp *interp, Nsf_Class *class, Tcl_Obj *nameObj, int objc, Tcl_Obj *const objv[]); /* 24 */ - int (*nsf_ArgumentParse) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], Nsf_Object *object, Tcl_Obj *procNameObj, Nsf_Param const *paramPtr, int nrParams, int serial, unsigned int processFlags, Nsf_ParseContext *pcPtr); /* 25 */ + int (*nsfCallMethodWithArgs) (Tcl_Interp *interp, Nsf_Object *object, Tcl_Obj *methodObj, Tcl_Obj *arg1, TCL_OBJC_T givenObjc, Tcl_Obj *const objv[], unsigned int flags); /* 21 */ + int (*nsfAddObjectMethod) (Tcl_Interp *interp, struct Nsf_Object *object, const char *methodName, TCL_OBJCMDPROC_T *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, unsigned int flags); /* 22 */ + int (*nsfAddClassMethod) (Tcl_Interp *interp, struct Nsf_Class *class, const char *methodName, TCL_OBJCMDPROC_T *proc, ClientData clientData, Tcl_CmdDeleteProc *dp, unsigned int flags); /* 23 */ + int (*nsfCreate) (Tcl_Interp *interp, Nsf_Class *class, Tcl_Obj *nameObj, TCL_OBJC_T objc, Tcl_Obj *const objv[]); /* 24 */ + int (*nsf_ArgumentParse) (Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[], Nsf_Object *object, Tcl_Obj *procNameObj, Nsf_Param const *paramPtr, TCL_OBJC_T nrParams, int serial, unsigned int processFlags, Nsf_ParseContext *pcPtr); /* 25 */ void (*nsfLog) (Tcl_Interp *interp, int requiredLevel, const char *fmt, ...); /* 26 */ int (*nsf_PointerAdd) (Tcl_Interp *interp, char *buffer, size_t size, const char *typeName, void *valuePtr); /* 27 */ int (*nsf_PointerDelete) (const char *key, void *valuePtr, int free); /* 28 */ Index: library/mongodb/mongoAPI.h =================================================================== diff -u -rf0f87b41b6bb57a518fc1bc52fd2f3422d7a9b07 -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- library/mongodb/mongoAPI.h (.../mongoAPI.h) (revision f0f87b41b6bb57a518fc1bc52fd2f3422d7a9b07) +++ library/mongodb/mongoAPI.h (.../mongoAPI.h) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -94,65 +94,65 @@ static const char *method_command_namespace_names[] = { "::mongo" }; -static int NsfCollectionCloseStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfCollectionCloseStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfCollectionOpenStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfCollectionOpenStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoCloseStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoCloseStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoCollectionCountStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoCollectionCountStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoCollectionDeleteStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoCollectionDeleteStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoCollectionIndexStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoCollectionIndexStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoCollectionInsertStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoCollectionInsertStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoCollectionQueryStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoCollectionQueryStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoCollectionStatsStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoCollectionStatsStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoCollectionUpdateStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoCollectionUpdateStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoConnectStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoConnectStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoCursorAggregateStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoCursorAggregateStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoCursorCloseStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoCursorCloseStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoCursorFindStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoCursorFindStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoCursorNextStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoCursorNextStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoGridFSCloseStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoGridFSCloseStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoGridFSOpenStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoGridFSOpenStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoGridFileCloseStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoGridFileCloseStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoGridFileCreateStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoGridFileCreateStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoGridFileDeleteStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoGridFileDeleteStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoGridFileGetContentTypeStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoGridFileGetContentTypeStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoGridFileGetContentlengthStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoGridFileGetContentlengthStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoGridFileGetMetaDataStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoGridFileGetMetaDataStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoGridFileOpenStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoGridFileOpenStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoGridFileReadStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoGridFileReadStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoGridFileSeekStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoGridFileSeekStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoJsonGenerateStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoJsonGenerateStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoJsonParseStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoJsonParseStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoRunCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoRunCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); -static int NsfMongoStatusStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) +static int NsfMongoStatusStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) NSF_nonnull(2) NSF_nonnull(4); static int NsfCollectionClose(Tcl_Interp *interp, mongoc_collection_t *collectionPtr, Tcl_Obj *collectionObj) @@ -251,7 +251,7 @@ static int -NsfCollectionCloseStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfCollectionCloseStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -271,7 +271,7 @@ } static int -NsfCollectionOpenStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfCollectionOpenStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -293,7 +293,7 @@ } static int -NsfMongoCloseStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoCloseStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -313,7 +313,7 @@ } static int -NsfMongoCollectionCountStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoCollectionCountStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -334,7 +334,7 @@ } static int -NsfMongoCollectionDeleteStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoCollectionDeleteStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -355,7 +355,7 @@ } static int -NsfMongoCollectionIndexStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoCollectionIndexStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -382,7 +382,7 @@ } static int -NsfMongoCollectionInsertStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoCollectionInsertStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -403,7 +403,7 @@ } static int -NsfMongoCollectionQueryStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoCollectionQueryStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -425,7 +425,7 @@ } static int -NsfMongoCollectionStatsStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoCollectionStatsStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -446,7 +446,7 @@ } static int -NsfMongoCollectionUpdateStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoCollectionUpdateStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -470,7 +470,7 @@ } static int -NsfMongoConnectStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoConnectStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -490,7 +490,7 @@ } static int -NsfMongoCursorAggregateStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoCursorAggregateStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -514,7 +514,7 @@ } static int -NsfMongoCursorCloseStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoCursorCloseStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -534,7 +534,7 @@ } static int -NsfMongoCursorFindStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoCursorFindStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -556,7 +556,7 @@ } static int -NsfMongoCursorNextStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoCursorNextStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -576,7 +576,7 @@ } static int -NsfMongoGridFSCloseStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoGridFSCloseStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -596,7 +596,7 @@ } static int -NsfMongoGridFSOpenStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoGridFSOpenStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -618,7 +618,7 @@ } static int -NsfMongoGridFileCloseStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoGridFileCloseStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -638,7 +638,7 @@ } static int -NsfMongoGridFileCreateStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoGridFileCreateStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -663,7 +663,7 @@ } static int -NsfMongoGridFileDeleteStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoGridFileDeleteStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -684,7 +684,7 @@ } static int -NsfMongoGridFileGetContentTypeStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoGridFileGetContentTypeStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -704,7 +704,7 @@ } static int -NsfMongoGridFileGetContentlengthStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoGridFileGetContentlengthStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -724,7 +724,7 @@ } static int -NsfMongoGridFileGetMetaDataStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoGridFileGetMetaDataStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -744,7 +744,7 @@ } static int -NsfMongoGridFileOpenStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoGridFileOpenStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -765,7 +765,7 @@ } static int -NsfMongoGridFileReadStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoGridFileReadStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -786,7 +786,7 @@ } static int -NsfMongoGridFileSeekStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoGridFileSeekStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -807,7 +807,7 @@ } static int -NsfMongoJsonGenerateStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoJsonGenerateStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -823,7 +823,7 @@ } static int -NsfMongoJsonParseStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoJsonParseStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { (void)clientData; @@ -839,7 +839,7 @@ } static int -NsfMongoRunCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoRunCmdStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; @@ -862,7 +862,7 @@ } static int -NsfMongoStatusStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const* objv) { +NsfMongoStatusStub(ClientData clientData, Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const* objv) { ParseContext pc; (void)clientData; Index: library/mongodb/nsfmongo.c =================================================================== diff -u -re48161ab167236344f7d23da3e855c31d1a1ebc7 -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- library/mongodb/nsfmongo.c (.../nsfmongo.c) (revision e48161ab167236344f7d23da3e855c31d1a1ebc7) +++ library/mongodb/nsfmongo.c (.../nsfmongo.c) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -123,7 +123,7 @@ unsigned int flags_static[PARSE_CONTEXT_PREALLOC+1]; unsigned int status; int lastObjc; /* points to the first "unprocessed" argument */ - int objc; + TCL_OBJC_T objc; NsfObject *object; int varArgs; /* does the parameter end with some kind of "args" */ } ParseContext; @@ -165,7 +165,7 @@ #endif -static int ArgumentParse(Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], +static int ArgumentParse(Tcl_Interp *interp, TCL_OBJC_T objc, Tcl_Obj *const objv[], NsfObject *obj, Tcl_Obj *procName, Nsf_Param const *paramPtr, int nrParameters, int serial, unsigned int processFlags, ParseContext *pc) { @@ -464,7 +464,7 @@ break; } case BSON_TYPE_REGEX: { - int objc = 0; + TCL_OBJC_T objc = 0; Tcl_Obj **objv; result = Tcl_ListObjGetElements(interp, value, &objc, &objv); @@ -577,7 +577,7 @@ *---------------------------------------------------------------------- */ static int -BsonAppendObjv(Tcl_Interp *interp, bson_t *bPtr, int objc, Tcl_Obj **objv) +BsonAppendObjv(Tcl_Interp *interp, bson_t *bPtr, TCL_OBJC_T objc, Tcl_Obj **objv) { int i, result = TCL_OK; @@ -856,7 +856,7 @@ mongoc_collection_t *collectionPtr, Tcl_Obj *queryObj) { - int objc, result; + TCL_OBJC_T objc, result; int64_t count; Tcl_Obj **objv; bson_t query, *queryPtr = &query; @@ -898,7 +898,7 @@ mongoc_collection_t *collectionPtr, Tcl_Obj *conditionObj) { - int objc, result, success; + TCL_OBJC_T objc, result, success; Tcl_Obj **objv; bson_t query, *queryPtr = &query; bson_error_t bsonError; @@ -945,7 +945,7 @@ int withTtl, int withUnique) { - int objc, result, success = 0; + TCL_OBJC_T objc, result, success = 0; Tcl_Obj **objv; bson_t keys, *keysPtr = &keys; bson_error_t bsonError; @@ -1121,7 +1121,7 @@ mongoc_collection_t *collectionPtr, Tcl_Obj *optionsObj) { - int objc = 0, success, result; + TCL_OBJC_T objc = 0, success, result; Tcl_Obj **objv = NULL; bson_t options, *optionsPtr = NULL; bson_t stats, *statsPtr = &stats; @@ -1194,7 +1194,7 @@ mongoc_update_flags_t updateFlags = MONGOC_UPDATE_NO_VALIDATE; /* for dbrefs */ bson_error_t bsonError; bson_t cond, *condPtr = &cond, values, *valuesPtr = &values; - int objc, result, success; + TCL_OBJC_T objc, result, success; Tcl_Obj **objv; result = Tcl_ListObjGetElements(interp, conditionObj, &objc, &objv); @@ -1489,7 +1489,7 @@ if (withMetadata != NULL) { Tcl_Obj **objv; - int objc; + TCL_OBJC_T objc; result = Tcl_ListObjGetElements(interp, withMetadata, &objc, &objv); if (result != TCL_OK || ((objc % 3) != 0)) { @@ -1567,7 +1567,7 @@ const bson_t *nextPtr; bson_iter_t it; Tcl_Obj **objv; - int objc, result; + TCL_OBJC_T objc, result; mongoc_read_prefs_t *readPrefsPtr = NULL; /* TODO: not handled */ result = Tcl_ListObjGetElements(interp, queryObj, &objc, &objv); @@ -1916,7 +1916,7 @@ * Create all method commands (will use the namespaces above) */ for (i = 0; i < nr_elements(method_definitions)-1; i++) { - Tcl_CreateObjCommand(interp, method_definitions[i].methodName, method_definitions[i].proc, 0, 0); + TCL_CREATEOBJCOMMAND(interp, method_definitions[i].methodName, method_definitions[i].proc, 0, 0); } Tcl_SetIntObj(Tcl_GetObjResult(interp), 1); Index: library/mongodb/pkgIndex.add =================================================================== diff -u -r641f75e3e56d8403de1e2edfa7c5feec1220cacd -r745c46b4619253f283fe4285d1f4a83375e3d9d7 --- library/mongodb/pkgIndex.add (.../pkgIndex.add) (revision 641f75e3e56d8403de1e2edfa7c5feec1220cacd) +++ library/mongodb/pkgIndex.add (.../pkgIndex.add) (revision 745c46b4619253f283fe4285d1f4a83375e3d9d7) @@ -1 +1 @@ -package ifneeded nsf::mongo 2.4.0 [list load [file join $dir libnsfmongo2.4.0.dylib]] +package ifneeded nsf::mongo 2.4.0 [list load [file join $dir libtcl9nsfmongo2.4.0.dylib]]