diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-07-10 12:02:20 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-07-10 12:02:20 +0000 |
| commit | 0d2b1e9c2d1e15fde0de7861ef490e0221373587 (patch) | |
| tree | 2e7f541d185499039c307c8503c67609893903a7 /gcc/melt/warmelt-base.melt | |
| parent | 902f9095a151d4768759ececae868614d677d5f5 (diff) | |
| download | gcc-0d2b1e9c2d1e15fde0de7861ef490e0221373587.tar.gz | |
2010-07-10 Basile Starynkevitch <basile@starynkevitch.net>
{{tbad-3.melt correctly failing}}
* gcc/melt/warmelt-base.melt: Added string!=
* gcc/melt/warmelt-macro.melt: Added check in mexpand_defclass to
catch redefinition of fields!
* gcc/testsuite/melt/tbad-3.melt: Typo.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@162036 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/warmelt-base.melt')
| -rw-r--r-- | gcc/melt/warmelt-base.melt | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/melt/warmelt-base.melt b/gcc/melt/warmelt-base.melt index ee20f919362..f97cae8aeaf 100644 --- a/gcc/melt/warmelt-base.melt +++ b/gcc/melt/warmelt-base.melt @@ -450,6 +450,11 @@ an integer $I if $I is greater than $N.}# #{melt_string_same(($s1), ($s2))}#) +(defprimitive string!= (s1 s2) :long + :doc #{Test that value strings $S1 and $S2 are not equal as strings.}# + #{!melt_string_same(($s1), ($s2))}#) + + (defprimitive split_string_space (dis :cstring cs) :value :doc #{Split a cstring $CS into a list of space separated strings of discriminant $DIS.}# @@ -1056,6 +1061,7 @@ significant iff ENABLE_CHECKING.}# #{(melt_application_depth() < is_stringconst string_length string= + string!= split_string_space split_string_comma split_string_colon |