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

* patch by Rika: improve EncodeUleb128/EncodeSleb128, part of #39750

Browse Source
This commit is contained in:
florian 2022-06-05 20:51:47 +02:00
parent 7ddeaa54c0
commit 51ab0d759f
1 changed files with 4 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/cutils.pas
View File

@ -1642,9 +1642,7 @@ implementation
pbuf^:=b; pbuf^:=b;
inc(pbuf); inc(pbuf);
inc(result); inc(result);
if (a=0) and (result>=len) then until (a=0) and (result>=len);
break;
until false;
end; end;
@ -1654,23 +1652,15 @@ implementation
more: boolean; more: boolean;
pbuf : pbyte; pbuf : pbyte;
begin begin
more := true;
result:=0; result:=0;
pbuf:=@buf; pbuf:=@buf;
repeat repeat
b := a and $7f; b := a and $7f;
a := SarInt64(a, 7); a := SarInt64(a, 7);
if (result+1>=len) and (
((a = 0) and (b and $40 = 0)) or
((a = -1) and (b and $40 <> 0))
) then
more := false
else
b := b or $80;
pbuf^:=b;
inc(pbuf);
inc(result); inc(result);
more:=(result<len) or (a<>-(b shr 6));
pbuf^:=b or byte(more) shl 7;
inc(pbuf);
until not more; until not more;
end; end;