Changeset 68 for branches/Transpascal/Compiler/Produce/UProducerPascal.pas

Timestamp:

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

Author:

george

Message:

• Modified: Advanced record parsing.

File:

• branches/Transpascal/Compiler/Produce/UProducerPascal.pas (modified) (1 diff)

branches/Transpascal/Compiler/Produce/UProducerPascal.pas

@@ -109 +109 @@
     Emit(AType.Name + ' ' + AssignSymbol + ' record');
     Inc(Indetation);
-    for I := 0 to TTypeRecord(AType).Items.Count - 1 do begin
-      GenerateType(TType(TTypeRecord(AType).Items[I]));
+    for I := 0 to TTypeRecord(AType).CommonBlock.Types.Count - 1 do begin
+      GenerateType(TType(TTypeRecord(AType).CommonBlock.Types[I]));
       Emit(';');
     end;