diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-10-03 09:22:58 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-10-03 09:22:58 +0000 |
| commit | 071c6be1f8fa37d3ec6ab6a2e1e459746f839e64 (patch) | |
| tree | 9ca106f0d1569c238e669af994ead55c0544e303 /gcc/melt/warmelt-outobj.melt | |
| parent | c4078533fe909a321b117305eb9cad4c013699c7 (diff) | |
| download | gcc-071c6be1f8fa37d3ec6ab6a2e1e459746f839e64.tar.gz | |
2014-10-03 Basile Starynkevitch <basile@starynkevitch.net>
* melt/warmelt-macro.melt (hook_macro_installer): More debug.
* melt/warmelt-normal.melt (normexp_update_current_module_environment_reference): More debug.
* melt/warmelt-outobj.melt (melt_translate_run_macroexpansions_list): More debug.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@215841 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/warmelt-outobj.melt')
| -rw-r--r-- | gcc/melt/warmelt-outobj.melt | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/gcc/melt/warmelt-outobj.melt b/gcc/melt/warmelt-outobj.melt index ca6ff897c94..c1e4e5b8086 100644 --- a/gcc/melt/warmelt-outobj.melt +++ b/gcc/melt/warmelt-outobj.melt @@ -6171,7 +6171,7 @@ if (1) return; :sucme_comment '"at very start" )) ) - (debug "give_normalized_macroexpanded_list ucmeb1=" ucmeb1 "\n.. iniproc=" iniproc) + (debug "give_normalized_macroexpanded_list" " ucmeb1=" ucmeb1 "\n.. iniproc=" iniproc) (code_chunk startmodnam #{ /* give_normalized_macroexpanded_list $STARTMODNAM */ #if HAVE_CLOCK @@ -6213,10 +6213,12 @@ if (1) return; (foreach_pair_component_in_list (xlist) (curpair sexp) - (debug "give_normalized_macroexpanded_list sexp=" sexp "\n.. inienv=" inienv) + (debug "give_normalized_macroexpanded_list" " sexp=" sexp "\n.. inienv=" inienv) (let ( (psloc (if (is_a sexp class_located) (unsafe_get_field :loca_location sexp))) ) + (debug "give_normalized_macroexpanded_list" " psloc=" psloc " sexp=" sexp) + (shortbacktrace_dbg "give_normalized_macroexpanded_list-loop" 15) (multicall (nexp nbind) (normal_exp sexp inienv ncx psloc) ;;; inienv is probably wrong here @@ -7756,18 +7758,19 @@ if (1) return; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun melt_translate_run_macroexpansions_list (lismexp env parmodctx) - :doc #{The utility $MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST + :doc #{The utility function $MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST translates and runs a list of macroexpansions. It is used for - expansion of $DEFMACRO-ed macronames.}# - (debug "melt_translate_run_macroexpansions_list start lismexp=" lismexp - "\n.. env=" env "\n.. parmodctx=" parmodctx) - (shortbacktrace_dbg "melt_translate_run_macroexpansions_list" 12) + expansion of $DEFMACRO-ed macronames, or @code{:macro} $LET bindings.}# + (debug "melt_translate_run_macroexpansions_list" " start lismexp=" lismexp + "\n.. env=" env "\n.. parmodctx=" parmodctx + "\n") + (shortbacktrace_dbg "melt_translate_run_macroexpansions_list" 20) (assert_msg "check env" (is_a env class_environment) env) (when (null lismexp) - (debug "melt_translate_run_macroexpansions_list null lismexp=" lismexp) + (debug "melt_translate_run_macroexpansions_list" " null lismexp=" lismexp) (return ())) (when (not (is_list lismexp)) - (debug "melt_translate_run_macroexpansions_list bad lismexp=" lismexp) + (debug "melt_translate_run_macroexpansions_list" " bad lismexp=" lismexp) (assert_msg "invalid lismexp" () lismexp) (return ())) (let ( (:long num 0) @@ -7779,7 +7782,7 @@ if (1) return; (modnam (get_field :mocx_modulename parmodctx)) (macroenv (get_field :mocx_macroenv parmodctx)) ) - (debug "melt_translate_run_macroexpansions_list env=" env + (debug "melt_translate_run_macroexpansions_list" " env=" env "\n.. macroenv=" macroenv) (code_chunk numchk #{/* melt_translate_run_macroexpansions_list $NUMCHK */ char basbuf_$NUMCHK[64] ; |