diff options
Diffstat (limited to 'asmrun/runtime.c')
-rw-r--r-- | asmrun/runtime.c | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/asmrun/runtime.c b/asmrun/runtime.c deleted file mode 100644 index b8061b46c..000000000 --- a/asmrun/runtime.c +++ /dev/null @@ -1,51 +0,0 @@ -/* A very simplified runtime system for the native code compiler */ - -#include <stdio.h> -#include <stdlib.h> -#include "mlvalues.h" - -extern int caml_start_program(); - -value print_int(n) - value n; -{ - printf("%d", n>>1); - return 1; -} - -value print_string(s) - value s; -{ - printf("%s", (char *) s); - return 1; -} - -value print_char(c) - value c; -{ - printf("%c", c>>1); - return 1; -} - -static struct { - value header; - char data[16]; -} match_failure_id = { - ((16 / sizeof(value)) << 11) + 0xFC, - "Match_failure\0\0\2" -}; - -char * Match_failure = match_failure_id.data; - -int main(argc, argv) - int argc; - char ** argv; -{ - init_heap(); - if (caml_start_program() != 0) { - fprintf(stderr, "Uncaught exception\n"); - exit(2); - } - return 0; -} - |