Computer Club Elmshorn Atari PD/CCE_PD.iso/pc/0600/CCE_0638.ZIP/CCE_0638/UPDATE/UPDATE30.ZOO/include/diffh

Text File | 1993-05-21 | 17KB | 868 lines

===================================================================
RCS file: /net/acae127/home/bammi/etc/src/master/atari/include/PatchLev.h,v
retrieving revision 1.49
diff -c -r1.49 PatchLev.h
*** 1.49    1993/03/29 03:21:52
--- PatchLev.h    1993/05/21 12:53:20
***************
*** 1,5 ****

! #define    PatchLevel "88"

  /*
   *
--- 1,5 ----

! #define    PatchLevel "89"

  /*
   *
===================================================================
RCS file: /net/acae127/home/bammi/etc/src/master/atari/include/math-68881.h,v
retrieving revision 1.4
diff -c -r1.4 math-68881.h
*** 1.4    1992/06/03 15:23:13
--- math-68881.h    1993/05/21 12:53:22
***************
*** 1,6 ****
  /******************************************************************\
  *                                   *
! *  <math-68881.h>        last modified: 18 May 1989.       *
  *                                   *
  *  Copyright (C) 1989 by Matthew Self.                   *
  *  You may freely distribute verbatim copies of this software       *
--- 1,9 ----
+ #ifndef _MATH_68881_H
+ #define _MATH_68881_H
+
  /******************************************************************\
  *                                   *
! *  <math-68881.h>        last modified: 23 May 1992.       *
  *                                   *
  *  Copyright (C) 1989 by Matthew Self.                   *
  *  You may freely distribute verbatim copies of this software       *
***************
*** 19,27 ****
  *                                   *
  \******************************************************************/

! /* Modified by Richard Stallman, November 1990, to initialize HUGE_VAL
!    specially on a Sun.
!    December 1989, add parens around `&' in pow.  */

  #include <errno.h>

--- 22,36 ----
  *                                   *
  \******************************************************************/

! /* If you find this in GCC,
!    please send bug reports to [e-mail].  */
!
! /* Changed by Richard Stallman: % inserted before a #.
!    New function `hypot' added.
!    Nans written in hex to avoid 0rnan.
!    May 1992, use %! for fpcr register.  Break lines before function names.
!    December 1989, add parens around `&' in pow.
!    November 1990, added alternate definition of HUGE_VAL for Sun.  */

  #include <errno.h>

