"Simon Marlow" <[EMAIL PROTECTED]> writes:
> Sure, it shouldn't be too hard. You need to generate a .c file
> containing the ghc_rts_opts setting, and then compile & link it into the
> final binary. It's just a matter of plumbing the various bits together
> in GHC's front end.
If it helps, here is a little C program used by nhc98 to generate
much the same type of hook.
Regards,
Malcolm
main(int argc, char **argv)
{
int prefix = 1;
int i = 0;
char *s;
if (argc==1) {
i = DefaultHeap;
} else if ((argc==2) && (*argv[1]=='T')) {
i = 5 * DefaultHeap;
} else {
s = argv[argc-1];
while(isdigit(*s)) {
i = i*10 + *s++ - '0';
}
switch(*s) {
case 'k':
case 'K': prefix *= 1000; s++; break;
case 'm':
case 'M': prefix *= 1000000; s++; break;
}
switch(*s) {
case 'b': case 'B': s++; i = i*prefix/sizeof(unsigned); break;
case 'w': case 'W': s++; i = i*prefix; break;
default: i = i*prefix/sizeof(unsigned); break;
}
}
printf("int hpSize = %d;\n",i);
exit(0);
}
_______________________________________________
Glasgow-haskell-users mailing list
Glasgow-haskell-users@haskell.org
http://www.haskell.org/mailman/listinfo/glasgow-haskell-users
