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/testsuite/melt/tletmacro-3.melt | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/testsuite') diff --git a/gcc/testsuite/melt/tletmacro-3.melt b/gcc/testsuite/melt/tletmacro-3.melt index 2456177be69..1978109fcc6 100644 --- a/gcc/testsuite/melt/tletmacro-3.melt +++ b/gcc/testsuite/melt/tletmacro-3.melt @@ -21,6 +21,7 @@ gcc -fplugin=melt -fplugin-arg-melt-mode=runfile @meltbuild-common.args \ (the_stdout (unsafe_get_field :sysdata_stdout initial_system_data)) (:macro loadedmac (sexp env mexpander modctx) (debug "macro loadedmac" " sexp=" sexp) + (shortbacktrace_dbg "macro loadedmac" 20) (let ( (arg1 (list_nth (usafe_get_field :sexp_contents sexp) 1)) (sloc (unsafe_get_field :loca_location sexp)) (sline (get_int sloc)) -- cgit v1.2.1