Changeset 77 for branches/Transpascal/Compiler/Produce/UProducerPascal.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/UProducerPascal.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 + ';');