diff options
author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-10-02 17:50:40 +0000 |
---|---|---|
committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-10-02 17:50:40 +0000 |
commit | 47a8996d83303c1defbc6419ab53154af575bd16 (patch) | |
tree | 41ba7ae82a33db1e0ae6a250e07c2bace9a1e79e /gcc/melt/warmelt-macro.melt | |
parent | d2b5abb62e8879c78f4d5cfa8fce985325fbc224 (diff) | |
download | gcc-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.melt | 11 |
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) |