Changeset 70 for trunk/Compiler/UCompiler.pas
- Timestamp:
- Jul 31, 2012, 4:06:07 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Compiler/UCompiler.pas
r68 r70 6 6 7 7 uses 8 SysUtils, Variants, Classes, Contnrs, FileUtil, 8 SysUtils, Variants, Classes, Contnrs, FileUtil, UModularSystem, 9 9 Dialogs, USourceCode, UProducer, UAnalyzer, SpecializedList, UTarget; 10 10 … … 49 49 TargetFolder: string; 50 50 Targets: TListTarget; 51 Analyzers: TListAnalyzer; 51 52 MainSource: string; 53 ModuleManager: TModuleManager; 52 54 procedure ErrorMessage(Text: string; Position: TPoint; FileName: string); 53 55 constructor Create; virtual; … … 162 164 constructor TCompiler.Create; 163 165 begin 164 Analyzer := TAnalyzerPascal.Create;165 166 Targets := TListTarget.Create; 166 167 RegisterTargets(Self);168 169 167 AbstractCode := TProgram.Create; 170 168 ErrorMessages := TListObject.Create; 171 169 CompiledFolder := 'Compiled'; 170 ModuleManager := TModuleManager.Create(nil); 172 171 end; 173 172 … … 180 179 destructor TCompiler.Destroy; 181 180 begin 181 ModuleManager.Free; 182 182 Analyzer.Free; 183 183 AbstractCode.Free;
Note:
See TracChangeset
for help on using the changeset viewer.