From 769b8d871191b1f0ecaf224bfa0f247ca433bda7 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 2 Feb 1999 11:04:27 +0000
Subject: [PATCH]   * class destructor helper routine for the new calling
 copnventions fixed

---
 rtl/i386/i386.inc | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/rtl/i386/i386.inc b/rtl/i386/i386.inc
index c33a90a02d..52e18cfbcc 100644
--- a/rtl/i386/i386.inc
+++ b/rtl/i386/i386.inc
@@ -278,9 +278,7 @@ end;
 procedure int_dispose_class;assembler;[public,alias:'FPC_DISPOSE_CLASS'];
 asm
         { destroy class ? }
-        movl    8(%ebp),%edi
-        { save self }
-        movl    %esi,8(%ebp)
+        movl    12(%ebp),%edi
         orl     %edi,%edi
         jz      .LDISPOSE_CLASS1
         { no inherited call }
@@ -290,8 +288,6 @@ asm
         { call freeinstance }
         call    *20(%edi)
 .LDISPOSE_CLASS1:
-        { load self }
-        movl    8(%ebp),%esi
 end;
 
 {$ASMMODE ATT}
@@ -699,7 +695,10 @@ end;
 
 {
   $Log$
-  Revision 1.37  1998-12-21 14:28:20  pierre
+  Revision 1.38  1999-02-02 11:04:27  florian
+    * class destructor helper routine for the new calling copnventions fixed
+
+  Revision 1.37  1998/12/21 14:28:20  pierre
     * HandleError -> HandleErrorFrame to avoid problem in
       assembler code in i386.inc
       (call to overloaded function in assembler block !)