suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fco2/GenerateC.hs
View File

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

2
fco2/kroc-wrapper-c.c
View File

@ -5,7 +5,7 @@
extern void fco_main (Process *me, Channel *in, Channel *out, Channel *err); extern void fco_main (Process *me, Channel *in, Channel *out, Channel *err);
void _fco_main_init (int *ws) { 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]); (Channel *) ws[1], (Channel *) ws[2], (Channel *) ws[3]);
*((int *) ws[0]) = (int) p; *((int *) ws[0]) = (int) p;
} }