瀏覽代碼

pas2js: use exename instead of paramstr 0, to search pas2js.cfg in exe location

mattias 3 年之前
父節點
當前提交
0f43c7b229
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      utils/pas2js/pas2js.pp

+ 1 - 1
utils/pas2js/pas2js.pp

@@ -42,7 +42,7 @@ begin
     for i:=1 to ParamCount do
       ParamList.Add(Params[i]);
     try
-      Compiler.Run(ParamStr(0),GetCurrentDirPJ,ParamList);
+      Compiler.Run(ExeName,GetCurrentDirPJ,ParamList);
     except
       on E: ECompilerTerminate do ;
       on E: Exception do