diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-02 12:58:46 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-02 12:58:46 +0000 |
| commit | df4dcd38826646b703f4ce4d8c5f396c724b1f69 (patch) | |
| tree | a123541e7b74faea15c4a1eb740f92e24e4b7807 /gcc/testsuite/melt/t2iter.bysl | |
| parent | 02bf0988ec861e6cafb0dc23924d512587f8e47a (diff) | |
| download | gcc-df4dcd38826646b703f4ce4d8c5f396c724b1f69.tar.gz | |
2009-04-02 Basile Starynkevitch <basile@starynkevitch.net>
[I am adding the t2iter.bysl test because I suspect a binding
issue with citerators]
* gcc/melt/warmelt-macro.bysl: added check_c_expansion and call it in
every C expansion locus.
* gcc/testsuite/melt/t2iter.bysl: new test [unchecked].
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@145447 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/melt/t2iter.bysl')
| -rw-r--r-- | gcc/testsuite/melt/t2iter.bysl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/gcc/testsuite/melt/t2iter.bysl b/gcc/testsuite/melt/t2iter.bysl new file mode 100644 index 00000000000..377d92e00a7 --- /dev/null +++ b/gcc/testsuite/melt/t2iter.bysl @@ -0,0 +1,23 @@ +;; -*- lisp -*- + +;; it could be possible that the local bindings of iterators are +;; flowing outside; this is wrong of course + +;; TO BE TESTED + +(defun t2iter (tu) + (foreach_in_multiple + (tu) + (comp :long ix) + (debug_msg comp "t2iter first loop") + (assert_msg "check first comp" comp) + ) + (foreach_in_multiple + (tu) + (comp :long ix) + (debug_msg comp "t2iter second loop") + (assert_msg "check second comp" comp) + ) + ) + +(t2iter (make_tuple3 discr_multiple 'a 'b 'c)) |