Changeset 63 for trunk/Compiler/Target/Delphi/UProducerPascal.pas

Timestamp:

Jul 17, 2012, 10:54:18 AM (12 years ago)

Author:

chronos

Message:

• Fixed: Procedure/function header and body not paired properly.

File:

• trunk/Compiler/Target/Delphi/UProducerPascal.pas (modified) (2 diffs)

trunk/Compiler/Target/Delphi/UProducerPascal.pas

@@ -101 +101 @@
     Module.TargetFile := Module.Name + '.dpr';
     EmitLn('program ' + Name + ';');
+    EmitLn;
+    EnitLn('{$APPTYPE Console}');
     EmitLn;
     GenerateUses(UsedModules);
@@ -505 +507 @@
 end;
 
-
-
 end.