rempve some unused files

[ghc-hetmet.git] / ghc / misc / test-arch.c

diff --git a/ghc/misc/test-arch.c b/ghc/misc/test-arch.c
deleted file mode 100644 (file)
index d0e9666..0000000
--- a/ghc/misc/test-arch.c
+++ /dev/null
@@ -1,37 +0,0 @@
-/*
-    Compile this with GCC on a new platform, to learn various
-    things about argument-passing, return-returning, stack
-    layout, etc.  WDP 95/05
-*/
-
-extern long int foo (long int, double, void *, char *, double, long int, char, long int);
-extern double   bar (char, float, long int, long int, char *, char **);
-
-long int
-foo (long int a, double b, void *c, char *d, double e, long int f, char g, long int h)
-{
-    __asm__ volatile ("--- BEGIN ---");
-    bar(*d, (float) b, a, f, d, (char **) d);
-    __asm__ volatile ("--- END ---");
-}
-
-double
-bar (char a, float b, long int c, long int d, char *e, char **f)
-{
-    __asm__ volatile ("--- BEGIN ---");
-   foo(c, (double) b, (void *) 0, e, 0.0, d, a, d);
-    __asm__ volatile ("--- END ---");
-}
-
-double 
-baz(w)
-    int w;
-{
-    int x[1000];
-    int y;
-
-    for(y = 0; y < 1000; y++)
-       w += x[y];
-
-    return ((double) w);
-}