Clean up `#include`s in the compiler
authorJohn Ericson <git@JohnEricson.me>
Tue, 10 Sep 2019 04:15:48 +0000 (00:15 -0400)
committerJohn Ericson <git@JohnEricson.me>
Sat, 5 Oct 2019 04:11:58 +0000 (00:11 -0400)
 - Remove unneeded ones

 - Use <..> for inter-package.
   Besides general clean up, helps distinguish between the RTS we link
   against vs the RTS we compile for.

16 files changed:
compiler/GHC/StgToCmm/Closure.hs
compiler/HsVersions.h
compiler/cbits/genSym.c
compiler/ghci/ByteCodeInstr.hs
compiler/ghci/keepCAFsForGHCi.c
compiler/main/CodeOutput.hs
compiler/main/DriverPipeline.hs
compiler/main/SysTools/ExtraObj.hs
compiler/nativeGen/PPC/CodeGen.hs
compiler/nativeGen/SPARC/CodeGen.hs
compiler/nativeGen/X86/CodeGen.hs
compiler/parser/cutils.c
compiler/parser/cutils.h
compiler/prelude/PrelRules.hs
compiler/prelude/TysWiredIn.hs
compiler/utils/Binary.hs

index b56b06f..8552bfa 100644 (file)
@@ -62,8 +62,6 @@ module GHC.StgToCmm.Closure (
         staticClosureNeedsLink,
     ) where
 
-#include "../includes/MachDeps.h"
-
 #include "HsVersions.h"
 
 import GhcPrelude
index daeec9d..d488a0f 100644 (file)
@@ -9,11 +9,6 @@ you will screw up the layout where they are used in case expressions!
 
 #endif
 
-/* Pull in the autoconf defines (HAVE_FOO), and all the platform defines
- * for this build (foo_HOST_ARCH etc.)
- */
-#include "ghcconfig.h"
-
 #define GLOBAL_VAR(name,value,ty)  \
 {-# NOINLINE name #-};             \
 name :: IORef (ty);                \
index 6943ab1..769c093 100644 (file)
@@ -1,5 +1,5 @@
 #include <assert.h>
-#include "Rts.h"
+#include <Rts.h>
 #include "Unique.h"
 
 static HsInt GenSymCounter = 0;
index 4347aa3..c386ece 100644 (file)
@@ -10,7 +10,6 @@ module ByteCodeInstr (
   ) where
 
 #include "HsVersions.h"
-#include "../includes/MachDeps.h"
 
 import GhcPrelude
 
index 2348233..ba635b0 100644 (file)
@@ -1,4 +1,4 @@
-#include "Rts.h"
+#include <Rts.h>
 
 // This file is only included in the dynamic library.
 // It contains an __attribute__((constructor)) function (run prior to main())
index 4109e50..96a754d 100644 (file)
@@ -224,12 +224,12 @@ outputForeignStubs dflags mod location stubs
 
             -- wrapper code mentions the ffi_arg type, which comes from ffi.h
             ffi_includes
-              | platformMisc_libFFI $ platformMisc dflags = "#include \"ffi.h\"\n"
+              | platformMisc_libFFI $ platformMisc dflags = "#include <ffi.h>\n"
               | otherwise = ""
 
         stub_h_file_exists
            <- outputForeignStubs_help stub_h stub_h_output_w
-                ("#include \"HsFFI.h\"\n" ++ cplusplus_hdr) cplusplus_ftr
+                ("#include <HsFFI.h>\n" ++ cplusplus_hdr) cplusplus_ftr
 
         dumpIfSet_dyn dflags Opt_D_dump_foreign
                       "Foreign export stubs" stub_c_output_d
@@ -237,7 +237,7 @@ outputForeignStubs dflags mod location stubs
         stub_c_file_exists
            <- outputForeignStubs_help stub_c stub_c_output_w
                 ("#define IN_STG_CODE 0\n" ++
-                 "#include \"Rts.h\"\n" ++
+                 "#include <Rts.h>\n" ++
                  rts_includes ++
                  ffi_includes ++
                  cplusplus_hdr)
index 3840394..87128c2 100644 (file)
@@ -33,6 +33,7 @@ module DriverPipeline (
    linkingNeeded, checkLinkInfo, writeInterfaceOnlyMode
   ) where
 
+#include <ghcplatform.h>
 #include "HsVersions.h"
 
 import GhcPrelude
index c930389..1323693 100644 (file)
@@ -93,7 +93,7 @@ mkExtraObjToLinkIntoBinary dflags = do
                   _                      -> exeMain
 
     exeMain = vcat [
-        text "#include \"Rts.h\"",
+        text "#include <Rts.h>",
         text "extern StgClosure ZCMain_main_closure;",
         text "int main(int argc, char *argv[])",
         char '{',
@@ -119,7 +119,7 @@ mkExtraObjToLinkIntoBinary dflags = do
         ]
 
     dllMain = vcat [
-        text "#include \"Rts.h\"",
+        text "#include <Rts.h>",
         text "#include <windows.h>",
         text "#include <stdbool.h>",
         char '\n',
index ad8c18b..5f85297 100644 (file)
@@ -21,7 +21,6 @@ module PPC.CodeGen (
 where
 
 #include "HsVersions.h"
-#include "../includes/MachDeps.h"
 
 -- NCG stuff:
 import GhcPrelude
index 7c862ff..e24180e 100644 (file)
@@ -18,7 +18,6 @@ module SPARC.CodeGen (
 where
 
 #include "HsVersions.h"
-#include "../includes/MachDeps.h"
 
 -- NCG stuff:
 import GhcPrelude
index 864013e..670950d 100644 (file)
@@ -30,7 +30,6 @@ module X86.CodeGen (
 where
 
 #include "HsVersions.h"
-#include "../includes/MachDeps.h"
 
 -- NCG stuff:
 import GhcPrelude
index a146176..fb7e3f7 100644 (file)
@@ -3,9 +3,9 @@ These utility routines are used various
 places in the GHC library.
 */
 
-#include "Rts.h"
+#include <Rts.h>
 
-#include "HsFFI.h"
+#include <HsFFI.h>
 
 void
 enableTimingStats( void )       /* called from the driver */
index 009fffa..1d91049 100644 (file)
@@ -4,7 +4,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#include "HsFFI.h"
+#include <HsFFI.h>
 
 void enableTimingStats( void );
 void setHeapSize( HsInt size );
index d44c940..ffee79d 100644 (file)
@@ -24,7 +24,6 @@ module PrelRules
 where
 
 #include "HsVersions.h"
-#include "../includes/MachDeps.h"
 
 import GhcPrelude
 
index 0798f05..be2c7eb 100644 (file)
@@ -127,7 +127,6 @@ module TysWiredIn (
     ) where
 
 #include "HsVersions.h"
-#include "MachDeps.h"
 
 import GhcPrelude
 
index 164549f..503dd31 100644 (file)
@@ -64,9 +64,6 @@ module Binary
 
 #include "HsVersions.h"
 
--- The *host* architecture version:
-#include "../includes/MachDeps.h"
-
 import GhcPrelude
 
 import {-# SOURCE #-} Name (Name)