1 files changed, 83 insertions, 0 deletions
diff --git a/asmrun/startup.c b/asmrun/startup.c
new file mode 100644
index 000000000..780850bb3
--- /dev/null
+++ b/asmrun/startup.c
@@ -0,0 +1,83 @@
+/***********************************************************************/
+/*                                                                     */
+/*                           Objective Caml                            */
+/*                                                                     */
+/*         Xavier Leroy and Damien Doligez, INRIA Rocquencourt         */
+/*                                                                     */
+/*  Copyright 1996 Institut National de Recherche en Informatique et   */
+/*  Automatique.  Distributed only by permission.                      */
+/*                                                                     */
+/***********************************************************************/
+
+/* $Id$ */
+
+/* Start-up code */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include "gc.h"
+#include "gc_ctrl.h"
+#include "misc.h"
+#include "mlvalues.h"
+#include "sys.h"
+
+header_t atom_table[256];
+char * static_data_start, * static_data_end;
+
+static void init_atoms()
+{
+  int i;
+  extern struct { char * begin; char * end; } caml_data_segments[];
+
+  for (i = 0; i < 256; i++) atom_table[i] = Make_header(0, i, White);
+  static_data_start = caml_data_segments[0].begin;
+  static_data_end = caml_data_segments[0].end;
+  for (i = 1; caml_data_segments[i].begin != 0; i++) {
+    if (caml_data_segments[i].begin < static_data_start)
+      static_data_start = caml_data_segments[i].begin;
+    if (caml_data_segments[i].end > static_data_end)
+      static_data_end = caml_data_segments[i].end;
+  }
+}
+
+extern value caml_start_program P((void));
+
+int caml_main(argc, argv)
+     int argc;
+     char * argv[];
+{
+  int verbose_init = 0, percent_free_init = Percent_free_def;
+  long minor_heap_init = Minor_heap_def, heap_chunk_init = Heap_chunk_def;
+  char * opt;
+  value retcode;
+
+  init_ieee_floats();
+#ifdef DEBUG
+  verbose_init = 1;
+#endif
+  /* Runtime options.  The option letter is the first letter of the
+     last word of the ML name of the option (see [lib/gc.mli]). */
+  opt = getenv ("CAMLRUNPARAM");
+  if (opt != NULL){
+    while (*opt != '\0'){
+      switch (*opt++){
+      case 's': sscanf (opt, "=%ld", &minor_heap_init); break;
+      case 'i': sscanf (opt, "=%ld", &heap_chunk_init); break;
+      case 'o': sscanf (opt, "=%d", &percent_free_init); break;
+      case 'v': sscanf (opt, "=%d", &verbose_init); break;
+      }
+    }
+  }
+  init_gc (minor_heap_init, heap_chunk_init, percent_free_init, verbose_init);
+  init_atoms();
+  init_signals();
+  sys_init(argv);
+  retcode = caml_start_program();
+  if (retcode == 0) {
+    sys_exit(Val_int(0));
+  } else {
+    fatal_error_arg("Fatal error: uncaught exception %s.\n",
+                    String_val(Field(Field(retcode, 0), 0)));
+  }
+}
+