Changeset 68 for branches/Transpascal/Compiler/USourceCode.pas

Timestamp:

Oct 18, 2010, 2:14:52 PM (14 years ago)

Author:

george

Message:

• Modified: Advanced record parsing.

File:

• branches/Transpascal/Compiler/USourceCode.pas (modified) (4 diffs)

branches/Transpascal/Compiler/USourceCode.pas

@@ -15 +15 @@
 
   TNodeType = (ntNone, ntVariable, ntFunction, ntConstant, ntOperator);
+
+  TTypeVisibility = (tvPublic, tvPublished, tvPrivate, tvProtected);
 
   TValue = Variant; //array of Byte;
@@ -156 +158 @@
     Size: Integer;
     UsedType: TType;
+    Visibility: TTypeVisibility;
   end;
 
@@ -162 +165 @@
 
   TTypeRecord = class(TType)
-    Items: TObjectList; // TObjectList<TType>
+    CommonBlock: TCommonBlock;
     constructor Create;
     destructor Destroy; override;
@@ -714 +717 @@
 begin
   inherited;
-  Items := TObjectList.Create;
+  CommonBlock := TCommonBlock.Create;
 end;
 
 destructor TTypeRecord.Destroy;
 begin
-  Items.Free;
+  CommonBlock.Free;
   inherited Destroy;
 end;