atan2l.c « math « mingwex « mingw « winsup - cygwin.com/git/newlib-cygwin.git - Unnamed repository; edit this file 'description' to name the repository.

Welcome to mirror list, hosted at ThFree Co, Russian Federation.

atan2l.c « math « mingwex « mingw « winsup - cygwin.com/git/newlib-cygwin.git - Unnamed repository; edit this file 'description' to name the repository.

index : cygwin.com/git/newlib-cygwin.git

Unnamed repository; edit this file 'description' to name the repository.

root

summary refs log tree commit diff

path: root/winsup/mingw/mingwex/math/atan2l.c

blob: efd62c1ec761de03afc3cad4a7744dab04191887 (plain)

/*
 * Written by J.T. Conklin <jtc@netbsd.org>.
 * Public domain.
 *
 * Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>.
 */

#include <math.h>

long double
atan2l (long double y, long double x)
{
  long double res;
  asm ("fpatan" : "=t" (res) : "u" (y), "0" (x) : "st(1)");
  return res;
}