projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
44f8b8b
)
Make ghc-inplace understand -v
author
Ian Lynagh
<igloo@earth.li>
Fri, 17 Aug 2007 17:59:44 +0000
(17:59 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Fri, 17 Aug 2007 17:59:44 +0000
(17:59 +0000)
If the first arg is -v, make ghc-inplace print out the real GHC path
and extra flags it adds
compiler/ghc-inplace.c
patch
|
blob
|
history
diff --git
a/compiler/ghc-inplace.c
b/compiler/ghc-inplace.c
index
abedefe
..
0129258
100644
(file)
--- 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);