From 10a6415b0ba30fa9b3b440baa31bd4faf061bef4 Mon Sep 17 00:00:00 2001 From: bstarynk Date: Tue, 16 Apr 2013 12:26:21 +0000 Subject: 2013-04-16 Basile Starynkevitch * 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 --- gcc/testsuite/melt/thook-1.melt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'gcc/testsuite') 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 -- cgit v1.2.1