diff options
Diffstat (limited to 'tests/iii/extern-struct-rejected/program.cps')
| -rw-r--r-- | tests/iii/extern-struct-rejected/program.cps | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/tests/iii/extern-struct-rejected/program.cps b/tests/iii/extern-struct-rejected/program.cps index e7f38d1..eec88a1 100644 --- a/tests/iii/extern-struct-rejected/program.cps +++ b/tests/iii/extern-struct-rejected/program.cps @@ -1,14 +1,10 @@ -// Records cross the EXTERN boundary only as C structs through a pointer type. +// Records cross the EXTERN boundary only as C structs. INCLUDE_OBJ "__libc" TYPE Person DECLARE Name : STRING DECLARE Age : C_INT ENDTYPE TYPE PPerson = ^Person -TYPE Point - DECLARE X : C_INT - DECLARE Y : C_INT -ENDTYPE EXTERN "C" EXTERN_PROCEDURE puts(PPerson) -EXTERN "C" EXTERN_FUNCTION abs(Point) RETURNS C_INT +EXTERN "C" EXTERN_FUNCTION abs(Person) RETURNS C_INT OUTPUT 1 |