ES40: C:/es40/listings/sys/gct_protos.h Source File

00001 /*** MODULE GCT_PROTOS ***/
00002 /******************************************************************************/
00022 /******************************************************************************/
00023 /*
00024 * Author: Fred Kleinsorge
00025 *
00026 *   Modified by:
00027 *
00028 *       X-3     Andy Kuehnel                            19-Dec-1997
00029 *               Don't use GCT_NAMES from here; this structure is
00030 *               no longer defined in gct.h
00031 *
00032 *       X-2     Andy Kuehnel                            13-Nov-1997
00033 *               Add standard header; adopt to vms build environment.
00034 */
00035 #ifndef _GCT_PROTOS_H_
00036 #define _GCT_PROTOS_H_
00037 
00038 #include <ints.h>
00039 #include "gct.h"
00040 
00041 typedef struct _gct_names {
00042   __int64 bits;
00043   char *name;
00044   char fill_5 [4];
00045 } GCT_NAMES;
00046 
00047 /*
00048  * Some handy macros
00049  */
00050 #define _GCT_MAKE_ADDRESS(_gct_o) ((GCT_NODE *)((char *) GCT_POINTER_TO_ROOT + _gct_o));
00051 #define _GCT_MAKE_HANDLE(_gct_a) ((char *) _gct_a - (char *) GCT_POINTER_TO_ROOT);
00052 
00053 #endif