From 47a8996d83303c1defbc6419ab53154af575bd16 Mon Sep 17 00:00:00 2001 From: bstarynk Date: Thu, 2 Oct 2014 17:50:40 +0000 Subject: 2014-10-02 Basile Starynkevitch {{tletmacro-3 still fails}} * melt/warmelt-macro.melt (melt_delayed_macro_expander) (mexpand_let): More debug. * melt/warmelt-debug.melt (melt_debug_fun): Emit once in a while -every 512 time- the clock & cputime. * melt/warmelt-outobj.melt (give_normalized_macroexpanded_list): Avoid prepending several times the instance of class_source_update_current_module_environment_reference... * testsuite/melt/tletmacro-3.melt: Improved... git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@215808 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/melt/warmelt-macro.melt | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'gcc/melt/warmelt-macro.melt') diff --git a/gcc/melt/warmelt-macro.melt b/gcc/melt/warmelt-macro.melt index a950f780554..29b47b066c4 100644 --- a/gcc/melt/warmelt-macro.melt +++ b/gcc/melt/warmelt-macro.melt @@ -3647,9 +3647,11 @@ $EXPORT_VALUES to be visible outside its module.}#) ;; this magic function should expand and compile all the macro definitions of maclist (defun melt_delayed_macro_expander (mbind maclist env mexpander modctx) - (debug "melt_delayed_macro_expander mbind=" mbind "\n.. maclist=" maclist - "\n.. modctx=" debug_less modctx - "\n.. env=" env) + (debug "melt_delayed_macro_expander mbind=" mbind "\n.. maclist=" maclist + "\n.. env=" env + "\n.. mexpander=" mexpander + "\n.. old-mocx_macrolist=" (get_field :mocx_macrolist modctx) + "\n.. modctx=" debug_less modctx) (shortbacktrace_dbg "melt_delayed_macro_expander" 12) (assert_msg "check maclist" (is_list maclist) maclist) (block_signals @@ -6991,6 +6993,8 @@ applications of @code{/i} primitives.}# ) ) ( (is_a cursbind class_source_macro_let_binding) + (debug "mexpand_let:macro" " loc=" loc "; cursbind=" cursbind) + (shortbacktrace_dbg "mexpand_let:macro" 15) (assert_msg "check maclist" (is_list maclist) maclist modctx) (let ( (macsymb (get_field :sletb_binder cursbind)) @@ -7019,6 +7023,7 @@ applications of @code{/i} primitives.}# (list_append maclist sinstmac) (debug "mexpand_let:macro" " loc=" loc + "\n.. macbind=" macbind "\n.. defmaclet=" defmaclet "\n.. updated maclist=" maclist "\n.. sinstmac=" sinstmac) -- cgit v1.2.1