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

Add explicit '.set nompis16' at front of stabs debug information to solve bug report 32138

Browse Source 
git-svn-id: trunk@36781 -
This commit is contained in:
pierre 2017-07-24 07:31:31 +00:00
parent 90ed130750
commit 6f6139609d
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/dbgstabs.pas
View File

@ -148,6 +148,11 @@ interface
implementation
uses
{$ifdef MIPS}
{ we need taicpu definition to add .set nomips16 pseudo-instruction
before any procedure/function reference }
aasmcpu,
{$endif}
SysUtils,cutils,cfileutl,
globals,globtype,verbose,constexp,
defutil, cgutils, parabase,
@ -1814,6 +1819,11 @@ implementation
new_section(current_asmdata.asmlists[al_start],sec_code,make_mangledname('DEBUGSTART',current_module.localsymtable,''),sizeof(pint),secorder_begin);
if not(target_info.system in systems_darwin) then
current_asmdata.asmlists[al_start].concat(tai_symbol.Createname_global(make_mangledname('DEBUGSTART',current_module.localsymtable,''),AT_METADATA,0,voidpointertype));
{$ifdef MIPS}
{ at least mipsel needs an explicit '.set nomips16' before any reference to
procedure/function, see bug report 32138 }
current_asmdata.asmlists[al_start].concat(Taicpu.op_none(A_P_SET_NOMIPS16));
{$endif MIPS}
current_asmdata.asmlists[al_start].concat(Tai_stab.Create_str(stabsdir,'"'+BsToSlash(FixPath(getcurrentdir,false))+'",'+
base_stabs_str(stabs_n_sourcefile,'0','0',hlabel.name)));
current_asmdata.asmlists[al_start].concat(Tai_stab.Create_str(stabsdir,'"'+BsToSlash(FixPath(infile.path,false))+FixFileName(infile.name)+'",'+