[naviserver-commits] naviserver/nsd tclobjv.c,1.4,1.5

[Zoran V. <vas...@us...>]

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;
  }