1.1 --- a/templates/native.c Thu Nov 10 18:19:17 2016 +0100
1.2 +++ b/templates/native.c Thu Nov 10 18:49:15 2016 +0100
1.3 @@ -1,4 +1,4 @@
1.4 -#include <stdlib.h>
1.5 +#include <stdlib.h> /* calloc, exit */
1.6 #include "types.h"
1.7 #include "exceptions.h"
1.8 #include "ops.h"
1.9 @@ -7,6 +7,17 @@
1.10 #include "progtypes.h"
1.11 #include "main.h"
1.12
1.13 +/* Native functions. */
1.14 +
1.15 +__attr __fn_native__exit(__attr __args[])
1.16 +{
1.17 + #define status (__args[1])
1.18 +
1.19 + exit(__load_via_object(status.value, __pos___data__).intvalue);
1.20 + return __builtins___none_None;
1.21 + #undef status
1.22 +}
1.23 +
1.24 __attr __fn_native__is(__attr __args[])
1.25 {
1.26 #define x (__args[1])