newlib/libm/machine/i386/f_atan2.S

   1 /*
   2  * ====================================================
   3  * Copyright (C) 1998 by Cygnus Solutions. All rights reserved.
   4  *
   5  * Permission to use, copy, modify, and distribute this
   6  * software is freely granted, provided that this notice
   7  * is preserved.
   8  * ====================================================
   9  */
  10
  11 /*
  12 Fast version of atan2 using Intel float instructions.
  13
  14    double _f_atan2 (double y, double x);
  15
  16 Function computes arctan ( y / x ).
  17 There is no error checking or setting of errno.
  18 */
  19
  20         #include "i386mach.h"
  21
  22         .global SYM (_f_atan2)
  23        SOTYPE_FUNCTION(_f_atan2)
  24
  25 SYM (_f_atan2):
  26         pushl ebp
  27         movl esp,ebp
  28         fldl 8(ebp)
  29         fldl 16(ebp)
  30         fpatan
  31
  32         leave
  33         ret