Changeset 54 for branches/DelphiToC/Produce/UProducerC.pas

Timestamp:

Aug 10, 2010, 11:54:18 AM (14 years ago)

Author:

george

Message:

Added support for multiple source files and compilations for multiple modules in Project.pas

File:

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

branches/DelphiToC/Produce/UProducerC.pas

@@ -38 +38 @@
     IndentationLength: Integer;
     Indetation: Integer;
-    procedure Produce; override;
+    procedure Produce(Module: TModule; ProducedCode: TStringList); override;
     constructor Create;
     destructor Destroy; override;
@@ -119 +119 @@
 end;
 
-procedure TProducerC.Produce;
+procedure TProducerC.Produce(Module: TModule; ProducedCode: TStringList);
 begin
   inherited;
   TextSource.Clear;
-  GenerateProgram(ProgramCode);
+  GenerateModule(Module);
 end;