Merge pull request #10 from dfordivam/cmm-externs-8.5

Create directory hierarchy for C compilation
WebGHC · Jul 23, 2018 · ad6bb20 · ad6bb20
2 parents 895006c + bb7ffb4
commit ad6bb20
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
@@ -1200,6 +1200,10 @@ runPhase (RealPhase cc_phase) input_fn dflags
 
         output_fn <- phaseOutputFilename next_phase
 
+        -- we create directories for the object file, because it
+        -- might be a hierarchical module.
+        liftIO $ createDirectoryIfMissing True (takeDirectory output_fn)
+
         let
           more_hcc_opts =
                 -- on x86 the floating point regs have greater precision

diff --git a/rts/RtsSymbols.c b/rts/RtsSymbols.c
@@ -1038,6 +1038,6 @@ RtsSymbolVal rtsSyms[] = {
       // lazy pointers as nonlazy.
       { "dyld_stub_binding_helper", (void*)0xDEADBEEF, false },
 #endif
-#endif /* wasm32_HOST_ARCH */
+#endif /* __wasm__ */
       { 0, 0, false } /* sentinel */
 };