diff options
author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 1999-11-30 17:09:30 +0000 |
---|---|---|
committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 1999-11-30 17:09:30 +0000 |
commit | 71d0a1a1816220a2f0b26593ce9acebff6f600d0 (patch) | |
tree | 8e14d898eb93c3003cad7e6201985ee2ceb72b19 /asmrun/runtime.c | |
parent | 1b3923e514ab9ccc028d5ee53b0c24026fa4e17d (diff) |
dead files
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2654 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
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; -} - |