home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
GEMini Atari
/
GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso
/
zip
/
gnu
/
update30.lzh
/
UPDATE30
/
DIFFH
< prev
next >
Wrap
Text File
|
1993-07-30
|
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 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