1 1.1.1.3 mrg ;; Copyright (C) 2019-2024 Free Software Foundation, Inc. 2 1.1 mrg ;; 3 1.1 mrg ;; This file is part of LIBF7, which is part of GCC. 4 1.1 mrg ;; 5 1.1 mrg ;; GCC is free software; you can redistribute it and/or modify it under 6 1.1 mrg ;; the terms of the GNU General Public License as published by the Free 7 1.1 mrg ;; Software Foundation; either version 3, or (at your option) any later 8 1.1 mrg ;; version. 9 1.1 mrg ;; 10 1.1 mrg ;; GCC is distributed in the hope that it will be useful, but WITHOUT ANY 11 1.1 mrg ;; WARRANTY; without even the implied warranty of MERCHANTABILITY or 12 1.1 mrg ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 13 1.1 mrg ;; for more details. 14 1.1 mrg ;; 15 1.1 mrg ;; Under Section 7 of GPL version 3, you are granted additional 16 1.1 mrg ;; permissions described in the GCC Runtime Library Exception, version 17 1.1 mrg ;; 3.1, as published by the Free Software Foundation. 18 1.1 mrg ;; 19 1.1 mrg ;; You should have received a copy of the GNU General Public License and 20 1.1 mrg ;; a copy of the GCC Runtime Library Exception along with this program; 21 1.1 mrg ;; see the files COPYING3 and COPYING.RUNTIME respectively. If not, see 22 1.1 mrg ;; <http://www.gnu.org/licenses/>. */ 23 1.1 mrg 24 1.1 mrg ;; Auto-generated file, do not change by hand. 25 1.1 mrg ;; 26 1.1 mrg ;; Wrappers for double and long double functions to use functions that 27 1.1 mrg ;; operate on f7_t, and get f7_t* and const f7_t*. 28 1.1 mrg ;; 29 1.1 mrg ;; Generated by: f7wraps.sh 30 1.1 mrg ;; Included by : libf7-asm.sx 31 1.1 mrg ;; WITH_LIBF7_MATH_FUNCTIONS=1 32 1.1 mrg ;; WITH_LIBF7_MATH_SYMBOLS=1 33 1.1 mrg 34 1.1 mrg ;; Functions that usually live in libgcc: __<name>df3 for <name> in: 35 1.1 mrg ;; add sub mul div 36 1.1 mrg 37 1.1 mrg ;; double __adddf3 (double, double) ; add 38 1.1 mrg #ifdef F7MOD_D_add_ 39 1.1 mrg _DEFUN __adddf3 40 1.1 mrg ALIAS __add 41 1.1 mrg .global F7_NAME(add) 42 1.1 mrg ldi ZH, hi8(gs(F7_NAME(add))) 43 1.1 mrg ldi ZL, lo8(gs(F7_NAME(add))) 44 1.1 mrg F7jmp call_ddd 45 1.1 mrg _ENDF __adddf3 46 1.1 mrg #endif /* F7MOD_D_add_ */ 47 1.1 mrg 48 1.1 mrg ;; double __subdf3 (double, double) ; sub 49 1.1 mrg #ifdef F7MOD_D_sub_ 50 1.1 mrg _DEFUN __subdf3 51 1.1 mrg ALIAS __sub 52 1.1 mrg .global F7_NAME(sub) 53 1.1 mrg ldi ZH, hi8(gs(F7_NAME(sub))) 54 1.1 mrg ldi ZL, lo8(gs(F7_NAME(sub))) 55 1.1 mrg F7jmp call_ddd 56 1.1 mrg _ENDF __subdf3 57 1.1 mrg #endif /* F7MOD_D_sub_ */ 58 1.1 mrg 59 1.1 mrg ;; double __muldf3 (double, double) ; mul 60 1.1 mrg #ifdef F7MOD_D_mul_ 61 1.1 mrg _DEFUN __muldf3 62 1.1 mrg ALIAS __mul 63 1.1 mrg .global F7_NAME(mul) 64 1.1 mrg ldi ZH, hi8(gs(F7_NAME(mul))) 65 1.1 mrg ldi ZL, lo8(gs(F7_NAME(mul))) 66 1.1 mrg F7jmp call_ddd 67 1.1 mrg _ENDF __muldf3 68 1.1 mrg #endif /* F7MOD_D_mul_ */ 69 1.1 mrg 70 1.1 mrg ;; double __divdf3 (double, double) ; div 71 1.1 mrg #ifdef F7MOD_D_div_ 72 1.1 mrg _DEFUN __divdf3 73 1.1 mrg ALIAS __div 74 1.1 mrg .global F7_NAME(div) 75 1.1 mrg ldi ZH, hi8(gs(F7_NAME(div))) 76 1.1 mrg ldi ZL, lo8(gs(F7_NAME(div))) 77 1.1 mrg F7jmp call_ddd 78 1.1 mrg _ENDF __divdf3 79 1.1 mrg #endif /* F7MOD_D_div_ */ 80 1.1 mrg 81 1.1 mrg ;; Functions that usually live in libgcc: __<name>df2 for <name> in: 82 1.1 mrg ;; le lt ge gt ne eq unord 83 1.1 mrg 84 1.1 mrg ;; bool __ledf2 (double, double) ; le 85 1.1 mrg #ifdef F7MOD_D_le_ 86 1.1 mrg _DEFUN __ledf2 87 1.1 mrg .global F7_NAME(le_impl) 88 1.1 mrg ldi ZH, hi8(gs(F7_NAME(le_impl))) 89 1.1 mrg ldi ZL, lo8(gs(F7_NAME(le_impl))) 90 1.1 mrg F7jmp call_xdd 91 1.1 mrg _ENDF __ledf2 92 1.1 mrg #endif /* F7MOD_D_le_ */ 93 1.1 mrg 94 1.1 mrg ;; bool __ltdf2 (double, double) ; lt 95 1.1 mrg #ifdef F7MOD_D_lt_ 96 1.1 mrg _DEFUN __ltdf2 97 1.1 mrg .global F7_NAME(lt_impl) 98 1.1 mrg ldi ZH, hi8(gs(F7_NAME(lt_impl))) 99 1.1 mrg ldi ZL, lo8(gs(F7_NAME(lt_impl))) 100 1.1 mrg F7jmp call_xdd 101 1.1 mrg _ENDF __ltdf2 102 1.1 mrg #endif /* F7MOD_D_lt_ */ 103 1.1 mrg 104 1.1 mrg ;; bool __gedf2 (double, double) ; ge 105 1.1 mrg #ifdef F7MOD_D_ge_ 106 1.1 mrg _DEFUN __gedf2 107 1.1 mrg .global F7_NAME(ge_impl) 108 1.1 mrg ldi ZH, hi8(gs(F7_NAME(ge_impl))) 109 1.1 mrg ldi ZL, lo8(gs(F7_NAME(ge_impl))) 110 1.1 mrg F7jmp call_xdd 111 1.1 mrg _ENDF __gedf2 112 1.1 mrg #endif /* F7MOD_D_ge_ */ 113 1.1 mrg 114 1.1 mrg ;; bool __gtdf2 (double, double) ; gt 115 1.1 mrg #ifdef F7MOD_D_gt_ 116 1.1 mrg _DEFUN __gtdf2 117 1.1 mrg .global F7_NAME(gt_impl) 118 1.1 mrg ldi ZH, hi8(gs(F7_NAME(gt_impl))) 119 1.1 mrg ldi ZL, lo8(gs(F7_NAME(gt_impl))) 120 1.1 mrg F7jmp call_xdd 121 1.1 mrg _ENDF __gtdf2 122 1.1 mrg #endif /* F7MOD_D_gt_ */ 123 1.1 mrg 124 1.1 mrg ;; bool __nedf2 (double, double) ; ne 125 1.1 mrg #ifdef F7MOD_D_ne_ 126 1.1 mrg _DEFUN __nedf2 127 1.1 mrg .global F7_NAME(ne_impl) 128 1.1 mrg ldi ZH, hi8(gs(F7_NAME(ne_impl))) 129 1.1 mrg ldi ZL, lo8(gs(F7_NAME(ne_impl))) 130 1.1 mrg F7jmp call_xdd 131 1.1 mrg _ENDF __nedf2 132 1.1 mrg #endif /* F7MOD_D_ne_ */ 133 1.1 mrg 134 1.1 mrg ;; bool __eqdf2 (double, double) ; eq 135 1.1 mrg #ifdef F7MOD_D_eq_ 136 1.1 mrg _DEFUN __eqdf2 137 1.1 mrg .global F7_NAME(eq_impl) 138 1.1 mrg ldi ZH, hi8(gs(F7_NAME(eq_impl))) 139 1.1 mrg ldi ZL, lo8(gs(F7_NAME(eq_impl))) 140 1.1 mrg F7jmp call_xdd 141 1.1 mrg _ENDF __eqdf2 142 1.1 mrg #endif /* F7MOD_D_eq_ */ 143 1.1 mrg 144 1.1 mrg ;; bool __unorddf2 (double, double) ; unord 145 1.1 mrg #ifdef F7MOD_D_unord_ 146 1.1 mrg _DEFUN __unorddf2 147 1.1 mrg .global F7_NAME(unord_impl) 148 1.1 mrg ldi ZH, hi8(gs(F7_NAME(unord_impl))) 149 1.1 mrg ldi ZL, lo8(gs(F7_NAME(unord_impl))) 150 1.1 mrg F7jmp call_xdd 151 1.1 mrg _ENDF __unorddf2 152 1.1 mrg #endif /* F7MOD_D_unord_ */ 153 1.1 mrg 154 1.1 mrg ;; Functions that usually live in libgcc: __<name> for <name> in: 155 1.1 mrg ;; fixdfsi fixdfdi fixunsdfdi fixunsdfsi truncdfsf2 156 1.1 mrg 157 1.1 mrg ;; type_t __fixdfsi (double) ; fixdfsi 158 1.1 mrg #ifdef F7MOD_D_fixdfsi_ 159 1.1 mrg _DEFUN __fixdfsi 160 1.1 mrg .global F7_NAME(fixdfsi) 161 1.1 mrg ldi ZH, hi8(gs(F7_NAME(fixdfsi))) 162 1.1 mrg ldi ZL, lo8(gs(F7_NAME(fixdfsi))) 163 1.1 mrg F7jmp call_xd 164 1.1 mrg _ENDF __fixdfsi 165 1.1 mrg #endif /* F7MOD_D_fixdfsi_ */ 166 1.1 mrg 167 1.1 mrg ;; type_t __fixdfdi (double) ; fixdfdi 168 1.1 mrg #ifdef F7MOD_D_fixdfdi_ 169 1.1 mrg _DEFUN __fixdfdi 170 1.1 mrg .global F7_NAME(fixdfdi) 171 1.1 mrg ldi ZH, hi8(gs(F7_NAME(fixdfdi))) 172 1.1 mrg ldi ZL, lo8(gs(F7_NAME(fixdfdi))) 173 1.1 mrg F7jmp call_xd 174 1.1 mrg _ENDF __fixdfdi 175 1.1 mrg #endif /* F7MOD_D_fixdfdi_ */ 176 1.1 mrg 177 1.1 mrg ;; type_t __fixunsdfdi (double) ; fixunsdfdi 178 1.1 mrg #ifdef F7MOD_D_fixunsdfdi_ 179 1.1 mrg _DEFUN __fixunsdfdi 180 1.1 mrg .global F7_NAME(fixunsdfdi) 181 1.1 mrg ldi ZH, hi8(gs(F7_NAME(fixunsdfdi))) 182 1.1 mrg ldi ZL, lo8(gs(F7_NAME(fixunsdfdi))) 183 1.1 mrg F7jmp call_xd 184 1.1 mrg _ENDF __fixunsdfdi 185 1.1 mrg #endif /* F7MOD_D_fixunsdfdi_ */ 186 1.1 mrg 187 1.1 mrg ;; type_t __fixunsdfsi (double) ; fixunsdfsi 188 1.1 mrg #ifdef F7MOD_D_fixunsdfsi_ 189 1.1 mrg _DEFUN __fixunsdfsi 190 1.1 mrg .global F7_NAME(fixunsdfsi) 191 1.1 mrg ldi ZH, hi8(gs(F7_NAME(fixunsdfsi))) 192 1.1 mrg ldi ZL, lo8(gs(F7_NAME(fixunsdfsi))) 193 1.1 mrg F7jmp call_xd 194 1.1 mrg _ENDF __fixunsdfsi 195 1.1 mrg #endif /* F7MOD_D_fixunsdfsi_ */ 196 1.1 mrg 197 1.1 mrg ;; type_t __truncdfsf2 (double) ; truncdfsf2 198 1.1 mrg #ifdef F7MOD_D_truncdfsf2_ 199 1.1 mrg _DEFUN __truncdfsf2 200 1.1 mrg .global F7_NAME(truncdfsf2) 201 1.1 mrg ldi ZH, hi8(gs(F7_NAME(truncdfsf2))) 202 1.1 mrg ldi ZL, lo8(gs(F7_NAME(truncdfsf2))) 203 1.1 mrg F7jmp call_xd 204 1.1 mrg _ENDF __truncdfsf2 205 1.1 mrg #endif /* F7MOD_D_truncdfsf2_ */ 206 1.1 mrg 207 1.1 mrg ;; Functions that usually live in libgcc: __<name> for <name> in: 208 1.1 mrg ;; floatunsidf floatsidf extendsfdf2 209 1.1 mrg 210 1.1 mrg ;; double __floatunsidf (type_t) ; floatunsidf 211 1.1 mrg #ifdef F7MOD_D_floatunsidf_ 212 1.1 mrg _DEFUN __floatunsidf 213 1.1 mrg .global F7_NAME(floatunsidf) 214 1.1 mrg ldi ZH, hi8(gs(F7_NAME(floatunsidf))) 215 1.1 mrg ldi ZL, lo8(gs(F7_NAME(floatunsidf))) 216 1.1 mrg F7jmp call_dx 217 1.1 mrg _ENDF __floatunsidf 218 1.1 mrg #endif /* F7MOD_D_floatunsidf_ */ 219 1.1 mrg 220 1.1 mrg ;; double __floatsidf (type_t) ; floatsidf 221 1.1 mrg #ifdef F7MOD_D_floatsidf_ 222 1.1 mrg _DEFUN __floatsidf 223 1.1 mrg .global F7_NAME(floatsidf) 224 1.1 mrg ldi ZH, hi8(gs(F7_NAME(floatsidf))) 225 1.1 mrg ldi ZL, lo8(gs(F7_NAME(floatsidf))) 226 1.1 mrg F7jmp call_dx 227 1.1 mrg _ENDF __floatsidf 228 1.1 mrg #endif /* F7MOD_D_floatsidf_ */ 229 1.1 mrg 230 1.1 mrg ;; double __extendsfdf2 (type_t) ; extendsfdf2 231 1.1 mrg #ifdef F7MOD_D_extendsfdf2_ 232 1.1 mrg _DEFUN __extendsfdf2 233 1.1 mrg .global F7_NAME(extendsfdf2) 234 1.1 mrg ldi ZH, hi8(gs(F7_NAME(extendsfdf2))) 235 1.1 mrg ldi ZL, lo8(gs(F7_NAME(extendsfdf2))) 236 1.1 mrg F7jmp call_dx 237 1.1 mrg _ENDF __extendsfdf2 238 1.1 mrg #endif /* F7MOD_D_extendsfdf2_ */ 239 1.1 mrg 240 1.1 mrg ;; Functions that usually live in libm: Depending on [long] double layout, 241 1.1 mrg ;; define <name> and <name>l as weak alias(es) of __<name> for <name> in: 242 1.1 mrg ;; pow fmin fmax fmod hypot atan2 243 1.1 mrg 244 1.1 mrg ;; double __pow (double, double) 245 1.1 mrg #ifdef F7MOD_D_pow_ 246 1.1 mrg _DEFUN __pow 247 1.1 mrg DALIAS pow 248 1.1 mrg LALIAS powl 249 1.1 mrg .global F7_NAME(pow) 250 1.1 mrg ldi ZH, hi8(gs(F7_NAME(pow))) 251 1.1 mrg ldi ZL, lo8(gs(F7_NAME(pow))) 252 1.1 mrg F7jmp call_ddd 253 1.1 mrg _ENDF __pow 254 1.1 mrg #endif /* F7MOD_D_pow_ */ 255 1.1 mrg 256 1.1 mrg ;; double __fmin (double, double) 257 1.1 mrg #ifdef F7MOD_D_fmin_ 258 1.1 mrg _DEFUN __fmin 259 1.1 mrg DALIAS fmin 260 1.1 mrg LALIAS fminl 261 1.1 mrg .global F7_NAME(fmin) 262 1.1 mrg ldi ZH, hi8(gs(F7_NAME(fmin))) 263 1.1 mrg ldi ZL, lo8(gs(F7_NAME(fmin))) 264 1.1 mrg F7jmp call_ddd 265 1.1 mrg _ENDF __fmin 266 1.1 mrg #endif /* F7MOD_D_fmin_ */ 267 1.1 mrg 268 1.1 mrg ;; double __fmax (double, double) 269 1.1 mrg #ifdef F7MOD_D_fmax_ 270 1.1 mrg _DEFUN __fmax 271 1.1 mrg DALIAS fmax 272 1.1 mrg LALIAS fmaxl 273 1.1 mrg .global F7_NAME(fmax) 274 1.1 mrg ldi ZH, hi8(gs(F7_NAME(fmax))) 275 1.1 mrg ldi ZL, lo8(gs(F7_NAME(fmax))) 276 1.1 mrg F7jmp call_ddd 277 1.1 mrg _ENDF __fmax 278 1.1 mrg #endif /* F7MOD_D_fmax_ */ 279 1.1 mrg 280 1.1 mrg ;; double __fmod (double, double) 281 1.1 mrg #ifdef F7MOD_D_fmod_ 282 1.1 mrg _DEFUN __fmod 283 1.1 mrg DALIAS fmod 284 1.1 mrg LALIAS fmodl 285 1.1 mrg .global F7_NAME(fmod) 286 1.1 mrg ldi ZH, hi8(gs(F7_NAME(fmod))) 287 1.1 mrg ldi ZL, lo8(gs(F7_NAME(fmod))) 288 1.1 mrg F7jmp call_ddd 289 1.1 mrg _ENDF __fmod 290 1.1 mrg #endif /* F7MOD_D_fmod_ */ 291 1.1 mrg 292 1.1 mrg ;; double __hypot (double, double) 293 1.1 mrg #ifdef F7MOD_D_hypot_ 294 1.1 mrg _DEFUN __hypot 295 1.1 mrg DALIAS hypot 296 1.1 mrg LALIAS hypotl 297 1.1 mrg .global F7_NAME(hypot) 298 1.1 mrg ldi ZH, hi8(gs(F7_NAME(hypot))) 299 1.1 mrg ldi ZL, lo8(gs(F7_NAME(hypot))) 300 1.1 mrg F7jmp call_ddd 301 1.1 mrg _ENDF __hypot 302 1.1 mrg #endif /* F7MOD_D_hypot_ */ 303 1.1 mrg 304 1.1 mrg ;; double __atan2 (double, double) 305 1.1 mrg #ifdef F7MOD_D_atan2_ 306 1.1 mrg _DEFUN __atan2 307 1.1 mrg DALIAS atan2 308 1.1 mrg LALIAS atan2l 309 1.1 mrg .global F7_NAME(atan2) 310 1.1 mrg ldi ZH, hi8(gs(F7_NAME(atan2))) 311 1.1 mrg ldi ZL, lo8(gs(F7_NAME(atan2))) 312 1.1 mrg F7jmp call_ddd 313 1.1 mrg _ENDF __atan2 314 1.1 mrg #endif /* F7MOD_D_atan2_ */ 315 1.1 mrg 316 1.1 mrg ;; Functions that usually live in libm: Depending on [long] double layout, 317 1.1 mrg ;; define <name> and <name>l as weak alias(es) of __<name> for <name> in: 318 1.1 mrg ;; ldexp frexp 319 1.1 mrg 320 1.1 mrg ;; double __ldexp (double, word_t) 321 1.1 mrg #ifdef F7MOD_D_ldexp_ 322 1.1 mrg _DEFUN __ldexp 323 1.1 mrg DALIAS ldexp 324 1.1 mrg LALIAS ldexpl 325 1.1 mrg .global F7_NAME(ldexp) 326 1.1 mrg ldi ZH, hi8(gs(F7_NAME(ldexp))) 327 1.1 mrg ldi ZL, lo8(gs(F7_NAME(ldexp))) 328 1.1 mrg F7jmp call_ddx 329 1.1 mrg _ENDF __ldexp 330 1.1 mrg #endif /* F7MOD_D_ldexp_ */ 331 1.1 mrg 332 1.1 mrg ;; double __frexp (double, word_t) 333 1.1 mrg #ifdef F7MOD_D_frexp_ 334 1.1 mrg _DEFUN __frexp 335 1.1 mrg DALIAS frexp 336 1.1 mrg LALIAS frexpl 337 1.1 mrg .global F7_NAME(frexp) 338 1.1 mrg ldi ZH, hi8(gs(F7_NAME(frexp))) 339 1.1 mrg ldi ZL, lo8(gs(F7_NAME(frexp))) 340 1.1 mrg F7jmp call_ddx 341 1.1 mrg _ENDF __frexp 342 1.1 mrg #endif /* F7MOD_D_frexp_ */ 343 1.1 mrg 344 1.1 mrg ;; Functions that usually live in libm: Depending on [long] double layout, 345 1.1 mrg ;; define <name> and <name>l as weak alias(es) of __<name> for <name> in: 346 1.1 mrg ;; sqrt cbrt exp exp10 pow10 log log10 log2 sin cos tan cotan asin acos atan ceil floor trunc round sinh cosh tanh 347 1.1 mrg 348 1.1 mrg ;; double __sqrt (double) 349 1.1 mrg #ifdef F7MOD_D_sqrt_ 350 1.1 mrg _DEFUN __sqrt 351 1.1 mrg DALIAS sqrt 352 1.1 mrg LALIAS sqrtl 353 1.1 mrg .global F7_NAME(sqrt) 354 1.1 mrg ldi ZH, hi8(gs(F7_NAME(sqrt))) 355 1.1 mrg ldi ZL, lo8(gs(F7_NAME(sqrt))) 356 1.1 mrg F7jmp call_dd 357 1.1 mrg _ENDF __sqrt 358 1.1 mrg #endif /* F7MOD_D_sqrt_ */ 359 1.1 mrg 360 1.1 mrg ;; double __cbrt (double) 361 1.1 mrg #ifdef F7MOD_D_cbrt_ 362 1.1 mrg _DEFUN __cbrt 363 1.1 mrg DALIAS cbrt 364 1.1 mrg LALIAS cbrtl 365 1.1 mrg .global F7_NAME(cbrt) 366 1.1 mrg ldi ZH, hi8(gs(F7_NAME(cbrt))) 367 1.1 mrg ldi ZL, lo8(gs(F7_NAME(cbrt))) 368 1.1 mrg F7jmp call_dd 369 1.1 mrg _ENDF __cbrt 370 1.1 mrg #endif /* F7MOD_D_cbrt_ */ 371 1.1 mrg 372 1.1 mrg ;; double __exp (double) 373 1.1 mrg #ifdef F7MOD_D_exp_ 374 1.1 mrg _DEFUN __exp 375 1.1 mrg DALIAS exp 376 1.1 mrg LALIAS expl 377 1.1 mrg .global F7_NAME(exp) 378 1.1 mrg ldi ZH, hi8(gs(F7_NAME(exp))) 379 1.1 mrg ldi ZL, lo8(gs(F7_NAME(exp))) 380 1.1 mrg F7jmp call_dd 381 1.1 mrg _ENDF __exp 382 1.1 mrg #endif /* F7MOD_D_exp_ */ 383 1.1 mrg 384 1.1 mrg ;; double __exp10 (double) 385 1.1 mrg #ifdef F7MOD_D_exp10_ 386 1.1 mrg _DEFUN __exp10 387 1.1 mrg DALIAS exp10 388 1.1 mrg LALIAS exp10l 389 1.1 mrg .global F7_NAME(exp10) 390 1.1 mrg ldi ZH, hi8(gs(F7_NAME(exp10))) 391 1.1 mrg ldi ZL, lo8(gs(F7_NAME(exp10))) 392 1.1 mrg F7jmp call_dd 393 1.1 mrg _ENDF __exp10 394 1.1 mrg #endif /* F7MOD_D_exp10_ */ 395 1.1 mrg 396 1.1 mrg ;; double __pow10 (double) 397 1.1 mrg #ifdef F7MOD_D_pow10_ 398 1.1 mrg _DEFUN __pow10 399 1.1 mrg DALIAS pow10 400 1.1 mrg LALIAS pow10l 401 1.1 mrg .global F7_NAME(pow10) 402 1.1 mrg ldi ZH, hi8(gs(F7_NAME(pow10))) 403 1.1 mrg ldi ZL, lo8(gs(F7_NAME(pow10))) 404 1.1 mrg F7jmp call_dd 405 1.1 mrg _ENDF __pow10 406 1.1 mrg #endif /* F7MOD_D_pow10_ */ 407 1.1 mrg 408 1.1 mrg ;; double __log (double) 409 1.1 mrg #ifdef F7MOD_D_log_ 410 1.1 mrg _DEFUN __log 411 1.1 mrg DALIAS log 412 1.1 mrg LALIAS logl 413 1.1 mrg .global F7_NAME(log) 414 1.1 mrg ldi ZH, hi8(gs(F7_NAME(log))) 415 1.1 mrg ldi ZL, lo8(gs(F7_NAME(log))) 416 1.1 mrg F7jmp call_dd 417 1.1 mrg _ENDF __log 418 1.1 mrg #endif /* F7MOD_D_log_ */ 419 1.1 mrg 420 1.1 mrg ;; double __log10 (double) 421 1.1 mrg #ifdef F7MOD_D_log10_ 422 1.1 mrg _DEFUN __log10 423 1.1 mrg DALIAS log10 424 1.1 mrg LALIAS log10l 425 1.1 mrg .global F7_NAME(log10) 426 1.1 mrg ldi ZH, hi8(gs(F7_NAME(log10))) 427 1.1 mrg ldi ZL, lo8(gs(F7_NAME(log10))) 428 1.1 mrg F7jmp call_dd 429 1.1 mrg _ENDF __log10 430 1.1 mrg #endif /* F7MOD_D_log10_ */ 431 1.1 mrg 432 1.1 mrg ;; double __log2 (double) 433 1.1 mrg #ifdef F7MOD_D_log2_ 434 1.1 mrg _DEFUN __log2 435 1.1 mrg DALIAS log2 436 1.1 mrg LALIAS log2l 437 1.1 mrg .global F7_NAME(log2) 438 1.1 mrg ldi ZH, hi8(gs(F7_NAME(log2))) 439 1.1 mrg ldi ZL, lo8(gs(F7_NAME(log2))) 440 1.1 mrg F7jmp call_dd 441 1.1 mrg _ENDF __log2 442 1.1 mrg #endif /* F7MOD_D_log2_ */ 443 1.1 mrg 444 1.1 mrg ;; double __sin (double) 445 1.1 mrg #ifdef F7MOD_D_sin_ 446 1.1 mrg _DEFUN __sin 447 1.1 mrg DALIAS sin 448 1.1 mrg LALIAS sinl 449 1.1 mrg .global F7_NAME(sin) 450 1.1 mrg ldi ZH, hi8(gs(F7_NAME(sin))) 451 1.1 mrg ldi ZL, lo8(gs(F7_NAME(sin))) 452 1.1 mrg F7jmp call_dd 453 1.1 mrg _ENDF __sin 454 1.1 mrg #endif /* F7MOD_D_sin_ */ 455 1.1 mrg 456 1.1 mrg ;; double __cos (double) 457 1.1 mrg #ifdef F7MOD_D_cos_ 458 1.1 mrg _DEFUN __cos 459 1.1 mrg DALIAS cos 460 1.1 mrg LALIAS cosl 461 1.1 mrg .global F7_NAME(cos) 462 1.1 mrg ldi ZH, hi8(gs(F7_NAME(cos))) 463 1.1 mrg ldi ZL, lo8(gs(F7_NAME(cos))) 464 1.1 mrg F7jmp call_dd 465 1.1 mrg _ENDF __cos 466 1.1 mrg #endif /* F7MOD_D_cos_ */ 467 1.1 mrg 468 1.1 mrg ;; double __tan (double) 469 1.1 mrg #ifdef F7MOD_D_tan_ 470 1.1 mrg _DEFUN __tan 471 1.1 mrg DALIAS tan 472 1.1 mrg LALIAS tanl 473 1.1 mrg .global F7_NAME(tan) 474 1.1 mrg ldi ZH, hi8(gs(F7_NAME(tan))) 475 1.1 mrg ldi ZL, lo8(gs(F7_NAME(tan))) 476 1.1 mrg F7jmp call_dd 477 1.1 mrg _ENDF __tan 478 1.1 mrg #endif /* F7MOD_D_tan_ */ 479 1.1 mrg 480 1.1 mrg ;; double __cotan (double) 481 1.1 mrg #ifdef F7MOD_D_cotan_ 482 1.1 mrg _DEFUN __cotan 483 1.1 mrg DALIAS cotan 484 1.1 mrg LALIAS cotanl 485 1.1 mrg .global F7_NAME(cotan) 486 1.1 mrg ldi ZH, hi8(gs(F7_NAME(cotan))) 487 1.1 mrg ldi ZL, lo8(gs(F7_NAME(cotan))) 488 1.1 mrg F7jmp call_dd 489 1.1 mrg _ENDF __cotan 490 1.1 mrg #endif /* F7MOD_D_cotan_ */ 491 1.1 mrg 492 1.1 mrg ;; double __asin (double) 493 1.1 mrg #ifdef F7MOD_D_asin_ 494 1.1 mrg _DEFUN __asin 495 1.1 mrg DALIAS asin 496 1.1 mrg LALIAS asinl 497 1.1 mrg .global F7_NAME(asin) 498 1.1 mrg ldi ZH, hi8(gs(F7_NAME(asin))) 499 1.1 mrg ldi ZL, lo8(gs(F7_NAME(asin))) 500 1.1 mrg F7jmp call_dd 501 1.1 mrg _ENDF __asin 502 1.1 mrg #endif /* F7MOD_D_asin_ */ 503 1.1 mrg 504 1.1 mrg ;; double __acos (double) 505 1.1 mrg #ifdef F7MOD_D_acos_ 506 1.1 mrg _DEFUN __acos 507 1.1 mrg DALIAS acos 508 1.1 mrg LALIAS acosl 509 1.1 mrg .global F7_NAME(acos) 510 1.1 mrg ldi ZH, hi8(gs(F7_NAME(acos))) 511 1.1 mrg ldi ZL, lo8(gs(F7_NAME(acos))) 512 1.1 mrg F7jmp call_dd 513 1.1 mrg _ENDF __acos 514 1.1 mrg #endif /* F7MOD_D_acos_ */ 515 1.1 mrg 516 1.1 mrg ;; double __atan (double) 517 1.1 mrg #ifdef F7MOD_D_atan_ 518 1.1 mrg _DEFUN __atan 519 1.1 mrg DALIAS atan 520 1.1 mrg LALIAS atanl 521 1.1 mrg .global F7_NAME(atan) 522 1.1 mrg ldi ZH, hi8(gs(F7_NAME(atan))) 523 1.1 mrg ldi ZL, lo8(gs(F7_NAME(atan))) 524 1.1 mrg F7jmp call_dd 525 1.1 mrg _ENDF __atan 526 1.1 mrg #endif /* F7MOD_D_atan_ */ 527 1.1 mrg 528 1.1 mrg ;; double __ceil (double) 529 1.1 mrg #ifdef F7MOD_D_ceil_ 530 1.1 mrg _DEFUN __ceil 531 1.1 mrg DALIAS ceil 532 1.1 mrg LALIAS ceill 533 1.1 mrg .global F7_NAME(ceil) 534 1.1 mrg ldi ZH, hi8(gs(F7_NAME(ceil))) 535 1.1 mrg ldi ZL, lo8(gs(F7_NAME(ceil))) 536 1.1 mrg F7jmp call_dd 537 1.1 mrg _ENDF __ceil 538 1.1 mrg #endif /* F7MOD_D_ceil_ */ 539 1.1 mrg 540 1.1 mrg ;; double __floor (double) 541 1.1 mrg #ifdef F7MOD_D_floor_ 542 1.1 mrg _DEFUN __floor 543 1.1 mrg DALIAS floor 544 1.1 mrg LALIAS floorl 545 1.1 mrg .global F7_NAME(floor) 546 1.1 mrg ldi ZH, hi8(gs(F7_NAME(floor))) 547 1.1 mrg ldi ZL, lo8(gs(F7_NAME(floor))) 548 1.1 mrg F7jmp call_dd 549 1.1 mrg _ENDF __floor 550 1.1 mrg #endif /* F7MOD_D_floor_ */ 551 1.1 mrg 552 1.1 mrg ;; double __trunc (double) 553 1.1 mrg #ifdef F7MOD_D_trunc_ 554 1.1 mrg _DEFUN __trunc 555 1.1 mrg DALIAS trunc 556 1.1 mrg LALIAS truncl 557 1.1 mrg .global F7_NAME(trunc) 558 1.1 mrg ldi ZH, hi8(gs(F7_NAME(trunc))) 559 1.1 mrg ldi ZL, lo8(gs(F7_NAME(trunc))) 560 1.1 mrg F7jmp call_dd 561 1.1 mrg _ENDF __trunc 562 1.1 mrg #endif /* F7MOD_D_trunc_ */ 563 1.1 mrg 564 1.1 mrg ;; double __round (double) 565 1.1 mrg #ifdef F7MOD_D_round_ 566 1.1 mrg _DEFUN __round 567 1.1 mrg DALIAS round 568 1.1 mrg LALIAS roundl 569 1.1 mrg .global F7_NAME(round) 570 1.1 mrg ldi ZH, hi8(gs(F7_NAME(round))) 571 1.1 mrg ldi ZL, lo8(gs(F7_NAME(round))) 572 1.1 mrg F7jmp call_dd 573 1.1 mrg _ENDF __round 574 1.1 mrg #endif /* F7MOD_D_round_ */ 575 1.1 mrg 576 1.1 mrg ;; double __sinh (double) 577 1.1 mrg #ifdef F7MOD_D_sinh_ 578 1.1 mrg _DEFUN __sinh 579 1.1 mrg DALIAS sinh 580 1.1 mrg LALIAS sinhl 581 1.1 mrg .global F7_NAME(sinh) 582 1.1 mrg ldi ZH, hi8(gs(F7_NAME(sinh))) 583 1.1 mrg ldi ZL, lo8(gs(F7_NAME(sinh))) 584 1.1 mrg F7jmp call_dd 585 1.1 mrg _ENDF __sinh 586 1.1 mrg #endif /* F7MOD_D_sinh_ */ 587 1.1 mrg 588 1.1 mrg ;; double __cosh (double) 589 1.1 mrg #ifdef F7MOD_D_cosh_ 590 1.1 mrg _DEFUN __cosh 591 1.1 mrg DALIAS cosh 592 1.1 mrg LALIAS coshl 593 1.1 mrg .global F7_NAME(cosh) 594 1.1 mrg ldi ZH, hi8(gs(F7_NAME(cosh))) 595 1.1 mrg ldi ZL, lo8(gs(F7_NAME(cosh))) 596 1.1 mrg F7jmp call_dd 597 1.1 mrg _ENDF __cosh 598 1.1 mrg #endif /* F7MOD_D_cosh_ */ 599 1.1 mrg 600 1.1 mrg ;; double __tanh (double) 601 1.1 mrg #ifdef F7MOD_D_tanh_ 602 1.1 mrg _DEFUN __tanh 603 1.1 mrg DALIAS tanh 604 1.1 mrg LALIAS tanhl 605 1.1 mrg .global F7_NAME(tanh) 606 1.1 mrg ldi ZH, hi8(gs(F7_NAME(tanh))) 607 1.1 mrg ldi ZL, lo8(gs(F7_NAME(tanh))) 608 1.1 mrg F7jmp call_dd 609 1.1 mrg _ENDF __tanh 610 1.1 mrg #endif /* F7MOD_D_tanh_ */ 611 1.1 mrg 612 1.1 mrg ;; Functions that usually live in libm: Depending on [long] double layout, 613 1.1 mrg ;; define <name> and <name>l as weak alias(es) of __<name> for <name> in: 614 1.1 mrg ;; lrint lround 615 1.1 mrg 616 1.1 mrg ;; type_t __lrint (double) 617 1.1 mrg #ifdef F7MOD_D_lrint_ 618 1.1 mrg _DEFUN __lrint 619 1.1 mrg DALIAS lrint 620 1.1 mrg LALIAS lrintl 621 1.1 mrg .global F7_NAME(lrint) 622 1.1 mrg ldi ZH, hi8(gs(F7_NAME(lrint))) 623 1.1 mrg ldi ZL, lo8(gs(F7_NAME(lrint))) 624 1.1 mrg F7jmp call_xd 625 1.1 mrg _ENDF __lrint 626 1.1 mrg #endif /* F7MOD_D_lrint_ */ 627 1.1 mrg 628 1.1 mrg ;; type_t __lround (double) 629 1.1 mrg #ifdef F7MOD_D_lround_ 630 1.1 mrg _DEFUN __lround 631 1.1 mrg DALIAS lround 632 1.1 mrg LALIAS lroundl 633 1.1 mrg .global F7_NAME(lround) 634 1.1 mrg ldi ZH, hi8(gs(F7_NAME(lround))) 635 1.1 mrg ldi ZL, lo8(gs(F7_NAME(lround))) 636 1.1 mrg F7jmp call_xd 637 1.1 mrg _ENDF __lround 638 1.1 mrg #endif /* F7MOD_D_lround_ */ 639