Return to setjmp_t.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / gc

Annotation of OpenXM_contrib2/asir2000/gc/setjmp_t.c, Revision 1.1

1.1     ! noro        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: /* Boehm, September 21, 1995 5:39 pm PDT */
        !            14:
        !            15: /* Check whether setjmp actually saves registers in jmp_buf. */
        !            16: /* If it doesn't, the generic mark_regs code won't work.     */
        !            17: /* Compilers vary as to whether they will put x in a        */
        !            18: /* (callee-save) register without -O.  The code is          */
        !            19: /* contrived such that any decent compiler should put x in   */
        !            20: /* a callee-save register with -O.  Thus it is is           */
        !            21: /* recommended that this be run optimized.  (If the machine  */
        !            22: /* has no callee-save registers, then the generic code is    */
        !            23: /* safe, but this will not be noticed by this piece of       */
        !            24: /* code.)                                                   */
        !            25: #include <stdio.h>
        !            26: #include <setjmp.h>
        !            27: #include <string.h>
        !            28: #include "gcconfig.h"
        !            29:
        !            30: #ifdef OS2
        !            31: /* GETPAGESIZE() is set to getpagesize() by default, but that  */
        !            32: /* doesn't really exist, and the collector doesn't need it.    */
        !            33: #define INCL_DOSFILEMGR
        !            34: #define INCL_DOSMISC
        !            35: #define INCL_DOSERRORS
        !            36: #include <os2.h>
        !            37:
        !            38: int
        !            39: getpagesize()
        !            40: {
        !            41:     ULONG result[1];
        !            42:
        !            43:     if (DosQuerySysInfo(QSV_PAGE_SIZE, QSV_PAGE_SIZE,
        !            44:                        (void *)result, sizeof(ULONG)) != NO_ERROR) {
        !            45:        fprintf(stderr, "DosQuerySysInfo failed\n");
        !            46:        result[0] = 4096;
        !            47:     }
        !            48:     return((int)(result[0]));
        !            49: }
        !            50: #endif
        !            51:
        !            52: struct {char a_a; char * a_b;} a;
        !            53:
        !            54: int * nested_sp()
        !            55: {
        !            56:     int dummy;
        !            57:
        !            58:     return(&dummy);
        !            59: }
        !            60:
        !            61: main()
        !            62: {
        !            63:        int dummy;
        !            64:        long ps = GETPAGESIZE();
        !            65:        jmp_buf b;
        !            66:        register int x = (int)strlen("a");  /* 1, slightly disguised */
        !            67:        static int y = 0;
        !            68:
        !            69:        printf("This appears to be a %s running %s\n", MACH_TYPE, OS_TYPE);
        !            70:        if (nested_sp() < &dummy) {
        !            71:          printf("Stack appears to grow down, which is the default.\n");
        !            72:          printf("A good guess for STACKBOTTOM on this machine is 0x%lx.\n",
        !            73:                 ((unsigned long)(&dummy) + ps) & ~(ps-1));
        !            74:        } else {
        !            75:          printf("Stack appears to grow up.\n");
        !            76:          printf("Define STACK_GROWS_UP in gc_private.h\n");
        !            77:          printf("A good guess for STACKBOTTOM on this machine is 0x%lx.\n",
        !            78:                 ((unsigned long)(&dummy) + ps) & ~(ps-1));
        !            79:        }
        !            80:        printf("Note that this may vary between machines of ostensibly\n");
        !            81:        printf("the same architecture (e.g. Sun 3/50s and 3/80s).\n");
        !            82:        printf("On many machines the value is not fixed.\n");
        !            83:        printf("A good guess for ALIGNMENT on this machine is %ld.\n",
        !            84:               (unsigned long)(&(a.a_b))-(unsigned long)(&a));
        !            85:
        !            86:        /* Encourage the compiler to keep x in a callee-save register */
        !            87:        x = 2*x-1;
        !            88:        printf("");
        !            89:        x = 2*x-1;
        !            90:        setjmp(b);
        !            91:        if (y == 1) {
        !            92:            if (x == 2) {
        !            93:                printf("Generic mark_regs code probably wont work\n");
        !            94: #              if defined(SPARC) || defined(RS6000) || defined(VAX) || defined(MIPS) || defined(M68K) || defined(I386) || defined(NS32K) || defined(RT)
        !            95:                    printf("Assembly code supplied\n");
        !            96: #              else
        !            97:                    printf("Need assembly code\n");
        !            98: #              endif
        !            99:            } else if (x == 1) {
        !           100:                printf("Generic mark_regs code may work\n");
        !           101:            } else {
        !           102:                printf("Very strange setjmp implementation\n");
        !           103:            }
        !           104:        }
        !           105:        y++;
        !           106:        x = 2;
        !           107:        if (y == 1) longjmp(b,1);
        !           108:        return(0);
        !           109: }
        !           110:
        !           111: int g(x)
        !           112: int x;
        !           113: {
        !           114:        return(x);
        !           115: }