@@ -75,6 +75,7 @@ codegenC' defs out exec incs objs libs flags exports iface dbg
7575 libFlags <- getLibFlags
7676 incFlags <- getIncFlags
7777 envFlags <- getEnvFlags
78+ let stackFlag = if isWindows then ["-Wl,--stack,16777216"] else []
7879 let args = [gccDbg dbg] ++
7980 gccFlags iface ++
8081 -- # 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
8586 (if not iface then libFlags else []) ++
8687 incFlags ++
8788 (if not iface then libs else []) ++
88− flags ++
89+ flags ++ stackFlag ++
8990 ["-o", out]
9091-- putStrLn (show args)
9192 exit <- rawSystem comp args