paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 20:39:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tabs/spaces fixed

Browse Source 
git-svn-id: trunk@12015 -
This commit is contained in:
florian 2008-11-02 09:41:30 +00:00
parent db7a66f3af
commit 6dcdf5bdf4
1 changed files with 70 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

140
rtl/arm/divide.inc
View File

@ -41,64 +41,64 @@
function fpc_div_dword(n,z:dword):dword;[public,alias: 'FPC_DIV_DWORD'];assembler;nostackframe;
asm
mov r3, #0
rsbs r2, r0, r1, LSR#3
bcc .Ldiv_3bits
rsbs r2, r0, r1, LSR#8
bcc .Ldiv_8bits
mov r0, r0, LSL#8
orr r3, r3, #0xFF000000
rsbs r2, r0, r1, LSR#4
bcc .Ldiv_4bits
rsbs r2, r0, r1, LSR#8
bcc .Ldiv_8bits
mov r0, r0, LSL#8
orr r3, r3, #0x00FF0000
rsbs r2, r0, r1, LSR#8
movcs r0, r0, LSL#8
orrcs r3, r3, #0x0000FF00
rsbs r2, r0, r1, LSR#4
bcc .Ldiv_4bits
rsbs r2, r0, #0
bcs .Ldiv_by_0
mov r3, #0
rsbs r2, r0, r1, LSR#3
bcc .Ldiv_3bits
rsbs r2, r0, r1, LSR#8
bcc .Ldiv_8bits
mov r0, r0, LSL#8
orr r3, r3, #0xFF000000
rsbs r2, r0, r1, LSR#4
bcc .Ldiv_4bits
rsbs r2, r0, r1, LSR#8
bcc .Ldiv_8bits
mov r0, r0, LSL#8
orr r3, r3, #0x00FF0000
rsbs r2, r0, r1, LSR#8
movcs r0, r0, LSL#8
orrcs r3, r3, #0x0000FF00
rsbs r2, r0, r1, LSR#4
bcc .Ldiv_4bits
rsbs r2, r0, #0
bcs .Ldiv_by_0
.Ldiv_loop:
movcs r0, r0, LSR#8
movcs r0, r0, LSR#8
.Ldiv_8bits:
rsbs r2, r0, r1, LSR#7
subcs r1, r1, r0, LSL#7
adc r3, r3, r3
rsbs r2, r0, r1, LSR#6
subcs r1, r1, r0, LSL#6
adc r3, r3, r3
rsbs r2, r0, r1, LSR#5
subcs r1, r1, r0, LSL#5
adc r3, r3, r3
rsbs r2, r0, r1, LSR#4
subcs r1, r1, r0, LSL#4
adc r3, r3, r3
rsbs r2, r0, r1, LSR#7
subcs r1, r1, r0, LSL#7
adc r3, r3, r3
rsbs r2, r0, r1, LSR#6
subcs r1, r1, r0, LSL#6
adc r3, r3, r3
rsbs r2, r0, r1, LSR#5
subcs r1, r1, r0, LSL#5
adc r3, r3, r3
rsbs r2, r0, r1, LSR#4
subcs r1, r1, r0, LSL#4
adc r3, r3, r3
.Ldiv_4bits:
rsbs r2, r0, r1, LSR#3
subcs r1, r1, r0, LSL#3
adc r3, r3, r3
rsbs r2, r0, r1, LSR#3
subcs r1, r1, r0, LSL#3
adc r3, r3, r3
.Ldiv_3bits:
rsbs r2, r0, r1, LSR#2
subcs r1, r1, r0, LSL#2
adc r3, r3, r3
rsbs r2, r0, r1, LSR#1
subcs r1, r1, r0, LSL#1
adc r3, r3, r3
rsbs r2, r0, r1
subcs r1, r1, r0
adcs r3, r3, r3
rsbs r2, r0, r1, LSR#2
subcs r1, r1, r0, LSL#2
adc r3, r3, r3
rsbs r2, r0, r1, LSR#1
subcs r1, r1, r0, LSL#1
adc r3, r3, r3
rsbs r2, r0, r1
subcs r1, r1, r0
adcs r3, r3, r3
.Ldiv_next:
bcs .Ldiv_loop
mov r0, r3
mov pc, lr
bcs .Ldiv_loop
mov r0, r3
mov pc, lr
.Ldiv_by_0:
mov r0, #200
mov r1, r11
bl handleerrorframe
mov pc, lr
mov r0, #200
mov r1, r11
bl handleerrorframe
mov pc, lr
end;
{It is a compilerproc (systemh.inc), make an alias for internal use.}
@ -110,16 +110,16 @@ function fpc_div_dword(n,z:dword):dword;external name 'FPC_DIV_DWORD';
function fpc_div_longint(n,z:longint):longint;[public,alias: 'FPC_DIV_LONGINT'];assembler;nostackframe;
asm
stmfd sp!, {lr}
ands r12, r0, #1<<31 (* r12:=r0 and $80000000 *)
rsbmi r0, r0, #0 (* if signed(r0) then r0:=0-r0 *)
eors r12, r12, r1, ASR#32 (* r12:=r12 xor (r1 asr 32) *)
rsbcs r1, r1, #0 (* if signed(r12) then r1:=0-r1 *)
bl fpc_div_dword
movs r12, r12, LSL#1 (* carry:=sign(r12) *)
rsbcs r0, r0, #0
rsbmi r1, r1, #0
ldmfd sp!, {pc}
stmfd sp!, {lr}
ands r12, r0, #1<<31 (* r12:=r0 and $80000000 *)
rsbmi r0, r0, #0 (* if signed(r0) then r0:=0-r0 *)
eors r12, r12, r1, ASR#32 (* r12:=r12 xor (r1 asr 32) *)
rsbcs r1, r1, #0 (* if signed(r12) then r1:=0-r1 *)
bl fpc_div_dword
movs r12, r12, LSL#1 (* carry:=sign(r12) *)
rsbcs r0, r0, #0
rsbmi r1, r1, #0
ldmfd sp!, {pc}
end;
{It is a compilerproc (systemh.inc), make an alias for internal use.}
@ -131,10 +131,10 @@ function fpc_div_longint(n,z:longint):longint;external name 'FPC_DIV_LONGINT';
function fpc_mod_dword(n,z:dword):dword;[public,alias: 'FPC_MOD_DWORD'];assembler;nostackframe;
asm
stmfd sp!, {lr}
bl fpc_div_dword
mov r0, r1
ldmfd sp!, {pc}
stmfd sp!, {lr}
bl fpc_div_dword
mov r0, r1
ldmfd sp!, {pc}
end;
{It is a compilerproc (systemh.inc), make an alias for internal use.}
@ -146,10 +146,10 @@ function fpc_mod_dword(n,z:dword):dword;external name 'FPC_MOD_DWORD';
function fpc_mod_longint(n,z:longint):longint;[public,alias: 'FPC_MOD_LONGINT'];assembler;nostackframe;
asm
stmfd sp!, {lr}
bl fpc_div_longint
mov r0, r1
ldmfd sp!, {pc}
stmfd sp!, {lr}
bl fpc_div_longint
mov r0, r1
ldmfd sp!, {pc}
end;
{It is a compilerproc (systemh.inc), make an alias for internal use.}