Changeset 64 for branches/Transpascal/Project/System.pas

Timestamp:

Oct 15, 2010, 2:13:42 PM (14 years ago)

Author:

george

Message:

• Fixed: Focus message position in code.

File:

• branches/Transpascal/Project/System.pas (modified) (2 diffs)

branches/Transpascal/Project/System.pas

@@ -3 +3 @@
 interface
 
-const
-  MemoryManagerSizeType: TType = Integer;
-  
 type
   TType = internal;
@@ -25 +22 @@
   TObject = class;
 
+const
+  MemoryManagerSizeType: TType = Integer;
+  
+type
+  TMemoryManager = record
+    function Alloc(Size: Integer): Pointer;
+    function Free(P: Pointer): Integer;
+    function Realloc(P: Pointer; Size: Integer): Pointer;
+  end;
   PMemoryManager = ^TMemoryManager;
-  TMemoryManager<TSizeType: Ordinal> = record
-    GetMem: function(Size: TSizeType): Pointer;
-    FreeMem: function(P: Pointer): TSizeType;
-    ReallocMem: function(P: Pointer; Size: TSizeType): Pointer;
-  end;
-  TSystemMemoryManager = TMemoryManager<MemoryManagerSizeType>;
   
   TSystem = record