gc-7.2/extra/setjmp_t.c

   1 /*
   2  * Copyright (c) 1991-1994 by Xerox Corporation.  All rights reserved.
   3  *
   4  * THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED
   5  * OR IMPLIED.  ANY USE IS AT YOUR OWN RISK.
   6  *
   7  * Permission is hereby granted to use or copy this program
   8  * for any purpose,  provided the above notices are retained on all copies.
   9  * Permission to modify the code and to distribute modified code is granted,
  10  * provided the above notices are retained, and a notice that the code was
  11  * modified is included with the above copyright notice.
  12  */
  13
  14 /* Check whether setjmp actually saves registers in jmp_buf. */
  15 /* If it doesn't, the generic mark_regs code won't work.     */
  16 /* Compilers vary as to whether they will put x in a         */
  17 /* (callee-save) register without -O.  The code is           */
  18 /* contrived such that any decent compiler should put x in   */
  19 /* a callee-save register with -O.  Thus it is               */
  20 /* recommended that this be run optimized.  (If the machine  */
  21 /* has no callee-save registers, then the generic code is    */
  22 /* safe, but this will not be noticed by this piece of       */
  23 /* code.)  This test appears to be far from perfect.         */
  24 #include <stdio.h>
  25 #include <setjmp.h>
  26 #include <string.h>
  27 #include "private/gc_priv.h"
  28
  29 #ifdef OS2
  30 /* GETPAGESIZE() is set to getpagesize() by default, but that   */
  31 /* doesn't really exist, and the collector doesn't need it.     */
  32 #define INCL_DOSFILEMGR
  33 #define INCL_DOSMISC
  34 #define INCL_DOSERRORS
  35 #include <os2.h>
  36
  37 int getpagesize(void)
  38 {
  39     ULONG result[1];
  40
  41     if (DosQuerySysInfo(QSV_PAGE_SIZE, QSV_PAGE_SIZE,
  42                         (void *)result, sizeof(ULONG)) != NO_ERROR) {
  43         fprintf(stderr, "DosQuerySysInfo failed\n");
  44         result[0] = 4096;
  45     }
  46     return((int)(result[0]));
  47 }
  48 #endif
  49
  50 struct {
  51   char a_a;
  52   char * a_b;
  53 } a;
  54
  55 int * nested_sp(void)
  56 {
  57     volatile int sp;
  58     sp = (int)&sp;
  59     return (int *)sp;
  60 }
  61
  62 int main(void)
  63 {
  64     volatile word sp;
  65     long ps = GETPAGESIZE();
  66     jmp_buf b;
  67     register int x = (int)strlen("a");  /* 1, slightly disguised */
  68     static int y = 0;
  69
  70     sp = (word)(&sp);
  71     printf("This appears to be a %s running %s\n", MACH_TYPE, OS_TYPE);
  72     if (nested_sp() < (int *)sp) {
  73       printf("Stack appears to grow down, which is the default.\n");
  74       printf("A good guess for STACKBOTTOM on this machine is 0x%lx.\n",
  75              ((unsigned long)sp + ps) & ~(ps-1));
  76     } else {
  77       printf("Stack appears to grow up.\n");
  78       printf("Define STACK_GROWS_UP in gc_private.h\n");
  79       printf("A good guess for STACKBOTTOM on this machine is 0x%lx.\n",
  80              ((unsigned long)sp + ps) & ~(ps-1));
  81     }
  82     printf("Note that this may vary between machines of ostensibly\n");
  83     printf("the same architecture (e.g. Sun 3/50s and 3/80s).\n");
  84     printf("On many machines the value is not fixed.\n");
  85     printf("A good guess for ALIGNMENT on this machine is %ld.\n",
  86            (unsigned long)(&(a.a_b))-(unsigned long)(&a));
  87
  88     printf("The following is a very dubious test of one root marking"
  89            " strategy.\n");
  90     printf("Results may not be accurate/useful:\n");
  91     /* Encourage the compiler to keep x in a callee-save register */
  92     x = 2*x-1;
  93     printf("");
  94     x = 2*x-1;
  95     setjmp(b);
  96     if (y == 1) {
  97       if (x == 2) {
  98         printf("Setjmp-based generic mark_regs code probably wont work.\n");
  99         printf("But we rarely try that anymore.  If you have getcontect()\n");
 100         printf("this probably doesn't matter.\n");
 101       } else if (x == 1) {
 102           printf("Setjmp-based register marking code may work.\n");
 103       } else {
 104           printf("Very strange setjmp implementation.\n");
 105       }
 106     }
 107     y++;
 108     x = 2;
 109     if (y == 1) longjmp(b,1);
 110     printf("Some GC internal configuration stuff: \n");
 111     printf("\tWORDSZ = %d, ALIGNMENT = %d, GC_GRANULE_BYTES = %d\n",
 112            WORDSZ, ALIGNMENT, GC_GRANULE_BYTES);
 113     printf("\tUsing one mark ");
 114 #   if defined(USE_MARK_BYTES)
 115       printf("byte");
 116 #   else
 117       printf("bit");
 118 #   endif
 119     printf(" per ");
 120 #   if defined(MARK_BIT_PER_OBJ)
 121       printf("object.\n");
 122 #   elif defined(MARK_BIT_PER_GRANULE)
 123       printf("granule.\n");
 124 #   endif
 125 #   ifdef THREAD_LOCAL_ALLOC
 126       printf("Thread local allocation enabled.\n");
 127 #   endif
 128 #   ifdef PARALLEL_MARK
 129       printf("Parallel marking enabled.\n");
 130 #   endif
 131     return(0);
 132 }
 133
 134 int g(int x)
 135 {
 136     return(x);
 137 }