mirror of
https://github.com/Zeal-Operating-System/ZealOS.git
synced 2024-12-27 15:56:30 +00:00
52 lines
1 KiB
HolyC
Executable file
52 lines
1 KiB
HolyC
Executable file
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 address 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.
|