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

* fixed (u)leb reading functions

Browse Source 
git-svn-id: branches/debug_eh@40334 -
This commit is contained in:
Jonas Maebe 2018-11-17 09:40:30 +00:00
parent 64ba860478
commit 31898da437
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/psabieh.inc
View File

@ -161,7 +161,7 @@ function fpc_read_uleb128 (p: PByte; out val: PTRUInt): PByte;
inc(p);
res:=res or (PtrUInt(b and $7f) shl shift);
inc(shift,7);
until (b and $80)<>0;
until (b and $80)=0;
val:=res;
result:=p;
@ -181,7 +181,7 @@ function fpc_read_sleb128 (p: PByte; out val: PtrInt): PByte;
inc(p);
res:=res or (PtrUInt(b and $7f) shl shift);
inc(shift,7);
until (b and $80)<>0;
until (b and $80)=0;
if (shift<8*(sizeof(res))) and
((b and $40)<>0) then
res:=res or -(PtrUInt(1) shl shift);