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

Timestamp:

Oct 15, 2010, 10:04:55 AM (14 years ago)

Author:

george

Message:

• Modified: Compiled code syntax highlighting.

File:

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

branches/Transpascal/Project/System.pas

@@ -3 +3 @@
 interface
 
+const
+  MemoryManagerSizeType: TType = Integer;
+  
 type
+  TType = internal;
   Void = internal;
   Byte = internal;
@@ -16 +20 @@
   Char = internal;
   String = array of Char;
+  Pointer = ^Void;
+  Ordinal = (Byte, ShortInt, Word, SmallInt, Cardinal, DWord, Integer, QWord, Int64, Char);
+  Float = (Single, Double, Extended)
+  TObject = class;
 
+  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
+    MemoryManager: TMemoryManager; 
+  end;
 
 procedure Exit; internal;
@@ -23 +42 @@
 procedure WriteLn; internal;
 
+  
 implementation
 
+uses
+  MemoryManager;
+
+initialization
+
+finalization
 
 end.