From 05db424bdb6e0ebcddde0524d66cf55a2e258b7b Mon Sep 17 00:00:00 2001 From: bstarynk Date: Sat, 25 Oct 2014 17:31:09 +0000 Subject: 2014-10-25 Basile Starynkevitch * testsuite/melt/t-treecode.melt: Simplified to use a few treecodes but still don't work! * melt/warmelt-macro.melt (mexpand_defcmatcher): More debug. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@216691 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/melt/warmelt-macro.melt | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'gcc/melt/warmelt-macro.melt') diff --git a/gcc/melt/warmelt-macro.melt b/gcc/melt/warmelt-macro.melt index 200ec6c82d7..c18e48976c9 100644 --- a/gcc/melt/warmelt-macro.melt +++ b/gcc/melt/warmelt-macro.melt @@ -3366,7 +3366,7 @@ $EXPORT_VALUES. See also $CLASS_CITERATOR. }#) (locoper ()) ;location of oper ) ;; check the symb - (debug "mexpand_defcmatcher symb" symb) + (debug "mexpand_defcmatcher" " loc=" loc "; symb" symb) (when (is_not_a symb class_symbol) (error_at loc @@ -3377,6 +3377,7 @@ $EXPORT_VALUES. See also $CLASS_CITERATOR. }#) (let ( (matinformals (lambda_arg_bindings (pair_head curpair) () env mexpander modctx)) (:long nbmatinformals (multiple_length matinformals)) ) + (debug "mexpand_defcmatcher" " loc=" loc "; matinformals=" matinformals) (when ( )"_ symbname) @@ -3388,18 +3389,18 @@ $EXPORT_VALUES. See also $CLASS_CITERATOR. }#) ) (setq sformals matinformals) (setq matchformal (multiple_nth matinformals 0)) - (debug "mexpand_defcmatcher matchformal" matchformal) + (debug "mexpand_defcmatcher" " loc=" loc"; matchformal=" matchformal) (assert_msg "check matchformal" (is_a matchformal class_formal_binding) matchformal) (setq informals (make_multiple discr_multiple (-i nbmatinformals 1))) (foreach_in_multiple (matinformals) (comp :long ix) (if (>i ix 0) (multiple_put_nth informals (-i ix 1) comp))) - (debug "mexpand_defcmatcher informals" informals) + (debug "mexpand_defcmatcher" " loc=" loc "; informals=" informals) ) ;; parse the out formals (setq curpair (pair_tail curpair)) (setq outformals (lambda_arg_bindings (pair_head curpair) () env mexpander modctx)) - (debug "mexpand_defcmatcher outformals" outformals) + (debug "mexpand_defcmatcher" " loc=" loc "; outformals=" outformals) (when (not (is_multiple outformals)) (error_at loc "bad outs for (DEFCMATCHER $1 )"_ symbname) (return)) -- cgit v1.2.1