1*3cab2bb3Spatrick//===-- gedf2vfp.S - Implement gedf2vfp -----------------------------------===// 2*3cab2bb3Spatrick// 3*3cab2bb3Spatrick// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. 4*3cab2bb3Spatrick// See https://llvm.org/LICENSE.txt for license information. 5*3cab2bb3Spatrick// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception 6*3cab2bb3Spatrick// 7*3cab2bb3Spatrick//===----------------------------------------------------------------------===// 8*3cab2bb3Spatrick 9*3cab2bb3Spatrick#include "../assembly.h" 10*3cab2bb3Spatrick 11*3cab2bb3Spatrick// 12*3cab2bb3Spatrick// extern int __gedf2vfp(double a, double b); 13*3cab2bb3Spatrick// 14*3cab2bb3Spatrick// Returns one iff a >= b and neither is NaN. 15*3cab2bb3Spatrick// Uses Darwin calling convention where double precision arguments are passsed 16*3cab2bb3Spatrick// like in GPR pairs. 17*3cab2bb3Spatrick// 18*3cab2bb3Spatrick .syntax unified 19*3cab2bb3Spatrick .p2align 2 20*3cab2bb3SpatrickDEFINE_COMPILERRT_FUNCTION(__gedf2vfp) 21*3cab2bb3Spatrick#if defined(COMPILER_RT_ARMHF_TARGET) 22*3cab2bb3Spatrick vcmp.f64 d0, d1 23*3cab2bb3Spatrick#else 24*3cab2bb3Spatrick vmov d6, r0, r1 // load r0/r1 pair in double register 25*3cab2bb3Spatrick vmov d7, r2, r3 // load r2/r3 pair in double register 26*3cab2bb3Spatrick vcmp.f64 d6, d7 27*3cab2bb3Spatrick#endif 28*3cab2bb3Spatrick vmrs apsr_nzcv, fpscr 29*3cab2bb3Spatrick ITE(ge) 30*3cab2bb3Spatrick movge r0, #1 // set result register to 1 if greater than or equal 31*3cab2bb3Spatrick movlt r0, #0 32*3cab2bb3Spatrick bx lr 33*3cab2bb3SpatrickEND_COMPILERRT_FUNCTION(__gedf2vfp) 34*3cab2bb3Spatrick 35*3cab2bb3SpatrickNO_EXEC_STACK_DIRECTIVE 36*3cab2bb3Spatrick 37