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

* support -Xg under linux

Browse Source 
git-svn-id: trunk@9811 -
This commit is contained in:
peter 2008-01-20 12:12:15 +00:00
parent 03de80785d
commit de918497ef
3 changed files with 29 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/finput.pas
View File

@ -150,6 +150,7 @@ interface
sharedlibfilename, { fullname of the shared libraryfile }
mapfilename, { fullname of the mapfile }
exefilename, { fullname of the exefile }
dbgfilename, { fullname of the debug info file }
mainsource : pshortstring; { name of the main sourcefile }
constructor create(const s:string);
destructor destroy;override;
@ -615,6 +616,7 @@ uses
stringdispose(sharedlibfilename);
stringdispose(mapfilename);
stringdispose(exefilename);
stringdispose(dbgfilename);
stringdispose(outputpath);
stringdispose(path);
stringdispose(paramfn);
@ -669,6 +671,7 @@ uses
sharedlibfilename:=stringdup(p+prefix+n+suffix+target_info.sharedlibext);
end;
mapfilename:=stringdup(p+n+'.map');
dbgfilename:=stringdup(p+n+'.dbg');
end;
@ -684,6 +687,7 @@ uses
staticlibfilename:=nil;
sharedlibfilename:=nil;
exefilename:=nil;
dbgfilename:=nil;
mapfilename:=nil;
outputpath:=nil;
paramfn:=nil;
@ -710,6 +714,7 @@ uses
stringdispose(staticlibfilename);
stringdispose(sharedlibfilename);
stringdispose(exefilename);
stringdispose(dbgfilename);
stringdispose(mapfilename);
stringdispose(outputpath);
stringdispose(path);

3
compiler/link.pas
View File

@ -37,7 +37,8 @@ interface
Type
TLinkerInfo=record
ExeCmd,
DllCmd : array[1..3] of string;
DllCmd,
ExtDbgCmd : array[1..3] of string;
ResName : string[100];
ScriptName : string[100];
ExtraOptions : TCmdStr;

24
compiler/systems/t_linux.pas
View File

@ -242,6 +242,9 @@ begin
ExeCmd[1]:=ExeCmd[1]+' $RES';
DllCmd[1]:='ld '+platform_select+' $OPT $INIT $FINI $SONAME -shared -L. -o $EXE $RES -E';
DllCmd[2]:='strip --strip-unneeded $EXE';
ExtDbgCmd[1]:='objcopy --only-keep-debug $EXE $DBG';
ExtDbgCmd[2]:='objcopy --add-gnu-debuglink=$DBG $EXE';
ExtDbgCmd[3]:='strip --strip-unneeded $EXE';
{$ifdef m68k}
{ experimental, is this correct? }
@ -1006,6 +1009,7 @@ end;
function TLinkerLinux.MakeExecutable:boolean;
var
i : longint;
binstr,
cmdstr : TCmdStr;
success : boolean;
@ -1024,7 +1028,8 @@ begin
DynLinkStr:='';
if (cs_link_staticflag in current_settings.globalswitches) then
StaticStr:='-static';
if (cs_link_strip in current_settings.globalswitches) then
if (cs_link_strip in current_settings.globalswitches) and
not(cs_link_separate_dbg_file in current_settings.globalswitches) then
StripStr:='-s';
if (cs_link_map in current_settings.globalswitches) then
StripStr:='-Map '+maybequoted(ChangeFileExt(current_module.exefilename^,'.map'));
@ -1059,7 +1064,22 @@ begin
success:=DoExec(FindUtil(utilsprefix+BinStr),CmdStr,true,false);
{ Remove ReponseFile }
{ Create external .dbg file with debuginfo }
if success and (cs_link_separate_dbg_file in current_settings.globalswitches) then
begin
for i:=1 to 3 do
begin
SplitBinCmd(Info.ExtDbgCmd[i],binstr,cmdstr);
Replace(cmdstr,'$EXE',maybequoted(current_module.exefilename^));
Replace(cmdstr,'$DBGFN',maybequoted(extractfilename(current_module.dbgfilename^)));
Replace(cmdstr,'$DBG',maybequoted(current_module.dbgfilename^));
success:=DoExec(FindUtil(utilsprefix+BinStr),CmdStr,true,false);
if not success then
break;
end;
end;
{ Remove ReponseFile }
if (success) and not(cs_link_nolink in current_settings.globalswitches) then
DeleteFile(outputexedir+Info.ResName);