paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 11:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

sinclairql: map file generation support with vlink, inspired by a patch posted by Marcel Kilgus in qlforum.co.uk

Browse Source 
git-svn-id: trunk@47559 -
This commit is contained in:
Károly Balogh 2020-11-24 18:34:09 +00:00
parent 75eaca8ab4
commit ffa1b24f7e
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/systems/t_sinclairql.pas
View File

@ -85,7 +85,7 @@ begin
end
else
begin
ExeCmd[1]:='vlink -b rawseg -q $FLAGS $GCSECTIONS $OPT $STRIP -o $EXE -T $RES';
ExeCmd[1]:='vlink -b rawseg -q $FLAGS $GCSECTIONS $OPT $STRIP $MAP -o $EXE -T $RES';
end;
end;
end;
@ -213,6 +213,7 @@ var
DynLinkStr : string;
GCSectionsStr : string;
FlagsStr : string;
MapStr : string;
ExeName: string;
fd,fs: file;
fhdr: text;
@ -227,7 +228,10 @@ begin
GCSectionsStr:='';
DynLinkStr:='';
FlagsStr:='';
MapStr:='';
if (cs_link_map in current_settings.globalswitches) then
MapStr:='-M'+maybequoted(ScriptFixFilename(current_module.mapfilename));
if (cs_link_strip in current_settings.globalswitches) then
StripStr:='-s';
if rlinkpath<>'' then
@ -247,6 +251,7 @@ begin
Replace(cmdstr,'$OPT',Info.ExtraOptions);
Replace(cmdstr,'$EXE',maybequoted(ScriptFixFileName(ExeName)));
Replace(cmdstr,'$RES',maybequoted(ScriptFixFileName(outputexedir+Info.ResName)));
Replace(cmdstr,'$MAP',MapStr);
Replace(cmdstr,'$FLAGS',FlagsStr);
Replace(cmdstr,'$STRIP',StripStr);
Replace(cmdstr,'$GCSECTIONS',GCSectionsStr);