Diff
Not logged in

Differences From Artifact [d52097094e]:

To Artifact [28c6ce0a8d]:


106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
    CompiledLocal *localPtr;

    TclNewObj(argObjList);
    for (localPtr=procPtr->firstLocalPtr; localPtr!=NULL;
	    localPtr=localPtr->nextPtr) {
	if (TclIsVarArgument(localPtr)) {
	    Tcl_Obj *argObj;
    
	    TclNewObj(argObj);
	    Tcl_ListObjAppendElement(NULL, argObj, Tcl_NewStringObj(
		    localPtr->name, localPtr->nameLength));
	    if (localPtr->defValuePtr != NULL) {
		Tcl_ListObjAppendElement(NULL, argObj, localPtr->defValuePtr);
	    }
	    Tcl_ListObjAppendElement(NULL, argObjList, argObj);







|







106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
    CompiledLocal *localPtr;

    TclNewObj(argObjList);
    for (localPtr=procPtr->firstLocalPtr; localPtr!=NULL;
	    localPtr=localPtr->nextPtr) {
	if (TclIsVarArgument(localPtr)) {
	    Tcl_Obj *argObj;

	    TclNewObj(argObj);
	    Tcl_ListObjAppendElement(NULL, argObj, Tcl_NewStringObj(
		    localPtr->name, localPtr->nameLength));
	    if (localPtr->defValuePtr != NULL) {
		Tcl_ListObjAppendElement(NULL, argObj, localPtr->defValuePtr);
	    }
	    Tcl_ListObjAppendElement(NULL, argObjList, argObj);