فهرست منبع

* m68k-atari: override the exeext globally, not just at the final step of the linking. this fixes 'Linking <exename>.ttp' messages, when in fact <exename>.prg gets generated

Karoly Balogh 3 سال پیش
والد
کامیت
ff68e7b9de
2فایلهای تغییر یافته به همراه17 افزوده شده و 2 حذف شده
  1. 17 0
      compiler/scanner.pas
  2. 0 2
      compiler/systems/t_atari.pas

+ 17 - 0
compiler/scanner.pas

@@ -771,6 +771,23 @@ implementation
               end;
           end;
 {$endif i8086}
+{$ifdef m68k}
+        if target_info.system in [system_m68k_atari] then
+          case NewAppType of
+            app_cui:
+              begin
+                targetinfos[target_info.system]^.exeext:='.ttp';
+                target_info.exeext:='.ttp';
+              end;
+            app_gui:
+              begin
+                targetinfos[target_info.system]^.exeext:='.prg';
+                target_info.exeext:='.prg';
+              end;
+            else
+              ;
+          end;
+{$endif m68k}
         if apptype in [app_cui,app_com] then
           undef_system_macro('CONSOLE');
         apptype:=NewAppType;

+ 0 - 2
compiler/systems/t_atari.pas

@@ -308,8 +308,6 @@ begin
     end;
 
   ExeName:=current_module.exefilename;
-  if apptype = app_gui then
-    Replace(ExeName,target_info.exeext,'.prg');
 
   { Call linker }
   SplitBinCmd(Info.ExeCmd[1],BinStr,CmdStr);