diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-10-12 16:12:02 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-10-12 16:12:02 +0000 |
| commit | 643facd9f6a214663d088c7441b8c44196177d88 (patch) | |
| tree | 2ec0447a2ace2eba1b3dbb538d4acf38ae4b88ec /gcc | |
| parent | 61b2af6bdbb8b1e29427dbdefab3e6f1a96e7ba9 (diff) | |
| download | gcc-643facd9f6a214663d088c7441b8c44196177d88.tar.gz | |
2013-10-12 Basile Starynkevitch <basile@starynkevitch.net>
* melt/warmelt-normal.melt (normexp_defhook): Improve error
message.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@203488 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ChangeLog.MELT | 4 | ||||
| -rw-r--r-- | gcc/melt/warmelt-normal.melt | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ChangeLog.MELT b/gcc/ChangeLog.MELT index b0140fe8127..31c9bb16aa4 100644 --- a/gcc/ChangeLog.MELT +++ b/gcc/ChangeLog.MELT @@ -1,5 +1,9 @@ 2013-10-12 Basile Starynkevitch <basile@starynkevitch.net> + * melt/warmelt-normal.melt (normexp_defhook): Improve error + message. + +2013-10-12 Basile Starynkevitch <basile@starynkevitch.net> * melt/warmelt-macro.melt (error_at): Assert failure when bootstrapping error. diff --git a/gcc/melt/warmelt-normal.melt b/gcc/melt/warmelt-normal.melt index b5a1455acb5..d9702b15779 100644 --- a/gcc/melt/warmelt-normal.melt +++ b/gcc/melt/warmelt-normal.melt @@ -5158,8 +5158,8 @@ source location.}# (add_nctx_data ncx insdata) (when (is_not_a shobind class_hook_binding) (error_at sloc - "bad DEFHOOK $1, not bound to a hook [nested hooks are prohibited]" - symbname) + "bad hook definition $1, not bound to a hook but $2 [nested hooks are prohibited]" + symbname (get_field :named_name (discrim shobind))) (return)) ;;; fill the named_name of insdata (debug "normexp_defhook namstrdata=" namstrdata) |