paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:29:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed div by zero check for qword mod qword

Browse Source
This commit is contained in:
florian 2004-11-21 16:41:16 +00:00
parent 2633b4883f
commit 43e425072b
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/i386/int64p.inc
View File

@ -105,8 +105,13 @@
movl %ecx,%eax movl %ecx,%eax
orl %ebx,%eax orl %ebx,%eax
jnz .Lnodivzero jnz .Lnodivzero
{$ifdef REGCALL}
movl %ebp,%edx
movl $200,%eax
{$else}
pushl %ebp pushl %ebp
pushl $200 pushl $200
{$endif}
call HandleErrorFrame call HandleErrorFrame
jmp .Lexit jmp .Lexit
.Lnodivzero: .Lnodivzero:
@ -256,7 +261,10 @@
{ {
$Log$ $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 * fixed overflow checking in qword multiplication
Revision 1.4 2004/07/25 11:50:39 florian Revision 1.4 2004/07/25 11:50:39 florian
@ -272,4 +280,4 @@
* moved int64 asm code to int64p.inc * moved int64 asm code to int64p.inc
* save ebx,esi * save ebx,esi
} }