]> CyberLeo.Net >> Repos - FreeBSD/releng/9.0.git/blob - contrib/compiler-rt/lib/arm/gtsf2vfp.S
Copy stable/9 to releng/9.0 as part of the FreeBSD 9.0-RELEASE release
[FreeBSD/releng/9.0.git] / contrib / compiler-rt / lib / arm / gtsf2vfp.S
1 //===-- gtsf2vfp.S - Implement gtsf2vfp -----------------------------------===//
2 //
3 //                     The LLVM Compiler Infrastructure
4 //
5 // This file is dual licensed under the MIT and the University of Illinois Open
6 // Source Licenses. See LICENSE.TXT for details.
7 //
8 //===----------------------------------------------------------------------===//
9
10 #include "../assembly.h"
11
12 //
13 // extern int __gtsf2vfp(float a, float b);
14 //
15 // Returns one iff a > b and neither is NaN.
16 // Uses Darwin calling convention where single precision arguments are passsed 
17 // like 32-bit ints
18 //
19         .align 2
20 DEFINE_COMPILERRT_FUNCTION(__gtsf2vfp)
21         fmsr    s14, r0         // move from GPR 0 to float register
22         fmsr    s15, r1         // move from GPR 1 to float register
23         fcmps   s14, s15
24         fmstat
25         movgt   r0, #1          // set result register to 1 if equal
26         movle   r0, #0
27         bx      lr
28