1 files changed, 0 insertions, 126 deletions
diff --git a/testasmcomp/main.c b/testasmcomp/main.c
deleted file mode 100644
index 035572a677..0000000000
--- a/testasmcomp/main.c
+++ /dev/null
@@ -1,126 +0,0 @@
-/***********************************************************************/
-/*                                                                     */
-/*                           Objective Caml                            */
-/*                                                                     */
-/*            Xavier Leroy, projet Cristal, INRIA Rocquencourt         */
-/*                                                                     */
-/*  Copyright 1996 Institut National de Recherche en Informatique et   */
-/*  en Automatique.  All rights reserved.  This file is distributed    */
-/*  under the terms of the Q Public License version 1.0.               */
-/*                                                                     */
-/***********************************************************************/
-
-/* $Id$ */
-
-#include <stddef.h>
-#include <stdio.h>
-#include <stdlib.h>
-
-void caml_array_bound_error(void)
-{
-  fprintf(stderr, "Fatal error: out-of-bound access in array or string\n");
-  exit(2);
-}
-
-void print_string(char * s)
-{
-  fputs(s, stdout);
-}
-
-void printf_int(char * fmt, int arg)
-{
-  printf(fmt, arg);
-}
-
-#ifdef SORT
-
-int cmpint(const void * i, const void * j)
-{
-  long vi = *((long *) i);
-  long vj = *((long *) j);
-  if (vi == vj) return 0;
-  if (vi < vj) return -1;
-  return 1;
-}
-
-#endif
-
-int main(int argc, char **argv)
-{
-#ifdef UNIT_INT
-  { extern int FUN();
-    extern int call_gen_code();
-    printf("%d\n", call_gen_code(FUN));
-  }
-#else
-  if (argc < 2) {
-    fprintf(stderr, "Usage: %s [int arg]\n", argv[0]);
-    exit(2);
-  }
-#ifdef INT_INT
-  { extern int FUN();
-    extern int call_gen_code();
-    printf("%d\n", call_gen_code(FUN, atoi(argv[1])));
-  }
-#endif
-#ifdef INT_FLOAT
-  { extern double FUN();
-#ifdef __mc68020__
-#define call_gen_code call_gen_code_float
-#endif
-    extern double call_gen_code();
-    printf("%f\n", call_gen_code(FUN, atoi(argv[1])));
-  }
-#endif
-#ifdef SORT
-  { extern void FUN();
-    extern void call_gen_code();
-    long n;
-    long * a, * b;
-    long i;
-
-    srand(argc >= 3 ? atoi(argv[2]) : time((char *) 0));
-    n = atoi(argv[1]);
-    a = (long *) malloc(n * sizeof(long));
-    for (i = 0 ; i < n; i++) a[i] = rand() & 0xFFF;
-#ifdef DEBUG
-    for (i = 0; i < n; i++) printf("%ld ", a[i]); printf("\n");
-#endif
-    b = (long *) malloc(n * sizeof(long));
-    for (i = 0; i < n; i++) b[i] = a[i];
-    call_gen_code(FUN, 0, n-1, a);
-#ifdef DEBUG
-    for (i = 0; i < n; i++) printf("%ld ", a[i]); printf("\n");
-#endif
-    qsort(b, n, sizeof(long), cmpint);
-    for (i = 0; i < n; i++) {
-      if (a[i] != b[i]) { printf("Bug!\n"); return 2; }
-    }
-    printf("OK\n");
-  }
-#endif
-#endif
-#ifdef CHECKBOUND
-  { extern void checkbound1(), checkbound2();
-    extern void call_gen_code();
-    long x, y;
-    x = atoi(argv[1]);
-    if (argc >= 3) {
-      y = atoi(argv[2]);
-      if ((unsigned long) x < (unsigned long) y)
-        printf("Should not trap\n");
-      else
-        printf("Should trap\n");
-      call_gen_code(checkbound2, y, x);
-    } else {
-      if (2 < (unsigned long) x)
-        printf("Should not trap\n");
-      else
-        printf("Should trap\n");
-      call_gen_code(checkbound1, x);
-    }
-    printf("OK\n");
-  }
-#endif
-  return 0;
-}