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

Avoid unsupported .uleb128 with diff of two sympbols for native solaris assembler

Browse Source 
git-svn-id: trunk@32200 -
This commit is contained in:
pierre 2015-10-30 13:38:03 +00:00
parent f380b80b3e
commit 6d0c5b234b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/dbgdwarf.pas
View File

@ -3472,7 +3472,9 @@ implementation
if (prevlabel = nil) or if (prevlabel = nil) or
{ darwin's assembler cannot create an uleb128 of the difference } { darwin's assembler cannot create an uleb128 of the difference }
{ between to symbols } { between to symbols }
(target_info.system in systems_darwin) then { same goes for Solaris native assembler }
(target_info.system in systems_darwin) or
(target_asm.id=as_solaris_as) then
begin begin
asmline.concat(tai_const.create_8bit(DW_LNS_extended_op)); asmline.concat(tai_const.create_8bit(DW_LNS_extended_op));
asmline.concat(tai_const.create_uleb128bit(1+sizeof(pint))); asmline.concat(tai_const.create_uleb128bit(1+sizeof(pint)));