Changeset 50 for branches/DelphiToC/Produce/UProducerPascal.pas

Timestamp:

Aug 9, 2010, 3:05:26 PM (14 years ago)

Author:

george

Message:

Added support for loop for-to-do.
System types and functions are not generated to output code.

File:

• branches/DelphiToC/Produce/UProducerPascal.pas (modified) (2 diffs)

branches/DelphiToC/Produce/UProducerPascal.pas

@@ -78 +78 @@
 procedure TProducerPascal.GenerateModule(Module: TModule);
 begin
+  Emit('program ' + Module.Name + ';');
+  Emit('');
   GenerateUses(Module.UsedModules);
   GenerateCommonBlock(Module, '');
@@ -108 +110 @@
   for I := 0 to Functions.Count - 1 do
   with TFunction(Functions[I]) do
+  if not System then
   begin
     if HaveResult then