Changeset 77 for trunk/Compiler
- Timestamp:
- Jun 4, 2024, 9:53:17 PM (5 months ago)
- Location:
- trunk/Compiler
- Files:
-
- 12 added
- 1 deleted
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Compiler/Compiler.pas
r75 r77 193 193 FreeAndNil(Executors); 194 194 FreeAndNil(Convertors); 195 inherited; 195 196 end; 196 197 … … 223 224 Analyzer.OnGetSource(ExtractFileName(Analyzer.FileName), Analyzer.SourceCode2); 224 225 Analyzer.Process; 225 //ShowMessage(IntToHex(Integer(Addr(Analyzer.OnGetSource)), 8));226 226 Analyzer.ParseModule(AbstractCode); 227 227 end else raise Exception.Create(SNothingToAnalyze); -
trunk/Compiler/Modules/ASM8051/ProducerASM8051.pas
r75 r77 45 45 implementation 46 46 47 48 47 { TAssemblerLine } 49 48 … … 71 70 NewLine.Operand2 := Operand2; 72 71 end; 73 74 72 75 73 (* … … 113 111 destructor TProducerAsm8051.Destroy; 114 112 begin 115 AssemblyCode.Free;113 FreeAndNil(AssemblyCode); 116 114 inherited; 117 115 end; -
trunk/Compiler/Modules/GCC/ModuleGCC.pas
r75 r77 36 36 destructor TModuleGCC.Destroy; 37 37 begin 38 inherited Destroy;38 inherited; 39 39 end; 40 40 -
trunk/Compiler/Modules/GCC/ProducerGCC.pas
r75 r77 4 4 5 5 uses 6 SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdCtrls,SourceCodePascal, Producer, StrUtils;6 SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, 7 SourceCodePascal, Producer, StrUtils; 8 8 9 9 type … … 46 46 end; 47 47 48 48 49 implementation 49 50 … … 64 65 destructor TProducerGCCC.Destroy; 65 66 begin 66 TextSource.Free;67 FreeAndNil(TextSource); 67 68 inherited; 68 69 end; … … 153 154 end; 154 155 155 procedure TProducerGCCC.GenerateFunctions(Functions: TFunctions; Prefix: string156 );156 procedure TProducerGCCC.GenerateFunctions(Functions: TFunctions; 157 Prefix: string = ''); 157 158 var 158 159 I: Integer; -
trunk/Compiler/Modules/Java/ModuleJava.pas
r75 r77 4 4 5 5 uses 6 Classes, SysUtils, ModularSystem, SourceConvertor ;6 Classes, SysUtils, ModularSystem, SourceConvertor, TargetJava; 7 7 8 8 type … … 10 10 11 11 TModuleJava = class(TModule) 12 Target: TTargetJava; 12 13 constructor Create(AOwner: TComponent); override; 13 14 procedure DoInstall; override; … … 35 36 procedure TModuleJava.DoInstall; 36 37 begin 38 Target := TTargetJava.Create; 39 with TCompilerAPI(API) do begin 40 RegisterTarget(TTargetJava); 41 end; 37 42 inherited; 38 43 end; … … 40 45 procedure TModuleJava.DoUninstall; 41 46 begin 47 with TCompilerAPI(API) do begin 48 UnregisterTarget(TTargetJava); 49 end; 42 50 inherited; 43 51 end; -
trunk/Compiler/TranspascalCompiler.lpk
r75 r77 10 10 <PathDelim Value="\"/> 11 11 <SearchPaths> 12 <OtherUnitFiles Value="Analyze;Target;Target\Interpretter;Target\ASM8051;Target\Java;Target\GCC;Target\PHP;Target\Delphi;Target\Dynamic C;Target\XML;Target\NASM;Modules\Pascal;Modules\GCC;Modules\ASM8051;Modules\Brainfuck;Modules\Interpretter;Modules\Delphi;Modules\PHP;Modules\Java "/>12 <OtherUnitFiles Value="Analyze;Target;Target\Interpretter;Target\ASM8051;Target\Java;Target\GCC;Target\PHP;Target\Delphi;Target\Dynamic C;Target\XML;Target\NASM;Modules\Pascal;Modules\GCC;Modules\ASM8051;Modules\Brainfuck;Modules\Interpretter;Modules\Delphi;Modules\PHP;Modules\Java;Modules\XML;Modules\DynamicC;Modules\NASM"/> 13 13 <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> 14 14 </SearchPaths> … … 25 25 </CompilerOptions> 26 26 <Version Minor="1"/> 27 <Files Count=" 28">27 <Files Count="31"> 28 28 <Item1> 29 29 <Filename Value="Compiler.pas"/> … … 55 55 </Item7> 56 56 <Item8> 57 <Filename Value=" Target\Dynamic C\ProducerDynamicC.pas"/>58 <UnitName Value="Producer DynamicC"/>57 <Filename Value="Modules\ASM8051\ProducerASM8051.pas"/> 58 <UnitName Value="ProducerASM8051"/> 59 59 </Item8> 60 60 <Item9> 61 <Filename Value="Modules\ASM8051\ ProducerASM8051.pas"/>62 <UnitName Value=" ProducerASM8051"/>61 <Filename Value="Modules\ASM8051\TargetASM8051.pas"/> 62 <UnitName Value="TargetASM8051"/> 63 63 </Item9> 64 64 <Item10> 65 <Filename Value="Modules\ ASM8051\TargetASM8051.pas"/>66 <UnitName Value="Target ASM8051"/>65 <Filename Value="Modules\GCC\TargetGCC.pas"/> 66 <UnitName Value="TargetGCC"/> 67 67 </Item10> 68 68 <Item11> 69 <Filename Value="Modules\GCC\ TargetGCC.pas"/>70 <UnitName Value=" TargetGCC"/>69 <Filename Value="Modules\GCC\ProducerGCC.pas"/> 70 <UnitName Value="ProducerGCC"/> 71 71 </Item11> 72 72 <Item12> 73 <Filename Value="Modules\ GCC\ProducerGCC.pas"/>74 <UnitName Value="Producer GCC"/>73 <Filename Value="Modules\Delphi\ProducerDelphi.pas"/> 74 <UnitName Value="ProducerDelphi"/> 75 75 </Item12> 76 76 <Item13> 77 <Filename Value="Modules\Delphi\ ProducerDelphi.pas"/>78 <UnitName Value=" ProducerDelphi"/>77 <Filename Value="Modules\Delphi\ModuleDelphi.pas"/> 78 <UnitName Value="ModuleDelphi"/> 79 79 </Item13> 80 80 <Item14> 81 <Filename Value="Modules\ Delphi\ModuleDelphi.pas"/>82 <UnitName Value="Module Delphi"/>81 <Filename Value="Modules\Interpretter\ModuleInterpretter.pas"/> 82 <UnitName Value="ModuleInterpretter"/> 83 83 </Item14> 84 84 <Item15> 85 <Filename Value=" Target\PHP\TargetPHP.pas"/>86 <UnitName Value=" TargetPHP"/>85 <Filename Value="Modules\Pascal\ModulePascal.pas"/> 86 <UnitName Value="ModulePascal"/> 87 87 </Item15> 88 88 <Item16> 89 <Filename Value=" Target\Java\TargetJava.pas"/>90 <UnitName Value=" TargetJava"/>89 <Filename Value="CompilerAPI.pas"/> 90 <UnitName Value="CompilerAPI"/> 91 91 </Item16> 92 92 <Item17> 93 <Filename Value=" Target\XML\TargetXML.pas"/>94 <UnitName Value=" TargetXML"/>93 <Filename Value="Modules\GCC\ModuleGCC.pas"/> 94 <UnitName Value="ModuleGCC"/> 95 95 </Item17> 96 96 <Item18> 97 <Filename Value=" Modules\Interpretter\ModuleInterpretter.pas"/>98 <UnitName Value=" ModuleInterpretter"/>97 <Filename Value="SourceConvertor.pas"/> 98 <UnitName Value="SourceConvertor"/> 99 99 </Item18> 100 100 <Item19> 101 <Filename Value=" Target\NASM\TargetNASM.pas"/>102 <UnitName Value=" TargetNASM"/>101 <Filename Value="Modules\Brainfuck\ModuleBrainfuck.pas"/> 102 <UnitName Value="ModuleBrainfuck"/> 103 103 </Item19> 104 104 <Item20> 105 <Filename Value="Modules\P ascal\ModulePascal.pas"/>106 <UnitName Value="ModuleP ascal"/>105 <Filename Value="Modules\PHP\ModulePHP.pas"/> 106 <UnitName Value="ModulePHP"/> 107 107 </Item20> 108 108 <Item21> 109 <Filename Value=" CompilerAPI.pas"/>110 <UnitName Value=" CompilerAPI"/>109 <Filename Value="Modules\Java\ModuleJava.pas"/> 110 <UnitName Value="ModuleJava"/> 111 111 </Item21> 112 112 <Item22> 113 <Filename Value="Modules\ GCC\ModuleGCC.pas"/>114 <UnitName Value="Module GCC"/>113 <Filename Value="Modules\ASM8051\ModuleASM8051.pas"/> 114 <UnitName Value="ModuleASM8051"/> 115 115 </Item22> 116 116 <Item23> 117 <Filename Value=" SourceConvertor.pas"/>118 <UnitName Value=" SourceConvertor"/>117 <Filename Value="Modules\Java\TargetJava.pas"/> 118 <UnitName Value="TargetJava"/> 119 119 </Item23> 120 120 <Item24> 121 <Filename Value="Modules\ Brainfuck\ModuleBrainfuck.pas"/>122 <UnitName Value=" ModuleBrainfuck"/>121 <Filename Value="Modules\PHP\TargetPHP.pas"/> 122 <UnitName Value="TargetPHP"/> 123 123 </Item24> 124 124 <Item25> 125 <Filename Value="Modules\ PHP\ModulePHP.pas"/>126 <UnitName Value="Module PHP"/>125 <Filename Value="Modules\XML\ModuleXML.pas"/> 126 <UnitName Value="ModuleXML"/> 127 127 </Item25> 128 128 <Item26> 129 <Filename Value="Modules\ Java\ModuleJava.pas"/>130 <UnitName Value=" ModuleJava"/>129 <Filename Value="Modules\XML\TargetXML.pas"/> 130 <UnitName Value="TargetXML"/> 131 131 </Item26> 132 132 <Item27> 133 <Filename Value="Modules\ ASM8051\ModuleASM8051.pas"/>134 <UnitName Value="Module ASM8051"/>133 <Filename Value="Modules\DynamicC\ModuleDynamicC.pas"/> 134 <UnitName Value="ModuleDynamicC"/> 135 135 </Item27> 136 136 <Item28> 137 <Filename Value=" Target\GCC\ProducerGCC.pas"/>138 <UnitName Value="Producer GCC"/>137 <Filename Value="Modules\DynamicC\ProducerDynamicC.pas"/> 138 <UnitName Value="ProducerDynamicC"/> 139 139 </Item28> 140 <Item29> 141 <Filename Value="Modules\NASM\TargetNASM.pas"/> 142 <UnitName Value="TargetNASM"/> 143 </Item29> 144 <Item30> 145 <Filename Value="Modules\DynamicC\TargetDynamicC.pas"/> 146 <UnitName Value="TargetDynamicC"/> 147 </Item30> 148 <Item31> 149 <Filename Value="Modules\NASM\ModuleNASM.pas"/> 150 <UnitName Value="ModuleNASM"/> 151 </Item31> 140 152 </Files> 141 153 <CompatibilityMode Value="True"/> -
trunk/Compiler/TranspascalCompiler.pas
r75 r77 10 10 uses 11 11 Compiler, SourceCodePascal, Producer, Analyzer, Target, Executor, 12 AnalyzerPascal, Producer DynamicC, ProducerASM8051, TargetASM8051, TargetGCC,13 Producer GCC, ProducerDelphi, ModuleDelphi, TargetPHP, TargetJava, TargetXML,14 Module Interpretter, TargetNASM, ModulePascal, CompilerAPI, ModuleGCC,15 SourceConvertor, ModuleBrainfuck, ModulePHP, ModuleJava, ModuleASM8051,16 LazarusPackageIntf;12 AnalyzerPascal, ProducerASM8051, TargetASM8051, TargetGCC, ProducerGCC, 13 ProducerDelphi, ModuleDelphi, ModuleInterpretter, ModulePascal, CompilerAPI, 14 ModuleGCC, SourceConvertor, ModuleBrainfuck, ModulePHP, ModuleJava, 15 ModuleASM8051, TargetJava, TargetPHP, ModuleXML, TargetXML, ModuleDynamicC, 16 ProducerDynamicC, TargetNASM, TargetDynamicC, ModuleNASM, LazarusPackageIntf; 17 17 18 18 implementation
Note:
See TracChangeset
for help on using the changeset viewer.