![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to getfun.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / b / bin / c / n2|
Return to getfun.c CVS log | Up to [MW Coherent from dump] / coherent / b / bin / c / n2 |
1.1 root 1: /*
2: * The routines in this file handle
3: * the reading in of functions. The internal data
4: * structures are built and threaded together.
5: */
6: #ifdef vax
7: #include "INC$LIB:cc2.h"
8: #else
9: #include "cc2.h"
10: #endif
11:
12: /*
13: * Read in a function.
14: * Pack it into the internal data structure.
15: * Copy non shared stuff straight through to save
16: * both space and time. Switch tables are in the
17: * shared data, so this works w.r.t. label reference
18: * counts. The PROLOG item has been already read.
19: */
20: getfunc()
21: {
22: register INS *ip;
23:
24: ins.i_fp = &ins;
25: ins.i_bp = &ins;
26: for (;;) {
27: ip = getins();
28: if (dotseg<0 || isshared(dotseg)==0
29: || (ip->i_type==ENTER && isshared(ip->i_seg)==0)) {
30: genins(ip);
31: free((char *) ip);
32: continue;
33: }
34: ip->i_fp = &ins;
35: ip->i_bp = ins.i_bp;
36: ins.i_bp->i_fp = ip;
37: ins.i_bp = ip;
38: if (ip->i_type == EPILOG)
39: break;
40: }
41: }
42:
43: /*
44: * This routine reads an item from
45: * the input file and constructs and INS node
46: * to hold it. A pointer to the INS node is
47: * returned. Any format errors are fatal.
48: */
49: INS *
50: getins()
51: {
52: register INS *ip;
53: register int op;
54:
55: loop:
56: op = bget();
57: switch (op) {
58:
59: case ENTER:
60: ip = newi(sizeof(INS));
61: ip->i_seg = bget();
62: break;
63:
64: case FNAME:
65: sget(file, NFNAME);
66: goto loop;
67:
68: case LINE:
69: line = iget();
70: ip = newi(sizeof(INS));
71: ip->i_line = line;
72: break;
73:
74: case DLABEL:
75: gendbgt(1);
76: goto loop;
77:
78: case AUTOS:
79: getautos();
80: goto loop;
81:
82: case BLOCK:
83: ip = newi(sizeof(INS));
84: ip->i_len = zget();
85: break;
86:
87: case LLABEL:
88: ip = newi(sizeof(INS));
89: ip->i_labno = iget();
90: ip->i_sp = NULL;
91: ip->i_refc = 0;
92: break;
93:
94: #ifdef KLUDGE
95: case SGUESS:
96: {
97: register SYM *sp;
98: int seg;
99: sget(id, NCSYMB);
100: seg = bget();
101: sp = glookup(id, 0);
102: if ((sp->s_flag&S_DEF) == 0)
103: sp->s_seg = seg;
104: goto loop;
105: }
106:
107: #endif
108: case EPILOG:
109: ip = newi(sizeof(INS));
110: break;
111:
112: case ALIGN:
113: ip = newi(sizeof(INS));
114: ip->i_align = bget();
115: break;
116:
117: case CODE:
118: return (getcode());
119:
120: case EOF:
121: cfatal("unexpected EOF");
122:
123: default:
124: cbotch("bad temporary file opcode %d", op);
125: }
126: ip->i_type = op;
127: ip->i_fp = ip->i_bp = NULL;
128: return (ip);
129: }
130:
131: /*
132: * Return true if segment "s" is
133: * shared. All local label references must be
134: * in a shared segment, or label reference counting
135: * will get screwed up. This includes the dispatch
136: * tables of switch statements.
137: */
138: isshared(s)
139: {
140: if (s==SCODE || s==SPURE)
141: return (1);
142: return (0);
143: }
144:
145: /*
146: * Allocate a new INS node.
147: */
148: INS *
149: newi(n)
150: {
151: register INS *ip;
152:
153: if ((ip = (INS *) malloc(n)) == NULL)
154: cnomem("newi");
155: return (ip);
156: }
157:
158: /*
159: * Allocate a new INS node with
160: * an `n' element `i_af' field on the end.
161: */
162: INS *
163: newn(n)
164: {
165: return (newi(sizeof(INS)+n*sizeof(struct afield)));
166: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.