X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fghc-inplace.c;fp=compiler%2Fghc-inplace.c;h=0000000000000000000000000000000000000000;hb=9412e62942ebab0599c7fb0b358a9d4869647b67;hp=8cddc898a5e7f8a3f04efbf96616c797c7c3d6c3;hpb=e0b93c022e39d07b871e9ed97d40617eb6bee63a;p=ghc-hetmet.git

diff --git a/compiler/ghc-inplace.c b/compiler/ghc-inplace.c
deleted file mode 100644
index 8cddc89..0000000
--- a/compiler/ghc-inplace.c
+++ /dev/null
@@ -1,29 +0,0 @@
-#include <stdio.h>
-#include <stdarg.h>
-#include <stdlib.h>
-#include <string.h>
-#include <unistd.h>
-#include <shell-tools.c>
-
-int main(int argc, char **argv) {
-    char **args;
-    args = malloc(sizeof(char *) * (argc + 4));
-    if (args == NULL) {
-        fprintf(stderr, "Malloc failed\n");
-        exit(1);
-    }
-    args[0] = "GHC_PATH"; /* Gets replaced by sed */
-    args[1] = "-BTOP_ABS"; /* Gets replaced by sed */
-    args[2] = "-dynload";
-    args[3] = "wrapped";
-    if ((argc >= 2) && (strcmp(argv[1], "-v") == 0)) {
-        printf("Using %s %s %s %s\n", args[0], args[1], args[2], args[3]);
-        fflush(stdout);
-    }
-    memcpy(args + 4, argv + 1, sizeof(char *) * (argc - 1));
-    args[argc+3] = NULL;
-    return run(argv[0],
-               "GHC_PATH", /* Gets replaced by sed */
-               argc + 3,
-               args);
-}