Give everything a 64k stack, because my q7 needs it

This commit is contained in:
Adam Sampson 2007-04-21 00:08:57 +00:00
parent 3aa0d7c724
commit c3cbb46ba1
2 changed files with 2 additions and 2 deletions

View File

@ -1070,7 +1070,7 @@ genProcAlloc (A.ProcCall m n as)
= do tell ["ProcAlloc ("]
genName n
-- FIXME stack size fixed here
let stackSize = 4096
let stackSize = 65536
tell [", ", show stackSize, ", ", show $ numCArgs as]
genActuals as
tell [")"]

View File

@ -5,7 +5,7 @@
extern void fco_main (Process *me, Channel *in, Channel *out, Channel *err);
void _fco_main_init (int *ws) {
Process *p = ProcAlloc (fco_main, 4096, 3,
Process *p = ProcAlloc (fco_main, 65536, 3,
(Channel *) ws[1], (Channel *) ws[2], (Channel *) ws[3]);
*((int *) ws[0]) = (int) p;
}