summaryrefslogtreecommitdiff
path: root/gcc/melt/warmelt-macro.melt
diff options
context:
space:
mode:
authorbstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4>2014-10-02 17:50:40 +0000
committerbstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4>2014-10-02 17:50:40 +0000
commit47a8996d83303c1defbc6419ab53154af575bd16 (patch)
tree41ba7ae82a33db1e0ae6a250e07c2bace9a1e79e /gcc/melt/warmelt-macro.melt
parentd2b5abb62e8879c78f4d5cfa8fce985325fbc224 (diff)
downloadgcc-47a8996d83303c1defbc6419ab53154af575bd16.tar.gz
2014-10-02 Basile Starynkevitch <basile@starynkevitch.net>
{{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
Diffstat (limited to 'gcc/melt/warmelt-macro.melt')
-rw-r--r--gcc/melt/warmelt-macro.melt11
1 files changed, 8 insertions, 3 deletions
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)