diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-10-05 11:07:43 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-10-08 09:46:09 +0100 |
| commit | 829b17970d2eea0a7b568585109febb27bbca5c4 (patch) | |
| tree | 1db81dc260adbd17886215327afb1f7101e930bb /testsuite/tests/rts/T5423_cmm.cmm | |
| parent | 00a672e60507205c5dc5312a38485668dc61bec4 (diff) | |
| download | haskell-829b17970d2eea0a7b568585109febb27bbca5c4.tar.gz | |
Update to new Cmm syntax
Diffstat (limited to 'testsuite/tests/rts/T5423_cmm.cmm')
| -rw-r--r-- | testsuite/tests/rts/T5423_cmm.cmm | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/testsuite/tests/rts/T5423_cmm.cmm b/testsuite/tests/rts/T5423_cmm.cmm index e9944785e6..9be0e152e5 100644 --- a/testsuite/tests/rts/T5423_cmm.cmm +++ b/testsuite/tests/rts/T5423_cmm.cmm @@ -1,5 +1,16 @@ -test { +#include "Cmm.h" +test (W_ r1, + W_ r2, + W_ r3, + W_ r4, + W_ r5, + W_ r6, + W_ r7, + W_ r8, + W_ r9, + W_ r10) + { foreign "C" printf("%d %d %d %d %d %d %d %d %d %d\n", - R1, R2, R3, R4, R5, R6, R7, R8, R9, R10); - RET_N(R10); -} + r1, r2, r3, r4, r5, r6, r7, r8, r9, r10); + return (r10); + } |