***************
*** 38,44 ****
  ({                                    \
    double huge_val;                            \
                                      \
!   __asm ("fmove%.d #0x7ff0000000000000,%0"    /* Infinity */        \
       : "=f" (huge_val)                        \
       : /* no inputs */);                        \
    huge_val;                                \
--- 47,53 ----
  ({                                    \
    double huge_val;                            \
                                      \
!   __asm ("fmove%.d %#0x7ff0000000000000,%0"    /* Infinity */        \
       : "=f" (huge_val)                        \
       : /* no inputs */);                        \
    huge_val;                                \
***************
*** 46,52 ****
  #endif
  #endif

! __inline static const double sin (double x)
  {
    double value;

--- 55,62 ----
  #endif
  #endif

! __inline static const double
! sin (double x)
  {
    double value;

***************
*** 56,62 ****
    return value;
  }

! __inline static const double cos (double x)
  {
    double value;

--- 66,73 ----
    return value;
  }

! __inline static const double
! cos (double x)
  {
    double value;

***************
*** 66,72 ****
    return value;
  }

! __inline static const double tan (double x)
  {
    double value;

--- 77,84 ----
    return value;
  }

! __inline static const double
! tan (double x)
  {
    double value;

***************
*** 76,82 ****
    return value;
  }

! __inline static const double asin (double x)
  {
    double value;

--- 88,95 ----
    return value;
  }

! __inline static const double
! asin (double x)
  {
    double value;

***************
*** 86,92 ****
    return value;
  }

! __inline static const double acos (double x)
  {
    double value;

--- 99,106 ----
    return value;
  }

! __inline static const double
! acos (double x)
  {
    double value;

***************
*** 96,102 ****
    return value;
  }

! __inline static const double atan (double x)
  {
    double value;

--- 110,117 ----
    return value;
  }

! __inline static const double
! atan (double x)
  {
    double value;

***************
*** 106,112 ****
    return value;
  }

! __inline static const double atan2 (double y, double x)
  {
    double pi, pi_over_2;

--- 121,128 ----
    return value;
  }

! __inline static const double
! atan2 (double y, double x)
  {
    double pi, pi_over_2;

***************
*** 152,157 ****
--- 168,174 ----
          {
            double value;

+           errno = EDOM;
            __asm ("fmove%.d %#0x7fffffffffffffff,%0"     /* quiet NaN */
               : "=f" (value)
               : /* no inputs */);
***************
*** 161,167 ****
      }
  }

! __inline static const double sinh (double x)
  {
    double value;

--- 178,185 ----
      }
  }

! __inline static const double
! sinh (double x)
  {
    double value;

***************
*** 171,177 ****
    return value;
  }

! __inline static const double cosh (double x)
  {
    double value;

--- 189,196 ----
    return value;
  }

! __inline static const double
! cosh (double x)
  {
    double value;

***************
*** 181,187 ****
    return value;
  }

! __inline static const double tanh (double x)
  {
    double value;

--- 200,207 ----
    return value;
  }

! __inline static const double
! tanh (double x)
  {
    double value;

***************
*** 191,197 ****
    return value;
  }

! __inline static const double atanh (double x)
  {
    double value;

--- 211,218 ----
    return value;
  }

! __inline static const double
! atanh (double x)
  {
    double value;

***************
*** 201,207 ****
    return value;
  }

! __inline static const double exp (double x)
  {
    double value;

--- 222,229 ----
    return value;
  }

! __inline static const double
! exp (double x)
  {
    double value;

***************
*** 211,217 ****
    return value;
  }

! __inline static const double expm1 (double x)
  {
    double value;

--- 233,240 ----
    return value;
  }

! __inline static const double
! expm1 (double x)
  {
    double value;

***************
*** 221,227 ****
    return value;
  }

! __inline static const double log (double x)
  {
    double value;

--- 244,251 ----
    return value;
  }

! __inline static const double
! log (double x)
  {
    double value;

***************
*** 231,237 ****
    return value;
  }

! __inline static const double log1p (double x)
  {
    double value;

--- 255,262 ----
    return value;
  }

! __inline static const double
! log1p (double x)
  {
    double value;

***************
*** 241,247 ****
    return value;
  }

! __inline static const double log10 (double x)
  {
    double value;

--- 266,273 ----
    return value;
  }

! __inline static const double
! log10 (double x)
  {
    double value;

***************
*** 251,257 ****
    return value;
  }

! __inline static const double sqrt (double x)
  {
    double value;

--- 277,284 ----
    return value;
  }

! __inline static const double
! sqrt (double x)
  {
    double value;

***************
*** 261,273 ****
    return value;
  }

! __inline static const double hypot (const double x, const double y)
  {
!     return sqrt(x*x + y*y);
  }

!
! __inline static const double pow (const double x, const double y)
  {
    if (x > 0)
      return exp (y * log (x));
--- 288,301 ----
    return value;
  }

! __inline static const double
! hypot (const double x, const double y)
  {
!   return sqrt (x*x + y*y);
  }

! __inline static const double
! pow (const double x, const double y)
  {
    if (x > 0)
      return exp (y * log (x));
***************
*** 279,285 ****
      {
        double value;

!           __asm ("fmove%.d %#0x7fffffffffffffff,%0"     /* quiet NaN */
           : "=f" (value)
           : /* no inputs */);
        return value;
--- 307,314 ----
      {
        double value;

!       errno = EDOM;
!       __asm ("fmove%.d %#0x7fffffffffffffff,%0"        /* quiet NaN */
           : "=f" (value)
           : /* no inputs */);
        return value;
***************
*** 305,311 ****
          {
        double value;

!           __asm ("fmove%.d %#0x7fffffffffffffff,%0"     /* quiet NaN */
           : "=f" (value)
           : /* no inputs */);
        return value;
--- 334,341 ----
          {
        double value;

!       errno = EDOM;
!       __asm ("fmove%.d %#0x7fffffffffffffff,%0"        /* quiet NaN */
           : "=f" (value)
           : /* no inputs */);
        return value;
***************
*** 313,319 ****
      }
  }

! __inline static const double fabs (double x)
  {
    double value;

--- 343,350 ----
      }
  }

! __inline static const double
! fabs (double x)
  {
    double value;

***************
*** 323,393 ****
    return value;
  }

! __inline static const double ceil (double x)
  {
    int rounding_mode, round_up;
    double value;

!   __asm volatile ("fmove%.l fpcr,%0"
            : "=dm" (rounding_mode)
            : /* no inputs */ );
    round_up = rounding_mode | 0x30;
!   __asm volatile ("fmove%.l %0,fpcr"
            : /* no outputs */
            : "dmi" (round_up));
    __asm volatile ("fint%.x %1,%0"
            : "=f" (value)
            : "f" (x));
!   __asm volatile ("fmove%.l %0,fpcr"
            : /* no outputs */
            : "dmi" (rounding_mode));
    return value;
  }

! __inline static const double floor (double x)
  {
    int rounding_mode, round_down;
    double value;

!   __asm volatile ("fmove%.l fpcr,%0"
            : "=dm" (rounding_mode)
            : /* no inputs */ );
    round_down = (rounding_mode & ~0x10)
          | 0x20;
!   __asm volatile ("fmove%.l %0,fpcr"
            : /* no outputs */
            : "dmi" (round_down));
    __asm volatile ("fint%.x %1,%0"
            : "=f" (value)
            : "f" (x));
!   __asm volatile ("fmove%.l %0,fpcr"
            : /* no outputs */
            : "dmi" (rounding_mode));
    return value;
  }

! __inline static const double rint (double x)
  {
    int rounding_mode, round_nearest;
    double value;

!   __asm volatile ("fmove%.l fpcr,%0"
            : "=dm" (rounding_mode)
            : /* no inputs */ );
    round_nearest = rounding_mode & ~0x30;
!   __asm volatile ("fmove%.l %0,fpcr"
            : /* no outputs */
            : "dmi" (round_nearest));
    __asm volatile ("fint%.x %1,%0"
            : "=f" (value)
            : "f" (x));
!   __asm volatile ("fmove%.l %0,fpcr"
            : /* no outputs */
            : "dmi" (rounding_mode));
    return value;
  }

! __inline static const double fmod (double x, double y)
  {
    double value;

--- 354,428 ----
    return value;
  }

! __inline static const double
! ceil (double x)
  {
    int rounding_mode, round_up;
    double value;

!   __asm volatile ("fmove%.l %!,%0"
            : "=dm" (rounding_mode)
            : /* no inputs */ );
    round_up = rounding_mode | 0x30;
!   __asm volatile ("fmove%.l %0,%!"
            : /* no outputs */
            : "dmi" (round_up));
    __asm volatile ("fint%.x %1,%0"
            : "=f" (value)
            : "f" (x));
!   __asm volatile ("fmove%.l %0,%!"
            : /* no outputs */
            : "dmi" (rounding_mode));
    return value;
  }

! __inline static const double
! floor (double x)
  {
    int rounding_mode, round_down;
    double value;

!   __asm volatile ("fmove%.l %!,%0"
            : "=dm" (rounding_mode)
            : /* no inputs */ );
    round_down = (rounding_mode & ~0x10)
          | 0x20;
!   __asm volatile ("fmove%.l %0,%!"
            : /* no outputs */
            : "dmi" (round_down));
    __asm volatile ("fint%.x %1,%0"
            : "=f" (value)
            : "f" (x));
!   __asm volatile ("fmove%.l %0,%!"
            : /* no outputs */
            : "dmi" (rounding_mode));
    return value;
  }

! __inline static const double
! rint (double x)
  {
    int rounding_mode, round_nearest;
    double value;

!   __asm volatile ("fmove%.l %!,%0"
            : "=dm" (rounding_mode)
            : /* no inputs */ );
    round_nearest = rounding_mode & ~0x30;
!   __asm volatile ("fmove%.l %0,%!"
            : /* no outputs */
            : "dmi" (round_nearest));
    __asm volatile ("fint%.x %1,%0"
            : "=f" (value)
            : "f" (x));
!   __asm volatile ("fmove%.l %0,%!"
            : /* no outputs */
            : "dmi" (rounding_mode));
    return value;
  }

! __inline static const double
! fmod (double x, double y)
  {
    double value;

***************
*** 398,404 ****
    return value;
  }

! __inline static const double drem (double x, double y)
  {
    double value;

--- 433,440 ----
    return value;
  }

! __inline static const double
! drem (double x, double y)
  {
    double value;

***************
*** 409,415 ****
    return value;
  }

! __inline static const double scalb (double x, int n)
  {
    double value;

--- 445,452 ----
    return value;
  }

! __inline static const double
! scalb (double x, int n)
  {
    double value;

***************
*** 420,426 ****
    return value;
  }

! __inline static double logb (double x)
  {
    double exponent;

--- 457,464 ----
    return value;
  }

! __inline static double
! logb (double x)
  {
    double exponent;

***************
*** 430,436 ****
    return exponent;
  }

! __inline static const double ldexp (double x, int n)
  {
    double value;

--- 468,475 ----
    return exponent;
  }

! __inline static const double
! ldexp (double x, int n)
  {
    double value;

***************
*** 441,447 ****
    return value;
  }

! __inline static double frexp (double x, int *exp)
  {
    double float_exponent;
    int int_exponent;
--- 480,487 ----
    return value;
  }

! __inline static double
! frexp (double x, int *exp)
  {
    double float_exponent;
    int int_exponent;
***************
*** 465,471 ****
    return mantissa;
  }

! __inline static double modf (double x, double *ip)
  {
    double temp;

--- 505,512 ----
    return mantissa;
  }

! __inline static double
! modf (double x, double *ip)
  {
    double temp;

***************
*** 475,477 ****
--- 516,520 ----
    *ip = temp;
    return x - temp;
  }
+
+ #endif /* _MATH_68881_H */
===================================================================
RCS file: /net/acae127/home/bammi/etc/src/master/atari/include/math.h,v
retrieving revision 1.16
diff -c -r1.16 math.h
*** 1.16    1992/10/09 20:53:12
--- math.h    1993/05/21 12:53:23
***************
*** 100,112 ****

  extern const double _infinitydf;    /* in normdf.cpp */

- #define HUGE_VAL  (_infinitydf)
- #define HUGE HUGE_VAL

! #ifdef _M68881
! #include <math-68881.h>
  #endif

  #ifdef __GNUC__
  # ifndef __cplusplus
  #  ifndef max
--- 100,114 ----

  extern const double _infinitydf;    /* in normdf.cpp */


! #if defined(_M68881) || defined(__M68881__)
! #  include <math-68881.h>
! #else
! #  define HUGE_VAL  (_infinitydf)
  #endif

+ #define HUGE HUGE_VAL
+
  #ifdef __GNUC__
  # ifndef __cplusplus
  #  ifndef max
***************
*** 116,122 ****
  # endif
  #endif

! #ifndef _M68881
  __EXTERN double    acos    __PROTO((double));
  __EXTERN double asin    __PROTO((double));
  __EXTERN double atan    __PROTO((double));
--- 118,124 ----
  # endif
  #endif

! #if !(defined(_M68881) || defined(__M68881__))
  __EXTERN double    acos    __PROTO((double));
  __EXTERN double asin    __PROTO((double));
  __EXTERN double atan    __PROTO((double));
***************
*** 148,154 ****

  #ifndef __STRICT_ANSI__

! #ifdef _M68881
  #  define dabs(x) fabs(x)
  #endif

--- 150,156 ----

  #ifndef __STRICT_ANSI__

! #if defined(_M68881) || defined(__M68881__)
  #  define dabs(x) fabs(x)
  #endif

***************
*** 184,190 ****

  #endif /* __STRICT_ANSI__ */

! #ifndef _M68881
  __EXTERN double modf    __PROTO((double, double *));
  __EXTERN double ldexp    __PROTO((double, int));
  __EXTERN double frexp    __PROTO((double, int *));
--- 186,192 ----

  #endif /* __STRICT_ANSI__ */

! #if !(defined(_M68881) || defined(__M68881__))
  __EXTERN double modf    __PROTO((double, double *));
  __EXTERN double ldexp    __PROTO((double, int));
  __EXTERN double frexp    __PROTO((double, int *));
===================================================================
RCS file: /net/acae127/home/bammi/etc/src/master/atari/include/vdibind.h,v
retrieving revision 1.12
diff -c -r1.12 vdibind.h
*** 1.12    1993/02/22 06:24:52
--- vdibind.h    1993/05/21 15:17:12
***************
*** 332,339 ****
   * Set FSM error mode.
   * mode=1: (default) errors go to screen.
   * mode=0: errors reported in error variable `errorvar'.
   */
! __EXTERN void vst_error __PROTO((int handle, int mode, int *errorvar));

  /*
   * v_gtext with optional shadow attribute
--- 332,341 ----
   * Set FSM error mode.
   * mode=1: (default) errors go to screen.
   * mode=0: errors reported in error variable `errorvar'.
+  *   NOTICE: the pointer for errorvar is a pointer to short
+  *           (in 32 bit mode it would make a difference)
   */
! __EXTERN void vst_error __PROTO((int handle, int mode, short *errorvar));

  /*
   * v_gtext with optional shadow attribute