diff options
author | Richard Stallman <rms@gnu.org> | 1992-01-17 23:03:50 +0000 |
---|---|---|
committer | Richard Stallman <rms@gnu.org> | 1992-01-17 23:03:50 +0000 |
commit | ae90e6a3555a49980af549e7e8db6d314d0b70c8 (patch) | |
tree | 55c5364cf46fdb47a98f24372966492f05023481 /gcc/genattrtab.c | |
parent | 51bbfa0c65bda8c617aea710627532754481f666 (diff) | |
download | gcc-ae90e6a3555a49980af549e7e8db6d314d0b70c8.zip gcc-ae90e6a3555a49980af549e7e8db6d314d0b70c8.tar.gz gcc-ae90e6a3555a49980af549e7e8db6d314d0b70c8.tar.bz2 |
*** empty log message ***
From-SVN: r202
Diffstat (limited to 'gcc/genattrtab.c')
-rw-r--r-- | gcc/genattrtab.c | 74 |
1 files changed, 47 insertions, 27 deletions
diff --git a/gcc/genattrtab.c b/gcc/genattrtab.c index 1fbdc5d..ede6049 100644 --- a/gcc/genattrtab.c +++ b/gcc/genattrtab.c @@ -1,5 +1,5 @@ /* Generate code from machine description to compute values of attributes. - Copyright (C) 1989, 1991 Free Software Foundation, Inc. + Copyright (C) 1992 Free Software Foundation, Inc. Contributed by Richard Kenner (kenner@nyu.edu) This file is part of GNU CC. @@ -1072,12 +1072,12 @@ fill_attr (attr) } } -/* Given an expression EXP, see if it is a COND that has a test that checks - relative positions of insns (uses MATCH_DUP or PC). If so, replace it - with what is obtained by passing the expression to ADDRESS_FN. If not - but it is a COND, call this routine recursively on each value (including - the default value). Otherwise, return the value returned by NO_ADDRESS_FN - applied to EXP. */ +/* Given an expression EXP, see if it is a COND or IF_THEN_ELSE that has a + test that checks relative positions of insns (uses MATCH_DUP or PC). + If so, replace it with what is obtained by passing the expression to + ADDRESS_FN. If not but it is a COND or IF_THEN_ELSE, call this routine + recursively on each value (including the default value). Otherwise, + return the value returned by NO_ADDRESS_FN applied to EXP. */ static rtx substitute_address (exp, no_address_fn, address_fn) @@ -1088,32 +1088,52 @@ substitute_address (exp, no_address_fn, address_fn) int i; rtx newexp; - if (GET_CODE (exp) != COND) - return (*no_address_fn) (exp); + if (GET_CODE (exp) == COND) + { + /* See if any tests use addresses. */ + address_used = 0; + for (i = 0; i < XVECLEN (exp, 0); i += 2) + walk_attr_value (XVECEXP (exp, 0, i)); - /* See if any tests use addresses. */ - address_used = 0; - for (i = 0; i < XVECLEN (exp, 0); i += 2) - walk_attr_value (XVECEXP (exp, 0, i)); + if (address_used) + return (*address_fn) (exp); - if (address_used) - return (*address_fn) (exp); + /* Make a new copy of this COND, replacing each element. */ + newexp = rtx_alloc (COND); + XVEC (newexp, 0) = rtvec_alloc (XVECLEN (exp, 0)); + for (i = 0; i < XVECLEN (exp, 0); i += 2) + { + XVECEXP (newexp, 0, i) = XVECEXP (exp, 0, i); + XVECEXP (newexp, 0, i + 1) + = substitute_address (XVECEXP (exp, 0, i + 1), + no_address_fn, address_fn); + } - /* Make a new copy of this COND, replacing each element. */ - newexp = rtx_alloc (COND); - XVEC (newexp, 0) = rtvec_alloc (XVECLEN (exp, 0)); - for (i = 0; i < XVECLEN (exp, 0); i += 2) - { - XVECEXP (newexp, 0, i) = XVECEXP (exp, 0, i); - XVECEXP (newexp, 0, i + 1) = substitute_address (XVECEXP (exp, 0, i + 1), - no_address_fn, - address_fn); + XEXP (newexp, 1) = substitute_address (XEXP (exp, 1), + no_address_fn, address_fn); + + return newexp; } - XEXP (newexp, 1) = substitute_address (XEXP (exp, 1), - no_address_fn, address_fn); + else if (GET_CODE (exp) == IF_THEN_ELSE) + { + address_used = 0; + walk_attr_value (XEXP (exp, 0)); + if (address_used) + return (*address_fn) (exp); - return newexp; + newexp = rtx_alloc (IF_THEN_ELSE); + XEXP (newexp, 0) = substitute_address (XEXP (exp, 0), + no_address_fn, address_fn); + XEXP (newexp, 1) = substitute_address (XEXP (exp, 1), + no_address_fn, address_fn); + XEXP (newexp, 2) = substitute_address (XEXP (exp, 2), + no_address_fn, address_fn); + + return newexp; + } + + return (*no_address_fn) (exp); } /* Make new attributes from the `length' attribute. The following are made, |