Ignore:
Timestamp:
Apr 27, 2004, 8:39:34 PM (22 years ago)
Author:
bird
Message:

GCC v3.3.3 sources.

Location:
branches/GNU/src/gcc
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/GNU/src/gcc

    • Property svn:ignore

      •  

        old new  
        2626configure.vr
        2727configure.vrs
         28
        2829Makefile
        29 dir.info
        3030lost+found
        3131update.out

  • branches/GNU/src/gcc/libf2c/libF77/cabs.c

    • Property cvs2svn:cvs-rev changed from 1.1 to 1.1.1.2
    r1390 r1391  
    1 #ifdef KR_headers
    2 extern double sqrt();
    3 double f__cabs(real, imag) double real, imag;
    4 #else
    51#undef abs
    62#include <math.h>
    7 double f__cabs(double real, double imag)
    8 #endif
     3double
     4f__cabs (double real, double imag)
    95{
    10 double temp;
     6double temp;
    117
    12 if(real < 0)
    13         real = -real;
    14 if(imag < 0)
    15         imag = -imag;
    16 if(imag > real){
    17         temp = real;
    18         real = imag;
    19         imag = temp;
     8  if (real < 0)
     9    real = -real;
     10  if (imag < 0)
     11    imag = -imag;
     12  if (imag > real)
     13    {
     14      temp = real;
     15      real = imag;
     16      imag = temp;
     17    }
     18  if ((real + imag) == real)
     19    return (real);
     20
     21  temp = imag / real;
     22  temp = real * sqrt (1.0 + temp * temp);       /*overflow!! */
     23  return (temp);
    2024}
    21 if((real+imag) == real)
    22         return(real);
    23 
    24 temp = imag/real;
    25 temp = real*sqrt(1.0 + temp*temp);  /*overflow!!*/
    26 return(temp);
    27 }
Note: See TracChangeset for help on using the changeset viewer.