Changeset 77 for branches/Transpascal/Compiler/Produce

Timestamp:

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

Author:

george

Message:

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

Location:

branches/Transpascal/Compiler/Produce

Files:

• UProducerDynamicC.pas (added)
• UProducerGCCC.pas (added)
• UProducerPascal.pas (modified) (3 diffs)
• UProducerTreeView.pas (modified) (3 diffs)

branches/Transpascal/Compiler/Produce/UProducerPascal.pas

@@ -144 +144 @@
     for I := 0 to Types.Count - 1 do
     with TType(Types[I]) do
-    if (not System) then begin
+    if (not Internal) then begin
       GenerateType(TType(Types[I]), '=');
       Emit(';');
@@ -178 +178 @@
   for I := 0 to Functions.Count - 1 do
   with TFunction(Functions[I]) do
-  if not System then
+  if not Internal then
   begin
-    if HaveResult then
+    if FunctionType = ftFunction then
       Line := 'function ' + Name
       else Line := 'procedure ' + Name;
@@ -192 +192 @@
       Line := Line + ')';
     end;
-    if HaveResult and Assigned(ResultType) then
+    if (FunctionType = ftFunction) and Assigned(ResultType) then
       Line := Line + ': ' + ResultType.Name;
     Emit(Line + ';');

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;