diff options
| author | Andreas Jaeger <aj@suse.de> | 2002-06-20 14:31:28 +0200 |
|---|---|---|
| committer | Andreas Jaeger <aj@gcc.gnu.org> | 2002-06-20 14:31:28 +0200 |
| commit | 5bc93be506e50bb4fdb79692cd9063c880c96601 (patch) | |
| tree | 2731d44944118bfd26a448876efc78bde702f19b | |
| parent | 8433a25e2a7ed6df0f9be9cb89a2748d7768f2d7 (diff) | |
| download | gcc-5bc93be506e50bb4fdb79692cd9063c880c96601.zip gcc-5bc93be506e50bb4fdb79692cd9063c880c96601.tar.gz gcc-5bc93be506e50bb4fdb79692cd9063c880c96601.tar.bz2 | |
com.c (ffecom_prepare_expr_,ffecom_expr_power_integer_): Remove #ifdefed HAHA sections.
* com.c (ffecom_prepare_expr_,ffecom_expr_power_integer_):
Remove #ifdefed HAHA sections.
From-SVN: r54829
| -rw-r--r-- | gcc/f/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/f/com.c | 41 |
2 files changed, 5 insertions, 41 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 99a9756..581fbe1 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +2002-06-20 Andreas Jaeger <aj@suse.de> + + * com.c (ffecom_prepare_expr_,ffecom_expr_power_integer_): + Remove #ifdefed HAHA sections. + 2002-06-20 Nathanael Nerode <neroden@twcny.rr.com> * com.c: Remove #ifdef HOHO sections. diff --git a/gcc/f/com.c b/gcc/f/com.c index 0cd8fc4..2fb8caa 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -5603,7 +5603,6 @@ ffecom_expr_power_integer_ (ffebld expr) ffecom_start_compstmt (); -#ifndef HAHA rtmp = ffecom_make_tempvar ("power_r", rtype, FFETARGET_charactersizeNONE, -1); ltmp = ffecom_make_tempvar ("power_l", ltype, @@ -5616,25 +5615,6 @@ ffecom_expr_power_integer_ (ffebld expr) FFETARGET_charactersizeNONE, -1); else divide = NULL_TREE; -#else /* HAHA */ - { - tree hook; - - hook = ffebld_nonter_hook (expr); - assert (hook); - assert (TREE_CODE (hook) == TREE_VEC); - assert (TREE_VEC_LENGTH (hook) == 4); - rtmp = TREE_VEC_ELT (hook, 0); - ltmp = TREE_VEC_ELT (hook, 1); - result = TREE_VEC_ELT (hook, 2); - divide = TREE_VEC_ELT (hook, 3); - if (TREE_CODE (ltype) == COMPLEX_TYPE - || TREE_CODE (ltype) == RECORD_TYPE) - assert (divide); - else - assert (! divide); - } -#endif /* HAHA */ expand_expr_stmt (ffecom_modify (void_type_node, rtmp, @@ -12425,27 +12405,6 @@ ffecom_prepare_expr_ (ffebld expr, ffebld dest UNUSED) } break; -#ifdef HAHA - case FFEBLD_opPOWER: - { - tree rtype, ltype; - tree rtmp, ltmp, result; - - ltype = ffecom_type_expr (ffebld_left (expr)); - rtype = ffecom_type_expr (ffebld_right (expr)); - - rtmp = ffecom_make_tempvar (rtype, FFETARGET_charactersizeNONE, -1); - ltmp = ffecom_make_tempvar (ltype, FFETARGET_charactersizeNONE, -1); - result = ffecom_make_tempvar (ltype, FFETARGET_charactersizeNONE, -1); - - tempvar = make_tree_vec (3); - TREE_VEC_ELT (tempvar, 0) = rtmp; - TREE_VEC_ELT (tempvar, 1) = ltmp; - TREE_VEC_ELT (tempvar, 2) = result; - } - break; -#endif /* HAHA */ - case FFEBLD_opCONCATENATE: { /* This gets special handling, because only one set of temps |