This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[patch] remove #ifdef HOHO sections
- From: Nathanael Nerode <neroden at doctormoo dot dyndns dot org>
- To: gcc-patches at gcc dot gnu dot org
- Cc: dj at redhat dot com
- Date: Sat, 15 Jun 2002 12:13:42 -0400
- Subject: [patch] remove #ifdef HOHO sections
Small patch to the FORTRAN front end. As noted in
http://gcc.gnu.org/ml/gcc/2002-06/msg00836.html, HOHO is tested but never
defined. It appears to have been inserted during a change in
"temp-var-handling" in 1996, with HOHO delimiting the old, obsolete code.
This patch simply deletes those sections.
Bootstrapped on i686-pc-linux-gnu.
I can't run the testsuite at the moment due to some minor problems I'm having
with dejagnu. This really, really shouldn't change anything though.
2002-06-15 Nathanael Nerode <neroden@twcny.rr.com>
* com.c: Remove #ifdef HOHO sections.
Index: com.c
===================================================================
RCS file: /cvsroot/gcc/gcc/gcc/f/com.c,v
retrieving revision 1.171
diff -c -3 -p -r1.171 com.c
*** com.c 4 Jun 2002 07:10:34 -0000 1.171
--- com.c 14 Jun 2002 23:52:27 -0000
*************** ffecom_call_ (tree fn, ffeinfoKindtype k
*** 1812,1826 ****
callee_commons,
scalar_args))
{
- #ifdef HOHO
- tempvar = ffecom_make_tempvar (ffecom_tree_type
- [FFEINFO_basictypeCOMPLEX][kt],
- FFETARGET_charactersizeNONE,
- -1);
- #else
tempvar = hook;
assert (tempvar);
- #endif
}
else
{
--- 1812,1819 ----
*************** ffecom_char_args_x_ (tree *xitem, tree *
*** 2168,2180 ****
if (!ffesymbol_hook (s).addr)
item = ffecom_1_fn (item);
}
-
- #ifdef HOHO
- tempvar = ffecom_push_tempvar (char_type_node, size, -1, TRUE);
- #else
tempvar = ffebld_nonter_hook (expr);
assert (tempvar);
- #endif
tempvar = ffecom_1 (ADDR_EXPR,
build_pointer_type (TREE_TYPE (tempvar)),
tempvar);
--- 2161,2168 ----
*************** ffecom_char_args_x_ (tree *xitem, tree *
*** 2226,2238 ****
tree args;
tree newlen;
- #ifdef HOHO
- tempvar = ffecom_make_tempvar (char_type_node,
- ffebld_size (expr), -1);
- #else
tempvar = ffebld_nonter_hook (expr);
assert (tempvar);
- #endif
tempvar = ffecom_1 (ADDR_EXPR,
build_pointer_type (TREE_TYPE (tempvar)),
tempvar);
--- 2214,2221 ----
*************** ffecom_expr_intrinsic_ (ffebld expr, tre
*** 4046,4057 ****
case FFEINTRIN_impCHAR:
case FFEINTRIN_impACHAR:
- #ifdef HOHO
- tempvar = ffecom_make_tempvar (char_type_node, 1, -1);
- #else
tempvar = ffebld_nonter_hook (expr);
assert (tempvar);
- #endif
{
tree tmv = TYPE_MAIN_VARIANT (TREE_TYPE (TREE_TYPE (tempvar)));
--- 4029,4036 ----
*************** ffecom_let_char_ (tree dest_tree, tree d
*** 6735,6749 ****
tree citem;
tree clength;
- #ifdef HOHO
- length_array
- = lengths
- = ffecom_push_tempvar (ffecom_f2c_ftnlen_type_node,
- FFETARGET_charactersizeNONE, count, TRUE);
- item_array = items = ffecom_push_tempvar (ffecom_f2c_address_type_node,
- FFETARGET_charactersizeNONE,
- count, TRUE);
- #else
{
tree hook;
--- 6714,6719 ----
*************** ffecom_let_char_ (tree dest_tree, tree d
*** 6754,6760 ****
length_array = lengths = TREE_VEC_ELT (hook, 0);
item_array = items = TREE_VEC_ELT (hook, 1);
}
- #endif
for (i = 0; i < count; ++i)
{
--- 6724,6729 ----
*************** ffecom_arg_ptr_to_expr (ffebld expr, tre
*** 10258,10275 ****
/* ~~Kludge! */
assert (sz != FFETARGET_charactersizeNONE);
- #ifdef HOHO
- length_array
- = lengths
- = ffecom_push_tempvar (ffecom_f2c_ftnlen_type_node,
- FFETARGET_charactersizeNONE, count, TRUE);
- item_array
- = items
- = ffecom_push_tempvar (ffecom_f2c_address_type_node,
- FFETARGET_charactersizeNONE, count, TRUE);
- temporary = ffecom_push_tempvar (char_type_node,
- sz, -1, TRUE);
- #else
{
tree hook;
--- 10227,10232 ----
*************** ffecom_arg_ptr_to_expr (ffebld expr, tre
*** 10281,10287 ****
item_array = items = TREE_VEC_ELT (hook, 1);
temporary = TREE_VEC_ELT (hook, 2);
}
- #endif
known_length = ffecom_f2c_ftnlen_zero_node;
--- 10238,10243 ----