From 358d075385f327d85935e798a91deff571091ab7 Mon Sep 17 00:00:00 2001
From: bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 25 Mar 2010 20:52:30 +0000
Subject: 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
---
 gcc/melt/warmelt-base.melt | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

(limited to 'gcc/melt/warmelt-base.melt')

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
-- 
cgit v1.2.1