paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:29:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ PS1: show linking message

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-10-04 22:09:50 +03:00
parent 0c7aa1805d
commit 1850aa96b5
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/systems/t_ps1.pas
View File

@ -351,6 +351,9 @@ var
binstr, cmdstr, mapstr : TCmdStr; binstr, cmdstr, mapstr : TCmdStr;
success : boolean; success : boolean;
begin begin
if not (cs_link_nolink in current_settings.globalswitches) then
Message1(exec_i_linking,current_module.exefilename);
if (cs_link_map in current_settings.globalswitches) then if (cs_link_map in current_settings.globalswitches) then
mapstr:='-Map '+maybequoted(ChangeFileExt(current_module.exefilename,'.map')) mapstr:='-Map '+maybequoted(ChangeFileExt(current_module.exefilename,'.map'))
else else