From c536b532d0ca097579ba87c705f9418b7c46d4c8 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 29 Dec 2001 16:29:08 +0000
Subject: [PATCH]   * fixed stupid copy-paste bug

---
 compiler/tainst.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/compiler/tainst.pas b/compiler/tainst.pas
index 2642e83d70..7c0c771ee0 100644
--- a/compiler/tainst.pas
+++ b/compiler/tainst.pas
@@ -110,7 +110,7 @@ implementation
           top_ref:
             dispose(oper[i].ref);
           top_symbol:
-            dec(tasmsymbol(oper[0].sym).refs);
+            dec(tasmsymbol(oper[i].sym).refs);
         end;
         inherited destroy;
       end;
@@ -251,7 +251,10 @@ end.
 
 {
   $Log$
-  Revision 1.2  2001-12-29 15:28:57  jonas
+  Revision 1.3  2001-12-29 16:29:08  jonas
+    * fixed stupid copy-paste bug
+
+  Revision 1.2  2001/12/29 15:28:57  jonas
     * powerpc/cgcpu.pas compiles :)
     * several powerpc-related fixes
     * cpuasm unit is now based on common tainst unit