summaryrefslogtreecommitdiff
path: root/runtime/arm/i64_udivmod.s
diff options
context:
space:
mode:
authorGravatar xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>2014-07-27 07:35:49 +0000
committerGravatar xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>2014-07-27 07:35:49 +0000
commitf4e106d4fc1cce484678b5cdd86ab57d7a43076a (patch)
tree3de9bddc63b80fb1b695bbdb8fa5bd6aa893a13a /runtime/arm/i64_udivmod.s
parent04ff02a9f4bc4f766a450e5463729102ee26882e (diff)
ARM port: add support for Thumb2. To be tested.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2549 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'runtime/arm/i64_udivmod.s')
-rw-r--r--runtime/arm/i64_udivmod.s80
1 files changed, 0 insertions, 80 deletions
diff --git a/runtime/arm/i64_udivmod.s b/runtime/arm/i64_udivmod.s
deleted file mode 100644
index e3d9c87..0000000
--- a/runtime/arm/i64_udivmod.s
+++ /dev/null
@@ -1,80 +0,0 @@
-@ *****************************************************************
-@
-@ The Compcert verified compiler
-@
-@ Xavier Leroy, INRIA Paris-Rocquencourt
-@
-@ Copyright (c) 2013 Institut National de Recherche en Informatique et
-@ en Automatique.
-@
-@ Redistribution and use in source and binary forms, with or without
-@ modification, are permitted provided that the following conditions are met:
-@ * Redistributions of source code must retain the above copyright
-@ notice, this list of conditions and the following disclaimer.
-@ * Redistributions in binary form must reproduce the above copyright
-@ notice, this list of conditions and the following disclaimer in the
-@ documentation and/or other materials provided with the distribution.
-@ * Neither the name of the <organization> nor the
-@ names of its contributors may be used to endorse or promote products
-@ derived from this software without specific prior written permission.
-@
-@ THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-@ "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-@ LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
-@ A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT
-@ HOLDER> BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
-@ EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
-@ PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
-@ PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
-@ LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
-@ NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-@ SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-@ *********************************************************************
-
-@ Helper functions for 64-bit integer arithmetic. ARM version.
-
- .text
-
-@@@ Auxiliary function for division and modulus. Don't call from C
-
-@ On entry: N = (r0, r1) numerator D = (r2, r3) divisor
-@ On exit: Q = (r4, r5) quotient R = (r0, r1) remainder
-@ Locals: M = (r6, r7) mask TMP = r8 temporary
-
- .global __i64_udivmod
-__i64_udivmod:
- orrs r8, r2, r3 @ is D == 0?
- bxeq lr @ if so, return with unspecified results
- mov r4, #0 @ Q = 0
- mov r5, #0
- mov r6, #1 @ M = 1
- mov r7, #0
-1: cmp r3, #0 @ while ((signed) D >= 0) ...
- blt 2f
- subs r8, r0, r2 @ ... and N >= D ...
- sbcs r8, r1, r3
- blo 2f
- adds r2, r2, r2 @ D = D << 1
- adc r3, r3, r3
- adds r6, r6, r6 @ M = M << 1
- adc r7, r7, r7
- b 1b
-2: subs r0, r0, r2 @ N = N - D
- sbcs r1, r1, r3
- orr r4, r4, r6 @ Q = Q | M
- orr r5, r5, r7
- bhs 3f @ if N was >= D, continue
- adds r0, r0, r2 @ otherwise, undo what we just did
- adc r1, r1, r3 @ N = N + D
- bic r4, r4, r6 @ Q = Q & ~M
- bic r5, r5, r7
-3: movs r7, r7, lsr #1 @ M = M >> 1
- mov r6, r6, rrx
- movs r3, r3, lsr #1 @ D = D >> 1
- mov r2, r2, rrx
- orrs r8, r6, r7 @ repeat while (M != 0) ...
- bne 2b
- bx lr
- .type __i64_udivmod, %function
- .size __i64_udivmod, . - __i64_udivmod