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
This commit is contained in:
parent
c8b04b134a
commit
22e494a0ae
@ -1,3 +1,20 @@
|
||||
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.
|
||||
|
1647
gcc/f/bld.c
1647
gcc/f/bld.c
File diff suppressed because it is too large
Load Diff
265
gcc/f/bld.h
265
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,44 +184,8 @@ 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
|
||||
};
|
||||
|
||||
@ -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,44 +233,8 @@ 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
|
||||
};
|
||||
|
||||
@ -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);
|
||||
|
13
gcc/f/com.c
13
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. */
|
||||
|
899
gcc/f/expr.c
899
gcc/f/expr.c
File diff suppressed because it is too large
Load Diff
218
gcc/f/target.h
218
gcc/f/target.h
@ -1,5 +1,6 @@
|
||||
/* target.h -- Public #include File (module.h template V1.0)
|
||||
Copyright (C) 1995, 1996, 2002 Free Software Foundation, Inc.
|
||||
Copyright (C) 1995, 1996, 2002, 2003
|
||||
Free Software Foundation, Inc.
|
||||
Contributed by James Craig Burley.
|
||||
|
||||
This file is part of GNU Fortran.
|
||||
@ -265,26 +266,6 @@ typedef short int ffetargetInteger3;
|
||||
typedef long long int ffetargetInteger4;
|
||||
#define ffetargetInteger4_f "ll"
|
||||
#endif
|
||||
#if FFETARGET_okINTEGER5
|
||||
typedef ? ffetargetInteger5;
|
||||
#define ffetargetInteger5_f
|
||||
?
|
||||
#endif
|
||||
#if FFETARGET_okINTEGER6
|
||||
typedef ? ffetargetInteger6;
|
||||
#define ffetargetInteger6_f
|
||||
?
|
||||
#endif
|
||||
#if FFETARGET_okINTEGER7
|
||||
typedef ? ffetargetInteger7;
|
||||
#define ffetargetInteger7_f
|
||||
?
|
||||
#endif
|
||||
#if FFETARGET_okINTEGER8
|
||||
typedef ? ffetargetInteger8;
|
||||
#define ffetargetInteger8_f
|
||||
?
|
||||
#endif
|
||||
#if FFETARGET_okLOGICAL1
|
||||
#ifdef FFETARGET_32bit_longs
|
||||
typedef long int ffetargetLogical1;
|
||||
@ -306,26 +287,6 @@ typedef short int ffetargetLogical3;
|
||||
typedef long long int ffetargetLogical4;
|
||||
#define ffetargetLogical4_f "ll"
|
||||
#endif
|
||||
#if FFETARGET_okLOGICAL5
|
||||
typedef ? ffetargetLogical5;
|
||||
#define ffetargetLogical5_f
|
||||
?
|
||||
#endif
|
||||
#if FFETARGET_okLOGICAL6
|
||||
typedef ? ffetargetLogical6;
|
||||
#define ffetargetLogical6_f
|
||||
?
|
||||
#endif
|
||||
#if FFETARGET_okLOGICAL7
|
||||
typedef ? ffetargetLogical7;
|
||||
#define ffetargetLogical7_f
|
||||
?
|
||||
#endif
|
||||
#if FFETARGET_okLOGICAL8
|
||||
typedef ? ffetargetLogical8;
|
||||
#define ffetargetLogical8_f
|
||||
?
|
||||
#endif
|
||||
#if FFETARGET_okREAL1
|
||||
typedef int ffetargetReal1;
|
||||
#define ffetargetReal1_f ""
|
||||
@ -356,26 +317,6 @@ typedef struct { int v[2]; } ffetargetReal2;
|
||||
typedef long ffetargetReal3[?];
|
||||
?
|
||||
#endif
|
||||
#if FFETARGET_okREAL4
|
||||
typedef long ffetargetReal4[?];
|
||||
?
|
||||
#endif
|
||||
#if FFETARGET_okREAL5
|
||||
typedef long ffetargetReal5[?];
|
||||
?
|
||||
#endif
|
||||
#if FFETARGET_okREAL6
|
||||
typedef long ffetargetReal6[?];
|
||||
?
|
||||
#endif
|
||||
#if FFETARGET_okREAL7
|
||||
typedef long ffetargetReal7[?];
|
||||
?
|
||||
#endif
|
||||
#if FFETARGET_okREAL8
|
||||
typedef long ffetargetReal8[?];
|
||||
?
|
||||
#endif
|
||||
#if FFETARGET_okCOMPLEX1
|
||||
struct _ffetarget_complex_1_
|
||||
{
|
||||
@ -400,46 +341,6 @@ struct _ffetarget_complex_3_
|
||||
};
|
||||
typedef struct _ffetarget_complex_3_ ffetargetComplex3;
|
||||
#endif
|
||||
#if FFETARGET_okCOMPLEX4
|
||||
struct _ffetarget_complex_4_
|
||||
{
|
||||
ffetargetReal4 real;
|
||||
ffetargetReal4 imaginary;
|
||||
};
|
||||
typedef struct _ffetarget_complex_4_ ffetargetComplex4;
|
||||
#endif
|
||||
#if FFETARGET_okCOMPLEX5
|
||||
struct _ffetarget_complex_5_
|
||||
{
|
||||
ffetargetReal5 real;
|
||||
ffetargetReal5 imaginary;
|
||||
};
|
||||
typedef struct _ffetarget_complex_5_ ffetargetComplex5;
|
||||
#endif
|
||||
#if FFETARGET_okCOMPLEX6
|
||||
struct _ffetarget_complex_6_
|
||||
{
|
||||
ffetargetReal6 real;
|
||||
ffetargetReal6 imaginary;
|
||||
};
|
||||
typedef struct _ffetarget_complex_6_ ffetargetComplex6;
|
||||
#endif
|
||||
#if FFETARGET_okCOMPLEX7
|
||||
struct _ffetarget_complex_7_
|
||||
{
|
||||
ffetargetReal7 real;
|
||||
ffetargetReal7 imaginary;
|
||||
};
|
||||
typedef struct _ffetarget_complex_7_ ffetargetComplex7;
|
||||
#endif
|
||||
#if FFETARGET_okCOMPLEX8
|
||||
struct _ffetarget_complex_8_
|
||||
{
|
||||
ffetargetReal8 real;
|
||||
ffetargetReal8 imaginary;
|
||||
};
|
||||
typedef struct _ffetarget_complex_8_ ffetargetComplex8;
|
||||
#endif
|
||||
#if FFETARGET_okCHARACTER1
|
||||
struct _ffetarget_char_1_
|
||||
{
|
||||
@ -449,34 +350,6 @@ struct _ffetarget_char_1_
|
||||
typedef struct _ffetarget_char_1_ ffetargetCharacter1;
|
||||
typedef unsigned char ffetargetCharacterUnit1;
|
||||
#endif
|
||||
#if FFETARGET_okCHARACTER2
|
||||
typedef ? ffetargetCharacter2;
|
||||
typedef ? ffetargetCharacterUnit2;
|
||||
#endif
|
||||
#if FFETARGET_okCHARACTER3
|
||||
typedef ? ffetargetCharacter3;
|
||||
typedef ? ffetargetCharacterUnit3;
|
||||
#endif
|
||||
#if FFETARGET_okCHARACTER4
|
||||
typedef ? ffetargetCharacter4;
|
||||
typedef ? ffetargetCharacterUnit4;
|
||||
#endif
|
||||
#if FFETARGET_okCHARACTER5
|
||||
typedef ? ffetargetCharacter5;
|
||||
typedef ? ffetargetCharacterUnit5;
|
||||
#endif
|
||||
#if FFETARGET_okCHARACTER6
|
||||
typedef ? ffetargetCharacter6;
|
||||
typedef ? ffetargetCharacterUnit6;
|
||||
#endif
|
||||
#if FFETARGET_okCHARACTER7
|
||||
typedef ? ffetargetCharacter7;
|
||||
typedef ? ffetargetCharacterUnit7;
|
||||
#endif
|
||||
#if FFETARGET_okCHARACTER8
|
||||
typedef ? ffetargetCharacter8;
|
||||
typedef ? ffetargetCharacterUnit8;
|
||||
#endif
|
||||
|
||||
typedef unsigned long long int ffetargetTypeless;
|
||||
|
||||
@ -604,26 +477,6 @@ ffebad ffetarget_divide_complex2 (ffetargetComplex2 *res, ffetargetComplex2 l,
|
||||
ffebad ffetarget_divide_complex3 (ffetargetComplex3 *res, ffetargetComplex3 l,
|
||||
ffetargetComplex3 r);
|
||||
#endif
|
||||
#if FFETARGET_okCOMPLEX4
|
||||
ffebad ffetarget_divide_complex4 (ffetargetComplex4 *res, ffetargetComplex4 l,
|
||||
ffetargetComplex4 r);
|
||||
#endif
|
||||
#if FFETARGET_okCOMPLEX5
|
||||
ffebad ffetarget_divide_complex5 (ffetargetComplex5 *res, ffetargetComplex5 l,
|
||||
ffetargetComplex5 r);
|
||||
#endif
|
||||
#if FFETARGET_okCOMPLEX6
|
||||
ffebad ffetarget_divide_complex6 (ffetargetComplex6 *res, ffetargetComplex6 l,
|
||||
ffetargetComplex6 r);
|
||||
#endif
|
||||
#if FFETARGET_okCOMPLEX7
|
||||
ffebad ffetarget_divide_complex7 (ffetargetComplex7 *res, ffetargetComplex7 l,
|
||||
ffetargetComplex7 r);
|
||||
#endif
|
||||
#if FFETARGET_okCOMPLEX8
|
||||
ffebad ffetarget_divide_complex8 (ffetargetComplex8 *res, ffetargetComplex8 l,
|
||||
ffetargetComplex8 r);
|
||||
#endif
|
||||
#if FFETARGET_okINTEGER1
|
||||
bool ffetarget_integer1 (ffetargetInteger1 *val, ffelexToken integer);
|
||||
#endif
|
||||
@ -636,18 +489,6 @@ bool ffetarget_integer3 (ffetargetInteger3 *val, ffelexToken integer);
|
||||
#if FFETARGET_okINTEGER4
|
||||
bool ffetarget_integer4 (ffetargetInteger4 *val, ffelexToken integer);
|
||||
#endif
|
||||
#if FFETARGET_okINTEGER5
|
||||
bool ffetarget_integer5 (ffetargetInteger5 *val, ffelexToken integer);
|
||||
#endif
|
||||
#if FFETARGET_okINTEGER6
|
||||
bool ffetarget_integer6 (ffetargetInteger6 *val, ffelexToken integer);
|
||||
#endif
|
||||
#if FFETARGET_okINTEGER7
|
||||
bool ffetarget_integer7 (ffetargetInteger7 *val, ffelexToken integer);
|
||||
#endif
|
||||
#if FFETARGET_okINTEGER8
|
||||
bool ffetarget_integer8 (ffetargetInteger8 *val, ffelexToken integer);
|
||||
#endif
|
||||
bool ffetarget_integerbinary (ffetargetIntegerDefault *val,
|
||||
ffelexToken integer);
|
||||
bool ffetarget_integerhex (ffetargetIntegerDefault *val,
|
||||
@ -686,31 +527,6 @@ ffebad ffetarget_multiply_complex3 (ffetargetComplex3 *res,
|
||||
ffetargetComplex3 l,
|
||||
ffetargetComplex3 r);
|
||||
#endif
|
||||
#if FFETARGET_okCOMPLEX4
|
||||
ffebad ffetarget_multiply_complex4 (ffetargetComplex4 *res,
|
||||
ffetargetComplex4 l,
|
||||
ffetargetComplex4 r);
|
||||
#endif
|
||||
#if FFETARGET_okCOMPLEX5
|
||||
ffebad ffetarget_multiply_complex5 (ffetargetComplex5 *res,
|
||||
ffetargetComplex5 l,
|
||||
ffetargetComplex5 r);
|
||||
#endif
|
||||
#if FFETARGET_okCOMPLEX6
|
||||
ffebad ffetarget_multiply_complex6 (ffetargetComplex6 *res,
|
||||
ffetargetComplex6 l,
|
||||
ffetargetComplex6 r);
|
||||
#endif
|
||||
#if FFETARGET_okCOMPLEX7
|
||||
ffebad ffetarget_multiply_complex7 (ffetargetComplex7 *res,
|
||||
ffetargetComplex7 l,
|
||||
ffetargetComplex7 r);
|
||||
#endif
|
||||
#if FFETARGET_okCOMPLEX8
|
||||
ffebad ffetarget_multiply_complex8 (ffetargetComplex8 *res,
|
||||
ffetargetComplex8 l,
|
||||
ffetargetComplex8 r);
|
||||
#endif
|
||||
ffebad ffetarget_power_complexdefault_integerdefault (ffetargetComplexDefault *res,
|
||||
ffetargetComplexDefault l,
|
||||
ffetargetIntegerDefault r);
|
||||
@ -751,36 +567,6 @@ bool ffetarget_real3 (ffetargetReal3 *value, ffelexToken integer,
|
||||
ffelexToken exponent, ffelexToken exponent_sign,
|
||||
ffelexToken exponent_digits);
|
||||
#endif
|
||||
#if FFETARGET_okREAL4
|
||||
bool ffetarget_real4 (ffetargetReal4 *value, ffelexToken integer,
|
||||
ffelexToken decimal, ffelexToken fraction,
|
||||
ffelexToken exponent, ffelexToken exponent_sign,
|
||||
ffelexToken exponent_digits);
|
||||
#endif
|
||||
#if FFETARGET_okREAL5
|
||||
bool ffetarget_real5 (ffetargetReal5 *value, ffelexToken integer,
|
||||
ffelexToken decimal, ffelexToken fraction,
|
||||
ffelexToken exponent, ffelexToken exponent_sign,
|
||||
ffelexToken exponent_digits);
|
||||
#endif
|
||||
#if FFETARGET_okREAL6
|
||||
bool ffetarget_real6 (ffetargetReal6 *value, ffelexToken integer,
|
||||
ffelexToken decimal, ffelexToken fraction,
|
||||
ffelexToken exponent, ffelexToken exponent_sign,
|
||||
ffelexToken exponent_digits);
|
||||
#endif
|
||||
#if FFETARGET_okREAL7
|
||||
bool ffetarget_real7 (ffetargetReal7 *value, ffelexToken integer,
|
||||
ffelexToken decimal, ffelexToken fraction,
|
||||
ffelexToken exponent, ffelexToken exponent_sign,
|
||||
ffelexToken exponent_digits);
|
||||
#endif
|
||||
#if FFETARGET_okREAL8
|
||||
bool ffetarget_real8 (ffetargetReal8 *value, ffelexToken integer,
|
||||
ffelexToken decimal, ffelexToken fraction,
|
||||
ffelexToken exponent, ffelexToken exponent_sign,
|
||||
ffelexToken exponent_digits);
|
||||
#endif
|
||||
bool ffetarget_typeless_binary (ffetargetTypeless *value, ffelexToken token);
|
||||
bool ffetarget_typeless_octal (ffetargetTypeless *value, ffelexToken token);
|
||||
bool ffetarget_typeless_hex (ffetargetTypeless *value, ffelexToken token);
|
||||
|
Loading…
Reference in New Issue
Block a user