Changeset 161 for trunk/Target/TargetJava.pas

Timestamp:

Aug 20, 2024, 12:20:49 AM (5 weeks ago)

Author:

chronos

Message:

• Fixed: All targets compilation and run.

File:

• trunk/Target/TargetJava.pas (modified) (4 diffs)

trunk/Target/TargetJava.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, FileUtil, Target, BFTarget, Dialogs;
+  Classes, SysUtils, FileUtil, Target, BFTarget, Dialogs, LazFileUtils;
 
 type
@@ -14 +14 @@
     function GetMemoryCell: string;
   public
+    function GetRunParams: TStringArray; override;
     constructor Create; override;
     procedure Compile; override;
@@ -30 +31 @@
   FSourceExtension := '.java';
   FCompiledExtension := '.class';
-  FRunExtension := '.class';
   FImageIndex := 24;
   FCapabilities := [tcCompile, tcRun];
@@ -51 +51 @@
     Result := Result + ' - ' + IntToStr(Abs(FProgram[FProgramIndex].RelIndex));
   Result := Result + ']';
+end;
+
+function TTargetJava.GetRunParams: TStringArray;
+begin
+  Result := ['-classpath', ExtractFileDir(GetCompileFileName), ExtractFileNameOnly(GetCompileFileName)];
 end;