From e8f2eba0647f051b2bec6b5546345bee467f6439 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 8 Oct 1999 14:40:54 +0000
Subject: [PATCH]  * fix for FPC_HELP_FAIL_CLASS

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

diff --git a/rtl/i386/i386.inc b/rtl/i386/i386.inc
index 91850907c0..6c99e0591b 100644
--- a/rtl/i386/i386.inc
+++ b/rtl/i386/i386.inc
@@ -381,7 +381,7 @@ procedure int_help_fail_class;assembler;[public,alias:'FPC_HELP_FAIL_CLASS'];
 asm
         orl    %esi,%esi
         je     .LHFC_1
-        call   FPC_DISPOSE_CLASS
+        call   INT_DISPOSE_CLASS
         { set both object places to zero }
         xorl    %esi,%esi
         movl    %esi,8(%ebp)
@@ -884,7 +884,10 @@ end;
 
 {
   $Log$
-  Revision 1.56  1999-10-05 20:50:06  pierre
+  Revision 1.57  1999-10-08 14:40:54  pierre
+   * fix for FPC_HELP_FAIL_CLASS
+
+  Revision 1.56  1999/10/05 20:50:06  pierre
    + code for fail for class
 
   Revision 1.55  1999/09/17 17:14:11  peter