From 86f0e64b177f5a57f303c6aa6183ae6a5ef0fe36 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 30 Nov 1998 15:27:28 +0000
Subject: [PATCH]  * vmt address pushed for CHECK_OBJECT was not removed from
 stack

---
 rtl/i386/i386.inc | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/rtl/i386/i386.inc b/rtl/i386/i386.inc
index 4ec9d38a5f..6e00554a2b 100644
--- a/rtl/i386/i386.inc
+++ b/rtl/i386/i386.inc
@@ -332,6 +332,8 @@ asm
 .Lco_ok:
         popl    %eax
         popl    %edi
+        { the adress is pushed : it needs to be removed from stack !! PM }
+        ret     $4
 end;
 
 
@@ -722,7 +724,10 @@ end;
 
 {
   $Log$
-  Revision 1.33  1998-11-28 14:09:49  peter
+  Revision 1.34  1998-11-30 15:27:28  pierre
+   * vmt address pushed for CHECK_OBJECT was not removed from stack
+
+  Revision 1.33  1998/11/28 14:09:49  peter
     * NOATTCDQ define
 
   Revision 1.32  1998/11/26 23:15:08  jonas