Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. /*
  2.  * ====================================================
  3.  * Copyright (C) 1998, 2002 by Red Hat Inc. 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. #if !defined(_SOFT_FLOAT)
  12.  
  13. /*
  14. Fast version of atan2f using Intel float instructions.
  15.  
  16.    float _f_atan2f (float y, float x);
  17.  
  18. Function computes arctan ( y / x ).
  19. There is no error checking or setting of errno.
  20. */
  21.  
  22.         #include "i386mach.h"
  23.  
  24.         .global SYM (_f_atan2f)
  25.        SOTYPE_FUNCTION(_f_atan2f)
  26.  
  27. SYM (_f_atan2f):
  28.         pushl ebp
  29.         movl esp,ebp
  30.         flds 8(ebp)
  31.         flds 12(ebp)
  32.         fpatan
  33.  
  34.         leave
  35.         ret
  36.  
  37. #endif
  38.