* the decr functions set the data now to nil

rtl/inc/astrings.inc

@@ -115,9 +115,7 @@ Begin
   If declocked(l^) then
     { Ref count dropped to zero }
     DisposeAnsiString (S);        { Remove...}
-{$ifndef decrrefnotnil}
   s:=nil;
-{$endif}        
 end;
 
 {$ifdef hascompilerproc}
@@ -878,7 +876,10 @@ end;
 
 {
   $Log$
-  Revision 1.44  2004-05-16 16:52:28  peter
+  Revision 1.45  2004-05-29 15:39:08  florian
+    * the decr functions set the data now to nil
+
+  Revision 1.44  2004/05/16 16:52:28  peter
     * small fix for 1.0.x
 
   Revision 1.43  2004/05/01 23:55:18  peter

rtl/inc/wstrings.inc

@@ -201,6 +201,7 @@ Begin
   If declocked(l^) then
     { Ref count dropped to zero }
     DisposeWideString (S);        { Remove...}
+  s:=nil;
 end;
 
 {$ifdef hascompilerproc}
@@ -1041,7 +1042,10 @@ end;
 
 {
   $Log$
-  Revision 1.37  2004-05-01 23:55:18  peter
+  Revision 1.38  2004-05-29 15:39:08  florian
+    * the decr functions set the data now to nil
+
+  Revision 1.37  2004/05/01 23:55:18  peter
     * replace strlenint with sizeint
 
   Revision 1.36  2004/04/29 18:59:43  peter