| Nick Kledzik | e80e978 | 2009-09-12 01:23:48 +0000 | [diff] [blame^] | 1 | //===-- gtdf2vfp.S - Implement gtdf2vfp -----------------------------------===// |
| 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 | |
| 10 | |
| 11 | // |
| 12 | // extern double __gtdf2vfp(double a, double b); |
| 13 | // |
| 14 | // Returns one iff a > b and neither is NaN. |
| 15 | // Uses Darwin calling convention where double precision arguments are passsed |
| 16 | // like in GPR pairs. |
| 17 | // |
| 18 | .globl ___gtdf2vfp |
| 19 | ___gtdf2vfp: |
| 20 | fmdrr d6, r0, r1 // load r0/r1 pair in double register |
| 21 | fmdrr d7, r2, r3 // load r2/r3 pair in double register |
| 22 | fcmpd d6, d7 |
| 23 | fmstat |
| 24 | movgt r0, #1 // set result register to 1 if equal |
| 25 | movle r0, #0 |
| 26 | bx lr |