diff options
Diffstat (limited to 'gcc/melt/warmelt-normatch.bysl')
| -rw-r--r-- | gcc/melt/warmelt-normatch.bysl | 11 |
1 files changed, 7 insertions, 4 deletions
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" ()) )))) |