From 22e494a0aec5a8385713d5522ea351e43fcea530 Mon Sep 17 00:00:00 2001 From: Andreas Jaeger Date: Sun, 8 Jun 2003 14:22:25 +0200 Subject: [PATCH] bld.c: Remove usage of FFETARGET_okCHARACTER2... * bld.c: Remove usage of FFETARGET_okCHARACTER2, FFETARGET_okCHARACTER3, FFETARGET_okCHARACTER4, FFETARGET_okCHARACTER5, FFETARGET_okCHARACTER6, FFETARGET_okCHARACTER7, FFETARGET_okCHARACTER8, FFETARGET_okCOMPLEX4, FFETARGET_okCOMPLEX5, FFETARGET_okCOMPLEX6, FFETARGET_okCOMPLEX7, FFETARGET_okCOMPLEX8, FFETARGET_okINTEGER5, FFETARGET_okINTEGER6, FFETARGET_okINTEGER7, FFETARGET_okINTEGER8, FFETARGET_okLOGICAL5, FFETARGET_okLOGICAL6, FFETARGET_okLOGICAL7, FFETARGET_okLOGICAL8, FFETARGET_okREAL4, FFETARGET_okREAL5, FFETARGET_okREAL6, FFETARGET_okREAL7 and FFETARGET_okREAL8. * bld.h: Likewise. * expr.c: Likewise. * target.h: Likewise. * com.c: Likewise. From-SVN: r67622 --- gcc/f/ChangeLog | 17 + gcc/f/bld.c | 1655 +------------------------------------------------------ gcc/f/bld.h | 265 --------- gcc/f/com.c | 13 - gcc/f/expr.c | 899 ------------------------------ gcc/f/target.h | 218 +------- 6 files changed, 23 insertions(+), 3044 deletions(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index cbf5941..ee65c0d 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,20 @@ +2003-06-08 Andreas Jaeger + + * bld.c: Remove usage of FFETARGET_okCHARACTER2, + FFETARGET_okCHARACTER3, FFETARGET_okCHARACTER4, + FFETARGET_okCHARACTER5, FFETARGET_okCHARACTER6, + FFETARGET_okCHARACTER7, FFETARGET_okCHARACTER8, + FFETARGET_okCOMPLEX4, FFETARGET_okCOMPLEX5, FFETARGET_okCOMPLEX6, + FFETARGET_okCOMPLEX7, FFETARGET_okCOMPLEX8, FFETARGET_okINTEGER5, + FFETARGET_okINTEGER6, FFETARGET_okINTEGER7, FFETARGET_okINTEGER8, + FFETARGET_okLOGICAL5, FFETARGET_okLOGICAL6, FFETARGET_okLOGICAL7, + FFETARGET_okLOGICAL8, FFETARGET_okREAL4, FFETARGET_okREAL5, + FFETARGET_okREAL6, FFETARGET_okREAL7 and FFETARGET_okREAL8. + * bld.h: Likewise. + * expr.c: Likewise. + * target.h: Likewise. + * com.c: Likewise. + Sun Jun 8 12:28:14 2003 Neil Booth * Make-lang.in: Update. diff --git a/gcc/f/bld.c b/gcc/f/bld.c index 790c730..bf2d1c6 100644 --- a/gcc/f/bld.c +++ b/gcc/f/bld.c @@ -73,27 +73,6 @@ struct _ffebld_pool_stack_ ffebld_pool_stack_; #if FFETARGET_okCHARACTER1 static ffebldConstant ffebld_constant_character1_; #endif -#if FFETARGET_okCHARACTER2 -static ffebldConstant ffebld_constant_character2_; -#endif -#if FFETARGET_okCHARACTER3 -static ffebldConstant ffebld_constant_character3_; -#endif -#if FFETARGET_okCHARACTER4 -static ffebldConstant ffebld_constant_character4_; -#endif -#if FFETARGET_okCHARACTER5 -static ffebldConstant ffebld_constant_character5_; -#endif -#if FFETARGET_okCHARACTER6 -static ffebldConstant ffebld_constant_character6_; -#endif -#if FFETARGET_okCHARACTER7 -static ffebldConstant ffebld_constant_character7_; -#endif -#if FFETARGET_okCHARACTER8 -static ffebldConstant ffebld_constant_character8_; -#endif #if FFETARGET_okCOMPLEX1 static ffebldConstant ffebld_constant_complex1_; #endif @@ -103,21 +82,6 @@ static ffebldConstant ffebld_constant_complex2_; #if FFETARGET_okCOMPLEX3 static ffebldConstant ffebld_constant_complex3_; #endif -#if FFETARGET_okCOMPLEX4 -static ffebldConstant ffebld_constant_complex4_; -#endif -#if FFETARGET_okCOMPLEX5 -static ffebldConstant ffebld_constant_complex5_; -#endif -#if FFETARGET_okCOMPLEX6 -static ffebldConstant ffebld_constant_complex6_; -#endif -#if FFETARGET_okCOMPLEX7 -static ffebldConstant ffebld_constant_complex7_; -#endif -#if FFETARGET_okCOMPLEX8 -static ffebldConstant ffebld_constant_complex8_; -#endif #if FFETARGET_okINTEGER1 static ffebldConstant ffebld_constant_integer1_; #endif @@ -130,18 +94,6 @@ static ffebldConstant ffebld_constant_integer3_; #if FFETARGET_okINTEGER4 static ffebldConstant ffebld_constant_integer4_; #endif -#if FFETARGET_okINTEGER5 -static ffebldConstant ffebld_constant_integer5_; -#endif -#if FFETARGET_okINTEGER6 -static ffebldConstant ffebld_constant_integer6_; -#endif -#if FFETARGET_okINTEGER7 -static ffebldConstant ffebld_constant_integer7_; -#endif -#if FFETARGET_okINTEGER8 -static ffebldConstant ffebld_constant_integer8_; -#endif #if FFETARGET_okLOGICAL1 static ffebldConstant ffebld_constant_logical1_; #endif @@ -154,18 +106,6 @@ static ffebldConstant ffebld_constant_logical3_; #if FFETARGET_okLOGICAL4 static ffebldConstant ffebld_constant_logical4_; #endif -#if FFETARGET_okLOGICAL5 -static ffebldConstant ffebld_constant_logical5_; -#endif -#if FFETARGET_okLOGICAL6 -static ffebldConstant ffebld_constant_logical6_; -#endif -#if FFETARGET_okLOGICAL7 -static ffebldConstant ffebld_constant_logical7_; -#endif -#if FFETARGET_okLOGICAL8 -static ffebldConstant ffebld_constant_logical8_; -#endif #if FFETARGET_okREAL1 static ffebldConstant ffebld_constant_real1_; #endif @@ -175,21 +115,6 @@ static ffebldConstant ffebld_constant_real2_; #if FFETARGET_okREAL3 static ffebldConstant ffebld_constant_real3_; #endif -#if FFETARGET_okREAL4 -static ffebldConstant ffebld_constant_real4_; -#endif -#if FFETARGET_okREAL5 -static ffebldConstant ffebld_constant_real5_; -#endif -#if FFETARGET_okREAL6 -static ffebldConstant ffebld_constant_real6_; -#endif -#if FFETARGET_okREAL7 -static ffebldConstant ffebld_constant_real7_; -#endif -#if FFETARGET_okREAL8 -static ffebldConstant ffebld_constant_real8_; -#endif static ffebldConstant ffebld_constant_hollerith_; static ffebldConstant ffebld_constant_typeless_[FFEBLD_constTYPELESS_LAST - FFEBLD_constTYPELESS_FIRST + 1]; @@ -255,30 +180,6 @@ ffebld_constant_cmp (ffebldConstant c1, ffebldConstant c2) ffebld_constant_integer4 (c2)); #endif -#if FFETARGET_okINTEGER5 - case FFEBLD_constINTEGER5: - return ffetarget_cmp_integer5 (ffebld_constant_integer5 (c1), - ffebld_constant_integer5 (c2)); -#endif - -#if FFETARGET_okINTEGER6 - case FFEBLD_constINTEGER6: - return ffetarget_cmp_integer6 (ffebld_constant_integer6 (c1), - ffebld_constant_integer6 (c2)); -#endif - -#if FFETARGET_okINTEGER7 - case FFEBLD_constINTEGER7: - return ffetarget_cmp_integer7 (ffebld_constant_integer7 (c1), - ffebld_constant_integer7 (c2)); -#endif - -#if FFETARGET_okINTEGER8 - case FFEBLD_constINTEGER8: - return ffetarget_cmp_integer8 (ffebld_constant_integer8 (c1), - ffebld_constant_integer8 (c2)); -#endif - #if FFETARGET_okLOGICAL1 case FFEBLD_constLOGICAL1: return ffetarget_cmp_logical1 (ffebld_constant_logical1 (c1), @@ -303,30 +204,6 @@ ffebld_constant_cmp (ffebldConstant c1, ffebldConstant c2) ffebld_constant_logical4 (c2)); #endif -#if FFETARGET_okLOGICAL5 - case FFEBLD_constLOGICAL5: - return ffetarget_cmp_logical5 (ffebld_constant_logical5 (c1), - ffebld_constant_logical5 (c2)); -#endif - -#if FFETARGET_okLOGICAL6 - case FFEBLD_constLOGICAL6: - return ffetarget_cmp_logical6 (ffebld_constant_logical6 (c1), - ffebld_constant_logical6 (c2)); -#endif - -#if FFETARGET_okLOGICAL7 - case FFEBLD_constLOGICAL7: - return ffetarget_cmp_logical7 (ffebld_constant_logical7 (c1), - ffebld_constant_logical7 (c2)); -#endif - -#if FFETARGET_okLOGICAL8 - case FFEBLD_constLOGICAL8: - return ffetarget_cmp_logical8 (ffebld_constant_logical8 (c1), - ffebld_constant_logical8 (c2)); -#endif - #if FFETARGET_okREAL1 case FFEBLD_constREAL1: return ffetarget_cmp_real1 (ffebld_constant_real1 (c1), @@ -345,84 +222,12 @@ ffebld_constant_cmp (ffebldConstant c1, ffebldConstant c2) ffebld_constant_real3 (c2)); #endif -#if FFETARGET_okREAL4 - case FFEBLD_constREAL4: - return ffetarget_cmp_real4 (ffebld_constant_real4 (c1), - ffebld_constant_real4 (c2)); -#endif - -#if FFETARGET_okREAL5 - case FFEBLD_constREAL5: - return ffetarget_cmp_real5 (ffebld_constant_real5 (c1), - ffebld_constant_real5 (c2)); -#endif - -#if FFETARGET_okREAL6 - case FFEBLD_constREAL6: - return ffetarget_cmp_real6 (ffebld_constant_real6 (c1), - ffebld_constant_real6 (c2)); -#endif - -#if FFETARGET_okREAL7 - case FFEBLD_constREAL7: - return ffetarget_cmp_real7 (ffebld_constant_real7 (c1), - ffebld_constant_real7 (c2)); -#endif - -#if FFETARGET_okREAL8 - case FFEBLD_constREAL8: - return ffetarget_cmp_real8 (ffebld_constant_real8 (c1), - ffebld_constant_real8 (c2)); -#endif - #if FFETARGET_okCHARACTER1 case FFEBLD_constCHARACTER1: return ffetarget_cmp_character1 (ffebld_constant_character1 (c1), ffebld_constant_character1 (c2)); #endif -#if FFETARGET_okCHARACTER2 - case FFEBLD_constCHARACTER2: - return ffetarget_cmp_character2 (ffebld_constant_character2 (c1), - ffebld_constant_character2 (c2)); -#endif - -#if FFETARGET_okCHARACTER3 - case FFEBLD_constCHARACTER3: - return ffetarget_cmp_character3 (ffebld_constant_character3 (c1), - ffebld_constant_character3 (c2)); -#endif - -#if FFETARGET_okCHARACTER4 - case FFEBLD_constCHARACTER4: - return ffetarget_cmp_character4 (ffebld_constant_character4 (c1), - ffebld_constant_character4 (c2)); -#endif - -#if FFETARGET_okCHARACTER5 - case FFEBLD_constCHARACTER5: - return ffetarget_cmp_character5 (ffebld_constant_character5 (c1), - ffebld_constant_character5 (c2)); -#endif - -#if FFETARGET_okCHARACTER6 - case FFEBLD_constCHARACTER6: - return ffetarget_cmp_character6 (ffebld_constant_character6 (c1), - ffebld_constant_character6 (c2)); -#endif - -#if FFETARGET_okCHARACTER7 - case FFEBLD_constCHARACTER7: - return ffetarget_cmp_character7 (ffebld_constant_character7 (c1), - ffebld_constant_character7 (c2)); -#endif - -#if FFETARGET_okCHARACTER8 - case FFEBLD_constCHARACTER8: - return ffetarget_cmp_character8 (ffebld_constant_character8 (c1), - ffebld_constant_character8 (c2)); -#endif - default: assert ("bad constant type" == NULL); return 0; @@ -478,26 +283,6 @@ ffebld_constant_is_zero (ffebldConstant c) return ffebld_constant_integer4 (c) == 0; #endif -#if FFETARGET_okINTEGER5 - case FFEBLD_constINTEGER5: - return ffebld_constant_integer5 (c) == 0; -#endif - -#if FFETARGET_okINTEGER6 - case FFEBLD_constINTEGER6: - return ffebld_constant_integer6 (c) == 0; -#endif - -#if FFETARGET_okINTEGER7 - case FFEBLD_constINTEGER7: - return ffebld_constant_integer7 (c) == 0; -#endif - -#if FFETARGET_okINTEGER8 - case FFEBLD_constINTEGER8: - return ffebld_constant_integer8 (c) == 0; -#endif - #if FFETARGET_okLOGICAL1 case FFEBLD_constLOGICAL1: return ffebld_constant_logical1 (c) == 0; @@ -518,26 +303,6 @@ ffebld_constant_is_zero (ffebldConstant c) return ffebld_constant_logical4 (c) == 0; #endif -#if FFETARGET_okLOGICAL5 - case FFEBLD_constLOGICAL5: - return ffebld_constant_logical5 (c) == 0; -#endif - -#if FFETARGET_okLOGICAL6 - case FFEBLD_constLOGICAL6: - return ffebld_constant_logical6 (c) == 0; -#endif - -#if FFETARGET_okLOGICAL7 - case FFEBLD_constLOGICAL7: - return ffebld_constant_logical7 (c) == 0; -#endif - -#if FFETARGET_okLOGICAL8 - case FFEBLD_constLOGICAL8: - return ffebld_constant_logical8 (c) == 0; -#endif - #if FFETARGET_okREAL1 case FFEBLD_constREAL1: return ffetarget_iszero_real1 (ffebld_constant_real1 (c)); @@ -553,31 +318,6 @@ ffebld_constant_is_zero (ffebldConstant c) return ffetarget_iszero_real3 (ffebld_constant_real3 (c)); #endif -#if FFETARGET_okREAL4 - case FFEBLD_constREAL4: - return ffetarget_iszero_real4 (ffebld_constant_real4 (c)); -#endif - -#if FFETARGET_okREAL5 - case FFEBLD_constREAL5: - return ffetarget_iszero_real5 (ffebld_constant_real5 (c)); -#endif - -#if FFETARGET_okREAL6 - case FFEBLD_constREAL6: - return ffetarget_iszero_real6 (ffebld_constant_real6 (c)); -#endif - -#if FFETARGET_okREAL7 - case FFEBLD_constREAL7: - return ffetarget_iszero_real7 (ffebld_constant_real7 (c)); -#endif - -#if FFETARGET_okREAL8 - case FFEBLD_constREAL8: - return ffetarget_iszero_real8 (ffebld_constant_real8 (c)); -#endif - #if FFETARGET_okCOMPLEX1 case FFEBLD_constCOMPLEX1: return ffetarget_iszero_real1 (ffebld_constant_complex1 (c).real) @@ -596,45 +336,11 @@ ffebld_constant_is_zero (ffebldConstant c) && ffetarget_iszero_real3 (ffebld_constant_complex3 (c).imaginary); #endif -#if FFETARGET_okCOMPLEX4 - case FFEBLD_constCOMPLEX4: - return ffetarget_iszero_real4 (ffebld_constant_complex4 (c).real) - && ffetarget_iszero_real4 (ffebld_constant_complex4 (c).imaginary); -#endif - -#if FFETARGET_okCOMPLEX5 - case FFEBLD_constCOMPLEX5: - return ffetarget_iszero_real5 (ffebld_constant_complex5 (c).real) - && ffetarget_iszero_real5 (ffebld_constant_complex5 (c).imaginary); -#endif - -#if FFETARGET_okCOMPLEX6 - case FFEBLD_constCOMPLEX6: - return ffetarget_iszero_real6 (ffebld_constant_complex6 (c).real) - && ffetarget_iszero_real6 (ffebld_constant_complex6 (c).imaginary); -#endif - -#if FFETARGET_okCOMPLEX7 - case FFEBLD_constCOMPLEX7: - return ffetarget_iszero_real7 (ffebld_constant_complex7 (c).real) - && ffetarget_iszero_real7 (ffebld_constant_complex7 (c).imaginary); -#endif - -#if FFETARGET_okCOMPLEX8 - case FFEBLD_constCOMPLEX8: - return ffetarget_iszero_real8 (ffebld_constant_complex8 (c).real) - && ffetarget_iszero_real8 (ffebld_constant_complex8 (c).imaginary); -#endif - #if FFETARGET_okCHARACTER1 case FFEBLD_constCHARACTER1: return ffetarget_iszero_character1 (ffebld_constant_character1 (c)); #endif -#if FFETARGET_okCHARACTER2 || FFETARGET_okCHARACTER3 /* ... */ -#error "no support for these!!" -#endif - case FFEBLD_constHOLLERITH: return ffetarget_iszero_hollerith (ffebld_constant_hollerith (c)); @@ -1564,30 +1270,6 @@ ffebld_constantarray_get (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okINTEGER5 - case FFEINFO_kindtypeINTEGER5: - u.integer5 = *(array.integer5 + offset); - break; -#endif - -#if FFETARGET_okINTEGER6 - case FFEINFO_kindtypeINTEGER6: - u.integer6 = *(array.integer6 + offset); - break; -#endif - -#if FFETARGET_okINTEGER7 - case FFEINFO_kindtypeINTEGER7: - u.integer7 = *(array.integer7 + offset); - break; -#endif - -#if FFETARGET_okINTEGER8 - case FFEINFO_kindtypeINTEGER8: - u.integer8 = *(array.integer8 + offset); - break; -#endif - default: assert ("bad INTEGER kindtype" == NULL); break; @@ -1621,30 +1303,6 @@ ffebld_constantarray_get (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okLOGICAL5 - case FFEINFO_kindtypeLOGICAL5: - u.logical5 = *(array.logical5 + offset); - break; -#endif - -#if FFETARGET_okLOGICAL6 - case FFEINFO_kindtypeLOGICAL6: - u.logical6 = *(array.logical6 + offset); - break; -#endif - -#if FFETARGET_okLOGICAL7 - case FFEINFO_kindtypeLOGICAL7: - u.logical7 = *(array.logical7 + offset); - break; -#endif - -#if FFETARGET_okLOGICAL8 - case FFEINFO_kindtypeLOGICAL8: - u.logical8 = *(array.logical8 + offset); - break; -#endif - default: assert ("bad LOGICAL kindtype" == NULL); break; @@ -1672,36 +1330,6 @@ ffebld_constantarray_get (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - u.real4 = *(array.real4 + offset); - break; -#endif - -#if FFETARGET_okREAL5 - case FFEINFO_kindtypeREAL5: - u.real5 = *(array.real5 + offset); - break; -#endif - -#if FFETARGET_okREAL6 - case FFEINFO_kindtypeREAL6: - u.real6 = *(array.real6 + offset); - break; -#endif - -#if FFETARGET_okREAL7 - case FFEINFO_kindtypeREAL7: - u.real7 = *(array.real7 + offset); - break; -#endif - -#if FFETARGET_okREAL8 - case FFEINFO_kindtypeREAL8: - u.real8 = *(array.real8 + offset); - break; -#endif - default: assert ("bad REAL kindtype" == NULL); break; @@ -1729,36 +1357,6 @@ ffebld_constantarray_get (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - u.complex4 = *(array.complex4 + offset); - break; -#endif - -#if FFETARGET_okCOMPLEX5 - case FFEINFO_kindtypeREAL5: - u.complex5 = *(array.complex5 + offset); - break; -#endif - -#if FFETARGET_okCOMPLEX6 - case FFEINFO_kindtypeREAL6: - u.complex6 = *(array.complex6 + offset); - break; -#endif - -#if FFETARGET_okCOMPLEX7 - case FFEINFO_kindtypeREAL7: - u.complex7 = *(array.complex7 + offset); - break; -#endif - -#if FFETARGET_okCOMPLEX8 - case FFEINFO_kindtypeREAL8: - u.complex8 = *(array.complex8 + offset); - break; -#endif - default: assert ("bad COMPLEX kindtype" == NULL); break; @@ -1775,55 +1373,6 @@ ffebld_constantarray_get (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - u.character2.length = 1; - u.character2.text = array.character2 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - u.character3.length = 1; - u.character3.text = array.character3 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - u.character4.length = 1; - u.character4.text = array.character4 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER5 - case FFEINFO_kindtypeCHARACTER5: - u.character5.length = 1; - u.character5.text = array.character5 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER6 - case FFEINFO_kindtypeCHARACTER6: - u.character6.length = 1; - u.character6.text = array.character6 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER7 - case FFEINFO_kindtypeCHARACTER7: - u.character7.length = 1; - u.character7.text = array.character7 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER8 - case FFEINFO_kindtypeCHARACTER8: - u.character8.length = 1; - u.character8.text = array.character8 + offset; - break; -#endif - default: assert ("bad CHARACTER kindtype" == NULL); break; @@ -1889,42 +1438,6 @@ ffebld_constantarray_new (ffeinfoBasictype bt, break; #endif -#if FFETARGET_okINTEGER5 - case FFEINFO_kindtypeINTEGER5: - ptr.integer5 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetInteger5), - 0); - break; -#endif - -#if FFETARGET_okINTEGER6 - case FFEINFO_kindtypeINTEGER6: - ptr.integer6 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetInteger6), - 0); - break; -#endif - -#if FFETARGET_okINTEGER7 - case FFEINFO_kindtypeINTEGER7: - ptr.integer7 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetInteger7), - 0); - break; -#endif - -#if FFETARGET_okINTEGER8 - case FFEINFO_kindtypeINTEGER8: - ptr.integer8 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetInteger8), - 0); - break; -#endif - default: assert ("bad INTEGER kindtype" == NULL); break; @@ -1970,42 +1483,6 @@ ffebld_constantarray_new (ffeinfoBasictype bt, break; #endif -#if FFETARGET_okLOGICAL5 - case FFEINFO_kindtypeLOGICAL5: - ptr.logical5 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetLogical5), - 0); - break; -#endif - -#if FFETARGET_okLOGICAL6 - case FFEINFO_kindtypeLOGICAL6: - ptr.logical6 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetLogical6), - 0); - break; -#endif - -#if FFETARGET_okLOGICAL7 - case FFEINFO_kindtypeLOGICAL7: - ptr.logical7 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetLogical7), - 0); - break; -#endif - -#if FFETARGET_okLOGICAL8 - case FFEINFO_kindtypeLOGICAL8: - ptr.logical8 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetLogical8), - 0); - break; -#endif - default: assert ("bad LOGICAL kindtype" == NULL); break; @@ -2042,51 +1519,6 @@ ffebld_constantarray_new (ffeinfoBasictype bt, break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - ptr.real4 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetReal4), - 0); - break; -#endif - -#if FFETARGET_okREAL5 - case FFEINFO_kindtypeREAL5: - ptr.real5 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetReal5), - 0); - break; -#endif - -#if FFETARGET_okREAL6 - case FFEINFO_kindtypeREAL6: - ptr.real6 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetReal6), - 0); - break; -#endif - -#if FFETARGET_okREAL7 - case FFEINFO_kindtypeREAL7: - ptr.real7 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetReal7), - 0); - break; -#endif - -#if FFETARGET_okREAL8 - case FFEINFO_kindtypeREAL8: - ptr.real8 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetReal8), - 0); - break; -#endif - default: assert ("bad REAL kindtype" == NULL); break; @@ -2123,56 +1555,11 @@ ffebld_constantarray_new (ffeinfoBasictype bt, break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - ptr.complex4 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetComplex4), - 0); - break; -#endif - -#if FFETARGET_okCOMPLEX5 - case FFEINFO_kindtypeREAL5: - ptr.complex5 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetComplex5), - 0); + default: + assert ("bad COMPLEX kindtype" == NULL); break; -#endif - -#if FFETARGET_okCOMPLEX6 - case FFEINFO_kindtypeREAL6: - ptr.complex6 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetComplex6), - 0); - break; -#endif - -#if FFETARGET_okCOMPLEX7 - case FFEINFO_kindtypeREAL7: - ptr.complex7 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetComplex7), - 0); - break; -#endif - -#if FFETARGET_okCOMPLEX8 - case FFEINFO_kindtypeREAL8: - ptr.complex8 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size *= sizeof (ffetargetComplex8), - 0); - break; -#endif - - default: - assert ("bad COMPLEX kindtype" == NULL); - break; - } - break; + } + break; case FFEINFO_basictypeCHARACTER: switch (kt) @@ -2187,76 +1574,6 @@ ffebld_constantarray_new (ffeinfoBasictype bt, break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - ptr.character2 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size - *= sizeof (ffetargetCharacterUnit2), - 0); - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - ptr.character3 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size - *= sizeof (ffetargetCharacterUnit3), - 0); - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - ptr.character4 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size - *= sizeof (ffetargetCharacterUnit4), - 0); - break; -#endif - -#if FFETARGET_okCHARACTER5 - case FFEINFO_kindtypeCHARACTER5: - ptr.character5 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size - *= sizeof (ffetargetCharacterUnit5), - 0); - break; -#endif - -#if FFETARGET_okCHARACTER6 - case FFEINFO_kindtypeCHARACTER6: - ptr.character6 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size - *= sizeof (ffetargetCharacterUnit6), - 0); - break; -#endif - -#if FFETARGET_okCHARACTER7 - case FFEINFO_kindtypeCHARACTER7: - ptr.character7 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size - *= sizeof (ffetargetCharacterUnit7), - 0); - break; -#endif - -#if FFETARGET_okCHARACTER8 - case FFEINFO_kindtypeCHARACTER8: - ptr.character8 = malloc_new_zkp (ffebld_constant_pool(), - "ffebldConstantArray", - size - *= sizeof (ffetargetCharacterUnit8), - 0); - break; -#endif - default: assert ("bad CHARACTER kindtype" == NULL); break; @@ -2313,30 +1630,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okINTEGER5 - case FFEINFO_kindtypeINTEGER5: - *aptr = array.integer5 + offset; - break; -#endif - -#if FFETARGET_okINTEGER6 - case FFEINFO_kindtypeINTEGER6: - *aptr = array.integer6 + offset; - break; -#endif - -#if FFETARGET_okINTEGER7 - case FFEINFO_kindtypeINTEGER7: - *aptr = array.integer7 + offset; - break; -#endif - -#if FFETARGET_okINTEGER8 - case FFEINFO_kindtypeINTEGER8: - *aptr = array.integer8 + offset; - break; -#endif - default: assert ("bad INTEGER akindtype" == NULL); break; @@ -2370,30 +1663,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okLOGICAL5 - case FFEINFO_kindtypeLOGICAL5: - *aptr = array.logical5 + offset; - break; -#endif - -#if FFETARGET_okLOGICAL6 - case FFEINFO_kindtypeLOGICAL6: - *aptr = array.logical6 + offset; - break; -#endif - -#if FFETARGET_okLOGICAL7 - case FFEINFO_kindtypeLOGICAL7: - *aptr = array.logical7 + offset; - break; -#endif - -#if FFETARGET_okLOGICAL8 - case FFEINFO_kindtypeLOGICAL8: - *aptr = array.logical8 + offset; - break; -#endif - default: assert ("bad LOGICAL akindtype" == NULL); break; @@ -2421,36 +1690,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - *aptr = array.real4 + offset; - break; -#endif - -#if FFETARGET_okREAL5 - case FFEINFO_kindtypeREAL5: - *aptr = array.real5 + offset; - break; -#endif - -#if FFETARGET_okREAL6 - case FFEINFO_kindtypeREAL6: - *aptr = array.real6 + offset; - break; -#endif - -#if FFETARGET_okREAL7 - case FFEINFO_kindtypeREAL7: - *aptr = array.real7 + offset; - break; -#endif - -#if FFETARGET_okREAL8 - case FFEINFO_kindtypeREAL8: - *aptr = array.real8 + offset; - break; -#endif - default: assert ("bad REAL akindtype" == NULL); break; @@ -2478,36 +1717,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - *aptr = array.complex4 + offset; - break; -#endif - -#if FFETARGET_okCOMPLEX5 - case FFEINFO_kindtypeREAL5: - *aptr = array.complex5 + offset; - break; -#endif - -#if FFETARGET_okCOMPLEX6 - case FFEINFO_kindtypeREAL6: - *aptr = array.complex6 + offset; - break; -#endif - -#if FFETARGET_okCOMPLEX7 - case FFEINFO_kindtypeREAL7: - *aptr = array.complex7 + offset; - break; -#endif - -#if FFETARGET_okCOMPLEX8 - case FFEINFO_kindtypeREAL8: - *aptr = array.complex8 + offset; - break; -#endif - default: assert ("bad COMPLEX akindtype" == NULL); break; @@ -2523,48 +1732,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - *aptr = array.character2 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - *aptr = array.character3 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - *aptr = array.character4 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER5 - case FFEINFO_kindtypeCHARACTER5: - *aptr = array.character5 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER6 - case FFEINFO_kindtypeCHARACTER6: - *aptr = array.character6 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER7 - case FFEINFO_kindtypeCHARACTER7: - *aptr = array.character7 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER8 - case FFEINFO_kindtypeCHARACTER8: - *aptr = array.character8 + offset; - break; -#endif - default: assert ("bad CHARACTER akindtype" == NULL); break; @@ -2609,34 +1776,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okINTEGER5 - case FFEINFO_kindtypeINTEGER5: - *cptr = source_array.integer5; - *size = sizeof (*source_array.integer5); - break; -#endif - -#if FFETARGET_okINTEGER6 - case FFEINFO_kindtypeINTEGER6: - *cptr = source_array.integer6; - *size = sizeof (*source_array.integer6); - break; -#endif - -#if FFETARGET_okINTEGER7 - case FFEINFO_kindtypeINTEGER7: - *cptr = source_array.integer7; - *size = sizeof (*source_array.integer7); - break; -#endif - -#if FFETARGET_okINTEGER8 - case FFEINFO_kindtypeINTEGER8: - *cptr = source_array.integer8; - *size = sizeof (*source_array.integer8); - break; -#endif - default: assert ("bad INTEGER ckindtype" == NULL); break; @@ -2674,34 +1813,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okLOGICAL5 - case FFEINFO_kindtypeLOGICAL5: - *cptr = source_array.logical5; - *size = sizeof (*source_array.logical5); - break; -#endif - -#if FFETARGET_okLOGICAL6 - case FFEINFO_kindtypeLOGICAL6: - *cptr = source_array.logical6; - *size = sizeof (*source_array.logical6); - break; -#endif - -#if FFETARGET_okLOGICAL7 - case FFEINFO_kindtypeLOGICAL7: - *cptr = source_array.logical7; - *size = sizeof (*source_array.logical7); - break; -#endif - -#if FFETARGET_okLOGICAL8 - case FFEINFO_kindtypeLOGICAL8: - *cptr = source_array.logical8; - *size = sizeof (*source_array.logical8); - break; -#endif - default: assert ("bad LOGICAL ckindtype" == NULL); break; @@ -2732,41 +1843,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - *cptr = source_array.real4; - *size = sizeof (*source_array.real4); - break; -#endif - -#if FFETARGET_okREAL5 - case FFEINFO_kindtypeREAL5: - *cptr = source_array.real5; - *size = sizeof (*source_array.real5); - break; -#endif - -#if FFETARGET_okREAL6 - case FFEINFO_kindtypeREAL6: - *cptr = source_array.real6; - *size = sizeof (*source_array.real6); - break; -#endif - -#if FFETARGET_okREAL7 - case FFEINFO_kindtypeREAL7: - *cptr = source_array.real7; - *size = sizeof (*source_array.real7); - break; -#endif - -#if FFETARGET_okREAL8 - case FFEINFO_kindtypeREAL8: - *cptr = source_array.real8; - *size = sizeof (*source_array.real8); - break; -#endif - default: assert ("bad REAL ckindtype" == NULL); break; @@ -2797,41 +1873,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - *cptr = source_array.complex4; - *size = sizeof (*source_array.complex4); - break; -#endif - -#if FFETARGET_okCOMPLEX5 - case FFEINFO_kindtypeREAL5: - *cptr = source_array.complex5; - *size = sizeof (*source_array.complex5); - break; -#endif - -#if FFETARGET_okCOMPLEX6 - case FFEINFO_kindtypeREAL6: - *cptr = source_array.complex6; - *size = sizeof (*source_array.complex6); - break; -#endif - -#if FFETARGET_okCOMPLEX7 - case FFEINFO_kindtypeREAL7: - *cptr = source_array.complex7; - *size = sizeof (*source_array.complex7); - break; -#endif - -#if FFETARGET_okCOMPLEX8 - case FFEINFO_kindtypeREAL8: - *cptr = source_array.complex8; - *size = sizeof (*source_array.complex8); - break; -#endif - default: assert ("bad COMPLEX ckindtype" == NULL); break; @@ -2848,55 +1889,6 @@ ffebld_constantarray_preparray (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - *cptr = source_array.character2; - *size = sizeof (*source_array.character2); - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - *cptr = source_array.character3; - *size = sizeof (*source_array.character3); - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - *cptr = source_array.character4; - *size = sizeof (*source_array.character4); - break; -#endif - -#if FFETARGET_okCHARACTER5 - case FFEINFO_kindtypeCHARACTER5: - *cptr = source_array.character5; - *size = sizeof (*source_array.character5); - break; -#endif - -#if FFETARGET_okCHARACTER6 - case FFEINFO_kindtypeCHARACTER6: - *cptr = source_array.character6; - *size = sizeof (*source_array.character6); - break; -#endif - -#if FFETARGET_okCHARACTER7 - case FFEINFO_kindtypeCHARACTER7: - *cptr = source_array.character7; - *size = sizeof (*source_array.character7); - break; -#endif - -#if FFETARGET_okCHARACTER8 - case FFEINFO_kindtypeCHARACTER8: - *cptr = source_array.character8; - *size = sizeof (*source_array.character8); - break; -#endif - default: assert ("bad CHARACTER ckindtype" == NULL); break; @@ -2959,30 +1951,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okINTEGER5 - case FFEINFO_kindtypeINTEGER5: - *aptr = array.integer5 + offset; - break; -#endif - -#if FFETARGET_okINTEGER6 - case FFEINFO_kindtypeINTEGER6: - *aptr = array.integer6 + offset; - break; -#endif - -#if FFETARGET_okINTEGER7 - case FFEINFO_kindtypeINTEGER7: - *aptr = array.integer7 + offset; - break; -#endif - -#if FFETARGET_okINTEGER8 - case FFEINFO_kindtypeINTEGER8: - *aptr = array.integer8 + offset; - break; -#endif - default: assert ("bad INTEGER akindtype" == NULL); break; @@ -3016,30 +1984,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okLOGICAL5 - case FFEINFO_kindtypeLOGICAL5: - *aptr = array.logical5 + offset; - break; -#endif - -#if FFETARGET_okLOGICAL6 - case FFEINFO_kindtypeLOGICAL6: - *aptr = array.logical6 + offset; - break; -#endif - -#if FFETARGET_okLOGICAL7 - case FFEINFO_kindtypeLOGICAL7: - *aptr = array.logical7 + offset; - break; -#endif - -#if FFETARGET_okLOGICAL8 - case FFEINFO_kindtypeLOGICAL8: - *aptr = array.logical8 + offset; - break; -#endif - default: assert ("bad LOGICAL akindtype" == NULL); break; @@ -3067,36 +2011,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - *aptr = array.real4 + offset; - break; -#endif - -#if FFETARGET_okREAL5 - case FFEINFO_kindtypeREAL5: - *aptr = array.real5 + offset; - break; -#endif - -#if FFETARGET_okREAL6 - case FFEINFO_kindtypeREAL6: - *aptr = array.real6 + offset; - break; -#endif - -#if FFETARGET_okREAL7 - case FFEINFO_kindtypeREAL7: - *aptr = array.real7 + offset; - break; -#endif - -#if FFETARGET_okREAL8 - case FFEINFO_kindtypeREAL8: - *aptr = array.real8 + offset; - break; -#endif - default: assert ("bad REAL akindtype" == NULL); break; @@ -3124,36 +2038,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - *aptr = array.complex4 + offset; - break; -#endif - -#if FFETARGET_okCOMPLEX5 - case FFEINFO_kindtypeREAL5: - *aptr = array.complex5 + offset; - break; -#endif - -#if FFETARGET_okCOMPLEX6 - case FFEINFO_kindtypeREAL6: - *aptr = array.complex6 + offset; - break; -#endif - -#if FFETARGET_okCOMPLEX7 - case FFEINFO_kindtypeREAL7: - *aptr = array.complex7 + offset; - break; -#endif - -#if FFETARGET_okCOMPLEX8 - case FFEINFO_kindtypeREAL8: - *aptr = array.complex8 + offset; - break; -#endif - default: assert ("bad COMPLEX akindtype" == NULL); break; @@ -3169,48 +2053,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - *aptr = array.character2 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - *aptr = array.character3 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - *aptr = array.character4 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER5 - case FFEINFO_kindtypeCHARACTER5: - *aptr = array.character5 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER6 - case FFEINFO_kindtypeCHARACTER6: - *aptr = array.character6 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER7 - case FFEINFO_kindtypeCHARACTER7: - *aptr = array.character7 + offset; - break; -#endif - -#if FFETARGET_okCHARACTER8 - case FFEINFO_kindtypeCHARACTER8: - *aptr = array.character8 + offset; - break; -#endif - default: assert ("bad CHARACTER akindtype" == NULL); break; @@ -3255,34 +2097,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okINTEGER5 - case FFEINFO_kindtypeINTEGER5: - *cptr = &constant->integer5; - *size = sizeof (constant->integer5); - break; -#endif - -#if FFETARGET_okINTEGER6 - case FFEINFO_kindtypeINTEGER6: - *cptr = &constant->integer6; - *size = sizeof (constant->integer6); - break; -#endif - -#if FFETARGET_okINTEGER7 - case FFEINFO_kindtypeINTEGER7: - *cptr = &constant->integer7; - *size = sizeof (constant->integer7); - break; -#endif - -#if FFETARGET_okINTEGER8 - case FFEINFO_kindtypeINTEGER8: - *cptr = &constant->integer8; - *size = sizeof (constant->integer8); - break; -#endif - default: assert ("bad INTEGER ckindtype" == NULL); break; @@ -3320,34 +2134,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okLOGICAL5 - case FFEINFO_kindtypeLOGICAL5: - *cptr = &constant->logical5; - *size = sizeof (constant->logical5); - break; -#endif - -#if FFETARGET_okLOGICAL6 - case FFEINFO_kindtypeLOGICAL6: - *cptr = &constant->logical6; - *size = sizeof (constant->logical6); - break; -#endif - -#if FFETARGET_okLOGICAL7 - case FFEINFO_kindtypeLOGICAL7: - *cptr = &constant->logical7; - *size = sizeof (constant->logical7); - break; -#endif - -#if FFETARGET_okLOGICAL8 - case FFEINFO_kindtypeLOGICAL8: - *cptr = &constant->logical8; - *size = sizeof (constant->logical8); - break; -#endif - default: assert ("bad LOGICAL ckindtype" == NULL); break; @@ -3378,41 +2164,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - *cptr = &constant->real4; - *size = sizeof (constant->real4); - break; -#endif - -#if FFETARGET_okREAL5 - case FFEINFO_kindtypeREAL5: - *cptr = &constant->real5; - *size = sizeof (constant->real5); - break; -#endif - -#if FFETARGET_okREAL6 - case FFEINFO_kindtypeREAL6: - *cptr = &constant->real6; - *size = sizeof (constant->real6); - break; -#endif - -#if FFETARGET_okREAL7 - case FFEINFO_kindtypeREAL7: - *cptr = &constant->real7; - *size = sizeof (constant->real7); - break; -#endif - -#if FFETARGET_okREAL8 - case FFEINFO_kindtypeREAL8: - *cptr = &constant->real8; - *size = sizeof (constant->real8); - break; -#endif - default: assert ("bad REAL ckindtype" == NULL); break; @@ -3443,41 +2194,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - *cptr = &constant->complex4; - *size = sizeof (constant->complex4); - break; -#endif - -#if FFETARGET_okCOMPLEX5 - case FFEINFO_kindtypeREAL5: - *cptr = &constant->complex5; - *size = sizeof (constant->complex5); - break; -#endif - -#if FFETARGET_okCOMPLEX6 - case FFEINFO_kindtypeREAL6: - *cptr = &constant->complex6; - *size = sizeof (constant->complex6); - break; -#endif - -#if FFETARGET_okCOMPLEX7 - case FFEINFO_kindtypeREAL7: - *cptr = &constant->complex7; - *size = sizeof (constant->complex7); - break; -#endif - -#if FFETARGET_okCOMPLEX8 - case FFEINFO_kindtypeREAL8: - *cptr = &constant->complex8; - *size = sizeof (constant->complex8); - break; -#endif - default: assert ("bad COMPLEX ckindtype" == NULL); break; @@ -3494,55 +2210,6 @@ ffebld_constantarray_prepare (void **aptr, void **cptr, size_t *size, break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - *cptr = ffetarget_text_character2 (constant->character2); - *size = ffetarget_length_character2 (constant->character2); - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - *cptr = ffetarget_text_character3 (constant->character3); - *size = ffetarget_length_character3 (constant->character3); - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - *cptr = ffetarget_text_character4 (constant->character4); - *size = ffetarget_length_character4 (constant->character4); - break; -#endif - -#if FFETARGET_okCHARACTER5 - case FFEINFO_kindtypeCHARACTER5: - *cptr = ffetarget_text_character5 (constant->character5); - *size = ffetarget_length_character5 (constant->character5); - break; -#endif - -#if FFETARGET_okCHARACTER6 - case FFEINFO_kindtypeCHARACTER6: - *cptr = ffetarget_text_character6 (constant->character6); - *size = ffetarget_length_character6 (constant->character6); - break; -#endif - -#if FFETARGET_okCHARACTER7 - case FFEINFO_kindtypeCHARACTER7: - *cptr = ffetarget_text_character7 (constant->character7); - *size = ffetarget_length_character7 (constant->character7); - break; -#endif - -#if FFETARGET_okCHARACTER8 - case FFEINFO_kindtypeCHARACTER8: - *cptr = ffetarget_text_character8 (constant->character8); - *size = ffetarget_length_character8 (constant->character8); - break; -#endif - default: assert ("bad CHARACTER ckindtype" == NULL); break; @@ -3592,30 +2259,6 @@ ffebld_constantarray_put (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okINTEGER5 - case FFEINFO_kindtypeINTEGER5: - *(array.integer5 + offset) = constant.integer5; - break; -#endif - -#if FFETARGET_okINTEGER6 - case FFEINFO_kindtypeINTEGER6: - *(array.integer6 + offset) = constant.integer6; - break; -#endif - -#if FFETARGET_okINTEGER7 - case FFEINFO_kindtypeINTEGER7: - *(array.integer7 + offset) = constant.integer7; - break; -#endif - -#if FFETARGET_okINTEGER8 - case FFEINFO_kindtypeINTEGER8: - *(array.integer8 + offset) = constant.integer8; - break; -#endif - default: assert ("bad INTEGER kindtype" == NULL); break; @@ -3649,30 +2292,6 @@ ffebld_constantarray_put (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okLOGICAL5 - case FFEINFO_kindtypeLOGICAL5: - *(array.logical5 + offset) = constant.logical5; - break; -#endif - -#if FFETARGET_okLOGICAL6 - case FFEINFO_kindtypeLOGICAL6: - *(array.logical6 + offset) = constant.logical6; - break; -#endif - -#if FFETARGET_okLOGICAL7 - case FFEINFO_kindtypeLOGICAL7: - *(array.logical7 + offset) = constant.logical7; - break; -#endif - -#if FFETARGET_okLOGICAL8 - case FFEINFO_kindtypeLOGICAL8: - *(array.logical8 + offset) = constant.logical8; - break; -#endif - default: assert ("bad LOGICAL kindtype" == NULL); break; @@ -3700,36 +2319,6 @@ ffebld_constantarray_put (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - *(array.real4 + offset) = constant.real4; - break; -#endif - -#if FFETARGET_okREAL5 - case FFEINFO_kindtypeREAL5: - *(array.real5 + offset) = constant.real5; - break; -#endif - -#if FFETARGET_okREAL6 - case FFEINFO_kindtypeREAL6: - *(array.real6 + offset) = constant.real6; - break; -#endif - -#if FFETARGET_okREAL7 - case FFEINFO_kindtypeREAL7: - *(array.real7 + offset) = constant.real7; - break; -#endif - -#if FFETARGET_okREAL8 - case FFEINFO_kindtypeREAL8: - *(array.real8 + offset) = constant.real8; - break; -#endif - default: assert ("bad REAL kindtype" == NULL); break; @@ -3757,36 +2346,6 @@ ffebld_constantarray_put (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - *(array.complex4 + offset) = constant.complex4; - break; -#endif - -#if FFETARGET_okCOMPLEX5 - case FFEINFO_kindtypeREAL5: - *(array.complex5 + offset) = constant.complex5; - break; -#endif - -#if FFETARGET_okCOMPLEX6 - case FFEINFO_kindtypeREAL6: - *(array.complex6 + offset) = constant.complex6; - break; -#endif - -#if FFETARGET_okCOMPLEX7 - case FFEINFO_kindtypeREAL7: - *(array.complex7 + offset) = constant.complex7; - break; -#endif - -#if FFETARGET_okCOMPLEX8 - case FFEINFO_kindtypeREAL8: - *(array.complex8 + offset) = constant.complex8; - break; -#endif - default: assert ("bad COMPLEX kindtype" == NULL); break; @@ -3804,62 +2363,6 @@ ffebld_constantarray_put (ffebldConstantArray array, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - memcpy (array.character2 + offset, - ffetarget_text_character2 (constant.character2), - ffetarget_length_character2 (constant.character2)); - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - memcpy (array.character3 + offset, - ffetarget_text_character3 (constant.character3), - ffetarget_length_character3 (constant.character3)); - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - memcpy (array.character4 + offset, - ffetarget_text_character4 (constant.character4), - ffetarget_length_character4 (constant.character4)); - break; -#endif - -#if FFETARGET_okCHARACTER5 - case FFEINFO_kindtypeCHARACTER5: - memcpy (array.character5 + offset, - ffetarget_text_character5 (constant.character5), - ffetarget_length_character5 (constant.character5)); - break; -#endif - -#if FFETARGET_okCHARACTER6 - case FFEINFO_kindtypeCHARACTER6: - memcpy (array.character6 + offset, - ffetarget_text_character6 (constant.character6), - ffetarget_length_character6 (constant.character6)); - break; -#endif - -#if FFETARGET_okCHARACTER7 - case FFEINFO_kindtypeCHARACTER7: - memcpy (array.character7 + offset, - ffetarget_text_character7 (constant.character7), - ffetarget_length_character7 (constant.character7)); - break; -#endif - -#if FFETARGET_okCHARACTER8 - case FFEINFO_kindtypeCHARACTER8: - memcpy (array.character8 + offset, - ffetarget_text_character8 (constant.character8), - ffetarget_length_character8 (constant.character8)); - break; -#endif - default: assert ("bad CHARACTER kindtype" == NULL); break; @@ -3896,27 +2399,6 @@ ffebld_init_1 () #if FFETARGET_okCHARACTER1 ffebld_constant_character1_ = NULL; #endif -#if FFETARGET_okCHARACTER2 - ffebld_constant_character2_ = NULL; -#endif -#if FFETARGET_okCHARACTER3 - ffebld_constant_character3_ = NULL; -#endif -#if FFETARGET_okCHARACTER4 - ffebld_constant_character4_ = NULL; -#endif -#if FFETARGET_okCHARACTER5 - ffebld_constant_character5_ = NULL; -#endif -#if FFETARGET_okCHARACTER6 - ffebld_constant_character6_ = NULL; -#endif -#if FFETARGET_okCHARACTER7 - ffebld_constant_character7_ = NULL; -#endif -#if FFETARGET_okCHARACTER8 - ffebld_constant_character8_ = NULL; -#endif #if FFETARGET_okCOMPLEX1 ffebld_constant_complex1_ = NULL; #endif @@ -3926,21 +2408,6 @@ ffebld_init_1 () #if FFETARGET_okCOMPLEX3 ffebld_constant_complex3_ = NULL; #endif -#if FFETARGET_okCOMPLEX4 - ffebld_constant_complex4_ = NULL; -#endif -#if FFETARGET_okCOMPLEX5 - ffebld_constant_complex5_ = NULL; -#endif -#if FFETARGET_okCOMPLEX6 - ffebld_constant_complex6_ = NULL; -#endif -#if FFETARGET_okCOMPLEX7 - ffebld_constant_complex7_ = NULL; -#endif -#if FFETARGET_okCOMPLEX8 - ffebld_constant_complex8_ = NULL; -#endif #if FFETARGET_okINTEGER1 ffebld_constant_integer1_ = NULL; #endif @@ -3953,18 +2420,6 @@ ffebld_init_1 () #if FFETARGET_okINTEGER4 ffebld_constant_integer4_ = NULL; #endif -#if FFETARGET_okINTEGER5 - ffebld_constant_integer5_ = NULL; -#endif -#if FFETARGET_okINTEGER6 - ffebld_constant_integer6_ = NULL; -#endif -#if FFETARGET_okINTEGER7 - ffebld_constant_integer7_ = NULL; -#endif -#if FFETARGET_okINTEGER8 - ffebld_constant_integer8_ = NULL; -#endif #if FFETARGET_okLOGICAL1 ffebld_constant_logical1_ = NULL; #endif @@ -3977,18 +2432,6 @@ ffebld_init_1 () #if FFETARGET_okLOGICAL4 ffebld_constant_logical4_ = NULL; #endif -#if FFETARGET_okLOGICAL5 - ffebld_constant_logical5_ = NULL; -#endif -#if FFETARGET_okLOGICAL6 - ffebld_constant_logical6_ = NULL; -#endif -#if FFETARGET_okLOGICAL7 - ffebld_constant_logical7_ = NULL; -#endif -#if FFETARGET_okLOGICAL8 - ffebld_constant_logical8_ = NULL; -#endif #if FFETARGET_okREAL1 ffebld_constant_real1_ = NULL; #endif @@ -3998,21 +2441,6 @@ ffebld_init_1 () #if FFETARGET_okREAL3 ffebld_constant_real3_ = NULL; #endif -#if FFETARGET_okREAL4 - ffebld_constant_real4_ = NULL; -#endif -#if FFETARGET_okREAL5 - ffebld_constant_real5_ = NULL; -#endif -#if FFETARGET_okREAL6 - ffebld_constant_real6_ = NULL; -#endif -#if FFETARGET_okREAL7 - ffebld_constant_real7_ = NULL; -#endif -#if FFETARGET_okREAL8 - ffebld_constant_real8_ = NULL; -#endif ffebld_constant_hollerith_ = NULL; for (i = FFEBLD_constTYPELESS_FIRST; i <= FFEBLD_constTYPELESS_LAST; ++i) ffebld_constant_typeless_[i - FFEBLD_constTYPELESS_FIRST] = NULL; @@ -4036,27 +2464,6 @@ ffebld_init_2 () #if FFETARGET_okCHARACTER1 ffebld_constant_character1_ = NULL; #endif -#if FFETARGET_okCHARACTER2 - ffebld_constant_character2_ = NULL; -#endif -#if FFETARGET_okCHARACTER3 - ffebld_constant_character3_ = NULL; -#endif -#if FFETARGET_okCHARACTER4 - ffebld_constant_character4_ = NULL; -#endif -#if FFETARGET_okCHARACTER5 - ffebld_constant_character5_ = NULL; -#endif -#if FFETARGET_okCHARACTER6 - ffebld_constant_character6_ = NULL; -#endif -#if FFETARGET_okCHARACTER7 - ffebld_constant_character7_ = NULL; -#endif -#if FFETARGET_okCHARACTER8 - ffebld_constant_character8_ = NULL; -#endif #if FFETARGET_okCOMPLEX1 ffebld_constant_complex1_ = NULL; #endif @@ -4066,21 +2473,6 @@ ffebld_init_2 () #if FFETARGET_okCOMPLEX3 ffebld_constant_complex3_ = NULL; #endif -#if FFETARGET_okCOMPLEX4 - ffebld_constant_complex4_ = NULL; -#endif -#if FFETARGET_okCOMPLEX5 - ffebld_constant_complex5_ = NULL; -#endif -#if FFETARGET_okCOMPLEX6 - ffebld_constant_complex6_ = NULL; -#endif -#if FFETARGET_okCOMPLEX7 - ffebld_constant_complex7_ = NULL; -#endif -#if FFETARGET_okCOMPLEX8 - ffebld_constant_complex8_ = NULL; -#endif #if FFETARGET_okINTEGER1 ffebld_constant_integer1_ = NULL; #endif @@ -4093,18 +2485,6 @@ ffebld_init_2 () #if FFETARGET_okINTEGER4 ffebld_constant_integer4_ = NULL; #endif -#if FFETARGET_okINTEGER5 - ffebld_constant_integer5_ = NULL; -#endif -#if FFETARGET_okINTEGER6 - ffebld_constant_integer6_ = NULL; -#endif -#if FFETARGET_okINTEGER7 - ffebld_constant_integer7_ = NULL; -#endif -#if FFETARGET_okINTEGER8 - ffebld_constant_integer8_ = NULL; -#endif #if FFETARGET_okLOGICAL1 ffebld_constant_logical1_ = NULL; #endif @@ -4117,18 +2497,6 @@ ffebld_init_2 () #if FFETARGET_okLOGICAL4 ffebld_constant_logical4_ = NULL; #endif -#if FFETARGET_okLOGICAL5 - ffebld_constant_logical5_ = NULL; -#endif -#if FFETARGET_okLOGICAL6 - ffebld_constant_logical6_ = NULL; -#endif -#if FFETARGET_okLOGICAL7 - ffebld_constant_logical7_ = NULL; -#endif -#if FFETARGET_okLOGICAL8 - ffebld_constant_logical8_ = NULL; -#endif #if FFETARGET_okREAL1 ffebld_constant_real1_ = NULL; #endif @@ -4138,21 +2506,6 @@ ffebld_init_2 () #if FFETARGET_okREAL3 ffebld_constant_real3_ = NULL; #endif -#if FFETARGET_okREAL4 - ffebld_constant_real4_ = NULL; -#endif -#if FFETARGET_okREAL5 - ffebld_constant_real5_ = NULL; -#endif -#if FFETARGET_okREAL6 - ffebld_constant_real6_ = NULL; -#endif -#if FFETARGET_okREAL7 - ffebld_constant_real7_ = NULL; -#endif -#if FFETARGET_okREAL8 - ffebld_constant_real8_ = NULL; -#endif ffebld_constant_hollerith_ = NULL; for (i = FFEBLD_constTYPELESS_FIRST; i <= FFEBLD_constTYPELESS_LAST; ++i) ffebld_constant_typeless_[i - FFEBLD_constTYPELESS_FIRST] = NULL; diff --git a/gcc/f/bld.h b/gcc/f/bld.h index 880d563..a726dec 100644 --- a/gcc/f/bld.h +++ b/gcc/f/bld.h @@ -154,18 +154,6 @@ union _ffebld_constant_union_ #if FFETARGET_okINTEGER4 ffetargetInteger4 integer4; #endif -#if FFETARGET_okINTEGER5 - ffetargetInteger5 integer5; -#endif -#if FFETARGET_okINTEGER6 - ffetargetInteger6 integer6; -#endif -#if FFETARGET_okINTEGER7 - ffetargetInteger7 integer7; -#endif -#if FFETARGET_okINTEGER8 - ffetargetInteger8 integer8; -#endif #if FFETARGET_okLOGICAL1 ffetargetLogical1 logical1; #endif @@ -178,18 +166,6 @@ union _ffebld_constant_union_ #if FFETARGET_okLOGICAL4 ffetargetLogical4 logical4; #endif -#if FFETARGET_okLOGICAL5 - ffetargetLogical5 logical5; -#endif -#if FFETARGET_okLOGICAL6 - ffetargetLogical6 logical6; -#endif -#if FFETARGET_okLOGICAL7 - ffetargetLogical7 logical7; -#endif -#if FFETARGET_okLOGICAL8 - ffetargetLogical8 logical8; -#endif #if FFETARGET_okREAL1 ffetargetReal1 real1; #endif @@ -199,21 +175,6 @@ union _ffebld_constant_union_ #if FFETARGET_okREAL3 ffetargetReal3 real3; #endif -#if FFETARGET_okREAL4 - ffetargetReal4 real4; -#endif -#if FFETARGET_okREAL5 - ffetargetReal5 real5; -#endif -#if FFETARGET_okREAL6 - ffetargetReal6 real6; -#endif -#if FFETARGET_okREAL7 - ffetargetReal7 real7; -#endif -#if FFETARGET_okREAL8 - ffetargetReal8 real8; -#endif #if FFETARGET_okCOMPLEX1 ffetargetComplex1 complex1; #endif @@ -223,45 +184,9 @@ union _ffebld_constant_union_ #if FFETARGET_okCOMPLEX3 ffetargetComplex3 complex3; #endif -#if FFETARGET_okCOMPLEX4 - ffetargetComplex4 complex4; -#endif -#if FFETARGET_okCOMPLEX5 - ffetargetComplex5 complex5; -#endif -#if FFETARGET_okCOMPLEX6 - ffetargetComplex6 complex6; -#endif -#if FFETARGET_okCOMPLEX7 - ffetargetComplex7 complex7; -#endif -#if FFETARGET_okCOMPLEX8 - ffetargetComplex8 complex8; -#endif #if FFETARGET_okCHARACTER1 ffetargetCharacter1 character1; #endif -#if FFETARGET_okCHARACTER2 - ffetargetCharacter2 character2; -#endif -#if FFETARGET_okCHARACTER3 - ffetargetCharacter3 character3; -#endif -#if FFETARGET_okCHARACTER4 - ffetargetCharacter4 character4; -#endif -#if FFETARGET_okCHARACTER5 - ffetargetCharacter5 character5; -#endif -#if FFETARGET_okCHARACTER6 - ffetargetCharacter6 character6; -#endif -#if FFETARGET_okCHARACTER7 - ffetargetCharacter7 character7; -#endif -#if FFETARGET_okCHARACTER8 - ffetargetCharacter8 character8; -#endif }; union _ffebld_constant_array_ @@ -278,18 +203,6 @@ union _ffebld_constant_array_ #if FFETARGET_okINTEGER4 ffetargetInteger4 *integer4; #endif -#if FFETARGET_okINTEGER5 - ffetargetInteger5 *integer5; -#endif -#if FFETARGET_okINTEGER6 - ffetargetInteger6 *integer6; -#endif -#if FFETARGET_okINTEGER7 - ffetargetInteger7 *integer7; -#endif -#if FFETARGET_okINTEGER8 - ffetargetInteger8 *integer8; -#endif #if FFETARGET_okLOGICAL1 ffetargetLogical1 *logical1; #endif @@ -302,18 +215,6 @@ union _ffebld_constant_array_ #if FFETARGET_okLOGICAL4 ffetargetLogical4 *logical4; #endif -#if FFETARGET_okLOGICAL5 - ffetargetLogical5 *logical5; -#endif -#if FFETARGET_okLOGICAL6 - ffetargetLogical6 *logical6; -#endif -#if FFETARGET_okLOGICAL7 - ffetargetLogical7 *logical7; -#endif -#if FFETARGET_okLOGICAL8 - ffetargetLogical8 *logical8; -#endif #if FFETARGET_okREAL1 ffetargetReal1 *real1; #endif @@ -323,21 +224,6 @@ union _ffebld_constant_array_ #if FFETARGET_okREAL3 ffetargetReal3 *real3; #endif -#if FFETARGET_okREAL4 - ffetargetReal4 *real4; -#endif -#if FFETARGET_okREAL5 - ffetargetReal5 *real5; -#endif -#if FFETARGET_okREAL6 - ffetargetReal6 *real6; -#endif -#if FFETARGET_okREAL7 - ffetargetReal7 *real7; -#endif -#if FFETARGET_okREAL8 - ffetargetReal8 *real8; -#endif #if FFETARGET_okCOMPLEX1 ffetargetComplex1 *complex1; #endif @@ -347,45 +233,9 @@ union _ffebld_constant_array_ #if FFETARGET_okCOMPLEX3 ffetargetComplex3 *complex3; #endif -#if FFETARGET_okCOMPLEX4 - ffetargetComplex4 *complex4; -#endif -#if FFETARGET_okCOMPLEX5 - ffetargetComplex5 *complex5; -#endif -#if FFETARGET_okCOMPLEX6 - ffetargetComplex6 *complex6; -#endif -#if FFETARGET_okCOMPLEX7 - ffetargetComplex7 *complex7; -#endif -#if FFETARGET_okCOMPLEX8 - ffetargetComplex8 *complex8; -#endif #if FFETARGET_okCHARACTER1 ffetargetCharacterUnit1 *character1; #endif -#if FFETARGET_okCHARACTER2 - ffetargetCharacterUnit2 *character2; -#endif -#if FFETARGET_okCHARACTER3 - ffetargetCharacterUnit3 *character3; -#endif -#if FFETARGET_okCHARACTER4 - ffetargetCharacterUnit4 *character4; -#endif -#if FFETARGET_okCHARACTER5 - ffetargetCharacterUnit5 *character5; -#endif -#if FFETARGET_okCHARACTER6 - ffetargetCharacterUnit6 *character6; -#endif -#if FFETARGET_okCHARACTER7 - ffetargetCharacterUnit7 *character7; -#endif -#if FFETARGET_okCHARACTER8 - ffetargetCharacterUnit8 *character8; -#endif }; struct _ffebld_ @@ -479,34 +329,6 @@ bool ffebld_constant_is_zero (ffebldConstant c); ffebldConstant ffebld_constant_new_character1 (ffelexToken t); ffebldConstant ffebld_constant_new_character1_val (ffetargetCharacter1 val); #endif -#if FFETARGET_okCHARACTER2 -ffebldConstant ffebld_constant_new_character2 (ffelexToken t); -ffebldConstant ffebld_constant_new_character2_val (ffetargetCharacter2 val); -#endif -#if FFETARGET_okCHARACTER3 -ffebldConstant ffebld_constant_new_character3 (ffelexToken t); -ffebldConstant ffebld_constant_new_character3_val (ffetargetCharacter3 val); -#endif -#if FFETARGET_okCHARACTER4 -ffebldConstant ffebld_constant_new_character4 (ffelexToken t); -ffebldConstant ffebld_constant_new_character4_val (ffetargetCharacter4 val); -#endif -#if FFETARGET_okCHARACTER5 -ffebldConstant ffebld_constant_new_character5 (ffelexToken t); -ffebldConstant ffebld_constant_new_character5_val (ffetargetCharacter5 val); -#endif -#if FFETARGET_okCHARACTER6 -ffebldConstant ffebld_constant_new_character6 (ffelexToken t); -ffebldConstant ffebld_constant_new_character6_val (ffetargetCharacter6 val); -#endif -#if FFETARGET_okCHARACTER7 -ffebldConstant ffebld_constant_new_character7 (ffelexToken t); -ffebldConstant ffebld_constant_new_character7_val (ffetargetCharacter7 val); -#endif -#if FFETARGET_okCHARACTER8 -ffebldConstant ffebld_constant_new_character8 (ffelexToken t); -ffebldConstant ffebld_constant_new_character8_val (ffetargetCharacter8 val); -#endif #if FFETARGET_okCOMPLEX1 ffebldConstant ffebld_constant_new_complex1 (ffebldConstant real, ffebldConstant imaginary); @@ -522,31 +344,6 @@ ffebldConstant ffebld_constant_new_complex3 (ffebldConstant real, ffebldConstant imaginary); ffebldConstant ffebld_constant_new_complex3_val (ffetargetComplex3 val); #endif -#if FFETARGET_okCOMPLEX4 -ffebldConstant ffebld_constant_new_complex4 (ffebldConstant real, - ffebldConstant imaginary); -ffebldConstant ffebld_constant_new_complex4_val (ffetargetComplex4 val); -#endif -#if FFETARGET_okCOMPLEX5 -ffebldConstant ffebld_constant_new_complex5 (ffebldConstant real, - ffebldConstant imaginary); -ffebldConstant ffebld_constant_new_complex5_val (ffetargetComplex5 val); -#endif -#if FFETARGET_okCOMPLEX6 -ffebldConstant ffebld_constant_new_complex6 (ffebldConstant real, - ffebldConstant imaginary); -ffebldConstant ffebld_constant_new_complex6_val (ffetargetComplex6 val); -#endif -#if FFETARGET_okCOMPLEX7 -ffebldConstant ffebld_constant_new_complex7 (ffebldConstant real, - ffebldConstant imaginary); -ffebldConstant ffebld_constant_new_complex7_val (ffetargetComplex7 val); -#endif -#if FFETARGET_okCOMPLEX8 -ffebldConstant ffebld_constant_new_complex8 (ffebldConstant real, - ffebldConstant imaginary); -ffebldConstant ffebld_constant_new_complex8_val (ffetargetComplex8 val); -#endif ffebldConstant ffebld_constant_new_hollerith (ffelexToken t); ffebldConstant ffebld_constant_new_hollerith_val (ffetargetHollerith val); #if FFETARGET_okINTEGER1 @@ -565,22 +362,6 @@ ffebldConstant ffebld_constant_new_integer3_val (ffetargetInteger3 val); ffebldConstant ffebld_constant_new_integer4 (ffelexToken t); ffebldConstant ffebld_constant_new_integer4_val (ffetargetInteger4 val); #endif -#if FFETARGET_okINTEGER5 -ffebldConstant ffebld_constant_new_integer5 (ffelexToken t); -ffebldConstant ffebld_constant_new_integer5_val (ffetargetInteger5 val); -#endif -#if FFETARGET_okINTEGER6 -ffebldConstant ffebld_constant_new_integer6 (ffelexToken t); -ffebldConstant ffebld_constant_new_integer6_val (ffetargetInteger6 val); -#endif -#if FFETARGET_okINTEGER7 -ffebldConstant ffebld_constant_new_integer7 (ffelexToken t); -ffebldConstant ffebld_constant_new_integer7_val (ffetargetInteger7 val); -#endif -#if FFETARGET_okINTEGER8 -ffebldConstant ffebld_constant_new_integer8 (ffelexToken t); -ffebldConstant ffebld_constant_new_integer8_val (ffetargetInteger8 val); -#endif ffebldConstant ffebld_constant_new_integerbinary (ffelexToken t); ffebldConstant ffebld_constant_new_integerhex (ffelexToken t); ffebldConstant ffebld_constant_new_integeroctal (ffelexToken t); @@ -600,22 +381,6 @@ ffebldConstant ffebld_constant_new_logical3_val (ffetargetLogical3 val); ffebldConstant ffebld_constant_new_logical4 (bool truth); ffebldConstant ffebld_constant_new_logical4_val (ffetargetLogical4 val); #endif -#if FFETARGET_okLOGICAL5 -ffebldConstant ffebld_constant_new_logical5 (bool truth); -ffebldConstant ffebld_constant_new_logical5_val (ffetargetLogical5 val); -#endif -#if FFETARGET_okLOGICAL6 -ffebldConstant ffebld_constant_new_logical6 (bool truth); -ffebldConstant ffebld_constant_new_logical6_val (ffetargetLogical6 val); -#endif -#if FFETARGET_okLOGICAL7 -ffebldConstant ffebld_constant_new_logical7 (bool truth); -ffebldConstant ffebld_constant_new_logical7_val (ffetargetLogical7 val); -#endif -#if FFETARGET_okLOGICAL8 -ffebldConstant ffebld_constant_new_logical8 (bool truth); -ffebldConstant ffebld_constant_new_logical8_val (ffetargetLogical8 val); -#endif #if FFETARGET_okREAL1 ffebldConstant ffebld_constant_new_real1 (ffelexToken integer, ffelexToken decimal, ffelexToken fraction, ffelexToken exponent, @@ -634,36 +399,6 @@ ffebldConstant ffebld_constant_new_real3 (ffelexToken integer, ffelexToken exponent_sign, ffelexToken exponent_digits); ffebldConstant ffebld_constant_new_real3_val (ffetargetReal3 val); #endif -#if FFETARGET_okREAL4 -ffebldConstant ffebld_constant_new_real4 (ffelexToken integer, - ffelexToken decimal, ffelexToken fraction, ffelexToken exponent, - ffelexToken exponent_sign, ffelexToken exponent_digits); -ffebldConstant ffebld_constant_new_real4_val (ffetargetReal4 val); -#endif -#if FFETARGET_okREAL5 -ffebldConstant ffebld_constant_new_real5 (ffelexToken integer, - ffelexToken decimal, ffelexToken fraction, ffelexToken exponent, - ffelexToken exponent_sign, ffelexToken exponent_digits); -ffebldConstant ffebld_constant_new_real5_val (ffetargetReal5 val); -#endif -#if FFETARGET_okREAL6 -ffebldConstant ffebld_constant_new_real6 (ffelexToken integer, - ffelexToken decimal, ffelexToken fraction, ffelexToken exponent, - ffelexToken exponent_sign, ffelexToken exponent_digits); -ffebldConstant ffebld_constant_new_real6_val (ffetargetReal6 val); -#endif -#if FFETARGET_okREAL7 -ffebldConstant ffebld_constant_new_real7 (ffelexToken integer, - ffelexToken decimal, ffelexToken fraction, ffelexToken exponent, - ffelexToken exponent_sign, ffelexToken exponent_digits); -ffebldConstant ffebld_constant_new_real7_val (ffetargetReal7 val); -#endif -#if FFETARGET_okREAL8 -ffebldConstant ffebld_constant_new_real8 (ffelexToken integer, - ffelexToken decimal, ffelexToken fraction, ffelexToken exponent, - ffelexToken exponent_sign, ffelexToken exponent_digits); -ffebldConstant ffebld_constant_new_real8_val (ffetargetReal8 val); -#endif ffebldConstant ffebld_constant_new_typeless_bm (ffelexToken t); ffebldConstant ffebld_constant_new_typeless_bv (ffelexToken t); ffebldConstant ffebld_constant_new_typeless_hxm (ffelexToken t); diff --git a/gcc/f/com.c b/gcc/f/com.c index 01821cb..568cb21 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -10419,12 +10419,6 @@ ffecom_constantunion (ffebldConstantUnion *cu, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - val = ffetarget_value_real4 (ffebld_cu_val_real4 (*cu)); - break; -#endif - default: assert ("bad REAL constant kind type" == NULL); /* Fall through. */ @@ -10464,13 +10458,6 @@ ffecom_constantunion (ffebldConstantUnion *cu, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - real = ffetarget_value_real4 (ffebld_cu_val_complex4 (*cu).real); - imag = ffetarget_value_real4 (ffebld_cu_val_complex4 (*cu).imaginary); - break; -#endif - default: assert ("bad REAL constant kind type" == NULL); /* Fall through. */ diff --git a/gcc/f/expr.c b/gcc/f/expr.c index 077da3e..1777592 100644 --- a/gcc/f/expr.c +++ b/gcc/f/expr.c @@ -516,14 +516,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_integer1_real4 - (ffebld_cu_ptr_integer1 (u), - ffebld_constant_real4 (ffebld_conter (l))); - break; -#endif - default: assert ("INTEGER1/REAL bad source kind type" == NULL); break; @@ -557,14 +549,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_integer1_complex4 - (ffebld_cu_ptr_integer1 (u), - ffebld_constant_complex4 (ffebld_conter (l))); - break; -#endif - default: assert ("INTEGER1/COMPLEX bad source kind type" == NULL); break; @@ -709,14 +693,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_integer2_real4 - (ffebld_cu_ptr_integer2 (u), - ffebld_constant_real4 (ffebld_conter (l))); - break; -#endif - default: assert ("INTEGER2/REAL bad source kind type" == NULL); break; @@ -750,14 +726,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_integer2_complex4 - (ffebld_cu_ptr_integer2 (u), - ffebld_constant_complex4 (ffebld_conter (l))); - break; -#endif - default: assert ("INTEGER2/COMPLEX bad source kind type" == NULL); break; @@ -902,14 +870,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_integer3_real4 - (ffebld_cu_ptr_integer3 (u), - ffebld_constant_real4 (ffebld_conter (l))); - break; -#endif - default: assert ("INTEGER3/REAL bad source kind type" == NULL); break; @@ -943,14 +903,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_integer3_complex4 - (ffebld_cu_ptr_integer3 (u), - ffebld_constant_complex4 (ffebld_conter (l))); - break; -#endif - default: assert ("INTEGER3/COMPLEX bad source kind type" == NULL); break; @@ -1095,14 +1047,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_integer4_real4 - (ffebld_cu_ptr_integer4 (u), - ffebld_constant_real4 (ffebld_conter (l))); - break; -#endif - default: assert ("INTEGER4/REAL bad source kind type" == NULL); break; @@ -1136,14 +1080,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_integer4_complex4 - (ffebld_cu_ptr_integer4 (u), - ffebld_constant_complex4 (ffebld_conter (l))); - break; -#endif - default: assert ("INTEGER3/COMPLEX bad source kind type" == NULL); break; @@ -1752,14 +1688,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_real1_real4 - (ffebld_cu_ptr_real1 (u), - ffebld_constant_real4 (ffebld_conter (l))); - break; -#endif - default: assert ("REAL1/REAL bad source kind type" == NULL); break; @@ -1793,14 +1721,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_real1_complex4 - (ffebld_cu_ptr_real1 (u), - ffebld_constant_complex4 (ffebld_conter (l))); - break; -#endif - default: assert ("REAL1/COMPLEX bad source kind type" == NULL); break; @@ -1904,14 +1824,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_real2_real4 - (ffebld_cu_ptr_real2 (u), - ffebld_constant_real4 (ffebld_conter (l))); - break; -#endif - default: assert ("REAL2/REAL bad source kind type" == NULL); break; @@ -1945,14 +1857,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_real2_complex4 - (ffebld_cu_ptr_real2 (u), - ffebld_constant_complex4 (ffebld_conter (l))); - break; -#endif - default: assert ("REAL2/COMPLEX bad source kind type" == NULL); break; @@ -2056,14 +1960,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_real3_real4 - (ffebld_cu_ptr_real3 (u), - ffebld_constant_real4 (ffebld_conter (l))); - break; -#endif - default: assert ("REAL3/REAL bad source kind type" == NULL); break; @@ -2097,14 +1993,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_real3_complex4 - (ffebld_cu_ptr_real3 (u), - ffebld_constant_complex4 (ffebld_conter (l))); - break; -#endif - default: assert ("REAL3/COMPLEX bad source kind type" == NULL); break; @@ -2144,158 +2032,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - switch (ffeinfo_basictype (ffebld_info (l))) - { - case FFEINFO_basictypeINTEGER: - switch (ffeinfo_kindtype (ffebld_info (l))) - { -#if FFETARGET_okINTEGER1 - case FFEINFO_kindtypeINTEGER1: - error = ffetarget_convert_real4_integer1 - (ffebld_cu_ptr_real4 (u), - ffebld_constant_integer1 (ffebld_conter (l))); - break; -#endif - -#if FFETARGET_okINTEGER2 - case FFEINFO_kindtypeINTEGER2: - error = ffetarget_convert_real4_integer2 - (ffebld_cu_ptr_real4 (u), - ffebld_constant_integer2 (ffebld_conter (l))); - break; -#endif - -#if FFETARGET_okINTEGER3 - case FFEINFO_kindtypeINTEGER3: - error = ffetarget_convert_real4_integer3 - (ffebld_cu_ptr_real4 (u), - ffebld_constant_integer3 (ffebld_conter (l))); - break; -#endif - -#if FFETARGET_okINTEGER4 - case FFEINFO_kindtypeINTEGER4: - error = ffetarget_convert_real4_integer4 - (ffebld_cu_ptr_real4 (u), - ffebld_constant_integer4 (ffebld_conter (l))); - break; -#endif - - default: - assert ("REAL4/INTEGER bad source kind type" == NULL); - break; - } - break; - - case FFEINFO_basictypeREAL: - switch (ffeinfo_kindtype (ffebld_info (l))) - { -#if FFETARGET_okREAL1 - case FFEINFO_kindtypeREAL1: - error = ffetarget_convert_real4_real1 - (ffebld_cu_ptr_real4 (u), - ffebld_constant_real1 (ffebld_conter (l))); - break; -#endif - -#if FFETARGET_okREAL2 - case FFEINFO_kindtypeREAL2: - error = ffetarget_convert_real4_real2 - (ffebld_cu_ptr_real4 (u), - ffebld_constant_real2 (ffebld_conter (l))); - break; -#endif - -#if FFETARGET_okREAL3 - case FFEINFO_kindtypeREAL3: - error = ffetarget_convert_real4_real3 - (ffebld_cu_ptr_real4 (u), - ffebld_constant_real3 (ffebld_conter (l))); - break; -#endif - - default: - assert ("REAL4/REAL bad source kind type" == NULL); - break; - } - break; - - case FFEINFO_basictypeCOMPLEX: - switch (ffeinfo_kindtype (ffebld_info (l))) - { -#if FFETARGET_okCOMPLEX1 - case FFEINFO_kindtypeREAL1: - error = ffetarget_convert_real4_complex1 - (ffebld_cu_ptr_real4 (u), - ffebld_constant_complex1 (ffebld_conter (l))); - break; -#endif - -#if FFETARGET_okCOMPLEX2 - case FFEINFO_kindtypeREAL2: - error = ffetarget_convert_real4_complex2 - (ffebld_cu_ptr_real4 (u), - ffebld_constant_complex2 (ffebld_conter (l))); - break; -#endif - -#if FFETARGET_okCOMPLEX3 - case FFEINFO_kindtypeREAL3: - error = ffetarget_convert_real4_complex3 - (ffebld_cu_ptr_real4 (u), - ffebld_constant_complex3 (ffebld_conter (l))); - break; -#endif - -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_real4_complex4 - (ffebld_cu_ptr_real4 (u), - ffebld_constant_complex4 (ffebld_conter (l))); - break; -#endif - - default: - assert ("REAL4/COMPLEX bad source kind type" == NULL); - break; - } - break; - - case FFEINFO_basictypeCHARACTER: - error = ffetarget_convert_real4_character1 - (ffebld_cu_ptr_real4 (u), - ffebld_constant_character1 (ffebld_conter (l))); - break; - - case FFEINFO_basictypeHOLLERITH: - error = ffetarget_convert_real4_hollerith - (ffebld_cu_ptr_real4 (u), - ffebld_constant_hollerith (ffebld_conter (l))); - break; - - case FFEINFO_basictypeTYPELESS: - error = ffetarget_convert_real4_typeless - (ffebld_cu_ptr_real4 (u), - ffebld_constant_typeless (ffebld_conter (l))); - break; - - default: - assert ("REAL4 bad type" == NULL); - break; - } - - /* If conversion operation is not implemented, return original expr. */ - if (error == FFEBAD_NOCANDO) - return expr; - - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_real4_val - (ffebld_cu_val_real4 (u)), expr); - break; -#endif - default: assert ("bad real kind type" == NULL); break; @@ -2378,14 +2114,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_complex1_real4 - (ffebld_cu_ptr_complex1 (u), - ffebld_constant_real4 (ffebld_conter (l))); - break; -#endif - default: assert ("COMPLEX1/REAL bad source kind type" == NULL); break; @@ -2411,14 +2139,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_complex1_complex4 - (ffebld_cu_ptr_complex1 (u), - ffebld_constant_complex4 (ffebld_conter (l))); - break; -#endif - default: assert ("COMPLEX1/COMPLEX bad source kind type" == NULL); break; @@ -2530,14 +2250,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_complex2_real4 - (ffebld_cu_ptr_complex2 (u), - ffebld_constant_real4 (ffebld_conter (l))); - break; -#endif - default: assert ("COMPLEX2/REAL bad source kind type" == NULL); break; @@ -2563,14 +2275,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_complex2_complex4 - (ffebld_cu_ptr_complex2 (u), - ffebld_constant_complex4 (ffebld_conter (l))); - break; -#endif - default: assert ("COMPLEX2/COMPLEX bad source kind type" == NULL); break; @@ -2682,14 +2386,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_complex3_real4 - (ffebld_cu_ptr_complex3 (u), - ffebld_constant_real4 (ffebld_conter (l))); - break; -#endif - default: assert ("COMPLEX3/REAL bad source kind type" == NULL); break; @@ -2715,14 +2411,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_complex3_complex4 - (ffebld_cu_ptr_complex3 (u), - ffebld_constant_complex4 (ffebld_conter (l))); - break; -#endif - default: assert ("COMPLEX3/COMPLEX bad source kind type" == NULL); break; @@ -2762,158 +2450,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - switch (ffeinfo_basictype (ffebld_info (l))) - { - case FFEINFO_basictypeINTEGER: - switch (ffeinfo_kindtype (ffebld_info (l))) - { -#if FFETARGET_okINTEGER1 - case FFEINFO_kindtypeINTEGER1: - error = ffetarget_convert_complex4_integer1 - (ffebld_cu_ptr_complex4 (u), - ffebld_constant_integer1 (ffebld_conter (l))); - break; -#endif - -#if FFETARGET_okINTEGER2 - case FFEINFO_kindtypeINTEGER2: - error = ffetarget_convert_complex4_integer2 - (ffebld_cu_ptr_complex4 (u), - ffebld_constant_integer2 (ffebld_conter (l))); - break; -#endif - -#if FFETARGET_okINTEGER3 - case FFEINFO_kindtypeINTEGER3: - error = ffetarget_convert_complex4_integer3 - (ffebld_cu_ptr_complex4 (u), - ffebld_constant_integer3 (ffebld_conter (l))); - break; -#endif - -#if FFETARGET_okINTEGER4 - case FFEINFO_kindtypeINTEGER4: - error = ffetarget_convert_complex4_integer4 - (ffebld_cu_ptr_complex4 (u), - ffebld_constant_integer4 (ffebld_conter (l))); - break; -#endif - - default: - assert ("COMPLEX4/INTEGER bad source kind type" == NULL); - break; - } - break; - - case FFEINFO_basictypeREAL: - switch (ffeinfo_kindtype (ffebld_info (l))) - { -#if FFETARGET_okREAL1 - case FFEINFO_kindtypeREAL1: - error = ffetarget_convert_complex4_real1 - (ffebld_cu_ptr_complex4 (u), - ffebld_constant_real1 (ffebld_conter (l))); - break; -#endif - -#if FFETARGET_okREAL2 - case FFEINFO_kindtypeREAL2: - error = ffetarget_convert_complex4_real2 - (ffebld_cu_ptr_complex4 (u), - ffebld_constant_real2 (ffebld_conter (l))); - break; -#endif - -#if FFETARGET_okREAL3 - case FFEINFO_kindtypeREAL3: - error = ffetarget_convert_complex4_real3 - (ffebld_cu_ptr_complex4 (u), - ffebld_constant_real3 (ffebld_conter (l))); - break; -#endif - -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_convert_complex4_real4 - (ffebld_cu_ptr_complex4 (u), - ffebld_constant_real4 (ffebld_conter (l))); - break; -#endif - - default: - assert ("COMPLEX4/REAL bad source kind type" == NULL); - break; - } - break; - - case FFEINFO_basictypeCOMPLEX: - switch (ffeinfo_kindtype (ffebld_info (l))) - { -#if FFETARGET_okCOMPLEX1 - case FFEINFO_kindtypeREAL1: - error = ffetarget_convert_complex4_complex1 - (ffebld_cu_ptr_complex4 (u), - ffebld_constant_complex1 (ffebld_conter (l))); - break; -#endif - -#if FFETARGET_okCOMPLEX2 - case FFEINFO_kindtypeREAL2: - error = ffetarget_convert_complex4_complex2 - (ffebld_cu_ptr_complex4 (u), - ffebld_constant_complex2 (ffebld_conter (l))); - break; -#endif - -#if FFETARGET_okCOMPLEX3 - case FFEINFO_kindtypeREAL3: - error = ffetarget_convert_complex4_complex3 - (ffebld_cu_ptr_complex4 (u), - ffebld_constant_complex3 (ffebld_conter (l))); - break; -#endif - - default: - assert ("COMPLEX4/COMPLEX bad source kind type" == NULL); - break; - } - break; - - case FFEINFO_basictypeCHARACTER: - error = ffetarget_convert_complex4_character1 - (ffebld_cu_ptr_complex4 (u), - ffebld_constant_character1 (ffebld_conter (l))); - break; - - case FFEINFO_basictypeHOLLERITH: - error = ffetarget_convert_complex4_hollerith - (ffebld_cu_ptr_complex4 (u), - ffebld_constant_hollerith (ffebld_conter (l))); - break; - - case FFEINFO_basictypeTYPELESS: - error = ffetarget_convert_complex4_typeless - (ffebld_cu_ptr_complex4 (u), - ffebld_constant_typeless (ffebld_conter (l))); - break; - - default: - assert ("COMPLEX4 bad type" == NULL); - break; - } - - /* If conversion operation is not implemented, return original expr. */ - if (error == FFEBAD_NOCANDO) - return expr; - - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_complex4_val - (ffebld_cu_val_complex4 (u)), expr); - break; -#endif - default: assert ("bad complex kind type" == NULL); break; @@ -3302,15 +2838,6 @@ ffeexpr_collapse_uminus (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_uminus_real4 (ffebld_cu_ptr_real4 (u), - ffebld_constant_real4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig (ffebld_constant_new_real4_val - (ffebld_cu_val_real4 (u)), expr); - break; -#endif - default: assert ("bad real kind type" == NULL); break; @@ -3347,15 +2874,6 @@ ffeexpr_collapse_uminus (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_uminus_complex4 (ffebld_cu_ptr_complex4 (u), - ffebld_constant_complex4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig (ffebld_constant_new_complex4_val - (ffebld_cu_val_complex4 (u)), expr); - break; -#endif - default: assert ("bad complex kind type" == NULL); break; @@ -3646,16 +3164,6 @@ ffeexpr_collapse_add (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_add_real4 (ffebld_cu_ptr_real4 (u), - ffebld_constant_real4 (ffebld_conter (l)), - ffebld_constant_real4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig (ffebld_constant_new_real4_val - (ffebld_cu_val_real4 (u)), expr); - break; -#endif - default: assert ("bad real kind type" == NULL); break; @@ -3695,16 +3203,6 @@ ffeexpr_collapse_add (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_add_complex4 (ffebld_cu_ptr_complex4 (u), - ffebld_constant_complex4 (ffebld_conter (l)), - ffebld_constant_complex4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig (ffebld_constant_new_complex4_val - (ffebld_cu_val_complex4 (u)), expr); - break; -#endif - default: assert ("bad complex kind type" == NULL); break; @@ -3851,16 +3349,6 @@ ffeexpr_collapse_subtract (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_subtract_real4 (ffebld_cu_ptr_real4 (u), - ffebld_constant_real4 (ffebld_conter (l)), - ffebld_constant_real4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig (ffebld_constant_new_real4_val - (ffebld_cu_val_real4 (u)), expr); - break; -#endif - default: assert ("bad real kind type" == NULL); break; @@ -3900,16 +3388,6 @@ ffeexpr_collapse_subtract (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_subtract_complex4 (ffebld_cu_ptr_complex4 (u), - ffebld_constant_complex4 (ffebld_conter (l)), - ffebld_constant_complex4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig (ffebld_constant_new_complex4_val - (ffebld_cu_val_complex4 (u)), expr); - break; -#endif - default: assert ("bad complex kind type" == NULL); break; @@ -4056,16 +3534,6 @@ ffeexpr_collapse_multiply (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_multiply_real4 (ffebld_cu_ptr_real4 (u), - ffebld_constant_real4 (ffebld_conter (l)), - ffebld_constant_real4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig (ffebld_constant_new_real4_val - (ffebld_cu_val_real4 (u)), expr); - break; -#endif - default: assert ("bad real kind type" == NULL); break; @@ -4105,16 +3573,6 @@ ffeexpr_collapse_multiply (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_multiply_complex4 (ffebld_cu_ptr_complex4 (u), - ffebld_constant_complex4 (ffebld_conter (l)), - ffebld_constant_complex4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig (ffebld_constant_new_complex4_val - (ffebld_cu_val_complex4 (u)), expr); - break; -#endif - default: assert ("bad complex kind type" == NULL); break; @@ -4261,16 +3719,6 @@ ffeexpr_collapse_divide (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_divide_real4 (ffebld_cu_ptr_real4 (u), - ffebld_constant_real4 (ffebld_conter (l)), - ffebld_constant_real4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig (ffebld_constant_new_real4_val - (ffebld_cu_val_real4 (u)), expr); - break; -#endif - default: assert ("bad real kind type" == NULL); break; @@ -4310,16 +3758,6 @@ ffeexpr_collapse_divide (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_divide_complex4 (ffebld_cu_ptr_complex4 (u), - ffebld_constant_complex4 (ffebld_conter (l)), - ffebld_constant_complex4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig (ffebld_constant_new_complex4_val - (ffebld_cu_val_complex4 (u)), expr); - break; -#endif - default: assert ("bad complex kind type" == NULL); break; @@ -4563,39 +4001,6 @@ ffeexpr_collapse_concatenate (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - error = ffetarget_concatenate_character2 (ffebld_cu_ptr_character2 (u), - ffebld_constant_character2 (ffebld_conter (l)), - ffebld_constant_character2 (ffebld_conter (r)), - ffebld_constant_pool (), &len); - expr = ffebld_new_conter_with_orig (ffebld_constant_new_character2_val - (ffebld_cu_val_character2 (u)), expr); - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - error = ffetarget_concatenate_character3 (ffebld_cu_ptr_character3 (u), - ffebld_constant_character3 (ffebld_conter (l)), - ffebld_constant_character3 (ffebld_conter (r)), - ffebld_constant_pool (), &len); - expr = ffebld_new_conter_with_orig (ffebld_constant_new_character3_val - (ffebld_cu_val_character3 (u)), expr); - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - error = ffetarget_concatenate_character4 (ffebld_cu_ptr_character4 (u), - ffebld_constant_character4 (ffebld_conter (l)), - ffebld_constant_character4 (ffebld_conter (r)), - ffebld_constant_pool (), &len); - expr = ffebld_new_conter_with_orig (ffebld_constant_new_character4_val - (ffebld_cu_val_character4 (u)), expr); - break; -#endif - default: assert ("bad character kind type" == NULL); break; @@ -4740,16 +4145,6 @@ ffeexpr_collapse_eq (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_eq_real4 (&val, - ffebld_constant_real4 (ffebld_conter (l)), - ffebld_constant_real4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - default: assert ("bad real kind type" == NULL); break; @@ -4789,16 +4184,6 @@ ffeexpr_collapse_eq (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_eq_complex4 (&val, - ffebld_constant_complex4 (ffebld_conter (l)), - ffebld_constant_complex4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - default: assert ("bad complex kind type" == NULL); break; @@ -4818,36 +4203,6 @@ ffeexpr_collapse_eq (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - error = ffetarget_eq_character2 (&val, - ffebld_constant_character2 (ffebld_conter (l)), - ffebld_constant_character2 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - error = ffetarget_eq_character3 (&val, - ffebld_constant_character3 (ffebld_conter (l)), - ffebld_constant_character3 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - error = ffetarget_eq_character4 (&val, - ffebld_constant_character4 (ffebld_conter (l)), - ffebld_constant_character4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - default: assert ("bad character kind type" == NULL); break; @@ -4992,16 +4347,6 @@ ffeexpr_collapse_ne (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_ne_real4 (&val, - ffebld_constant_real4 (ffebld_conter (l)), - ffebld_constant_real4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - default: assert ("bad real kind type" == NULL); break; @@ -5041,16 +4386,6 @@ ffeexpr_collapse_ne (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_ne_complex4 (&val, - ffebld_constant_complex4 (ffebld_conter (l)), - ffebld_constant_complex4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - default: assert ("bad complex kind type" == NULL); break; @@ -5070,36 +4405,6 @@ ffeexpr_collapse_ne (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - error = ffetarget_ne_character2 (&val, - ffebld_constant_character2 (ffebld_conter (l)), - ffebld_constant_character2 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - error = ffetarget_ne_character3 (&val, - ffebld_constant_character3 (ffebld_conter (l)), - ffebld_constant_character3 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - error = ffetarget_ne_character4 (&val, - ffebld_constant_character4 (ffebld_conter (l)), - ffebld_constant_character4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - default: assert ("bad character kind type" == NULL); break; @@ -5244,16 +4549,6 @@ ffeexpr_collapse_ge (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_ge_real4 (&val, - ffebld_constant_real4 (ffebld_conter (l)), - ffebld_constant_real4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - default: assert ("bad real kind type" == NULL); break; @@ -5273,36 +4568,6 @@ ffeexpr_collapse_ge (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - error = ffetarget_ge_character2 (&val, - ffebld_constant_character2 (ffebld_conter (l)), - ffebld_constant_character2 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - error = ffetarget_ge_character3 (&val, - ffebld_constant_character3 (ffebld_conter (l)), - ffebld_constant_character3 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - error = ffetarget_ge_character4 (&val, - ffebld_constant_character4 (ffebld_conter (l)), - ffebld_constant_character4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - default: assert ("bad character kind type" == NULL); break; @@ -5447,16 +4712,6 @@ ffeexpr_collapse_gt (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_gt_real4 (&val, - ffebld_constant_real4 (ffebld_conter (l)), - ffebld_constant_real4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - default: assert ("bad real kind type" == NULL); break; @@ -5476,36 +4731,6 @@ ffeexpr_collapse_gt (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - error = ffetarget_gt_character2 (&val, - ffebld_constant_character2 (ffebld_conter (l)), - ffebld_constant_character2 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - error = ffetarget_gt_character3 (&val, - ffebld_constant_character3 (ffebld_conter (l)), - ffebld_constant_character3 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - error = ffetarget_gt_character4 (&val, - ffebld_constant_character4 (ffebld_conter (l)), - ffebld_constant_character4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - default: assert ("bad character kind type" == NULL); break; @@ -5650,16 +4875,6 @@ ffeexpr_collapse_le (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_le_real4 (&val, - ffebld_constant_real4 (ffebld_conter (l)), - ffebld_constant_real4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - default: assert ("bad real kind type" == NULL); break; @@ -5679,36 +4894,6 @@ ffeexpr_collapse_le (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - error = ffetarget_le_character2 (&val, - ffebld_constant_character2 (ffebld_conter (l)), - ffebld_constant_character2 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - error = ffetarget_le_character3 (&val, - ffebld_constant_character3 (ffebld_conter (l)), - ffebld_constant_character3 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - error = ffetarget_le_character4 (&val, - ffebld_constant_character4 (ffebld_conter (l)), - ffebld_constant_character4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - default: assert ("bad character kind type" == NULL); break; @@ -5853,16 +5038,6 @@ ffeexpr_collapse_lt (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - error = ffetarget_lt_real4 (&val, - ffebld_constant_real4 (ffebld_conter (l)), - ffebld_constant_real4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - default: assert ("bad real kind type" == NULL); break; @@ -5882,36 +5057,6 @@ ffeexpr_collapse_lt (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - error = ffetarget_lt_character2 (&val, - ffebld_constant_character2 (ffebld_conter (l)), - ffebld_constant_character2 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - error = ffetarget_lt_character3 (&val, - ffebld_constant_character3 (ffebld_conter (l)), - ffebld_constant_character3 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - error = ffetarget_lt_character4 (&val, - ffebld_constant_character4 (ffebld_conter (l)), - ffebld_constant_character4 (ffebld_conter (r))); - expr = ffebld_new_conter_with_orig - (ffebld_constant_new_logicaldefault (val), expr); - break; -#endif - default: assert ("bad character kind type" == NULL); break; @@ -6906,36 +6051,6 @@ ffeexpr_collapse_substr (ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCHARACTER2 - case FFEINFO_kindtypeCHARACTER2: - error = ffetarget_substr_character2 (ffebld_cu_ptr_character2 (u), - ffebld_constant_character2 (ffebld_conter (l)), first, last, - ffebld_constant_pool (), &len); - expr = ffebld_new_conter_with_orig (ffebld_constant_new_character2_val - (ffebld_cu_val_character2 (u)), expr); - break; -#endif - -#if FFETARGET_okCHARACTER3 - case FFEINFO_kindtypeCHARACTER3: - error = ffetarget_substr_character3 (ffebld_cu_ptr_character3 (u), - ffebld_constant_character3 (ffebld_conter (l)), first, last, - ffebld_constant_pool (), &len); - expr = ffebld_new_conter_with_orig (ffebld_constant_new_character3_val - (ffebld_cu_val_character3 (u)), expr); - break; -#endif - -#if FFETARGET_okCHARACTER4 - case FFEINFO_kindtypeCHARACTER4: - error = ffetarget_substr_character4 (ffebld_cu_ptr_character4 (u), - ffebld_constant_character4 (ffebld_conter (l)), first, last, - ffebld_constant_pool (), &len); - expr = ffebld_new_conter_with_orig (ffebld_constant_new_character4_val - (ffebld_cu_val_character4 (u)), expr); - break; -#endif - default: assert ("bad character kind type" == NULL); break; @@ -7666,17 +6781,6 @@ ffeexpr_cb_comma_c_ (ffelexToken ft, ffebld expr, ffelexToken t) break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - e->u.operand = ffebld_new_conter (ffebld_constant_new_complex4 - (ffebld_conter (ffeexpr_stack_->expr), ffebld_conter (expr))); - ffebld_set_info (e->u.operand, - ffeinfo_new (FFEINFO_basictypeCOMPLEX, nkt, 0, - FFEINFO_kindENTITY, FFEINFO_whereCONSTANT, - FFETARGET_charactersizeNONE)); - break; -#endif - default: if (ffebad_start ((nkt == FFEINFO_kindtypeREALDOUBLE) ? FFEBAD_BAD_DBLCMPLX : FFEBAD_BAD_COMPLEX)) @@ -8663,9 +7767,6 @@ ffeexpr_type_combine (ffeinfoBasictype *xnbt, ffeinfoKindtype *xnkt, #if FFETARGET_okCOMPLEX3 case FFEINFO_kindtypeREAL3: #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: -#endif break; /* Fine and dandy. */ default: diff --git a/gcc/f/target.h b/gcc/f/target.h index 9140dec..eff6ab9 100644 --- a/gcc/f/target.h +++ b/gcc/f/target.h @@ -1,5 +1,6 @@ /* target.h -- Public #include File (module.h template V1.0) - Copyright (C) 1995, 1996, 2002 Free Software Foundation, Inc. + Copyright (C) 1995, 1996, 2002, 2003 + Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -265,26 +266,6 @@ typedef short int ffetargetInteger3; typedef long long int ffetargetInteger4; #define ffetargetInteger4_f "ll" #endif -#if FFETARGET_okINTEGER5 -typedef ? ffetargetInteger5; -#define ffetargetInteger5_f -? -#endif -#if FFETARGET_okINTEGER6 -typedef ? ffetargetInteger6; -#define ffetargetInteger6_f -? -#endif -#if FFETARGET_okINTEGER7 -typedef ? ffetargetInteger7; -#define ffetargetInteger7_f -? -#endif -#if FFETARGET_okINTEGER8 -typedef ? ffetargetInteger8; -#define ffetargetInteger8_f -? -#endif #if FFETARGET_okLOGICAL1 #ifdef FFETARGET_32bit_longs typedef long int ffetargetLogical1; @@ -306,26 +287,6 @@ typedef short int ffetargetLogical3; typedef long long int ffetargetLogical4; #define ffetargetLogical4_f "ll" #endif -#if FFETARGET_okLOGICAL5 -typedef ? ffetargetLogical5; -#define ffetargetLogical5_f -? -#endif -#if FFETARGET_okLOGICAL6 -typedef ? ffetargetLogical6; -#define ffetargetLogical6_f -? -#endif -#if FFETARGET_okLOGICAL7 -typedef ? ffetargetLogical7; -#define ffetargetLogical7_f -? -#endif -#if FFETARGET_okLOGICAL8 -typedef ? ffetargetLogical8; -#define ffetargetLogical8_f -? -#endif #if FFETARGET_okREAL1 typedef int ffetargetReal1; #define ffetargetReal1_f "" @@ -356,26 +317,6 @@ typedef struct { int v[2]; } ffetargetReal2; typedef long ffetargetReal3[?]; ? #endif -#if FFETARGET_okREAL4 -typedef long ffetargetReal4[?]; -? -#endif -#if FFETARGET_okREAL5 -typedef long ffetargetReal5[?]; -? -#endif -#if FFETARGET_okREAL6 -typedef long ffetargetReal6[?]; -? -#endif -#if FFETARGET_okREAL7 -typedef long ffetargetReal7[?]; -? -#endif -#if FFETARGET_okREAL8 -typedef long ffetargetReal8[?]; -? -#endif #if FFETARGET_okCOMPLEX1 struct _ffetarget_complex_1_ { @@ -400,46 +341,6 @@ struct _ffetarget_complex_3_ }; typedef struct _ffetarget_complex_3_ ffetargetComplex3; #endif -#if FFETARGET_okCOMPLEX4 -struct _ffetarget_complex_4_ - { - ffetargetReal4 real; - ffetargetReal4 imaginary; - }; -typedef struct _ffetarget_complex_4_ ffetargetComplex4; -#endif -#if FFETARGET_okCOMPLEX5 -struct _ffetarget_complex_5_ - { - ffetargetReal5 real; - ffetargetReal5 imaginary; - }; -typedef struct _ffetarget_complex_5_ ffetargetComplex5; -#endif -#if FFETARGET_okCOMPLEX6 -struct _ffetarget_complex_6_ - { - ffetargetReal6 real; - ffetargetReal6 imaginary; - }; -typedef struct _ffetarget_complex_6_ ffetargetComplex6; -#endif -#if FFETARGET_okCOMPLEX7 -struct _ffetarget_complex_7_ - { - ffetargetReal7 real; - ffetargetReal7 imaginary; - }; -typedef struct _ffetarget_complex_7_ ffetargetComplex7; -#endif -#if FFETARGET_okCOMPLEX8 -struct _ffetarget_complex_8_ - { - ffetargetReal8 real; - ffetargetReal8 imaginary; - }; -typedef struct _ffetarget_complex_8_ ffetargetComplex8; -#endif #if FFETARGET_okCHARACTER1 struct _ffetarget_char_1_ { @@ -449,34 +350,6 @@ struct _ffetarget_char_1_ typedef struct _ffetarget_char_1_ ffetargetCharacter1; typedef unsigned char ffetargetCharacterUnit1; #endif -#if FFETARGET_okCHARACTER2 -typedef ? ffetargetCharacter2; -typedef ? ffetargetCharacterUnit2; -#endif -#if FFETARGET_okCHARACTER3 -typedef ? ffetargetCharacter3; -typedef ? ffetargetCharacterUnit3; -#endif -#if FFETARGET_okCHARACTER4 -typedef ? ffetargetCharacter4; -typedef ? ffetargetCharacterUnit4; -#endif -#if FFETARGET_okCHARACTER5 -typedef ? ffetargetCharacter5; -typedef ? ffetargetCharacterUnit5; -#endif -#if FFETARGET_okCHARACTER6 -typedef ? ffetargetCharacter6; -typedef ? ffetargetCharacterUnit6; -#endif -#if FFETARGET_okCHARACTER7 -typedef ? ffetargetCharacter7; -typedef ? ffetargetCharacterUnit7; -#endif -#if FFETARGET_okCHARACTER8 -typedef ? ffetargetCharacter8; -typedef ? ffetargetCharacterUnit8; -#endif typedef unsigned long long int ffetargetTypeless; @@ -604,26 +477,6 @@ ffebad ffetarget_divide_complex2 (ffetargetComplex2 *res, ffetargetComplex2 l, ffebad ffetarget_divide_complex3 (ffetargetComplex3 *res, ffetargetComplex3 l, ffetargetComplex3 r); #endif -#if FFETARGET_okCOMPLEX4 -ffebad ffetarget_divide_complex4 (ffetargetComplex4 *res, ffetargetComplex4 l, - ffetargetComplex4 r); -#endif -#if FFETARGET_okCOMPLEX5 -ffebad ffetarget_divide_complex5 (ffetargetComplex5 *res, ffetargetComplex5 l, - ffetargetComplex5 r); -#endif -#if FFETARGET_okCOMPLEX6 -ffebad ffetarget_divide_complex6 (ffetargetComplex6 *res, ffetargetComplex6 l, - ffetargetComplex6 r); -#endif -#if FFETARGET_okCOMPLEX7 -ffebad ffetarget_divide_complex7 (ffetargetComplex7 *res, ffetargetComplex7 l, - ffetargetComplex7 r); -#endif -#if FFETARGET_okCOMPLEX8 -ffebad ffetarget_divide_complex8 (ffetargetComplex8 *res, ffetargetComplex8 l, - ffetargetComplex8 r); -#endif #if FFETARGET_okINTEGER1 bool ffetarget_integer1 (ffetargetInteger1 *val, ffelexToken integer); #endif @@ -636,18 +489,6 @@ bool ffetarget_integer3 (ffetargetInteger3 *val, ffelexToken integer); #if FFETARGET_okINTEGER4 bool ffetarget_integer4 (ffetargetInteger4 *val, ffelexToken integer); #endif -#if FFETARGET_okINTEGER5 -bool ffetarget_integer5 (ffetargetInteger5 *val, ffelexToken integer); -#endif -#if FFETARGET_okINTEGER6 -bool ffetarget_integer6 (ffetargetInteger6 *val, ffelexToken integer); -#endif -#if FFETARGET_okINTEGER7 -bool ffetarget_integer7 (ffetargetInteger7 *val, ffelexToken integer); -#endif -#if FFETARGET_okINTEGER8 -bool ffetarget_integer8 (ffetargetInteger8 *val, ffelexToken integer); -#endif bool ffetarget_integerbinary (ffetargetIntegerDefault *val, ffelexToken integer); bool ffetarget_integerhex (ffetargetIntegerDefault *val, @@ -686,31 +527,6 @@ ffebad ffetarget_multiply_complex3 (ffetargetComplex3 *res, ffetargetComplex3 l, ffetargetComplex3 r); #endif -#if FFETARGET_okCOMPLEX4 -ffebad ffetarget_multiply_complex4 (ffetargetComplex4 *res, - ffetargetComplex4 l, - ffetargetComplex4 r); -#endif -#if FFETARGET_okCOMPLEX5 -ffebad ffetarget_multiply_complex5 (ffetargetComplex5 *res, - ffetargetComplex5 l, - ffetargetComplex5 r); -#endif -#if FFETARGET_okCOMPLEX6 -ffebad ffetarget_multiply_complex6 (ffetargetComplex6 *res, - ffetargetComplex6 l, - ffetargetComplex6 r); -#endif -#if FFETARGET_okCOMPLEX7 -ffebad ffetarget_multiply_complex7 (ffetargetComplex7 *res, - ffetargetComplex7 l, - ffetargetComplex7 r); -#endif -#if FFETARGET_okCOMPLEX8 -ffebad ffetarget_multiply_complex8 (ffetargetComplex8 *res, - ffetargetComplex8 l, - ffetargetComplex8 r); -#endif ffebad ffetarget_power_complexdefault_integerdefault (ffetargetComplexDefault *res, ffetargetComplexDefault l, ffetargetIntegerDefault r); @@ -751,36 +567,6 @@ bool ffetarget_real3 (ffetargetReal3 *value, ffelexToken integer, ffelexToken exponent, ffelexToken exponent_sign, ffelexToken exponent_digits); #endif -#if FFETARGET_okREAL4 -bool ffetarget_real4 (ffetargetReal4 *value, ffelexToken integer, - ffelexToken decimal, ffelexToken fraction, - ffelexToken exponent, ffelexToken exponent_sign, - ffelexToken exponent_digits); -#endif -#if FFETARGET_okREAL5 -bool ffetarget_real5 (ffetargetReal5 *value, ffelexToken integer, - ffelexToken decimal, ffelexToken fraction, - ffelexToken exponent, ffelexToken exponent_sign, - ffelexToken exponent_digits); -#endif -#if FFETARGET_okREAL6 -bool ffetarget_real6 (ffetargetReal6 *value, ffelexToken integer, - ffelexToken decimal, ffelexToken fraction, - ffelexToken exponent, ffelexToken exponent_sign, - ffelexToken exponent_digits); -#endif -#if FFETARGET_okREAL7 -bool ffetarget_real7 (ffetargetReal7 *value, ffelexToken integer, - ffelexToken decimal, ffelexToken fraction, - ffelexToken exponent, ffelexToken exponent_sign, - ffelexToken exponent_digits); -#endif -#if FFETARGET_okREAL8 -bool ffetarget_real8 (ffetargetReal8 *value, ffelexToken integer, - ffelexToken decimal, ffelexToken fraction, - ffelexToken exponent, ffelexToken exponent_sign, - ffelexToken exponent_digits); -#endif bool ffetarget_typeless_binary (ffetargetTypeless *value, ffelexToken token); bool ffetarget_typeless_octal (ffetargetTypeless *value, ffelexToken token); bool ffetarget_typeless_hex (ffetargetTypeless *value, ffelexToken token); -- 2.7.4