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

Timestamp:

Oct 18, 2010, 8:53:48 AM (14 years ago)

Author:

george

Message:

Added: Base parsing of class, pointer and enumeration.

File:

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

branches/Transpascal/Project/System.pas

@@ -4 +4 @@
 
 type
-  TType = internal;
-  Void = internal;
-  Byte = internal;
-  ShortInt = internal;
-  Word = internal;
-  SmallInt = internal;
-  Cardinal = internal;
-  DWord = Cardinal;
-  Integer = internal;
-  QWord = internal;
-  Int64 = internal;
-  Char = internal;
+  Void = type;
+  Ordinal = type(Void); 
+  Float = type(Void); 
+  Boolean = (False, True);
+  
+  // Ordinal types
+  Byte = type(Ordinal);
+  ShortInt = type(Ordinal);
+  Word = type(Ordinal);
+  SmallInt = type(Ordinal); 
+  Cardinal = type(Ordinal); 
+  DWord = Cardinal; 
+  LongWord = Cardinal; 
+  Integer = type(Ordinal); 
+  LongInt = Integer; 
+  QWord = type(Ordinal); 
+  Int64 = type(Ordinal); 
+  Char = type(Ordinal); 
+  
+  // Float types
+  Real = type(Float); 
+  Single = type(Float); 
+  Double = type(Float); 
+  Extended = type(Float);
+  
   String = array of Char;
   Pointer = ^Void;
-  Ordinal = (Byte, ShortInt, Word, SmallInt, Cardinal, DWord, Integer, QWord, Int64, Char);
-  Float = (Single, Double, Extended)
   TObject = class;
 
@@ -42 +53 @@
 procedure WriteLn; internal;
 
+procedure Move(const Source: type; var Dest: type; Count: Integer);
+procedure FillChar(var Dest: type; Count: Integer; Value: Byte);
   
 implementation