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