CMS-370-GCCLIB/gcccrab.h at develop · adesutherland/CMS-370-GCCLIB · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
/**************************************************************************************************/
/* GCCCRAB.H - GCC CRAB FOR GLOBAL VARIABLES NOT STORED IN THE TEXT SEGMENT                       */
/*                                                                                                */
/* Part of GCCLIB - VM/370 CMS Native Std C Library; A Historic Computing Toy                     */
/*                                                                                                */
/* Contributors: See contrib memo                                                                 */
/*                                                                                                */
/* Released to the public domain.                                                                 */
/**************************************************************************************************/

#ifndef GCCCRAB_INCLUDED
#define GCCCRAB_INCLUDED

#ifndef __SIZE_T_DEFINED
#define __SIZE_T_DEFINED
typedef unsigned long size_t;
#endif

/* Function Pointers */
typedef void (EXITFUNC)(int rc); /* declare a exit() function pointer */
typedef void (SIGHANDLER)(int);  /* Signal Handler */
typedef void (USEREXIT)(void);   /* User Exits */

/* The GCCCRAB macro maps the GCC RESLIB Global Area */
typedef struct GCCCRAB GCCCRAB;

/**************************************************************************************************/
/* M U S T   B E   S Y N C E D   W I T H   G C C C R A B   M A C R O                              */
/**************************************************************************************************/
struct GCCCRAB {
    struct CMSCRAB *rootcmscrab;
    struct CMSCRAB *auxstack;
    struct CMSCRAB *dynamicstack;
    EXITFUNC *exitfunc;
    void *dlmspace; /* For DLMALLOC */
    size_t startmemoryusage;
    struct FILE *gstdin;
    struct FILE *gstdout;
    struct FILE *gstderr;
    int gerrno;
    SIGHANDLER **handlers;
    USEREXIT **userexits;
    struct FILE *filehandles;
    char *strtok_old;
    void *process_global;
    char **argv;
    char *argbuffer;
    char (*plist)[8];
    struct EPLIST *eplist;
    int calltype;
    struct EVALBLOK *evalblok;
    int isproc;
    int argc;
    int debug;
};

/* To get the addresses of the crab */
#define GETGCCCRAB() ({GCCCRAB *theCRAB; __asm__("L %0,72(13)" : "=d" (theCRAB)); theCRAB;})

#endif