vfpdf.S revision 1.1.4.3
1 1.1.4.2 tls /*- 2 1.1.4.2 tls * Copyright (c) 2013 The NetBSD Foundation, Inc. 3 1.1.4.2 tls * All rights reserved. 4 1.1.4.2 tls * 5 1.1.4.2 tls * This code is derived from software contributed to The NetBSD Foundation 6 1.1.4.2 tls * by Matt Thomas of 3am Software Foundry. 7 1.1.4.2 tls * 8 1.1.4.2 tls * Redistribution and use in source and binary forms, with or without 9 1.1.4.2 tls * modification, are permitted provided that the following conditions 10 1.1.4.2 tls * are met: 11 1.1.4.2 tls * 1. Redistributions of source code must retain the above copyright 12 1.1.4.2 tls * notice, this list of conditions and the following disclaimer. 13 1.1.4.2 tls * 2. Redistributions in binary form must reproduce the above copyright 14 1.1.4.2 tls * notice, this list of conditions and the following disclaimer in the 15 1.1.4.2 tls * documentation and/or other materials provided with the distribution. 16 1.1.4.2 tls * 17 1.1.4.2 tls * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS 18 1.1.4.2 tls * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 19 1.1.4.2 tls * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 20 1.1.4.2 tls * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS 21 1.1.4.2 tls * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 22 1.1.4.2 tls * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 23 1.1.4.2 tls * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 24 1.1.4.2 tls * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 25 1.1.4.2 tls * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 26 1.1.4.2 tls * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 27 1.1.4.2 tls * POSSIBILITY OF SUCH DAMAGE. 28 1.1.4.2 tls */ 29 1.1.4.2 tls 30 1.1.4.2 tls #include <arm/asm.h> 31 1.1.4.2 tls 32 1.1.4.2 tls RCSID("$NetBSD: vfpdf.S,v 1.1.4.3 2014/08/20 00:02:16 tls Exp $") 33 1.1.4.2 tls 34 1.1.4.2 tls /* 35 1.1.4.2 tls * This file provides softfloat compatible routines which use VFP instructions 36 1.1.4.2 tls * to do the actual work. This should give near hard-float performance while 37 1.1.4.2 tls * being compatible with soft-float code. 38 1.1.4.2 tls * 39 1.1.4.2 tls * This file implements the double precision floating point routines. 40 1.1.4.2 tls */ 41 1.1.4.2 tls 42 1.1.4.2 tls #ifdef __ARMEL__ 43 1.1.4.2 tls #define vmov_arg0 vmov d0, r0, r1 44 1.1.4.2 tls #define vmov_arg1 vmov d1, r2, r3 45 1.1.4.2 tls #define vmov_ret vmov r0, r1, d0 46 1.1.4.2 tls #else 47 1.1.4.2 tls #define vmov_arg0 vmov d0, r1, r0 48 1.1.4.2 tls #define vmov_arg1 vmov d1, r3, r2 49 1.1.4.2 tls #define vmov_ret vmov r1, r0, d0 50 1.1.4.2 tls #endif 51 1.1.4.2 tls #define vmov_args vmov_arg0; vmov_arg1 52 1.1.4.2 tls 53 1.1.4.3 tls #ifdef __ARM_EABI__ 54 1.1.4.3 tls #define __adddf3 __aeabi_dadd 55 1.1.4.3 tls #define __divdf3 __aeabi_ddiv 56 1.1.4.3 tls #define __muldf3 __aeabi_dmul 57 1.1.4.3 tls #define __subdf3 __aeabi_dsub 58 1.1.4.3 tls #define __negdf2 __aeabi_dneg 59 1.1.4.3 tls #define __extendsfdf2 __aeabi_f2d 60 1.1.4.3 tls #define __fixdfsi __aeabi_d2iz 61 1.1.4.3 tls #define __fixunsdfsi __aeabi_d2uiz 62 1.1.4.3 tls #define __floatsidf __aeabi_i2d 63 1.1.4.3 tls #define __floatunsidf __aeabi_ui2d 64 1.1.4.3 tls #endif 65 1.1.4.3 tls 66 1.1.4.2 tls ENTRY(__adddf3) 67 1.1.4.2 tls vmov_args 68 1.1.4.2 tls vadd.f64 d0, d0, d1 69 1.1.4.2 tls vmov_ret 70 1.1.4.2 tls RET 71 1.1.4.2 tls END(__adddf3) 72 1.1.4.2 tls 73 1.1.4.2 tls ENTRY(__subdf3) 74 1.1.4.2 tls vmov_args 75 1.1.4.2 tls vsub.f64 d0, d0, d1 76 1.1.4.2 tls vmov_ret 77 1.1.4.2 tls RET 78 1.1.4.2 tls END(__subdf3) 79 1.1.4.2 tls 80 1.1.4.3 tls #ifdef __ARM_EABI__ 81 1.1.4.3 tls ENTRY(__aeabi_drsub) 82 1.1.4.3 tls vmov_args 83 1.1.4.3 tls vsub.f64 d0, d1, d0 84 1.1.4.3 tls vmov_ret 85 1.1.4.3 tls RET 86 1.1.4.3 tls END(__aeabi_drsub) 87 1.1.4.3 tls #endif 88 1.1.4.3 tls 89 1.1.4.2 tls ENTRY(__muldf3) 90 1.1.4.2 tls vmov_args 91 1.1.4.2 tls vmul.f64 d0, d0, d1 92 1.1.4.2 tls vmov_ret 93 1.1.4.2 tls RET 94 1.1.4.2 tls END(__muldf3) 95 1.1.4.2 tls 96 1.1.4.2 tls ENTRY(__divdf3) 97 1.1.4.2 tls vmov_args 98 1.1.4.2 tls vdiv.f64 d0, d0, d1 99 1.1.4.2 tls vmov_ret 100 1.1.4.2 tls RET 101 1.1.4.2 tls END(__divdf3) 102 1.1.4.2 tls 103 1.1.4.2 tls ENTRY(__negdf2) 104 1.1.4.2 tls vmov_arg0 105 1.1.4.2 tls vneg.f64 d0, d0 106 1.1.4.2 tls vmov_ret 107 1.1.4.2 tls RET 108 1.1.4.2 tls END(__negdf2) 109 1.1.4.2 tls 110 1.1.4.2 tls ENTRY(__extendsfdf2) 111 1.1.4.2 tls vmov s0, r0 112 1.1.4.2 tls vcvt.f64.f32 d0, s0 113 1.1.4.2 tls vmov_ret 114 1.1.4.2 tls RET 115 1.1.4.2 tls END(__extendsfdf2) 116 1.1.4.2 tls 117 1.1.4.2 tls ENTRY(__fixdfsi) 118 1.1.4.2 tls vmov_arg0 119 1.1.4.2 tls vcvt.s32.f64 s0, d0 120 1.1.4.2 tls vmov r0, s0 121 1.1.4.2 tls RET 122 1.1.4.2 tls END(__fixdfsi) 123 1.1.4.2 tls 124 1.1.4.2 tls ENTRY(__fixunsdfsi) 125 1.1.4.2 tls vmov_arg0 126 1.1.4.2 tls vcvt.u32.f64 s0, d0 127 1.1.4.2 tls vmov r0, s0 128 1.1.4.2 tls RET 129 1.1.4.2 tls END(__fixunsdfsi) 130 1.1.4.2 tls 131 1.1.4.2 tls ENTRY(__floatsidf) 132 1.1.4.2 tls vmov s0, r0 133 1.1.4.2 tls vcvt.f64.s32 d0, s0 134 1.1.4.2 tls vmov_ret 135 1.1.4.2 tls RET 136 1.1.4.2 tls END(__floatsidf) 137 1.1.4.2 tls 138 1.1.4.2 tls ENTRY(__floatunsidf) 139 1.1.4.2 tls vmov s0, r0 140 1.1.4.2 tls vcvt.f64.u32 d0, s0 141 1.1.4.2 tls vmov_ret 142 1.1.4.2 tls RET 143 1.1.4.2 tls END(__floatunsidf) 144 1.1.4.2 tls 145 1.1.4.3 tls /* 146 1.1.4.3 tls * Effect of a floating point comparision on the condition flags. 147 1.1.4.3 tls * N Z C V 148 1.1.4.3 tls * EQ = 0 1 1 0 149 1.1.4.3 tls * LT = 1 0 0 0 150 1.1.4.3 tls * GT = 0 0 1 0 151 1.1.4.3 tls * UN = 0 0 1 1 152 1.1.4.3 tls */ 153 1.1.4.3 tls #ifdef __ARM_EABI__ 154 1.1.4.3 tls ENTRY(__aeabi_cdcmpeq) 155 1.1.4.3 tls vmov_args 156 1.1.4.3 tls vcmp.f64 d0, d1 157 1.1.4.3 tls vmrs APSR_nzcv, fpscr 158 1.1.4.3 tls RET 159 1.1.4.3 tls END(__aeabi_cdcmpeq) 160 1.1.4.3 tls 161 1.1.4.3 tls ENTRY(__aeabi_cdcmple) 162 1.1.4.3 tls vmov_args 163 1.1.4.3 tls vcmpe.f64 d0, d1 164 1.1.4.3 tls vmrs APSR_nzcv, fpscr 165 1.1.4.3 tls RET 166 1.1.4.3 tls END(__aeabi_cdcmple) 167 1.1.4.3 tls 168 1.1.4.3 tls ENTRY(__aeabi_cdrcmple) 169 1.1.4.3 tls vmov_args 170 1.1.4.3 tls vcmpe.f64 d1, d0 171 1.1.4.3 tls vmrs APSR_nzcv, fpscr 172 1.1.4.3 tls RET 173 1.1.4.3 tls END(__aeabi_cdrcmple) 174 1.1.4.3 tls 175 1.1.4.3 tls ENTRY(__aeabi_dcmpeq) 176 1.1.4.3 tls vmov_args 177 1.1.4.3 tls vcmp.f64 d0, d1 178 1.1.4.3 tls vmrs APSR_nzcv, fpscr 179 1.1.4.3 tls moveq r0, #1 /* (a == b) */ 180 1.1.4.3 tls movne r0, #0 /* (a != b) or unordered */ 181 1.1.4.3 tls RET 182 1.1.4.3 tls END(__aeabi_dcmpeq) 183 1.1.4.3 tls 184 1.1.4.3 tls ENTRY(__aeabi_dcmplt) 185 1.1.4.3 tls vmov_args 186 1.1.4.3 tls vcmp.f64 d0, d1 187 1.1.4.3 tls vmrs APSR_nzcv, fpscr 188 1.1.4.3 tls movlt r0, #1 /* (a < b) */ 189 1.1.4.3 tls movcs r0, #0 /* (a >= b) or unordered */ 190 1.1.4.3 tls RET 191 1.1.4.3 tls END(__aeabi_dcmplt) 192 1.1.4.3 tls 193 1.1.4.3 tls ENTRY(__aeabi_dcmple) 194 1.1.4.3 tls vmov_args 195 1.1.4.3 tls vcmp.f64 d0, d1 196 1.1.4.3 tls vmrs APSR_nzcv, fpscr 197 1.1.4.3 tls movls r0, #1 /* (a <= b) */ 198 1.1.4.3 tls movhi r0, #0 /* (a > b) or unordered */ 199 1.1.4.3 tls RET 200 1.1.4.3 tls END(__aeabi_dcmple) 201 1.1.4.3 tls 202 1.1.4.3 tls ENTRY(__aeabi_dcmpge) 203 1.1.4.3 tls vmov_args 204 1.1.4.3 tls vcmp.f64 d0, d1 205 1.1.4.3 tls vmrs APSR_nzcv, fpscr 206 1.1.4.3 tls movge r0, #1 /* (a >= b) */ 207 1.1.4.3 tls movlt r0, #0 /* (a < b) or unordered */ 208 1.1.4.3 tls RET 209 1.1.4.3 tls END(__aeabi_dcmpge) 210 1.1.4.3 tls 211 1.1.4.3 tls ENTRY(__aeabi_dcmpgt) 212 1.1.4.3 tls vmov_args 213 1.1.4.3 tls vcmp.f64 d0, d1 214 1.1.4.3 tls vmrs APSR_nzcv, fpscr 215 1.1.4.3 tls movgt r0, #1 /* (a > b) */ 216 1.1.4.3 tls movle r0, #0 /* (a <= b) or unordered */ 217 1.1.4.3 tls RET 218 1.1.4.3 tls END(__aeabi_dcmpgt) 219 1.1.4.3 tls 220 1.1.4.3 tls ENTRY(__aeabi_dcmpun) 221 1.1.4.3 tls vmov_args 222 1.1.4.3 tls vcmp.f64 d0, d1 223 1.1.4.3 tls vmrs APSR_nzcv, fpscr 224 1.1.4.3 tls movvs r0, #1 /* (isnan(a) || isnan(b)) */ 225 1.1.4.3 tls movvc r0, #0 /* !isnan(a) && !isnan(b) */ 226 1.1.4.3 tls RET 227 1.1.4.3 tls END(__aeabi_dcmpun) 228 1.1.4.3 tls 229 1.1.4.3 tls #else 230 1.1.4.2 tls /* N set if compare <= result */ 231 1.1.4.2 tls /* Z set if compare = result */ 232 1.1.4.2 tls /* C set if compare (=,>=,UNORD) result */ 233 1.1.4.2 tls /* V set if compare UNORD result */ 234 1.1.4.2 tls 235 1.1.4.2 tls STRONG_ALIAS(__eqdf2, __nedf2) 236 1.1.4.2 tls ENTRY(__nedf2) 237 1.1.4.2 tls vmov_args 238 1.1.4.2 tls vcmp.f64 d0, d1 239 1.1.4.2 tls vmrs APSR_nzcv, fpscr 240 1.1.4.2 tls moveq r0, #0 /* !(a == b) */ 241 1.1.4.2 tls movne r0, #1 /* !(a == b) */ 242 1.1.4.2 tls RET 243 1.1.4.2 tls END(__nedf2) 244 1.1.4.2 tls 245 1.1.4.2 tls STRONG_ALIAS(__gedf2, __ltdf2) 246 1.1.4.2 tls ENTRY(__ltdf2) 247 1.1.4.2 tls vmov_args 248 1.1.4.2 tls vcmp.f64 d0, d1 249 1.1.4.2 tls vmrs APSR_nzcv, fpscr 250 1.1.4.2 tls mvnmi r0, #0 /* -(a < b) */ 251 1.1.4.2 tls movpl r0, #0 /* -(a < b) */ 252 1.1.4.2 tls RET 253 1.1.4.2 tls END(__ltdf2) 254 1.1.4.2 tls 255 1.1.4.2 tls STRONG_ALIAS(__gtdf2, __ledf2) 256 1.1.4.2 tls ENTRY(__ledf2) 257 1.1.4.2 tls vmov_args 258 1.1.4.2 tls vcmp.f64 d0, d1 259 1.1.4.2 tls vmrs APSR_nzcv, fpscr 260 1.1.4.2 tls movgt r0, #1 /* (a > b) */ 261 1.1.4.2 tls movle r0, #0 /* (a > b) */ 262 1.1.4.2 tls RET 263 1.1.4.2 tls END(__ledf2) 264 1.1.4.2 tls 265 1.1.4.2 tls ENTRY(__unorddf2) 266 1.1.4.2 tls vmov_args 267 1.1.4.2 tls vcmp.f64 d0, d1 268 1.1.4.2 tls vmrs APSR_nzcv, fpscr 269 1.1.4.2 tls movvs r0, #1 /* isnan(a) || isnan(b) */ 270 1.1.4.2 tls movvc r0, #0 /* isnan(a) || isnan(b) */ 271 1.1.4.2 tls RET 272 1.1.4.2 tls END(__unorddf2) 273 1.1.4.3 tls #endif /* !__ARM_EABI__ */ 274
Indexes created Thu Oct 02 14:10:14 GMT 2025