arch/m68k-all/stdc/math/s_floor-881.s

   1 #    Copyright © 2018, The AROS Development Team. All rights reserved.
   2 #    $Id$
   3 #include "aros/m68k/asm.h"
   4
   5         .text
   6         .balign 4
   7         .globl  AROS_SLIB_ENTRY(floor881, STDC, 167)
   8         _FUNCTION(AROS_SLIB_ENTRY(floor881, STDC, 167))
   9
  10 AROS_SLIB_ENTRY(floor881, STDC, 167):
  11         fmove.s %d0,%fp0
  12         fmove.x %fp0,%fp1
  13         fintrz.x        %fp0
  14         fcmp.x  %fp1,%fp0
  15         fbole   .floor881done
  16         fsub.s  #0x3f800000,%fp0
  17 .floor881done:
  18         fmove.s %fp0,%d0
  19         rts