1 files changed, 0 insertions, 106 deletions
diff --git a/byterun/fail.c b/byterun/fail.c
deleted file mode 100644
index 8f0b00e9db..0000000000
--- a/byterun/fail.c
+++ /dev/null
@@ -1,106 +0,0 @@
-/* Raising exceptions from C. */
-
-#include "alloc.h"
-#include "fail.h"
-#include "gc.h"
-#include "memory.h"
-#include "mlvalues.h"
-#include "signals.h"
-#include "stacks.h"
-
-struct longjmp_buffer * external_raise;
-value exn_bucket;
-
-void mlraise(v)
-     value v;
-{
-  leave_blocking_section();
-  exn_bucket = v;
-  longjmp(external_raise->buf, 1);
-}
-
-void raise_constant(tag)
-     value tag;
-{
-  value bucket;
-  Push_roots (a, 1);
-  a[0] = tag;
-  bucket = alloc (1, 0);
-  Field(bucket, 0) = a[0];
-  Pop_roots ();
-  mlraise(bucket);
-}
-
-void raise_with_arg(tag, arg)
-     value tag;
-     value arg;
-{
-  value bucket;
-  Push_roots (a, 2);
-  a[0] = tag;
-  a[1] = arg;
-  bucket = alloc (2, 0);
-  Field(bucket, 0) = a[0];
-  Field(bucket, 1) = a[1];
-  Pop_roots ();
-  mlraise(bucket);
-}
-
-void raise_with_string(tag, msg)
-     value tag;
-     char * msg;
-{
-  raise_with_arg(tag, copy_string(msg));
-}
-
-void failwith (msg)
-     char * msg;
-{
-  raise_with_string(Field(global_data, FAILURE_EXN), msg);
-}
-
-void invalid_argument (msg)
-     char * msg;
-{
-  raise_with_string(Field(global_data, INVALID_EXN), msg);
-}
-
-/* Problem: we can't use raise_constant, because it allocates and
-   we're out of memory... The following is a terrible hack that works
-   because global_data[OUT_OF_MEMORY_EXN] is in the old generation
-   (because global_data was read with intern_val), hence stays at
-   a fixed address */
-
-static struct {
-  header_t hdr;
-  value exn;
-} out_of_memory_bucket;
-
-void raise_out_of_memory()
-{
-  out_of_memory_bucket.hdr = Make_header(1, 0, White);
-  out_of_memory_bucket.exn = Field(global_data, OUT_OF_MEMORY_EXN);
-  mlraise((value) &(out_of_memory_bucket.exn));
-}
-
-void raise_sys_error(msg)
-     value msg;
-{
-  raise_with_arg(Field(global_data, SYS_ERROR_EXN), msg);
-}
-
-void raise_end_of_file()
-{
-  raise_constant(Field(global_data, END_OF_FILE_EXN));
-}
-
-void raise_zero_divide()
-{
-  raise_constant(Field(global_data, ZERO_DIVIDE_EXN));
-}
-
-void raise_not_found()
-{
-  raise_constant(Field(global_data, NOT_FOUND_EXN));
-}
-