diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-18 09:23:43 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-18 09:23:43 +0000 |
| commit | 80728af14b7712e97341cc5fd09005024ee36842 (patch) | |
| tree | ce44a07457fa852b2d4163088b588b15513cd614 /gcc/melt/warmelt-first.melt | |
| parent | 367b759e93d06b725d2172237c420e3329d949c4 (diff) | |
| download | gcc-80728af14b7712e97341cc5fd09005024ee36842.tar.gz | |
2014-01-18 Basile Starynkevitch <basile@starynkevitch.net>
* melt-runtime.h: Improve comment regarding melt_assermsg.
* melt/warmelt-first.melt (register_option): Inform that it is
obsolete. To be removed.
(multiple_sort): Add a comment that it should be replaced by a
function from warmelt-base.melt
* melt/warmelt-base.melt: Add thru cheader an #include of <vector>
and <algorithm>, and a global declaration of
Melt_Sort_Compare_Index class in the generated code.
(multiple_sort_new): New function which should replace the old
multiple_sort primitive. Uses std::stable_sort with
Melt_Sort_Compare_Index. See
http://stackoverflow.com/q/21201685/841108 for details.
* melt/warmelt-normatch.melt: Remove register_option for
alternate_match.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@206748 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/warmelt-first.melt')
| -rw-r--r-- | gcc/melt/warmelt-first.melt | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/gcc/melt/warmelt-first.melt b/gcc/melt/warmelt-first.melt index 94cd5d0ed1e..49819c5eead 100644 --- a/gcc/melt/warmelt-first.melt +++ b/gcc/melt/warmelt-first.melt @@ -1485,6 +1485,7 @@ an integer $I if $I is greater than $N.}# :doc #{Put into tuple $MUL at rank $N the component $V. Avoid circularities!}# #{meltgc_multiple_put_nth((melt_ptr_t)($mul), ($n), (melt_ptr_t)($V))}#) ;; sort a multiple, the compare function should return a boxed integer +;; should be replaced by a function in warmelt-base.melt (defprimitive multiple_sort (mul cmp discrm) :value :doc #{Gives the sorted tuple from tuple $MUL using compare function $CMP (returning a boxed integer) and discriminant $DISCRM.}# @@ -3143,8 +3144,15 @@ Keyword is :cstring.}# (defun register_option (optsymb opthelp optfun) - (void) - ) + (let ( (symnam (get_field :named_name optsymb)) + ) + (code_chunk fail_register_option_chk + #{ /* register_option $FAIL_REGISTER_OPTION_CHK */ + inform (UNKNOWN_LOCATION, + "register_option of %s is obsolete", + melt_string_str($SYMNAM)) ; + }#) + )) |