diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-06-07 08:24:40 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-06-07 08:24:40 +0000 |
| commit | 4cac5c63e1a1ec9fcbbe6882d98bd7a6da5a6b8f (patch) | |
| tree | 6bef4a0fafdf1b0bc8e378cd449baf7c69384d36 /gcc/testsuite | |
| parent | 058e871a34746b95c1eea067bcf24b79d81861af (diff) | |
| download | gcc-4cac5c63e1a1ec9fcbbe6882d98bd7a6da5a6b8f.tar.gz | |
2013-06-07 Basile Starynkevitch <basile@starynkevitch.net>
* melt/warmelt-debug.melt (dbgout_mapstring_method): Improve.
* melt/warmelt-normal.melt (normexp_hook_call): Fix
parenthesizing.
* testsuite/melt/thookcall.melt: Improve.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@199791 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/melt/thookcall.melt | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/gcc/testsuite/melt/thookcall.melt b/gcc/testsuite/melt/thookcall.melt index e2e2dfa1b93..290bba1d833 100644 --- a/gcc/testsuite/melt/thookcall.melt +++ b/gcc/testsuite/melt/thookcall.melt @@ -26,7 +26,8 @@ (defun testcall_outside () (debug "testcall_outside start") - (let ( (valuekw (hook_named_keyword "VALUE" 0)) + (let ( (valuekw + (hook_named_keyword "VALUE" 0)) ) (debug "testcall_outside valuekw=" valuekw) valuekw)) @@ -38,4 +39,11 @@ (debug "before testcall_outside") (debug "testcall_outside gives=" (testcall_outside)) + +(debug "testing hook_named_keyword in exprchunk hook_named_keyword=" hook_named_keyword + " computed :long=" + (expr_chunk hookeyw_chk :value ##{ /* $hookeyw_chk */ + melthookproc_HOOK_NAMED_KEYWORD ("LONG", (long)0) + }#) + ) ;; eof thookcall.melt |