summaryrefslogtreecommitdiffstats
path: root/asmrun/runtime.c
diff options
context:
space:
mode:
authorJacques Garrigue <garrigue at math.nagoya-u.ac.jp>1999-11-30 17:09:30 +0000
committerJacques Garrigue <garrigue at math.nagoya-u.ac.jp>1999-11-30 17:09:30 +0000
commit71d0a1a1816220a2f0b26593ce9acebff6f600d0 (patch)
tree8e14d898eb93c3003cad7e6201985ee2ceb72b19 /asmrun/runtime.c
parent1b3923e514ab9ccc028d5ee53b0c24026fa4e17d (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.c51
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;
-}
-