From b2445ac5c5d83a8cdedd78d7b80db9eb11012030 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Fri, 17 Aug 2007 17:59:44 +0000 Subject: [PATCH] Make ghc-inplace understand -v If the first arg is -v, make ghc-inplace print out the real GHC path and extra flags it adds --- compiler/ghc-inplace.c | 3 +++ 1 file changed, 3 insertions(+) diff --git a/compiler/ghc-inplace.c b/compiler/ghc-inplace.c index abedefe..0129258 100644 --- a/compiler/ghc-inplace.c +++ b/compiler/ghc-inplace.c @@ -14,6 +14,9 @@ int main(int argc, char **argv) { args[0] = GHC_PATH; args[1] = "-B" TOP_ABS; args[2] = "-fhardwire-lib-paths"; + if ((argc >= 2) && (strcmp(argv[1], "-v") == 0)) { + printf("Using %s %s %s\n", args[0], args[1], args[2]); + } memcpy(args + 3, argv + 1, sizeof(char *) * (argc - 1)); args[argc+2] = NULL; execv(GHC_PATH, args); -- 1.7.10.4