diff options
| author | Andreas Jaeger <aj@suse.de> | 2003-06-08 14:22:25 +0200 |
|---|---|---|
| committer | Andreas Jaeger <aj@gcc.gnu.org> | 2003-06-08 14:22:25 +0200 |
| commit | 22e494a0aec5a8385713d5522ea351e43fcea530 (patch) | |
| tree | 299cf0e3b86aeb11b4c55ad06d4864a0cf9dbd03 /gcc/f/com.c | |
| parent | c8b04b134a525899da2973edc8a816380c0af050 (diff) | |
| download | gcc-22e494a0aec5a8385713d5522ea351e43fcea530.zip gcc-22e494a0aec5a8385713d5522ea351e43fcea530.tar.gz gcc-22e494a0aec5a8385713d5522ea351e43fcea530.tar.bz2 | |
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
Diffstat (limited to 'gcc/f/com.c')
| -rw-r--r-- | gcc/f/com.c | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/gcc/f/com.c b/gcc/f/com.c index 01821cb..568cb21 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -10419,12 +10419,6 @@ ffecom_constantunion (ffebldConstantUnion *cu, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okREAL4 - case FFEINFO_kindtypeREAL4: - val = ffetarget_value_real4 (ffebld_cu_val_real4 (*cu)); - break; -#endif - default: assert ("bad REAL constant kind type" == NULL); /* Fall through. */ @@ -10464,13 +10458,6 @@ ffecom_constantunion (ffebldConstantUnion *cu, ffeinfoBasictype bt, break; #endif -#if FFETARGET_okCOMPLEX4 - case FFEINFO_kindtypeREAL4: - real = ffetarget_value_real4 (ffebld_cu_val_complex4 (*cu).real); - imag = ffetarget_value_real4 (ffebld_cu_val_complex4 (*cu).imaginary); - break; -#endif - default: assert ("bad REAL constant kind type" == NULL); /* Fall through. */ |