diff options
| -rw-r--r-- | gcc/ChangeLog.MELT | 9 | ||||
| -rw-r--r-- | gcc/melt/warmelt-macro.melt | 6 | ||||
| -rw-r--r-- | gcc/melt/warmelt-normal.melt | 1 | ||||
| -rw-r--r-- | gcc/melt/warmelt-normatch.melt | 4 |
4 files changed, 16 insertions, 4 deletions
diff --git a/gcc/ChangeLog.MELT b/gcc/ChangeLog.MELT index 9dc81d4e1d4..42248bcbbdd 100644 --- a/gcc/ChangeLog.MELT +++ b/gcc/ChangeLog.MELT @@ -1,4 +1,13 @@ +2011-03-04 Basile Starynkevitch <basile@starynkevitch.net> + + * warmelt-macro.melt (patmacexpand_for_matcher): Add debug + message. + + * warmelt-normal.melt (normexp_symbol): Added backtrace. + + * warmelt-normatch.melt: Update copyright year. + 2011-03-03 Basile Starynkevitch <basile@starynkevitch.net> * testsuite/melt/tmatch-7.melt: Update comment. diff --git a/gcc/melt/warmelt-macro.melt b/gcc/melt/warmelt-macro.melt index a8fbc780493..83d2f575205 100644 --- a/gcc/melt/warmelt-macro.melt +++ b/gcc/melt/warmelt-macro.melt @@ -1430,8 +1430,10 @@ the object-map for pattern variables.}# ) (let ( (curpair (box_content pairbox)) ) (if (is_pair curpair) - (warning_strv psloc "ignored extra sub-{pattern | expression} in matcher" - (get_field :named_name matcher)))) + (progn + (debug_msg curpair "extra stuff in patmacexpand_for_matcher") + (warning_strv psloc "ignored extra sub-{pattern | expression} in matcher" + (get_field :named_name matcher))))) (return inargs outpats) )) diff --git a/gcc/melt/warmelt-normal.melt b/gcc/melt/warmelt-normal.melt index 7cdf7380f46..92d14e53a5c 100644 --- a/gcc/melt/warmelt-normal.melt +++ b/gcc/melt/warmelt-normal.melt @@ -1165,6 +1165,7 @@ source location.}# (progn (error_strv psloc "unknown name; symbol is not bound" (unsafe_get_field :named_name recv)) + (shortbacktrace_dbg "normex_symbol null bind" 15) (return ()))) (let ( (sycmap (unsafe_get_field :nctx_symbcachemap ncx)) (syca (mapobject_get sycmap recv)) ) diff --git a/gcc/melt/warmelt-normatch.melt b/gcc/melt/warmelt-normatch.melt index 2b5b77c2560..981e53fbe57 100644 --- a/gcc/melt/warmelt-normatch.melt +++ b/gcc/melt/warmelt-normatch.melt @@ -1,7 +1,7 @@ ;; file warmelt-normatch.melt -*- Lisp -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (comment "*** - Copyright 2008, 2009, 2010 Free Software Foundation, Inc. + Copyright 2008, 2009, 2010, 2011 Free Software Foundation, Inc. Contributed by Basile Starynkevitch <basile@starynkevitch.net> This file is part of GCC. @@ -2826,7 +2826,7 @@ the flags of the $STEP with an extra context $CTX.}# (progn (unsafe_put_fields recv :mstep_then starthen) (debug_msg recv "putthen_matchthen updated recv") - (shortbacktrace_dbg "putthen_matchthen" 12) + ;(shortbacktrace_dbg "putthen_matchthen" 12) ) (progn (debug_msg mythen "putthen_matchthen recursing in mythen") |