Changeset 55 for branches/DelphiToC/Produce/UProducerC.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/UProducerC.pas (modified) (1 diff)

branches/DelphiToC/Produce/UProducerC.pas

@@ -115 +115 @@
   Emit('#define uint32 unsigned long');
   Emit('');
-  GenerateUses(Module.UsedModules);
-  GenerateCommonBlock(Module, '');
+  if Module is TModuleProgram then begin
+    GenerateUses(TModuleProgram(Module).UsedModules);
+    GenerateCommonBlock(TModuleProgram(Module).Body, '');
+  end;
 end;