@@ -75,6 +75,7 @@ codegenC' defs out exec incs objs libs flags exports iface dbg
75 libFlags <- getLibFlags
75 libFlags <- getLibFlags
76 incFlags <- getIncFlags
76 incFlags <- getIncFlags
77 envFlags <- getEnvFlags
77 envFlags <- getEnvFlags
78+ let stackFlag = if isWindows then ["-Wl,--stack,16777216"] else []
78 let args = [gccDbg dbg] ++
79 let args = [gccDbg dbg] ++
79 gccFlags iface ++
80 gccFlags iface ++
80 -- # Any flags defined here which alter the RTS API must also be added to config.mk
81 -- # Any flags defined here which alter the RTS API must also be added to config.mk
@@ -85,7 +86,7 @@ codegenC' defs out exec incs objs libs flags exports iface dbg
85 (if not iface then libFlags else []) ++
86 (if not iface then libFlags else []) ++
86 incFlags ++
87 incFlags ++
87 (if not iface then libs else []) ++
88 (if not iface then libs else []) ++
88− flags ++
89+ flags ++ stackFlag ++
89 ["-o", out]
90 ["-o", out]
90-- putStrLn (show args)
91-- putStrLn (show args)
91 exit <- rawSystem comp args
92 exit <- rawSystem comp args