Skip to content

R
riscv-gcc-1
Commit 22e494a0 by Andreas Jaeger Committed by Andreas Jaeger
Options

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
parent c8b04b13
Showing with 23 additions and 3044 deletions
gcc/f/ChangeLog
2003-06-08 Andreas Jaeger <aj@suse.de>
* 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 <neil@daikokuya.co.uk>
* Make-lang.in: Update.
......
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;
......
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);
......
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. */
......
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:
......
gcc/f/target.h
/* 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);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment