diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-05-15 17:39:08 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-05-15 17:39:08 +0000 |
| commit | 0b51b8dbfe86c0e9ad5c24475d3c97904078560d (patch) | |
| tree | 5dae312e1ba91fa2d2384a8c23deebfe44790acd /gcc | |
| parent | 58404384a517efeaee91d5385a3434b6a7827f2b (diff) | |
| download | gcc-0b51b8dbfe86c0e9ad5c24475d3c97904078560d.tar.gz | |
2016-05-15 Basile Starynkevitch <basile@starynkevitch.net>
{{unstable, perhaps working only in ASLR}}
* melt/warmelt-genobj.melt (compilobj_datatuple): Use
foreach_in_multiple instead of multiple_every.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@236252 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ChangeLog.MELT | 5 | ||||
| -rw-r--r-- | gcc/melt/warmelt-genobj.melt | 8 |
2 files changed, 9 insertions, 4 deletions
diff --git a/gcc/ChangeLog.MELT b/gcc/ChangeLog.MELT index 898ff1ae87a..6f050f920cc 100644 --- a/gcc/ChangeLog.MELT +++ b/gcc/ChangeLog.MELT @@ -1,5 +1,10 @@ 2016-05-15 Basile Starynkevitch <basile@starynkevitch.net> + {{unstable, perhaps working only in ASLR}} + * melt/warmelt-genobj.melt (compilobj_datatuple): Use + foreach_in_multiple instead of multiple_every. + +2016-05-15 Basile Starynkevitch <basile@starynkevitch.net> {{unstable}} * melt/generated/*: Regenerated all. diff --git a/gcc/melt/warmelt-genobj.melt b/gcc/melt/warmelt-genobj.melt index 6c2d64bcb1d..1457f1df7b7 100644 --- a/gcc/melt/warmelt-genobj.melt +++ b/gcc/melt/warmelt-genobj.melt @@ -5773,9 +5773,9 @@ (debug "compilobj_datatuple updated compicache=" compicache "\n.. nti=" nti "\n.. otup=" otup) (put_int otup (multiple_length ncompi)) - (multiple_every - ncompi - (lambda (scomp :long srk) + (foreach_in_multiple + (ncompi) + (scomp :long srk) (if scomp (let ( (ocomp (multiple_nth ocompi srk)) ) (list_append inibody @@ -5783,7 +5783,7 @@ :oputu_tupled otup :oputu_offset (make_integerbox discr_integer srk) :oputu_value ocomp))) - ))) + )) (list_append inibody (instance class_objtouch :otouch_val otup |