From 5bc93be506e50bb4fdb79692cd9063c880c96601 Mon Sep 17 00:00:00 2001 From: Andreas Jaeger Date: Thu, 20 Jun 2002 14:31:28 +0200 Subject: [PATCH] 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 --- gcc/f/ChangeLog | 5 +++++ gcc/f/com.c | 41 ----------------------------------------- 2 files changed, 5 insertions(+), 41 deletions(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 99a9756d249..581fbe1e678 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +2002-06-20 Andreas Jaeger + + * com.c (ffecom_prepare_expr_,ffecom_expr_power_integer_): + Remove #ifdefed HAHA sections. + 2002-06-20 Nathanael Nerode * com.c: Remove #ifdef HOHO sections. diff --git a/gcc/f/com.c b/gcc/f/com.c index 0cd8fc4ab1c..2fb8caa150e 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 -- 2.30.2