From 43e425072bfe93a9616540f7cf5bc97db85e1b26 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 21 Nov 2004 16:41:16 +0000
Subject: [PATCH]   * fixed div by zero check for qword mod qword

---
 rtl/i386/int64p.inc | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/rtl/i386/int64p.inc b/rtl/i386/int64p.inc
index d375e40561..d04ed5053b 100644
--- a/rtl/i386/int64p.inc
+++ b/rtl/i386/int64p.inc
@@ -105,8 +105,13 @@
             movl %ecx,%eax
             orl %ebx,%eax
             jnz .Lnodivzero
+{$ifdef REGCALL}
+            movl  %ebp,%edx
+            movl  $200,%eax
+{$else}
             pushl %ebp
             pushl $200
+{$endif}
             call HandleErrorFrame
             jmp .Lexit
 .Lnodivzero:
@@ -256,7 +261,10 @@
 
 {
   $Log$
-  Revision 1.5  2004-09-26 08:52:51  florian
+  Revision 1.6  2004-11-21 16:41:16  florian
+    * fixed div by zero check for qword mod qword
+
+  Revision 1.5  2004/09/26 08:52:51  florian
     * fixed overflow checking in qword multiplication
 
   Revision 1.4  2004/07/25 11:50:39  florian
@@ -272,4 +280,4 @@
     * moved int64 asm code to int64p.inc
     * save ebx,esi
 
-}
+}
\ No newline at end of file