diff options
Diffstat (limited to 'contrib/gcc/f/target.h')
-rw-r--r-- | contrib/gcc/f/target.h | 30 |
1 files changed, 28 insertions, 2 deletions
diff --git a/contrib/gcc/f/target.h b/contrib/gcc/f/target.h index ef59f90d..467f102 100644 --- a/contrib/gcc/f/target.h +++ b/contrib/gcc/f/target.h @@ -1,6 +1,6 @@ /* target.h -- Public #include File (module.h template V1.0) Copyright (C) 1995, 1996 Free Software Foundation, Inc. - Contributed by James Craig Burley (burley@gnu.org). + Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -732,7 +732,7 @@ void ffetarget_integer_bad_magical_precedence_binary (ffelexToken integer, bool ffetarget_iszero_character1 (ffetargetCharacter1 constant); #endif bool ffetarget_iszero_hollerith (ffetargetHollerith constant); -void ffetarget_layout (char *error_text, ffetargetAlign *alignment, +void ffetarget_layout (const char *error_text, ffetargetAlign *alignment, ffetargetAlign *modulo, ffetargetOffset *size, ffeinfoBasictype bt, ffeinfoKindtype kt, ffetargetCharacterSize charsize, @@ -989,7 +989,11 @@ void *ffetarget_memcpy_ (void *dst, void *src, size_t len); #define ffetarget_convert_complex1_integer1 ffetarget_convert_complex1_integer #define ffetarget_convert_complex1_integer2 ffetarget_convert_complex1_integer #define ffetarget_convert_complex1_integer3 ffetarget_convert_complex1_integer +#ifdef REAL_ARITHMETIC +#define ffetarget_convert_complex1_integer4(res,l) FFEBAD_NOCANDO +#else #define ffetarget_convert_complex1_integer4 ffetarget_convert_complex1_integer +#endif #ifdef REAL_ARITHMETIC #define ffetarget_convert_complex1_real1(res,l) \ ((res)->real = (l), \ @@ -1041,7 +1045,11 @@ void *ffetarget_memcpy_ (void *dst, void *src, size_t len); #define ffetarget_convert_complex2_integer1 ffetarget_convert_complex2_integer #define ffetarget_convert_complex2_integer2 ffetarget_convert_complex2_integer #define ffetarget_convert_complex2_integer3 ffetarget_convert_complex2_integer +#ifdef REAL_ARITHMETIC +#define ffetarget_convert_complex2_integer4(res,l) FFEBAD_NOCANDO +#else #define ffetarget_convert_complex2_integer4 ffetarget_convert_complex2_integer +#endif #ifdef REAL_ARITHMETIC #define ffetarget_convert_complex2_real1(res,l) \ ({ REAL_VALUE_TYPE lr; \ @@ -1111,10 +1119,15 @@ void *ffetarget_memcpy_ (void *dst, void *src, size_t len); ffetarget_convert_integer1_typeless(res,l) #define ffetarget_convert_integer4_character1(res,l) \ ffetarget_convert_integer1_character1(res,l) +#ifdef REAL_ARITHMETIC +#define ffetarget_convert_integer4_complex1(res,l) FFEBAD_NOCANDO +#define ffetarget_convert_integer4_complex2(res,l) FFEBAD_NOCANDO +#else #define ffetarget_convert_integer4_complex1(res,l) \ ffetarget_convert_integer1_complex1(res,l) #define ffetarget_convert_integer4_complex2(res,l) \ ffetarget_convert_integer1_complex2(res,l) +#endif #define ffetarget_convert_integer4_hollerith(res,l) \ ffetarget_convert_integer1_hollerith(res,l) #define ffetarget_convert_integer4_integer1(res,l) (*(res) = (l), FFEBAD) @@ -1128,10 +1141,15 @@ void *ffetarget_memcpy_ (void *dst, void *src, size_t len); ffetarget_convert_integer1_logical1(res,l) #define ffetarget_convert_integer4_logical4(res,l) \ ffetarget_convert_integer1_logical1(res,l) +#ifdef REAL_ARITHMETIC +#define ffetarget_convert_integer4_real1(res,l) FFEBAD_NOCANDO +#define ffetarget_convert_integer4_real2(res,l) FFEBAD_NOCANDO +#else #define ffetarget_convert_integer4_real1(res,l) \ ffetarget_convert_integer1_real1(res,l) #define ffetarget_convert_integer4_real2(res,l) \ ffetarget_convert_integer1_real2(res,l) +#endif #define ffetarget_convert_integer4_typeless(res,l) \ ffetarget_convert_integer1_typeless(res,l) #define ffetarget_convert_logical1_character1(res,l) \ @@ -1238,8 +1256,12 @@ void *ffetarget_memcpy_ (void *dst, void *src, size_t len); ffetarget_convert_real1_integer1(res,l) #define ffetarget_convert_real1_integer3(res,l) \ ffetarget_convert_real1_integer1(res,l) +#ifdef REAL_ARITHMETIC +#define ffetarget_convert_real1_integer4(res,l) FFEBAD_NOCANDO +#else #define ffetarget_convert_real1_integer4(res,l) \ ffetarget_convert_real1_integer1(res,l) +#endif #define ffetarget_convert_real1_typeless(res,l) \ ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l) #define ffetarget_convert_real1_complex1(res,l) (*(res) = (l).real, FFEBAD) @@ -1272,8 +1294,12 @@ void *ffetarget_memcpy_ (void *dst, void *src, size_t len); ffetarget_convert_real2_integer1(res,l) #define ffetarget_convert_real2_integer3(res,l) \ ffetarget_convert_real2_integer1(res,l) +#ifdef REAL_ARITHMETIC +#define ffetarget_convert_real2_integer4(res,l) FFEBAD_NOCANDO +#else #define ffetarget_convert_real2_integer4(res,l) \ ffetarget_convert_real2_integer1(res,l) +#endif #define ffetarget_convert_real2_typeless(res,l) \ ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l) #define ffetarget_convert_real2_complex1(res,l) \ |