ZealOS/src/Demo/StackGrow.CC

I64 Recurse(I64 n)
{
  if (n)
    return 1+CallStackGrow(0x800,0x1000000,&Recurse,n-1);
  else
    return 0;
}

I64 Recurse2(I64 n)
{
  if (n)
    return 1+Recurse2(n-1);
  else
    return 0;
}

I64 Recurse3(I64 n,I64 lo,I64 hi)
{
  if (lo<=n<hi)
    return 1+Recurse3(n-1,lo,hi);
  else if (n)
    return Recurse3(n-1,lo,hi);
  else
    return 0;
}

#define DEPTH	(2*1024*1024)

U0 StackGrowDemo()
{
  F64 t0;

  t0=tS;
  "%X:%X\n",DEPTH,Recurse(DEPTH);
  "Time:%7.5fs\n",tS-t0;

  //If you know the max stack ahead of time...
  //Recurse2's stack is 16 because you have 1 arg,
  //a return addr and no local variables.
  t0=tS;
  "%X:%X\n",DEPTH,CallStackGrow(DEPTH*16+0x800,DEPTH*16+0x800,&Recurse2,DEPTH);
  "Time:%7.5fs\n",tS-t0;

  //$LK,"CallStackGrow",A="MN:CallStackGrow"$() works with multiple args.
  t0=tS;
  "%X:%X\n",DEPTH,CallStackGrow(DEPTH*32+0x800,DEPTH*32+0x800,
	&Recurse3,DEPTH,1000,2000);
  "Time:%7.5fs\n",tS-t0;
}

StackGrowDemo;

//Be careful because you can fragment memory.