← Back to branch summary

~steve-sk2/mingw-w64/oneiric

« back to all changes in this revision

Viewing changes to mingw-w64-crt/complex/catanhl.c

  • Committer: Bazaar Package Importer
  • Author(s): Stephen Kitt
  • Date: 2010-11-18 00:04:46 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20101118000446-xe24b423su55onyl
Tags: 1.0+20101003-1
http://bugs.debian.org/594371
http://bugs.debian.org/569914
http://bugs.debian.org/600451
* New maintainer. (Closes: #594371.)
* New upstream snapshot:
  - Includes getopt.h. (Closes: #569914.)
* Build g++ for Win64. (Closes: #600451.)
* Standards-Version 3.9.1 (new packaging).
* Include patch from
  http://mingw-w64.svn.sourceforge.net/viewvc/mingw-w64?view=revision&revision=3715
  as suggested by Rafaël Carré.

Show diffs side-by-side

added added

removed removed

Lines of Context:
mingw-w64-crt/complex/catanhl.c
1
 
/**
2
 
 * This file has no copyright assigned and is placed in the Public Domain.
3
 
 * This file is part of the w64 mingw-runtime package.
4
 
 * No warranty is given; refer to the file DISCLAIMER.PD within this package.
5
 
 */
6
 
/* catanhl.c */
7
 
/*
8
 
   Contributed by Danny Smith
9
 
   2005-01-04
10
 
*/
11
 
 
12
 
#include <math.h>
13
 
#include <complex.h>
14
 
 
15
 
/*  catanh (z) = -I * catan (I  * z)  */
16
 
 
17
 
long double complex catanhl (long double complex Z)
18
 
{
19
 
  long double complex Tmp;
20
 
  long double complex Res;
21
 
 
22
 
  __real__ Tmp = - __imag__ Z;
23
 
  __imag__ Tmp =   __real__ Z;
24
 
  Tmp = catanl (Tmp);
25
 
  __real__ Res =  __imag__ Tmp;
26
 
  __imag__ Res = - __real__ Tmp;
27
 
  return Res;
28
 
}
 
1
/**
 
2
 * This file has no copyright assigned and is placed in the Public Domain.
 
3
 * This file is part of the w64 mingw-runtime package.
 
4
 * No warranty is given; refer to the file DISCLAIMER.PD within this package.
 
5
 */
 
6
/* catanhl.c */
 
7
/*
 
8
   Contributed by Danny Smith
 
9
   2005-01-04
 
10
*/
 
11
 
 
12
#include <math.h>
 
13
#include <complex.h>
 
14
 
 
15
/*  catanh (z) = -I * catan (I  * z)  */
 
16
 
 
17
long double complex catanhl (long double complex Z)
 
18
{
 
19
  long double complex Tmp;
 
20
  long double complex Res;
 
21
 
 
22
  __real__ Tmp = - __imag__ Z;
 
23
  __imag__ Tmp =   __real__ Z;
 
24
  Tmp = catanl (Tmp);
 
25
  __real__ Res =  __imag__ Tmp;
 
26
  __imag__ Res = - __real__ Tmp;
 
27
  return Res;
 
28
}