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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
/*
* Prototypes for functions in icont.
*/
void addinvk (char *name, int n);
void addlfile (char *name);
pointer alloc (unsigned int n);
void alsolink (char *name);
int blocate (word s);
struct node *c_str_leaf (int type,struct node *loc_model, char *c);
void codegen (struct node *t);
void constout (FILE *fd);
void dummyda (void);
struct fentry *flocate (word id);
struct fileparts *fparse (char *s);
void gencode (void);
void gentables (void);
int getdec (void);
int getopr (int ac, int *cc);
word getid (void);
long getint (int i, word *wp);
int getlab (void);
struct lfile *getlfile (struct lfile * *lptr);
int getoct (void);
int getopc (char * *id);
double getreal (void);
word getrest (void);
word getstr (void);
word getstrlit (int l);
struct gentry *glocate (word id);
void gout (FILE *fd);
struct node *i_str_leaf (int type,struct node *loc_model,char *c,int d);
int ilink (char * *ifiles,char *outname);
void initglob (void);
void install (char *name,int flag,int argcnt);
word instid (char *s);
struct node *int_leaf (int type,struct node *loc_model,int c);
int klookup (char *id);
int lexeql (int l,char *s1,char *s2);
void lfatal (char *s1,char *s2);
void linit (void);
void lmfree (void);
void loc_init (void);
void locinit (void);
void lout (FILE *fd);
void lwarn (char *s1,char *s2,char *s3);
char *makename (char *dest,char *d,char *name,char *e);
void newline (void);
int nextchar (void);
void nfatal (struct node *n,char *s1,char *s2);
void putconst (int n,int flags,int len,word pc, union xval *valp);
void putfield (word fname,struct gentry *gp,int fnum);
struct gentry *putglobal (word id,int flags,int nargs, int procid);
char *putid (int len);
word putident (int len, int install);
int putlit (char *id,int idtype,int len);
int putloc (char *id,int id_type);
void putlocal (int n,word id,int flags,int imperror,
word procname);
void quit (char *msg);
void quitf (char *msg,char *arg);
void readglob (void);
void report (char *s);
unsigned int round2 (unsigned int n);
void rout (FILE *fd,char *name);
char *salloc (char *s);
void scanrefs (void);
void sizearg (char *arg,char * *argv);
int smatch (char *s,char *t);
pointer tcalloc (unsigned int m,unsigned int n);
void tfatal (char *s1,char *s2);
void tmalloc (void);
void tmfree (void);
void tminit (void);
int trans (char * *ifiles, char *tgtdir);
pointer trealloc (pointer table, pointer tblfree,
unsigned int *size, int unit_size,
int min_units, char *tbl_name);
struct node *tree1 (int type);
struct node *tree2 (int type,struct node *loc_model);
struct node *tree3 (int type,struct node *loc_model,struct node *c);
struct node *tree4 (int type,struct node *loc_model,struct node *c,struct node *d);
struct node *tree5 (int type,struct node *loc_model,
struct node *c,struct node *d,
struct node *e);
struct node *tree6 (int type,struct node *loc_model,
struct node *c, struct node *d,
struct node *e,struct node *f);
struct node *buildarray (struct node *a,struct node *lb,
struct node *e, struct node *rb);
void treeinit (void);
void tsyserr (char *s);
void writecheck (int rc);
void yyerror (int tok,struct node *lval,int state);
int yylex (void);
int yyparse (void);
#ifdef DeBugTrans
void cdump (void);
void gdump (void);
void ldump (void);
#endif /* DeBugTrans */
#ifdef DeBugLinker
void idump (char *c);
#endif /* DeBugLinker */
|