diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-01-17 15:26:38 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-01-17 15:26:38 +0000 |
| commit | d69266fe0ad9c61357834f691366cb5fe2ce1cad (patch) | |
| tree | 80aed1a9ae97b35b6510e52b7e695b7cafa7a2a0 /gcc/melt/warmelt-normatch.melt | |
| parent | 09f7180b95a11240f37128e9485d2317ca05fbee (diff) | |
| download | gcc-d69266fe0ad9c61357834f691366cb5fe2ce1cad.tar.gz | |
2013-01-17 Basile Starynkevitch <basile@starynkevitch.net>
* melt/warmelt-normatch.melt (normexp_matchalt): Append the result to body.
* melt/warmelt-genobj.melt (compilobj_nrep_matchlabelend): New
method for compile_obj of class_nrep_match_label_end.
(compilobj_nrep_matchalt): Append the result.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@195268 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/warmelt-normatch.melt')
| -rw-r--r-- | gcc/melt/warmelt-normatch.melt | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/melt/warmelt-normatch.melt b/gcc/melt/warmelt-normatch.melt index 7d37485d5ae..8232d9589c7 100644 --- a/gcc/melt/warmelt-normatch.melt +++ b/gcc/melt/warmelt-normatch.melt @@ -6740,6 +6740,7 @@ normalized expression.}# )) ) (debug "normexp_matchalt ndatalist=" ndatalist) + ;; (let ( (:long nbndata (list_length ndatalist)) (ndatatup (make_multiple discr_multiple nbndata)) ) @@ -6757,7 +6758,8 @@ normalized expression.}# (multiple_put_nth ndatatup curnrkm1 curndata) ) ) - (debug "normexp_matchalt ndatatup=" ndatatup) + (list_append nbodyl endlab) + (debug "normexp_matchalt ndatatup=" ndatatup "\n *nbodyl=" nbodyl) ;; (put_fields nresmatch :namatch_matched nmatx ;; normal matched stuff |