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

Timestamp:

Aug 9, 2010, 2:24:24 PM (14 years ago)

Author:

george

Message:

Added support for setting cursor position to place of error code for error messages.

File:

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

branches/DelphiToC/Produce/UProducerPascal.pas

@@ -80 +80 @@
   GenerateUses(Module.UsedModules);
   GenerateCommonBlock(Module, '');
-  Emit(';', False);
+  Emit('.', False);
 end;
 
@@ -124 +124 @@
     Emit(Line + ';');
     GenerateBeginEnd(Code);
+    Emit(';', False);
     Emit('');
   end;