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

* generate no uleb with differences for line information

Browse Source 
git-svn-id: branches/laksen/riscv_new@39490 -
This commit is contained in:
florian 2018-07-22 19:43:47 +00:00
parent c6b27bc225
commit f48203b66f
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/dbgdwarf.pas
View File

@ -3774,10 +3774,12 @@ implementation
asmline.concat(tai_comment.Create(strpnew('['+tostr(currfileinfo.line)+':'+tostr(currfileinfo.column)+']')));
if (prevlabel = nil) or
{ darwin's assembler cannot create an uleb128 of the difference }
{ between to symbols }
{ same goes for Solaris native assembler }
(target_info.system in systems_darwin) or
{ darwin's assembler cannot create an uleb128 of the difference
between to symbols
same goes for Solaris native assembler
... and riscv }
(target_info.system in systems_darwin+[system_riscv32_linux,system_riscv64_linux]) or
(target_asm.id=as_solaris_as) then
begin
asmline.concat(tai_const.create_8bit(DW_LNS_extended_op));