#include <stdio.h>
#include <setjmp.h>
#include <string.h>
#include "private/gcconfig.h"
#ifdef OS2
#define INCL_DOSFILEMGR
#define INCL_DOSMISC
#define INCL_DOSERRORS
#include <os2.h>
int
getpagesize()
{
ULONG result[1];
if (DosQuerySysInfo(QSV_PAGE_SIZE, QSV_PAGE_SIZE,
(void *)result, sizeof(ULONG)) != NO_ERROR) {
fprintf(stderr, "DosQuerySysInfo failed\n");
result[0] = 4096;
}
return((int)(result[0]));
}
#endif
struct {char a_a; char * a_b;} a;
int * nested_sp()
{
int dummy;
return(&dummy);
}
main()
{
int dummy;
long ps = GETPAGESIZE();
jmp_buf b;
register int x = (int)strlen("a");
static int y = 0;
printf("This appears to be a %s running %s\n", MACH_TYPE, OS_TYPE);
if (nested_sp() < &dummy) {
printf("Stack appears to grow down, which is the default.\n");
printf("A good guess for STACKBOTTOM on this machine is 0x%lx.\n",
((unsigned long)(&dummy) + ps) & ~(ps-1));
} else {
printf("Stack appears to grow up.\n");
printf("Define STACK_GROWS_UP in gc_private.h\n");
printf("A good guess for STACKBOTTOM on this machine is 0x%lx.\n",
((unsigned long)(&dummy) + ps) & ~(ps-1));
}
printf("Note that this may vary between machines of ostensibly\n");
printf("the same architecture (e.g. Sun 3/50s and 3/80s).\n");
printf("On many machines the value is not fixed.\n");
printf("A good guess for ALIGNMENT on this machine is %ld.\n",
(unsigned long)(&(a.a_b))-(unsigned long)(&a));
x = 2*x-1;
printf("");
x = 2*x-1;
setjmp(b);
if (y == 1) {
if (x == 2) {
printf("Generic mark_regs code probably wont work\n");
# if defined(SPARC) || defined(RS6000) || defined(VAX) || defined(MIPS) || defined(M68K) || defined(I386) || defined(NS32K) || defined(RT)
printf("Assembly code supplied\n");
# else
printf("Need assembly code\n");
# endif
} else if (x == 1) {
printf("Generic mark_regs code may work\n");
} else {
printf("Very strange setjmp implementation\n");
}
}
y++;
x = 2;
if (y == 1) longjmp(b,1);
return(0);
}
int g(x)
int x;
{
return(x);
}