diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-11-20 07:54:03 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-11-20 07:54:03 +0000 |
| commit | d7cbb3ef81425f9adec25287428049a99320c479 (patch) | |
| tree | a91a769ce226f6331bf0bb88e63a59d70bd501f8 | |
| parent | 743b56f226d67fc9ec841477c54c4f41864e7e9b (diff) | |
| download | gcc-d7cbb3ef81425f9adec25287428049a99320c479.tar.gz | |
2008-11-20 Basile Starynkevitch <basile@starynkevitch.net>
* melt/warmelt-normatch.bysl: minor variable renaming.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@142034 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ChangeLog.melt | 3 | ||||
| -rw-r--r-- | gcc/melt/warmelt-normatch.bysl | 11 |
2 files changed, 10 insertions, 4 deletions
diff --git a/gcc/ChangeLog.melt b/gcc/ChangeLog.melt index 913ad560d4f..2dfedfec12d 100644 --- a/gcc/ChangeLog.melt +++ b/gcc/ChangeLog.melt @@ -1,3 +1,6 @@ +2008-11-20 Basile Starynkevitch <basile@starynkevitch.net> + * melt/warmelt-normatch.bysl: minor variable renaming. + 2008-11-10 Basile Starynkevitch <basile@starynkevitch.net> * Makefile.in: added rules for warmelt2n.modlis... * melt/warmelt-normatch.bysl: added catch alls for anypattern, any value, nil... diff --git a/gcc/melt/warmelt-normatch.bysl b/gcc/melt/warmelt-normatch.bysl index ff966f3200f..4a282103275 100644 --- a/gcc/melt/warmelt-normatch.bysl +++ b/gcc/melt/warmelt-normatch.bysl @@ -367,8 +367,8 @@ (smatsx (unsafe_get_field :smat_matchedx recv)) (scases (unsafe_get_field :smat_cases recv)) (:long nbcases (multiple_length scases)) - (tupvar (make_multiple discr_multiple nbcases)) - (tupcst (make_multiple discr_multiple nbcases)) + (tupvarmap (make_multiple discr_multiple nbcases)) + (tupcstmap (make_multiple discr_multiple nbcases)) (tupbindlist (make_multiple discr_multiple nbcases)) ) (debug_msg smatsx "normexp_match smatsx") @@ -404,11 +404,14 @@ (debug_msg mapvar "normexp_match mapvar") (debug_msg mapcst "normexp_match mapcst") (debug_msg bindlist "normexp_match bindlist") - (multiple_put_nth tupvar ix mapvar) - (multiple_put_nth tupcst ix mapcst) + (multiple_put_nth tupvarmap ix mapvar) + (multiple_put_nth tupcstmap ix mapcst) (multiple_put_nth tupbindlist ix bindlist) ) ) + (debug_msg tupvarmap "normexp_match tupvarmap") + (debug_msg tupcstmap "normexp_match tupcstmap") + (debug_msg tupbindlist "normexp_match tupbindlist") (assert_msg "unimplemented normexp_match" ()) (compile_warning "@@unimplemented normexp_match" ()) )))) |