Changeset 68 for branches/Transpascal/Compiler/Produce

Timestamp:

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

Author:

george

Message:

• Modified: Advanced record parsing.

Location:

branches/Transpascal/Compiler/Produce

Files:

• UProducerC.pas (modified) (1 diff)
• UProducerPascal.pas (modified) (1 diff)
• UProducerTreeView.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;

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;

branches/Transpascal/Compiler/Produce/UProducerTreeView.pas

@@ -298 +298 @@
   I: Integer;
 begin
-  if TypeRecord.Items.Count > 0 then begin
-    for I := 0 to TypeRecord.Items.Count - 1 do
-    with TType(TypeRecord.Items[I]) do
+  if TypeRecord.CommonBlock.Types.Count > 0 then begin
+    for I := 0 to TypeRecord.CommonBlock.Types.Count - 1 do
+    with TType(TypeRecord.CommonBlock.Types[I]) do
     if not System then
-      AddNodeType(Node, TType(TypeRecord.Items[I]));
+      AddNodeType(Node, TType(TypeRecord.CommonBlock.Types[I]));
   end;
 end;