projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add -fflatten and -funsafe-skolemize flags
[ghc-hetmet.git]
/
driver
/
ghci
/
ghci.c
diff --git
a/driver/ghci/ghci.c
b/driver/ghci/ghci.c
index
03a8f98
..
414521f
100644
(file)
--- a/
driver/ghci/ghci.c
+++ b/
driver/ghci/ghci.c
@@
-1,14
+1,11
@@
#include "cwrapper.h"
#include "getLocation.h"
#include "cwrapper.h"
#include "getLocation.h"
-#include <errno.h>
-#include <process.h>
#include <stdio.h>
#include <stdlib.h>
#include <stdio.h>
#include <stdlib.h>
-#include <stdarg.h>
-#include <string.h>
int main(int argc, char** argv) {
int main(int argc, char** argv) {
+ char *binDir;
char *exePath;
char *preArgv[1];
char *exePath;
char *preArgv[1];
@@
-18,7
+15,8
@@
int main(int argc, char** argv) {
fflush(stdout);
}
fflush(stdout);
}
- exePath = "ghc.exe";
+ binDir = getExecutablePath();
+ exePath = mkString("%s/ghc.exe", binDir);
preArgv[0] = "--interactive";
run(exePath, 1, preArgv, argc - 1, argv + 1);
preArgv[0] = "--interactive";
run(exePath, 1, preArgv, argc - 1, argv + 1);