Changeset 77 for branches/Transpascal/Compiler/Produce/UProducerTreeView.pas

Timestamp:

Oct 22, 2010, 9:22:55 AM (14 years ago)

Author:

george

Message:

• Compiler producer for C language separated to GCC and Dynamic C dialect.
• Enhanced: Parse record functions body.

File:

• branches/Transpascal/Compiler/Produce/UProducerTreeView.pas (modified) (3 diffs)

branches/Transpascal/Compiler/Produce/UProducerTreeView.pas

@@ -227 +227 @@
     for I := 0 to Types.Count - 1 do
     with TType(Types[I]) do
-    if not System then AddNodeType(NewNode, TType(Types[I]));
+    if (not Internal) then AddNodeType(NewNode, TType(Types[I]));
   end;
 end;
@@ -265 +265 @@
   for I := 0 to Methods.Count - 1 do
   with TFunction(Methods[I]) do
-  if not System then begin
-    if HaveResult then
+  if (not Internal) then begin
+    if FunctionType = ftFunction then
       NewNode := TreeView.Items.AddChild(Node, 'function ' + Name)
       else NewNode := TreeView.Items.AddChild(Node, 'procedure ' + Name);
@@ -301 +301 @@
     for I := 0 to TypeRecord.CommonBlock.Types.Count - 1 do
     with TType(TypeRecord.CommonBlock.Types[I]) do
-    if not System then
+    if not Internal then
       AddNodeType(Node, TType(TypeRecord.CommonBlock.Types[I]));
   end;