paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 22:09:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix int64 multiplication on armeb

Browse Source 
git-svn-id: trunk@10461 -
This commit is contained in:
micha 2008-03-08 13:02:51 +00:00
parent f70c24435d
commit 89e9d4ab17
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/arm/int64p.inc
View File

@ -18,6 +18,8 @@ function fpc_mul_qword(f1,f2 : qword;checkoverflow : longbool) : qword;assembler
asm asm
stmfd sp!,{r4,r5,r6,r14} stmfd sp!,{r4,r5,r6,r14}
mov r6,#0 mov r6,#0
// r4 = result lo, r5 = result hi
{$ifdef ENDIAN_LITTLE}
// lo(f1)*lo(f2) // lo(f1)*lo(f2)
umull r4,r5,r0,r2 umull r4,r5,r0,r2
// lo(f1)*hi(f2) // lo(f1)*hi(f2)
@ -31,6 +33,21 @@ asm
orrs r6,r6,r0 orrs r6,r6,r0
mov r0,r4 mov r0,r4
mov r1,r5 mov r1,r5
{$else}
// lo(f1)*lo(f2)
umull r4,r5,r1,r3
// lo(f1)*hi(f2)
umlal r5,r6,r1,r2
// overflow?
// hi(f1)*hi(f2)
mul r1,r0,r2
// hi(f1)*lo(f2)
umlal r5,r6,r0,r3
// check for overflow
orrs r6,r6,r1
mov r1,r4
mov r0,r5
{$endif}
// no overflow? // no overflow?
beq .Lexit beq .Lexit
// checkoverflow? // checkoverflow?