diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-04-15 07:55:36 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-04-15 07:55:36 +0000 |
| commit | d0e40fa758fe489136df65d6d09fb4f43e25b76a (patch) | |
| tree | fa1770c689a3ff10232573bfd2d02d995153f887 /gcc/testsuite | |
| parent | cbf0c07d37f176b497957725c5f45b4f149a320c (diff) | |
| download | gcc-d0e40fa758fe489136df65d6d09fb4f43e25b76a.tar.gz | |
2011-04-15 Basile Starynkevitch <basile@starynkevitch.net>
* testsuite/melt/tvariadic-1.melt: Remove file.
* melt/warmelt-macro.melt:
(class_source_variadic_application,class_source_defvariadic): Mark
classes as obsolete.
(expand_variadicexpr): Remove function.
(macroexpand_1): Don't call it.
(mexpand_defvariadic): Make it obsolete.
* melt/warmelt-normal.melt (normexp_defvariadic): Remove function.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@172470 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/melt/tvariadic-1.melt | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/gcc/testsuite/melt/tvariadic-1.melt b/gcc/testsuite/melt/tvariadic-1.melt deleted file mode 100644 index 0f5f9c320c0..00000000000 --- a/gcc/testsuite/melt/tvariadic-1.melt +++ /dev/null @@ -1,37 +0,0 @@ -; -*- lisp -*- -;; file tvariadic-1.melt - -#| run in buildir/gcc - ./cc1 -fmelt-mode=runfile -fmelt-module-path=melt-modules:. \ - -fmelt-source-path=melt-sources:.:$GCCMELT_SOURCE/gcc/melt \ - -fmelt-tempdir=/tmp \ - -fmelt-arg=$GCCMELT_SOURCE/gcc/testsuite/melt/tvariadic-1.melt \ - -fmelt-debug empty-file-for-melt.c -|# - -(defun initial-vari (v0) - (list v0)) - -(defun value-vari (l v) - (list_append l v)) - -(defun long-vari (l :long n) - (list_append l (make_integerbox discr_integer l))) - -(defun final-vari (l) - (list_to_multiple l discr_multiple)) - -(defvariadic myvariadic (v0) - :initial initial-vari - :value value-vari - :long long-vari - :final final-vari) - -(defun testvariadic (x) - (debug_msg x "testvariadic start") - (let ((l (myvariadic 'a 1 'b))) - (debug_msg l "testvariadic result"))) - -(testvariadic 'foo) - -;; eof tvariadic-1.melt |