home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Education Sampler 1992 [NeXTSTEP]
/
Education_1992_Sampler.iso
/
NeXT
/
GnuSource
/
cc-61.0.1
/
cc
/
gnulib1.c
< prev
next >
Wrap
C/C++ Source or Header
|
1991-06-03
|
11KB
|
616 lines
/* Subroutines needed by GCC output code on some machines. */
/* Compile this file with the Unix C compiler! */
/* Copyright (C) 1987, 1988 Free Software Foundation, Inc.
This file is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
Free Software Foundation; either version 2, or (at your option) any
later version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file with other programs, and to distribute
those programs without any restriction coming from the use of this
file. (The General Public License restrictions do apply in other
respects; for example, they cover modification of the file, and
distribution when not linked into another program.)
This file is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; see the file COPYING. If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#include "config.h"
/* On some machines, cc is really GCC. For these machines, we can't
expect these functions to be properly compiled unless GCC open codes
the operation (which is precisely when the function won't be used).
So allow tm-*.h to specify ways of accomplishing the operations
by defining the macros perform_*.
On a machine where cc is some other compiler, there is usually no
reason to define perform_*. The other compiler normally has other ways
of implementing all of these operations.
In some cases a certain machine may come with GCC installed as cc
or may have some other compiler. Then it may make sense for tm-*.h
to define perform_* only if __GNUC__ is defined. */
#ifndef perform_mulsi3
#define perform_mulsi3(a, b) return a * b
#endif
#ifndef perform_divsi3
#define perform_divsi3(a, b) return a / b
#endif
#ifndef perform_udivsi3
#define perform_udivsi3(a, b) return a / b
#endif
#ifndef perform_modsi3
#define perform_modsi3(a, b) return a % b
#endif
#ifndef perform_umodsi3
#define perform_umodsi3(a, b) return a % b
#endif
#ifndef perform_lshrsi3
#define perform_lshrsi3(a, b) return a >> b
#endif
#ifndef perform_lshlsi3
#define perform_lshlsi3(a, b) return a << b
#endif
#ifndef perform_ashrsi3
#define perform_ashrsi3(a, b) return a >> b
#endif
#ifndef perform_ashlsi3
#define perform_ashlsi3(a, b) return a << b
#endif
#ifndef perform_adddf3
#define perform_adddf3(a, b) return a + b
#endif
#ifndef perform_subdf3
#define perform_subdf3(a, b) return a - b
#endif
#ifndef perform_muldf3
#define perform_muldf3(a, b) return a * b
#endif
#ifndef perform_divdf3
#define perform_divdf3(a, b) return a / b
#endif
#ifndef perform_addsf3
#define perform_addsf3(a, b) return INTIFY (a + b)
#endif
#ifndef perform_subsf3
#define perform_subsf3(a, b) return INTIFY (a - b)
#endif
#ifndef perform_mulsf3
#define perform_mulsf3(a, b) return INTIFY (a * b)
#endif
#ifndef perform_divsf3
#define perform_divsf3(a, b) return INTIFY (a / b)
#endif
#ifndef perform_negdf2
#define perform_negdf2(a) return -a
#endif
#ifndef perform_negsf2
#define perform_negsf2(a) return INTIFY (-a)
#endif
#ifndef perform_fixsfsi
#define perform_fixsfsi(a) return (SItype) a
#endif
#ifndef perform_floatsidf
#define perform_floatsidf(a) return (double) a
#endif
#ifndef perform_floatsisf
#define perform_floatsisf(a) return INTIFY ((float) a)
#endif
#ifndef perform_extendsfdf2
#define perform_extendsfdf2(a) return a
#endif
#ifndef perform_truncdfsf2
#define perform_truncdfsf2(a) return INTIFY (a)
#endif
#ifndef perform_eqdf2
#define perform_eqdf2(a, b) return !(a == b)
#endif
#ifndef perform_nedf2
#define perform_nedf2(a, b) return a != b
#endif
#ifndef perform_gtdf2
#define perform_gtdf2(a, b) return a > b
#endif
#ifndef perform_gedf2
#define perform_gedf2(a, b) return (a >= b) - 1
#endif
#ifndef perform_ltdf2
#define perform_ltdf2(a, b) return -(a < b)
#endif
#ifndef perform_ledf2
#define perform_ledf2(a, b) return 1 - (a <= b)
#endif
#ifndef perform_eqsf2
#define perform_eqsf2(a, b) return !(a == b)
#endif
#ifndef perform_nesf2
#define perform_nesf2(a, b) return a != b
#endif
#ifndef perform_gtsf2
#define perform_gtsf2(a, b) return a > b
#endif
#ifndef perform_gesf2
#define perform_gesf2(a, b) return (a >= b) - 1
#endif
#ifndef perform_ltsf2
#define perform_ltsf2(a, b) return -(a < b)
#endif
#ifndef perform_lesf2
#define perform_lesf2(a, b) return 1 - (a >= b);
#endif
/* In case config.h defined it. */
#undef abort
/* Define the C data type to use for an SImode value. */
#ifndef SItype
#define SItype long int
#endif
/* Define the type to be used for returning an SF mode value
and the method for turning a float into that type.
These definitions work for machines where an SF value is
returned in the same register as an int. */
#ifndef FLOAT_VALUE_TYPE
#define FLOAT_VALUE_TYPE int
#endif
#ifndef INTIFY
#define INTIFY(FLOATVAL) (intify.f = (FLOATVAL), intify.i)
#endif
#ifndef FLOATIFY
#define FLOATIFY(INTVAL) ((INTVAL).f)
#endif
#ifndef FLOAT_ARG_TYPE
#define FLOAT_ARG_TYPE union flt_or_int
#endif
union flt_or_value { FLOAT_VALUE_TYPE i; float f; };
union flt_or_int { int i; float f; };
#ifdef L_mulsi3
SItype
__mulsi3 (a, b)
SItype a, b;
{
perform_mulsi3 (a, b);
}
#endif
#ifdef L_udivsi3
SItype
__udivsi3 (a, b)
unsigned SItype a, b;
{
perform_udivsi3 (a, b);
}
#endif
#ifdef L_divsi3
SItype
__divsi3 (a, b)
SItype a, b;
{
perform_divsi3 (a, b);
}
#endif
#ifdef L_umodsi3
SItype
__umodsi3 (a, b)
unsigned SItype a, b;
{
perform_umodsi3 (a, b);
}
#endif
#ifdef L_modsi3
SItype
__modsi3 (a, b)
SItype a, b;
{
perform_modsi3 (a, b);
}
#endif
#ifdef L_lshrsi3
SItype
__lshrsi3 (a, b)
unsigned SItype a, b;
{
perform_lshrsi3 (a, b);
}
#endif
#ifdef L_lshlsi3
SItype
__lshlsi3 (a, b)
unsigned SItype a, b;
{
perform_lshlsi3 (a, b);
}
#endif
#ifdef L_ashrsi3
SItype
__ashrsi3 (a, b)
SItype a, b;
{
perform_ashrsi3 (a, b);
}
#endif
#ifdef L_ashlsi3
SItype
__ashlsi3 (a, b)
SItype a, b;
{
perform_ashlsi3 (a, b);
}
#endif
#ifdef L_divdf3
double
__divdf3 (a, b)
double a, b;
{
perform_divdf3 (a, b);
}
#endif
#ifdef L_muldf3
double
__muldf3 (a, b)
double a, b;
{
perform_muldf3 (a, b);
}
#endif
#ifdef L_negdf2
double
__negdf2 (a)
double a;
{
perform_negdf2 (a);
}
#endif
#ifdef L_adddf3
double
__adddf3 (a, b)
double a, b;
{
perform_adddf3 (a, b);
}
#endif
#ifdef L_subdf3
double
__subdf3 (a, b)
double a, b;
{
perform_subdf3 (a, b);
}
#endif
#ifdef L_cmpdf2
SItype
__cmpdf2 (a, b)
double a, b;
{
#ifdef perform_cmpdf2
perform_cmpdf2 (a, b);
#else
if (a > b)
return 1;
else if (a < b)
return -1;
return 0;
#endif
}
#endif
#ifdef L_eqdf2
SItype
__eqdf2 (a, b)
double a, b;
{
/* Value == 0 iff a == b. */
perform_eqdf2 (a, b);
}
#endif
#ifdef L_nedf2
SItype
__nedf2 (a, b)
double a, b;
{
/* Value != 0 iff a != b. */
perform_nedf2 (a, b);
}
#endif
#ifdef L_gtdf2
SItype
__gtdf2 (a, b)
double a, b;
{
/* Value > 0 iff a > b. */
perform_gtdf2 (a, b);
}
#endif
#ifdef L_gedf2
SItype
__gedf2 (a, b)
double a, b;
{
/* Value >= 0 iff a >= b. */
perform_gedf2 (a, b);
}
#endif
#ifdef L_ltdf2
SItype
__ltdf2 (a, b)
double a, b;
{
/* Value < 0 iff a < b. */
perform_ltdf2 (a, b);
}
#endif
#ifdef L_ledf2
SItype
__ledf2 (a, b)
double a, b;
{
/* Value <= 0 iff a <= b. */
perform_ledf2 (a, b);
}
#endif
#ifdef L_fixdfsi
SItype
__fixdfsi (a)
double a;
{
return (SItype) a;
}
#endif
#ifdef L_fixsfsi
SItype
__fixsfsi (a)
FLOAT_ARG_TYPE a;
{
union flt_or_value intify;
perform_fixsfsi (FLOATIFY (a));
}
#endif
#ifdef L_floatsidf
double
__floatsidf (a)
SItype a;
{
perform_floatsidf (a);
}
#endif
#ifdef L_floatsisf
FLOAT_VALUE_TYPE
__floatsisf (a)
SItype a;
{
union flt_or_value intify;
perform_floatsisf (a);
}
#endif
#ifdef L_addsf3
FLOAT_VALUE_TYPE
__addsf3 (a, b)
FLOAT_ARG_TYPE a, b;
{
union flt_or_value intify;
perform_addsf3 (FLOATIFY (a), FLOATIFY (b));
}
#endif
#ifdef L_negsf2
FLOAT_VALUE_TYPE
__negsf2 (a)
FLOAT_ARG_TYPE a;
{
union flt_or_value intify;
perform_negsf2 (FLOATIFY (a));
}
#endif
#ifdef L_subsf3
FLOAT_VALUE_TYPE
__subsf3 (a, b)
FLOAT_ARG_TYPE a, b;
{
union flt_or_value intify;
perform_subsf3 (FLOATIFY (a), FLOATIFY (b));
}
#endif
#ifdef L_cmpsf2
SItype
__cmpsf2 (a, b)
FLOAT_ARG_TYPE a, b;
{
union flt_or_value intify;
#ifdef perform_cmpsf2
perform_cmpsf2 (FLOATIFY (a), FLOATIFY (b));
#else
if (FLOATIFY (a) > FLOATIFY (b))
return 1;
else if (FLOATIFY (a) < FLOATIFY (b))
return -1;
return 0;
#endif
}
#endif
#ifdef L_eqsf2
SItype
__eqsf2 (a, b)
FLOAT_ARG_TYPE a, b;
{
union flt_or_int intify;
/* Value == 0 iff a == b. */
perform_eqsf2 (FLOATIFY (a), FLOATIFY (b));
}
#endif
#ifdef L_nesf2
SItype
__nesf2 (a, b)
FLOAT_ARG_TYPE a, b;
{
union flt_or_int intify;
/* Value != 0 iff a != b. */
perform_nesf2 (FLOATIFY (a), FLOATIFY (b));
}
#endif
#ifdef L_gtsf2
SItype
__gtsf2 (a, b)
FLOAT_ARG_TYPE a, b;
{
union flt_or_int intify;
/* Value > 0 iff a > b. */
perform_gtsf2 (FLOATIFY (a), FLOATIFY (b));
}
#endif
#ifdef L_gesf2
SItype
__gesf2 (a, b)
FLOAT_ARG_TYPE a, b;
{
union flt_or_int intify;
/* Value >= 0 iff a >= b. */
perform_gesf2 (FLOATIFY (a), FLOATIFY (b));
}
#endif
#ifdef L_ltsf2
SItype
__ltsf2 (a, b)
FLOAT_ARG_TYPE a, b;
{
union flt_or_int intify;
/* Value < 0 iff a < b. */
perform_ltsf2 (FLOATIFY (a), FLOATIFY (b));
}
#endif
#ifdef L_lesf2
SItype
__lesf2 (a, b)
FLOAT_ARG_TYPE a, b;
{
union flt_or_int intify;
/* Value <= 0 iff a <= b. */
perform_lesf2 (FLOATIFY (a), FLOATIFY (b));
}
#endif
#ifdef L_mulsf3
FLOAT_VALUE_TYPE
__mulsf3 (a, b)
FLOAT_ARG_TYPE a, b;
{
union flt_or_value intify;
perform_mulsf3 (FLOATIFY (a), FLOATIFY (b));
}
#endif
#ifdef L_divsf3
FLOAT_VALUE_TYPE
__divsf3 (a, b)
FLOAT_ARG_TYPE a, b;
{
union flt_or_value intify;
perform_divsf3 (FLOATIFY (a), FLOATIFY (b));
}
#endif
#ifdef L_truncdfsf2
FLOAT_VALUE_TYPE
__truncdfsf2 (a)
double a;
{
union flt_or_value intify;
perform_truncdfsf2 (a);
}
#endif
#ifdef L_extendsfdf2
double
__extendsfdf2 (a)
FLOAT_ARG_TYPE a;
{
union flt_or_value intify;
perform_extendsfdf2 (FLOATIFY (a));
}
#endif