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

* changed record typecast into shift to avoid q3 becoming not

Browse Source 
regable in FPC_MUL_INT64

git-svn-id: trunk@3183 -
This commit is contained in:
Jonas Maebe 2006-04-09 18:21:35 +00:00
parent 52faa1a01c
commit bd27a09918
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/int64.inc
View File

@ -348,7 +348,7 @@
((q1>q3) or (q2>q3) or ((q1>q3) or (q2>q3) or
{ the bit 63 can be only set if we have $80000000 00000000 } { the bit 63 can be only set if we have $80000000 00000000 }
{ and sign is true } { and sign is true }
((tqwordrec(q3).high and dword($80000000))<>0) and (q3 shr 63<>0) and
((q3<>(qword(1) shl 63)) or not(sign)) ((q3<>(qword(1) shl 63)) or not(sign))
) then ) then
HandleErrorFrame(215,get_frame); HandleErrorFrame(215,get_frame);