Update of /cvsroot/naviserver/naviserver/nsd
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24082
Modified Files:
tclobjv.c
Log Message:
Do not wholesale invalidate string rep of the object at SetXXFromAny.
Doing this seem to corrupt the interp literal table.
Index: tclobjv.c
===================================================================
RCS file: /cvsroot/naviserver/naviserver/nsd/tclobjv.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** tclobjv.c 26 Mar 2005 14:25:25 -0000 1.4
--- tclobjv.c 9 Apr 2005 14:30:22 -0000 1.5
***************
*** 656,661 ****
}
Ns_TclSetTwoPtrValue(objPtr, &specType, optSpec, argSpec);
- Tcl_InvalidateStringRep(objPtr);
- objPtr->length = 0;
return TCL_OK;
--- 656,659 ----
***************
*** 726,729 ****
--- 724,730 ----
optSpec = objPtr->internalRep.twoPtrValue.ptr1;
FreeSpecs(optSpec);
+
+ objPtr->internalRep.twoPtrValue.ptr1;
+ objPtr->internalRep.twoPtrValue.ptr2;
}
|
