===================================================================
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 bug-gcc@prep.ai.mit.edu.  */
! 
! /* 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