[Ooc-checkins] ooc2/lib/src/ADT/Object Storage.Mod,1.18,1.19

[Michael v. A. <mv...@us...>]

Update of /cvsroot/ooc/ooc2/lib/src/ADT/Object
In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv20353/lib/src/ADT/Object

Modified Files:
	Storage.Mod 
Log Message:
Use SYSTEM.NEW instead of NEW to allocate non-standard strings.


Index: Storage.Mod
===================================================================
RCS file: /cvsroot/ooc/ooc2/lib/src/ADT/Object/Storage.Mod,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- Storage.Mod	21 Nov 2004 20:31:44 -0000	1.18
+++ Storage.Mod	27 Jun 2006 19:11:38 -0000	1.19
@@ -1,7 +1,7 @@
 (*	$Id$	*)
 MODULE ADT:Object:Storage;
 (*  Implements a framework for persistent objects.
-    Copyright (C) 2000, 2001, 2003, 2004  Michael van Acken
+    Copyright (C) 2000, 2001, 2003, 2004, 2006  Michael van Acken
 
     This module is free software; you can redistribute it and/or
     modify it under the terms of the GNU Lesser General Public License
@@ -196,7 +196,7 @@
         module := RT0.ThisModule (r. name);
         IF (module = NIL) THEN
           len := Strings.Length (r. name)+1;
-          NEW (r. typeTab[tref]. moduleName, len);
+          SYSTEM.NEW (r. typeTab[tref]. moduleName, len);
           FOR i := 0 TO len-1 DO
             r.typeTab[tref].moduleName[i] := r.name[i];
           END;
@@ -209,7 +209,7 @@
         END;
         IF (tp = NIL) THEN
           len := Strings.Length (r. name)+1;
-          NEW (r. typeTab[tref]. typeName, len);
+          SYSTEM.NEW (r. typeTab[tref]. typeName, len);
           FOR i := 0 TO len-1 DO
             r.typeTab[tref].typeName[i] := r.name[i];
           END;