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

Timestamp:

Aug 10, 2010, 1:48:38 PM (14 years ago)

Author:

george

Message:

Fix: View proper source file after click to error message.
Made partial changes to support unit interface and implementation sections.

File:

• branches/DelphiToC/Produce/UProducerPascal.pas (modified) (1 diff)

branches/DelphiToC/Produce/UProducerPascal.pas

@@ -84 +84 @@
 procedure TProducerPascal.GenerateModule(Module: TModule);
 begin
-  case Module.ModuleType of
-    mdProgram: Emit('program', False);
-    mdUnit: Emit('unit', False);
-    mdLibrary: Emit('library', False);
-    mdPackage: Emit('package', False);
-  end;
-  Emit(' ' + Module.Name + ';');
-  Emit('');
-  GenerateUses(Module.UsedModules);
-  GenerateCommonBlock(Module, '');
-  Emit('.', False);
+  if Module is TModuleProgram then
+  with TModuleProgram(Module) do begin
+    Emit('program', False);
+    Emit(' ' + Name + ';');
+    Emit('');
+    GenerateUses(UsedModules);
+    GenerateCommonBlock(Body, '');
+    Emit('.', False);
+  end else
+  if Module is TModuleUnit then Emit('unit', False)
+  else if Module is TModuleLibrary then Emit('library', False)
+  else if Module is TModulePackage then Emit('package', False);
 end;