lib.cps « multifile-extern « i « tests - cie-pseudocode-compiler.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/tests/i/multifile-extern/lib.cps

blob: 52ccf1ff837250ad6e4f82ea56947512663e32f2 (plain)


INCLUDE_OBJ "__libc"
TYPE NativeInt = C_TYPE("int")
EXTERN "C" EXTERN_FUNCTION abs(NativeInt) RETURNS C_INT
FUNCTION Twice(N : C_INT) RETURNS C_INT
    RETURN abs(N) + abs(N)
ENDFUNCTION