X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fghc-inplace.c;h=8cddc898a5e7f8a3f04efbf96616c797c7c3d6c3;hb=5699ec476d64d48b7fcf6812238406e1eea91bef;hp=59ceae6373532b131969dccbe7b10900fd044405;hpb=7ea43827e739555c23f2b802a6a5eaf2a65570ae;p=ghc-hetmet.git

diff --git a/compiler/ghc-inplace.c b/compiler/ghc-inplace.c
index 59ceae6..8cddc89 100644
--- a/compiler/ghc-inplace.c
+++ b/compiler/ghc-inplace.c
@@ -7,22 +7,23 @@
 
 int main(int argc, char **argv) {
     char **args;
-    args = malloc(sizeof(char *) * (argc + 3));
+    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] = "-fhardwire-lib-paths";
+    args[2] = "-dynload";
+    args[3] = "wrapped";
     if ((argc >= 2) && (strcmp(argv[1], "-v") == 0)) {
-        printf("Using %s %s %s\n", args[0], args[1], args[2]);
+        printf("Using %s %s %s %s\n", args[0], args[1], args[2], args[3]);
         fflush(stdout);
     }
-    memcpy(args + 3, argv + 1, sizeof(char *) * (argc - 1));
-    args[argc+2] = NULL;
+    memcpy(args + 4, argv + 1, sizeof(char *) * (argc - 1));
+    args[argc+3] = NULL;
     return run(argv[0],
                "GHC_PATH", /* Gets replaced by sed */
-               argc + 2,
+               argc + 3,
                args);
 }