Remove unnecessary C #includes
[ghc-hetmet.git] / driver / gcc / gcc.c
1
2 /* gcc on mingw is hardcoded to use /mingw (which is c:/mingw) to
3    find various files. If this is a different version of mingw to the
4    one that we have in the GHC tree then things can go wrong. We
5    therefore need to add various -B flags to the gcc commandline,
6    so that it uses our in-tree mingw. Hence this wrapper. */
7
8 #include "cwrapper.h"
9 #include "getLocation.h"
10
11 int main(int argc, char** argv) {
12     char *binDir;
13     char *exePath;
14     char *preArgv[4];
15
16     binDir = getExecutablePath();
17     exePath = mkString("%s/realgcc.exe", binDir);
18
19     /* Without these -B args, gcc will still work. However, if you
20        have a mingw installation in c:/mingw then it will use files
21        from that in preference to the in-tree files. */
22     preArgv[0] = mkString("-B%s", binDir);
23     preArgv[1] = mkString("-B%s/../lib", binDir);
24     preArgv[2] = mkString("-B%s/../lib/gcc/mingw32/3.4.5", binDir);
25     preArgv[3] = mkString("-B%s/../libexec/gcc/mingw32/3.4.5", binDir);
26
27     run(exePath, 4, preArgv, argc - 1, argv + 1);
28 }
29