paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 15:50:30 +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;
inc(pbuf);
inc(result);
if (a=0) and (result>=len) then
break;
until false;
until (a=0) and (result>=len);
end;
@ -1654,23 +1652,15 @@ implementation
more: boolean;
pbuf : pbyte;
begin
more := true;
result:=0;
pbuf:=@buf;
repeat
b := a and $7f;
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);
more:=(result<len) or (a<>-(b shr 6));
pbuf^:=b or byte(more) shl 7;
inc(pbuf);
until not more;
end;