Changeset 77 for trunk/Compiler/Modules/Java
- Timestamp:
- Jun 4, 2024, 9:53:17 PM (6 months ago)
- Location:
- trunk/Compiler/Modules/Java
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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;
Note:
See TracChangeset
for help on using the changeset viewer.