From 7c516d9404747fec0c70dbffab88f18267a00b99 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sat, 1 Apr 2000 11:45:34 +0000
Subject: [PATCH]   * fixed addref/decref for records, the data/type was read
 in the     wrong order

---
 rtl/i386/rttip.inc | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/rtl/i386/rttip.inc b/rtl/i386/rttip.inc
index 33663bf046..5e03f59d66 100644
--- a/rtl/i386/rttip.inc
+++ b/rtl/i386/rttip.inc
@@ -241,13 +241,13 @@ asm
 .LMyRecordAddRefLoop:
         decl    %edx
         jl      .LExitAddRef
+// Push type
+        pushl    (%ebx)
+        addl     $4,%ebx
 // Calculate data
         movl    Data,%eax
         addl    (%ebx),%eax
         addl     $4,%ebx
-// Push type
-        pushl    (%ebx)
-        addl     $4,%ebx
 // push data
         pushl    %eax
         call    ADDREF
@@ -327,13 +327,13 @@ asm
 .LMyRecordDecRefLoop:
         decl    %edx
         jl      .LExitDecRef
+// Push type
+        pushl    (%ebx)
+        addl     $4,%ebx
 // Calculate data
         movl    Data,%eax
         addl    (%ebx),%eax
         addl     $4,%ebx
-// Push type
-        pushl    (%ebx)
-        addl     $4,%ebx
 // push data
         pushl    %eax
         call    DECREF
@@ -375,7 +375,11 @@ end;
 
 {
   $Log$
-  Revision 1.21  2000-02-18 15:23:01  florian
+  Revision 1.22  2000-04-01 11:45:34  peter
+    * fixed addref/decref for records, the data/type was read in the
+      wrong order
+
+  Revision 1.21  2000/02/18 15:23:01  florian
     * fixed constants in rtti
     * longjmp does now a finit