diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-16 12:26:21 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-16 12:26:21 +0000 |
| commit | 10a6415b0ba30fa9b3b440baa31bd4faf061bef4 (patch) | |
| tree | acffc5908210a1f43740f884496aa987b420fd5a /gcc/testsuite | |
| parent | 5a442bc0abf2a0e4e137d8adc3cb7a2380a2bb04 (diff) | |
| download | gcc-10a6415b0ba30fa9b3b440baa31bd4faf061bef4.tar.gz | |
2013-04-16 Basile Starynkevitch <basile@starynkevitch.net>
* melt/warmelt-genobj.melt (compile2obj_procedure)
(compilobj_datasymbol, compilobj datatuple)
(compilobj_databoxedinteger, compilobj_dataclosure)
(compilobj_dataroutine, compilobj_datahook): More debug, notably
for compicache.
* melt/warmelt-outobj.melt (translate_macroexpanded_list): Ditto.
* testsuite/melt/thook-1.melt (justahook): Comment out
temporarily.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@197999 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/melt/thook-1.melt | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/testsuite/melt/thook-1.melt b/gcc/testsuite/melt/thook-1.melt index 97379450f35..3ae14536aad 100644 --- a/gcc/testsuite/melt/thook-1.melt +++ b/gcc/testsuite/melt/thook-1.melt @@ -18,6 +18,7 @@ (definstance myref class_reference) +#| (defhook justahook (:long inp :tree itr) (:long out) :long (debug "justahook inp=" inp " itr=" itr " out=" out @@ -25,13 +26,14 @@ (setq out inp) (return (+i inp 1)) ) +|# (defun mybiapp (f) - (lambda (x) (f x x))) + (lambda (x) (f x myref))) ;; also test that lambda is closing hook input values as needed (defhook anotherhook (:long i :value v) (:value outv) :void - (debug "anotherhook i=" i " v=" v) + (debug "anotherhook i=" i " v=" v " myref=" myref) (let ( (bxi (constant_box i)) ) (setq outv |