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

m68k: an assembly optimized longint to int64 implementation. removed the sarint64 helper from here

Browse Source 
git-svn-id: trunk@37825 -
This commit is contained in:
Károly Balogh 2017-12-26 22:41:06 +00:00
parent b7b3c7a32d
commit c054117870
1 changed files with 55 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

125
rtl/m68k/int64p.inc
View File

@ -13,87 +13,72 @@
**********************************************************************} **********************************************************************}
{$ifndef FPC_SYSTEM_HAS_SAR_QWORD}
{$define FPC_SYSTEM_HAS_SAR_QWORD} {$ifndef FPC_SYSTEM_HAS_MUL_LONGINT_TO_INT64}
function fpc_SarInt64(Const AValue : Int64;const Shift : Byte): Int64; [Public,Alias:'FPC_SARINT64']; compilerproc; assembler; nostackframe; {$define FPC_SYSTEM_HAS_MUL_LONGINT_TO_INT64}
function fpc_mul_longint_to_int64(f1,f2 : longint) : int64;[public,alias: 'FPC_MUL_LONGINT_TO_INT64']; assembler; nostackframe; compilerproc;
asm asm
// d0 = shift tst.l d0
lea.l 4(sp),a0 beq.s @xit0
move.l d2,-(sp) tst.l d1
move.l d0,d2 beq.s @xit0
{$ifndef CPUCOLDFIRE}
and.w #63,d2
cmp.w #32,d2
{$else}
and.l #63,d2
cmp.l #32,d2
{$endif}
bge.s @longshift
move.l (a0)+,d0 movem.l d2-d5,-(sp)
move.l (a0),d1 move.l d0,d5
{$ifdef CPUM68K_HAS_ROLROR} eor.l d1,d5
cmp.w #1,d2 move.l d0,d2
beq.s @oneshift bpl.s @pos0
{$endif}
{$ifdef CPU68000}
cmp.w #16,d2
beq.s @sixteenshift
{$endif}
move.l d3,a0 neg.l d2
move.l d4,a1 neg.l d0
move.l d0,d3 @pos0:
moveq.l #32,d4 move.l d1,d4
{$ifndef CPUCOLDFIRE} bpl.s @pos1
sub.w d2,d4
{$else}
sub.l d2,d4
{$endif}
asr.l d2,d0
lsl.l d4,d3
lsr.l d2,d1
or.l d3,d1
move.l a0,d3 neg.l d4
move.l a1,d4 neg.l d1
bra.s @quit @pos1:
move.l d0,d3
swap d4
swap d3
{$ifdef CPU68000} mulu.w d1,d0
@sixteenshift: mulu.w d3,d1
move.w d0,d1 mulu.w d4,d2
swap d1 mulu.w d4,d3
swap d0
ext.l d0
bra.s @quit swap d0
{$endif} clr.l d4
add.w d1,d0
addx.l d4,d3
add.w d2,d0
addx.l d4,d3
{$ifdef CPUM68K_HAS_ROLROR} clr.w d1
@oneshift: clr.w d2
asr.l #1,d0 swap d1
roxr.l #1,d1 swap d2
bra.s @quit add.l d3,d1
{$endif} swap d0
add.l d2,d1
@longshift: tst.l d5
move.l (a0),d0 bpl.s @xit
move.l d0,d1
smi d0
{$if defined(CPU68020) or defined(CPUCOLDFIRE)}
extb.l d0
{$else}
ext.w d0
ext.l d0
{$endif}
sub.w #32,d2
asr.l d2,d1
@quit: neg.l d0
move.l (sp)+,d2 negx.l d1
@xit:
movem.l (sp)+,d2-d5
exg.l d0,d1
rts
@xit0:
clr.l d0
clr.l d1
end; end;
{$endif} {$endif FPC_SYSTEM_HAS_MUL_LONGINT_TO_INT64}