From 976bb457b4530f93c36d0aa19386a428ce2b41ce Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Fri, 3 Feb 2006 12:37:50 +0000
Subject: [PATCH]   * fixed WriteDecodedSleb128

git-svn-id: trunk@2413 -
---
 compiler/aggas.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/aggas.pas b/compiler/aggas.pas
index da22000c02..234bb74ce2 100644
--- a/compiler/aggas.pas
+++ b/compiler/aggas.pas
@@ -313,9 +313,9 @@ implementation
           if (neg) then
             a := a or -(1 shl (size - 7));
           if (((a = 0) and
-               (a and $40 = 0)) or
+               (b and $40 = 0)) or
               ((a = -1) and
-               (a and $40 <> 0))) then
+               (b and $40 <> 0))) then
             more := false
           else
             b := b or $80;