Give everything a 64k stack, because my q7 needs it
This commit is contained in:
parent
3aa0d7c724
commit
c3cbb46ba1
|
@ -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 [")"]
|
||||
|
|
|
@ -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;
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue
Block a user