diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-03-25 20:52:30 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-03-25 20:52:30 +0000 |
| commit | 358d075385f327d85935e798a91deff571091ab7 (patch) | |
| tree | c7782632f87894247247add521db0c0c6b1a545e /gcc/melt/warmelt-base.melt | |
| parent | 684e37941d90ebb0cc34439f29f2ef2c13c744a8 (diff) | |
| download | gcc-358d075385f327d85935e798a91deff571091ab7.tar.gz | |
2010-03-25 Basile Starynkevitch <basile@starynkevitch.net>
* gcc/melt/warmelt-first.melt: install_method warns when bad arguments.
* gcc/melt/warmelt-base.melt: added warningmsg_strv
* gcc/melt/warmelt-normatch.melt: added debug msg...
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@157729 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/warmelt-base.melt')
| -rw-r--r-- | gcc/melt/warmelt-base.melt | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/gcc/melt/warmelt-base.melt b/gcc/melt/warmelt-base.melt index 7ff500fcb15..06a4bbb51f6 100644 --- a/gcc/melt/warmelt-base.melt +++ b/gcc/melt/warmelt-base.melt @@ -283,10 +283,19 @@ number $NUM opaque location number $LOC.}# ) -;; signal a plain error + + +;; signal a plain warning with string +(defprimitive warningmsg_strv (:cstring cmsg :value strv) :void + :doc #{Show a plain warning with raw message string $CMSG and string value $STRV.}# + #{warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ($cmsg), + melt_string_str((melt_ptr_t)($strv)))}# + ) + +;; signal a plain error with string (defprimitive errormsg_strv (:cstring cmsg :value strv) :void :doc #{Show a plain error with raw message string $CMSG and string value $STRV.}# - #{error("MELT ERROR MSG [#%ld]::: %s - %s", melt_dbgcounter, ($cmsg), + #{error ("MELT ERROR MSG [#%ld]::: %s - %s", melt_dbgcounter, ($cmsg), melt_string_str((melt_ptr_t)($strv)))}# ) @@ -984,6 +993,7 @@ significant iff ENABLE_CHECKING.}# #{(melt_application_depth() < warning_strv warning_plain warningmsg_plain + warningmsg_strv errormsg_plain errormsg_strv inform_strv |