blob: 53ef2a00f804d33cf43f4ed5ce254157a9038d41 [file] [log] [blame]
Nick Kledzik91300112009-09-12 01:23:48 +00001//===-- gtsf2vfp.S - Implement gtsf2vfp -----------------------------------===//
2//
3// The LLVM Compiler Infrastructure
4//
5// This file is distributed under the University of Illinois Open Source
6// License. See LICENSE.TXT for details.
7//
8//===----------------------------------------------------------------------===//
9
Daniel Dunbar7d504782009-10-27 17:49:50 +000010#include "../assembly.h"
Nick Kledzik91300112009-09-12 01:23:48 +000011
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//
Nick Kledzik8e7ebea2010-04-21 22:36:23 +000019 .align 2
Daniel Dunbar9ff93712009-10-27 17:50:21 +000020DEFINE_COMPILERRT_FUNCTION(__gtsf2vfp)
Nick Kledzik91300112009-09-12 01:23:48 +000021 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