From 31898da437866014b4a4e5930a67e0b0bb7dc66b Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 17 Nov 2018 09:40:30 +0000
Subject: [PATCH]   * fixed (u)leb reading functions

git-svn-id: branches/debug_eh@40334 -
---
 rtl/inc/psabieh.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/psabieh.inc b/rtl/inc/psabieh.inc
index cab32202c7..ad161c6448 100644
--- a/rtl/inc/psabieh.inc
+++ b/rtl/inc/psabieh.inc
@@ -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);