diff options
| -rw-r--r-- | gcc/ChangeLog.MELT | 3 | ||||
| -rw-r--r-- | gcc/melt/warmelt-outobj.melt | 13 |
2 files changed, 14 insertions, 2 deletions
diff --git a/gcc/ChangeLog.MELT b/gcc/ChangeLog.MELT index cf8dd9fe0bb..d13ec8775ac 100644 --- a/gcc/ChangeLog.MELT +++ b/gcc/ChangeLog.MELT @@ -1,3 +1,6 @@ +2009-05-10 Basile Starynkevitch <basile@starynkevitch.net> + * melt/warmelt-outobj.melt: added noop command. + 2009-05-08 Basile Starynkevitch <basile@starynkevitch.net> * basilys.c (load_checked_dynamic_module_index) can accept null md5src. Added more warnings. diff --git a/gcc/melt/warmelt-outobj.melt b/gcc/melt/warmelt-outobj.melt index bd6f053f839..56c344f2a36 100644 --- a/gcc/melt/warmelt-outobj.melt +++ b/gcc/melt/warmelt-outobj.melt @@ -3161,10 +3161,18 @@ (debug_msg modulnam "after compilation genmod_command modulnam") (generate_melt_module modsrcname modulnam) ))) -(install_initial_command (stringconst2val discr_string "genmod") genmod_command) -;;;; +(initial_command_install genmod_command "genmod") + +;;;;;;;;;;;;;;;; +;;;;; +(defun noop_command (dispatcher arg secarg moduldata) + (message_dbg "starting noop_command") +) +(initial_command_install noop_command "noop") +;;;; +;;;;;;;;;;;;;;;; (defun compileinit_command (dispatcher arg secarg moduldata) (message_dbg "starting compileinit_command") (debug_msg arg "start compileinit_command arg") @@ -3207,6 +3215,7 @@ (return) )) + (install_initial_command (stringconst2val discr_string "compileinit") compileinit_command) (install_initial_command (stringconst2val discr_string "translateinit") compileinit_command) |