Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_FS_1_19910112
-
kcc-4/kcc/ccdata.c
There are 8 other files named ccdata.c in the archive. Click here to see a list.
/* CCDATA.C - KCC data allocations for vars and tables
**
** All changes after version 76 (8/8/85), unless otherwise specified, are
** Copyright 1985, 1986 by Ken Harrenstien, SRI International.
*/
/* [SRI-NIC]SS:<C.KCC.CC>CCDATA.C.89, 17-Dec-85 08:04:23, Edit by KLH */
/* Rationalized names of constants and structures */
/* <KCC.CC>CCDATA.C.64, 17-Mar-85 08:26:04, Edit by KRONJ */
/* Multiple defaults error shouldn't print a number */
/* <KCC.CC>CCDATA.C.54, 11-Mar-85 10:13:27, Edit by KRONJ */
/* EMEMBER gets a string argument */
/* <KCC.CC>CCDATA.C.48, 7-Mar-85 17:58:31, Edit by KRONJ */
/* Separate built in types from reserved words */
/* Type hash table now can have different size from type table */
/* <KCC.CC>CCDATA.C.47, 7-Mar-85 16:49:39, Edit by KRONJ */
/* Add void type; make vertical tab act like space */
/* <KCC.CC>CCDATA.C.46, 3-Mar-85 17:04:26, Edit by SATZ */
/* Add illegal init. error message */
/* <KCC.CC>CCDATA.C.45, 28-Feb-85 14:06:22, Edit by SATZ */
/* Remove include for stdio since cc.h includes it */
/* <KCC.CC>CCDATA.C.44, 24-Feb-85 02:02:00, Edit by SATZ */
/* Add an out of memory error */
/* <KCC.CC>CCDATA.C.43, 18-Feb-85 13:22:34, Edit by SATZ */
/* Create an error for bad BLOCK pseudo op */
/* <KCC.CC>CCDATA.C.42, 18-Feb-85 11:40:51, Edit by SATZ */
/* Add error message for unmatched #endif */
/* <KCC.CC>CCDATA.C.41, 17-Feb-85 11:43:17, Edit by SATZ */
/* Change "Problem with file" to "Can't open file" */
/* <KCC.CC>CCDATA.C.40, 2-Feb-85 01:17:08, Edit by SATZ */
/* Structure errors output the member causing the error */
/* <KCC.CC>CCDATA.C.37, 3-Jan-85 21:47:03, Edit by KRONJ */
/* ENOTARG now types the losing symbol name */
/* <KCC.CC>CCDATA.C.33, 1-Jan-85 18:25:38, Edit by KRONJ */
/* Forward struct error is now struct size unavailable error */
/* <KCC.CC>CCDATA.C.32, 30-Dec-84 21:48:21, Edit by KRONJ */
/* EINIT error for initializer mismatch */
/* <KCC.CC>CCDATA.C.31, 29-Dec-84 17:14:04, Edit by KRONJ */
/* EULABEL error message */
/* <KCC.CC>CCDATA.C.29, 29-Dec-84 14:11:21, Edit by KRONJ */
/* storage for vars in cc.h is here not in cc.c */
/* <KCC.ATBAT>CCDATA.C.3, 28-Nov-84 21:42:42, Edit by DAGONE */
/* add error string that forward referenced struct need to be ptr */
/* <KCC.CC>CCDATA.C.27, 4-Sep-84 20:25:19, Edit by SATZ */
/* add in error string for too many case statements */
/*
** ccdata - variables and constant storage for kcc
** (C) 1981 K. Chen
*/
#include "ccsite.h" /* Get our site-dependent stuff */
/* Define various externals here */
#define EXT
#include "cc.h" /* Define various externals. Note that this */
/* also includes ccparm.h for our size parameters! */
/* Allocate storage for tables in cc.h */
NODE nodes[MAXNODE]; /* Allocate parse tree node table */
SYMBOL *htable[MAXHSH]; /* Symbol hash table */
TYPE *ttable[THASHSIZE]; /* hash table of types */
TYPE types[TYPES]; /* table of type records */
#include "cclex.h" /* More externals */
#define GEXT
#include "ccgen.h"
#define ERRSTRINGS /* Make errstr[] table */
#include "ccerr.h"
#define CHARTABLE /* Make _ctab[] table */
#include "ccchar.h"
/* Make output string table of PDP-10 pseudo-ops, indexed by P_ vals */
char *popostr[] = {
#define opcode(iname,oname,f,a,b,c,d) oname,
#include "cccode.h"
#undef opcode
};
/* Make flag table for PDP-10 pseudo-ops, indexed by P_ vals */
int popflg[] = {
#define opcode(iname,oname,f,a,b,c,d) f,
#include "cccode.h"
#undef opcode
};
/* Make reg change table for PDP-10 pseudo-ops, indexed by P_ vals */
int popprc[] = {
#define opcode(iname,oname,f,prcf,b,c,d) prcf,
#include "cccode.h"
#undef opcode
};
/*
** Initial switch values, table allocations, and file locations.
*/
int tgcpu[TGCPU_N] = { /* Target CPU types (default to source) */
CPU_KA, CPU_KI, /* Set to values from c-env.h */
CPU_KL, /* KS ok if any KL ok */
CPU_KL, /* KL0 ok if ditto */
CPU_KL }; /* KLX ok if ditto */
int tgsys = /* Target System type (default to source) */
#if SYS_T20
TGSYS_TOPS20;
#elif SYS_T10
TGSYS_TOPS10;
#elif SYS_TENEX
TGSYS_TENEX;
#elif SYS_WAITS
TGSYS_WAITS;
#elif SYS_ITS
TGSYS_ITS;
#else
TGSYS_NULL;
#endif
int tgasm = SWI_TGASM; /* Target Assembler type (site-dep default) */
int tgcsize = TGSIZ_CHAR; /* Target Char size in bits */
int tgcpw = TGSIZ_WORD/TGSIZ_CHAR; /* Target # Chars Per Word */
int tgcmask = (1<<TGSIZ_CHAR)-1; /* Target Char Mask */
int clevel = SWI_CLEV; /* Default C implementation level */
int clevkcc = 1; /* Always default to ask for KCC extensions */
int cvercode = 2; /* Current C code version (for $$CVER) */
int cverlib = 2; /* Current C library version (for $$CVER) */
char *predefs[MAXPREDEF]; /* Pointers to -D macro predefs */
char *preundefs[MAXPREDEF]; /* Pointers to -U macro pre-undefs */
char *incdirs[MAXINCDIR]; /* Pointers to -I search paths (prefix) */
char *postincdirs[MAXINCDIR]; /* Pointers to -I search paths (postfix) */
char *sprefix = HF_PREFIX; /* Where to find <> include files */
char *spstfix = HF_POSTFIX; /* Other end of <> files (SAIL, T10) */
char *libprefix = LIB_PREFIX; /* Where to find -l library files */
char *libpostfix = LIB_POSTFIX; /* other end of library file spec */
char *asmhfile = NULL; /* User-specified asm hdr file loc */
/*
** Reserved words. [K&R p.180], [H&S 2.6], ANSI
*/
RESWD rwtab[] = {
/* Type Specifiers */
"void", T_VOID,
"struct", T_STRUCT,
"union", T_UNION,
"enum", T_ENUM,
"float", T_FLOAT,
"double", T_DOUBLE,
"char", T_CHAR,
"short", T_SHORT,
"int", T_INT,
"long", T_LONG,
"unsigned", T_UNSIGNED,
"signed", T_SIGNED + RWF_ANSI, /* ANSI addition */
"const", T_CONST + RWF_ANSI, /* ANSI addition */
"volatile", T_VOLATILE+ RWF_ANSI, /* ANSI addition */
"_KCCtype_char6",T_CHAR6 + RWF_KCC, /* KCC extension */
"_KCCtype_char7",T_CHAR7 + RWF_KCC, /* KCC extension */
"_KCCtype_char8",T_CHAR8 + RWF_KCC, /* KCC extension */
"_KCCtype_char9",T_CHAR9 + RWF_KCC, /* KCC extension */
"_KCCtype_char18",T_CHAR18+ RWF_KCC, /* KCC extension */
/* Storage Classes */
"auto", T_AUTO,
"extern", T_EXTERN,
"register", T_REGISTER,
"typedef", T_TYPEDEF,
"static", T_STATIC,
/* Compound Statement keywords */
"goto", Q_GOTO,
"return", Q_RETURN,
"break", Q_BREAK,
"continue", Q_CONTINUE,
"if", Q_IF,
"else", T_ELSE,
"for", Q_FOR,
"do", Q_DO,
"while", Q_WHILE,
"switch", Q_SWITCH,
"case", Q_CASE,
"default", Q_DEFAULT,
/* Oddball keywords */
"sizeof", T_SIZEOF, /* unary operator */
"asm", Q_ASM +RWF_KCC, /* asm construct (KCC extension) */
NULL, NULL };
/* Various tables for dealing with C data types */
/* Make _tfltab[] table for parser/generator.
** Note that this is where the TF_BYTE flag gets added in.
*/
int _tfltab[] = {
#define typespec(ts,str,bsiz,fl) \
fl | ((bsiz && bsiz < TGSIZ_WORD) ? TF_BYTE : 0),
alltypemacro /* Expand list of types from CCSYM.H */
#undef typespec
};
char *tsnames[] = {
#define typespec(ts,str,bsiz,fl) str,
alltypemacro /* Expand list of types from CCSYM.H */
#undef typespec
};
/* TYPSIZTAB - Type size tables.
** This is somewhat machine-dependent and so may someday be moved
** to a CCTARG machine-specific file. There is one entry for each basic type.
** Observe that (somewhat unfortunately) sizes here are expressed in
** terms of words, not bytes such as sizeof would return.
** The TYPBSIZTAB table is in terms of bits, not words or bytes.
** These tables should only be referenced by CCSYM during initialization.
*/
int typsiztab[TS_MAX] = {
#define typespec(ts,str,bsiz,fl) ((bsiz+TGSIZ_WORD-1) / TGSIZ_WORD),
alltypemacro /* Expand list of types from CCSYM.H */
#undef typespec
};
int typbsiztab[TS_MAX] = {
#define typespec(ts,str,bsiz,fl) bsiz,
alltypemacro /* Expand list of types from CCSYM.H */
#undef typespec
};
/* Table of pointers to oft-used basic types such as int, char, etc.
** Initialized by CCSYM. Some "variables" such as inttype are
** actually macros which point to entries in this table. Not all types
** have their entries initialized.
*/
TYPE *typeptr[TS_MAX];
/*
** Tokens.
**
** This table is referenced by CCDECL, CCFOLD, CCGEN, CCSTMT.
** It is indexed by the token/node-op value (T_,Q_,N_).
** See the included file for details on the values.
*/
TOKEN tok[] = {
#define tokdef0(name,type,prec) type,prec
#define tokdef(name,type,prec) ,type,prec
#include "cctoks.h"
#undef tokdef
#undef tokdef0
};
/* Define a table of token/node op names. */
char *nopname[] = {
#define tokdef0(a,b,c) "a"
#define tokdef(a,b,c) ,"a"
#include "cctoks.h"
#undef tokdef
#undef tokdef0
};
int nopmax = (sizeof nopname)/sizeof(char *) - 1; /* Highest valid code */