mirror of
https://github.com/nArnoSNES/tcc-65816.git
synced 2024-05-31 22:41:28 +00:00
38 lines
613 B
C
38 lines
613 B
C
/* Origin: hp@bitrange.com
|
|
Test that return values come out right from a 1000-level call chain to
|
|
functions without parameters that each need at least one "long"
|
|
preserved. Exposed problems related to the MMIX port. */
|
|
|
|
long level = 0;
|
|
extern long foo (void);
|
|
extern long bar (void);
|
|
|
|
#ifdef STACK_SIZE
|
|
#define DEPTH ((STACK_SIZE) / 512 + 1)
|
|
#else
|
|
#define DEPTH 500
|
|
#endif
|
|
|
|
int
|
|
main (void)
|
|
{
|
|
if (foo () == -42)
|
|
exit (0);
|
|
|
|
abort ();
|
|
}
|
|
|
|
long
|
|
foo (void)
|
|
{
|
|
long tmp = ++level;
|
|
return bar () + tmp;
|
|
}
|
|
|
|
long
|
|
bar (void)
|
|
{
|
|
long tmp = level;
|
|
return tmp > DEPTH - 1 ? -42 - tmp : foo () - tmp;
|
|
}
|