paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* 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

Browse Source
This commit is contained in:
Karoly Balogh 2022-02-14 15:33:36 +01:00
parent c74a6f4ca2
commit ff68e7b9de
2 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/scanner.pas
View File

@ -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;

2
compiler/systems/t_atari.pas
View File

@ -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);