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

* stabn writing code simplified

Browse Source 
* write 0 instead of "label-label" in stabn, arm thumb assemblers do not like "label-label", for other targets writing 0 should make no difference

git-svn-id: trunk@28539 -
This commit is contained in:
florian 2014-08-30 16:56:01 +00:00
parent 09728a9ae2
commit 64dafdb1de
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/dbgstabs.pas
View File

@ -1408,20 +1408,16 @@ implementation
if target_info.system in systems_dotted_function_names then if target_info.system in systems_dotted_function_names then
mangledname:='.'+mangledname; mangledname:='.'+mangledname;
// LBRAC // LBRAC
ss:=tostr(STABS_N_LBRAC)+',0,0,'+mangledname; if af_stabs_use_function_absolute_addresses in target_asm.flags then
if not(af_stabs_use_function_absolute_addresses in target_asm.flags) then ss:=tostr(STABS_N_LBRAC)+',0,0,'+mangledname
begin else
ss:=ss+'-'; ss:=tostr(STABS_N_LBRAC)+',0,0,0';
ss:=ss+mangledname;
end;
result.concat(Tai_stab.Create_ansistr(stab_stabn,ss)); result.concat(Tai_stab.Create_ansistr(stab_stabn,ss));
// RBRAC // RBRAC
ss:=tostr(STABS_N_RBRAC)+',0,0,'+stabsendlabel.name; ss:=tostr(STABS_N_RBRAC)+',0,0,'+stabsendlabel.name;
if not(af_stabs_use_function_absolute_addresses in target_asm.flags) then if not(af_stabs_use_function_absolute_addresses in target_asm.flags) then
begin ss:=ss+'-'+mangledname;
ss:=ss+'-';
ss:=ss+mangledname;
end;
result.concat(Tai_stab.Create_ansistr(stab_stabn,ss)); result.concat(Tai_stab.Create_ansistr(stab_stabn,ss));
{ the stabsendlabel must come after all other stabs for this } { the stabsendlabel must come after all other stabs for this }