Browse Source

* pass '-t bin' to ihxutil and the output file name after linking an Oric program

Nikolay Nikolov 2 months ago
parent
commit
20d01a4978
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/systems/t_oric.pas

+ 1 - 1
compiler/systems/t_oric.pas

@@ -337,7 +337,7 @@ end;
 
 function TLinkerOric.postprocessexecutable(const fn: string; isdll: boolean): boolean;
   begin
-    result:=DoExec(FindUtil(utilsprefix+'ihxutil'),' '+fn,true,false);
+    result:=DoExec(FindUtil(utilsprefix+'ihxutil'),' -t bin '+fn+' '+maybequoted(ScriptFixFileName(current_module.exefilename)),true,false);
   end;