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

Timestamp:

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

Author:

george

Message:

• Modified: Advanced record parsing.

File:

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

branches/Transpascal/Compiler/Produce/UProducerC.pas

@@ -299 +299 @@
     Emit('{');
     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;