paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 18:29:18 +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; function fpc_div_dword(n,z:dword):dword;[public,alias: 'FPC_DIV_DWORD'];assembler;nostackframe;
asm asm
mov r3, #0 mov r3, #0
rsbs r2, r0, r1, LSR#3 rsbs r2, r0, r1, LSR#3
bcc .Ldiv_3bits bcc .Ldiv_3bits
rsbs r2, r0, r1, LSR#8 rsbs r2, r0, r1, LSR#8
bcc .Ldiv_8bits bcc .Ldiv_8bits
mov r0, r0, LSL#8 mov r0, r0, LSL#8
orr r3, r3, #0xFF000000 orr r3, r3, #0xFF000000
rsbs r2, r0, r1, LSR#4 rsbs r2, r0, r1, LSR#4
bcc .Ldiv_4bits bcc .Ldiv_4bits
rsbs r2, r0, r1, LSR#8 rsbs r2, r0, r1, LSR#8
bcc .Ldiv_8bits bcc .Ldiv_8bits
mov r0, r0, LSL#8 mov r0, r0, LSL#8
orr r3, r3, #0x00FF0000 orr r3, r3, #0x00FF0000
rsbs r2, r0, r1, LSR#8 rsbs r2, r0, r1, LSR#8
movcs r0, r0, LSL#8 movcs r0, r0, LSL#8
orrcs r3, r3, #0x0000FF00 orrcs r3, r3, #0x0000FF00
rsbs r2, r0, r1, LSR#4 rsbs r2, r0, r1, LSR#4
bcc .Ldiv_4bits bcc .Ldiv_4bits
rsbs r2, r0, #0 rsbs r2, r0, #0
bcs .Ldiv_by_0 bcs .Ldiv_by_0
.Ldiv_loop: .Ldiv_loop:
movcs r0, r0, LSR#8 movcs r0, r0, LSR#8
.Ldiv_8bits: .Ldiv_8bits:
rsbs r2, r0, r1, LSR#7 rsbs r2, r0, r1, LSR#7
subcs r1, r1, r0, LSL#7 subcs r1, r1, r0, LSL#7
adc r3, r3, r3 adc r3, r3, r3
rsbs r2, r0, r1, LSR#6 rsbs r2, r0, r1, LSR#6
subcs r1, r1, r0, LSL#6 subcs r1, r1, r0, LSL#6
adc r3, r3, r3 adc r3, r3, r3
rsbs r2, r0, r1, LSR#5 rsbs r2, r0, r1, LSR#5
subcs r1, r1, r0, LSL#5 subcs r1, r1, r0, LSL#5
adc r3, r3, r3 adc r3, r3, r3
rsbs r2, r0, r1, LSR#4 rsbs r2, r0, r1, LSR#4
subcs r1, r1, r0, LSL#4 subcs r1, r1, r0, LSL#4
adc r3, r3, r3 adc r3, r3, r3
.Ldiv_4bits: .Ldiv_4bits:
rsbs r2, r0, r1, LSR#3 rsbs r2, r0, r1, LSR#3
subcs r1, r1, r0, LSL#3 subcs r1, r1, r0, LSL#3
adc r3, r3, r3 adc r3, r3, r3
.Ldiv_3bits: .Ldiv_3bits:
rsbs r2, r0, r1, LSR#2 rsbs r2, r0, r1, LSR#2
subcs r1, r1, r0, LSL#2 subcs r1, r1, r0, LSL#2
adc r3, r3, r3 adc r3, r3, r3
rsbs r2, r0, r1, LSR#1 rsbs r2, r0, r1, LSR#1
subcs r1, r1, r0, LSL#1 subcs r1, r1, r0, LSL#1
adc r3, r3, r3 adc r3, r3, r3
rsbs r2, r0, r1 rsbs r2, r0, r1
subcs r1, r1, r0 subcs r1, r1, r0
adcs r3, r3, r3 adcs r3, r3, r3
.Ldiv_next: .Ldiv_next:
bcs .Ldiv_loop bcs .Ldiv_loop
mov r0, r3 mov r0, r3
mov pc, lr mov pc, lr
.Ldiv_by_0: .Ldiv_by_0:
mov r0, #200 mov r0, #200
mov r1, r11 mov r1, r11
bl handleerrorframe bl handleerrorframe
mov pc, lr mov pc, lr
end; end;
{It is a compilerproc (systemh.inc), make an alias for internal use.} {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; function fpc_div_longint(n,z:longint):longint;[public,alias: 'FPC_DIV_LONGINT'];assembler;nostackframe;
asm asm
stmfd sp!, {lr} stmfd sp!, {lr}
ands r12, r0, #1<<31 (* r12:=r0 and $80000000 *) ands r12, r0, #1<<31 (* r12:=r0 and $80000000 *)
rsbmi r0, r0, #0 (* if signed(r0) then r0:=0-r0 *) rsbmi r0, r0, #0 (* if signed(r0) then r0:=0-r0 *)
eors r12, r12, r1, ASR#32 (* r12:=r12 xor (r1 asr 32) *) eors r12, r12, r1, ASR#32 (* r12:=r12 xor (r1 asr 32) *)
rsbcs r1, r1, #0 (* if signed(r12) then r1:=0-r1 *) rsbcs r1, r1, #0 (* if signed(r12) then r1:=0-r1 *)
bl fpc_div_dword bl fpc_div_dword
movs r12, r12, LSL#1 (* carry:=sign(r12) *) movs r12, r12, LSL#1 (* carry:=sign(r12) *)
rsbcs r0, r0, #0 rsbcs r0, r0, #0
rsbmi r1, r1, #0 rsbmi r1, r1, #0
ldmfd sp!, {pc} ldmfd sp!, {pc}
end; end;
{It is a compilerproc (systemh.inc), make an alias for internal use.} {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; function fpc_mod_dword(n,z:dword):dword;[public,alias: 'FPC_MOD_DWORD'];assembler;nostackframe;
asm asm
stmfd sp!, {lr} stmfd sp!, {lr}
bl fpc_div_dword bl fpc_div_dword
mov r0, r1 mov r0, r1
ldmfd sp!, {pc} ldmfd sp!, {pc}
end; end;
{It is a compilerproc (systemh.inc), make an alias for internal use.} {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; function fpc_mod_longint(n,z:longint):longint;[public,alias: 'FPC_MOD_LONGINT'];assembler;nostackframe;
asm asm
stmfd sp!, {lr} stmfd sp!, {lr}
bl fpc_div_longint bl fpc_div_longint
mov r0, r1 mov r0, r1
ldmfd sp!, {pc} ldmfd sp!, {pc}
end; end;
{It is a compilerproc (systemh.inc), make an alias for internal use.} {It is a compilerproc (systemh.inc), make an alias for internal use.}