![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to size.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / cfront / ooptcfront|
Return to size.c CVS log | Up to [Research Unix] / researchv10no / cmd / cfront / ooptcfront |
1.1 root 1: /*ident "@(#)ctrans:src/size.c 1.1.4.3" */
2: /*********************************************************************
3:
4: C++ source for cfront, the C++ compiler front-end
5: written in the computer science research center of Bell Labs
6:
7: Copyright (c) 1984 AT&T, Inc. All rigths Reserved
8: THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T, INC.
9:
10: size.c:
11:
12: initialize alignment and sizeof "constants"
13:
14: **********************************************************************/
15:
16: #include "cfront.h"
17: #include "size.h"
18:
19: // default sizes:
20: // Note: #if doesn't work on all systems
21: #ifdef u3b
22: #define Abbb
23: #endif
24: #ifdef u3b2
25: #define Abbb
26: #endif
27: #ifdef u3b5
28: #define Abbb
29: #endif
30: #ifdef u3b15
31: #define Abbb
32: #endif
33: #ifdef pyr
34: #define Abbb
35: #endif
36:
37:
38: #ifdef alliant
39: #define Am68
40: #endif
41: #ifdef apollo
42: #define Am68
43: #endif
44: #if defined(sun2) || defined(mc68010)
45: #define Am68
46: #endif
47: #if defined(sun3) || defined(mc68020)
48: #define Am68
49: #endif
50: #if defined(mc68k) || defined(hp9000s200) || defined(hp9000s300)
51: #define Am68
52: #endif
53:
54: #ifdef iAPX286
55: #ifdef LARGE
56: #define Ai286l
57: #endif
58: #endif
59:
60: #ifdef Abbb
61: /* AT&T 3Bs */
62: #define DBI_IN_WORD 32
63: #define DBI_IN_BYTE 8
64: #define DSZ_CHAR 1
65: #define DAL_CHAR 1
66: #define DSZ_SHORT 2
67: #define DAL_SHORT 2
68: #define DSZ_INT 4
69: #define DAL_INT 4
70: #define DSZ_LONG 4
71: #define DAL_LONG 4
72: #define DSZ_FLOAT 4
73: #define DAL_FLOAT 4
74: #define DSZ_DOUBLE 8
75: #define DAL_DOUBLE 4
76: #define DSZ_LDOUBLE 8
77: #define DAL_LDOUBLE 4
78: #define DSZ_STRUCT 4
79: #define DAL_STRUCT 4
80: //#define DSZ_FRAME 4
81: //#define DAL_FRAME 4
82: #define DSZ_WORD 4
83: #define DSZ_WPTR 4
84: #define DAL_WPTR 4
85: #define DSZ_BPTR 4
86: #define DAL_BPTR 4
87: //#define DSZ_TOP 0
88: //#define DSZ_BOTTOM 0
89: #define DLARGEST_INT "2147483647" /* 2**31 - 1 */
90: #define DF_SENSITIVE 0
91: #define DF_OPTIMIZED 1
92: #else
93: #ifdef Am68
94: /* most M68K boxes */
95: #if defined(hp9000s200) || defined(hp9000s300) || defined(sun)
96: #define DBI_IN_WORD 32
97: #else
98: #define DBI_IN_WORD 16
99: #endif
100:
101: #define DBI_IN_BYTE 8
102: #define DSZ_CHAR 1
103: #define DAL_CHAR 1
104: #define DSZ_SHORT 2
105: #define DAL_SHORT 2
106: #define DSZ_INT 4
107: #define DAL_INT 2
108: #define DSZ_LONG 4
109: #define DAL_LONG 2
110: #define DSZ_FLOAT 4
111: #define DAL_FLOAT 2
112: #define DSZ_DOUBLE 8
113: #define DAL_DOUBLE 2
114: #define DSZ_LDOUBLE 8
115: #define DAL_LDOUBLE 2
116: #define DSZ_STRUCT 2
117: #define DAL_STRUCT 2
118: //#define DSZ_FRAME 4
119: //#define DAL_FRAME 4
120: #ifdef sun
121: #define DSZ_WORD 4
122: #define DZB_BOUNDARY 2
123: #else
124: #define DSZ_WORD 2
125: #define DZB_BOUNDARY 2
126: #endif
127: #define DSZ_WPTR 4
128: #define DAL_WPTR 2
129: #define DSZ_BPTR 4
130: #define DAL_BPTR 2
131: //#define DSZ_TOP 0
132: //#define DSZ_BOTTOM 0
133: #define DLARGEST_INT "2147483647" /* 2**31 - 1 */
134: #define DF_SENSITIVE 0
135: #define DF_OPTIMIZED 1
136: #else
137: #ifdef Ai286l
138: /* Intel 80286 large model */
139: #define DBI_IN_WORD 16
140: #define DBI_IN_BYTE 8
141: #define DSZ_CHAR 1
142: #define DAL_CHAR 1
143: #define DSZ_SHORT 2
144: #define DAL_SHORT 2
145: #define DSZ_INT 2
146: #define DAL_INT 2
147: #define DSZ_LONG 4
148: #define DAL_LONG 2
149: #define DSZ_FLOAT 4
150: #define DAL_FLOAT 2
151: #define DSZ_DOUBLE 8
152: #define DAL_DOUBLE 2
153: #define DSZ_LDOUBLE 8
154: #define DAL_LDOUBLE 2
155: #define DSZ_STRUCT 2
156: #define DAL_STRUCT 2
157: //#define DSZ_FRAME 4
158: //#define DAL_FRAME 4
159: #define DSZ_WORD 2
160: #define DSZ_WPTR 4
161: #define DAL_WPTR 2
162: #define DSZ_BPTR 4
163: #define DAL_BPTR 2
164: //#define DSZ_TOP 0
165: //#define DSZ_BOTTOM 0
166: #define DLARGEST_INT "32767" /* 2**15 - 1 */
167: #define DF_SENSITIVE 0
168: #define DF_OPTIMIZED 1
169: #else
170: #if defined(uts) || defined(hp9000s800) || defined(sun4) || defined(sparc)
171: /* Amdahl running UTS, HP RISC */
172: #define DBI_IN_WORD 32
173: #define DBI_IN_BYTE 8
174: #define DSZ_CHAR 1
175: #define DAL_CHAR 1
176: #define DSZ_SHORT 2
177: #define DAL_SHORT 2
178: #define DSZ_INT 4
179: #define DAL_INT 4
180: #define DSZ_LONG 4
181: #define DAL_LONG 4
182: #define DSZ_FLOAT 4
183: #define DAL_FLOAT 4
184: #define DSZ_DOUBLE 8
185: #define DAL_DOUBLE 8
186: #define DSZ_LDOUBLE 8
187: #define DAL_LDOUBLE 8
188: #define DSZ_STRUCT 1
189: #define DAL_STRUCT 1
190: #define DSZ_WORD 4
191: #define DSZ_WPTR 4
192: #define DAL_WPTR 4
193: #define DSZ_BPTR 4
194: #define DAL_BPTR 4
195: #define DLARGEST_INT "2147483647" /* 2**31 - 1 */
196: #define DF_SENSITIVE 0
197: #define DF_OPTIMIZED 1
198: #else
199: #ifdef hpux
200: /* hp */
201: #define DBI_IN_WORD 32
202: #define DBI_IN_BYTE 8
203: #define DSZ_CHAR 1
204: #define DAL_CHAR 1
205: #define DSZ_SHORT 2
206: #define DAL_SHORT 2
207: #define DSZ_INT 4
208: #define DAL_INT 4
209: #define DSZ_LONG 4
210: #define DAL_LONG 4
211: #define DSZ_FLOAT 4
212: #define DAL_FLOAT 4
213: #define DSZ_DOUBLE 8
214: #define DAL_DOUBLE 8
215: #define DSZ_LDOUBLE 8
216: #define DAL_LDOUBLE 8
217: #define DSZ_STRUCT 1
218: #define DAL_STRUCT 1
219: #define DSZ_WORD 4
220: #define DSZ_WPTR 4
221: #define DAL_WPTR 4
222: #define DSZ_BPTR 4
223: #define DAL_BPTR 4
224: #define DLARGEST_INT "2147483647" /* 2**31 - 1 */
225: #define DF_SENSITIVE 1
226: #define DF_OPTIMIZED 1
227: #else
228: #if defined(vax) || defined(ibm032) || defined(i386)
229: /* VAX, IBM 32, Intel 386 */
230: #define DBI_IN_WORD 32
231: #define DBI_IN_BYTE 8
232: #define DSZ_CHAR 1
233: #define DAL_CHAR 1
234: #define DSZ_SHORT 2
235: #define DAL_SHORT 2
236: #define DSZ_INT 4
237: #define DAL_INT 4
238: #define DSZ_LONG 4
239: #define DAL_LONG 4
240: #define DSZ_FLOAT 4
241: #define DAL_FLOAT 4
242: #define DSZ_DOUBLE 8
243: #define DAL_DOUBLE 4
244: #define DSZ_LDOUBLE 8
245: #define DAL_LDOUBLE 4
246: #define DSZ_STRUCT 1
247: #define DAL_STRUCT 1
248: //#define DSZ_FRAME 4
249: //#define DAL_FRAME 4
250: #define DSZ_WORD 4
251: #define DSZ_WPTR 4
252: #define DAL_WPTR 4
253: #define DSZ_BPTR 4
254: #define DAL_BPTR 4
255: //#define DSZ_TOP 0
256: //#define DSZ_BOTTOM 0
257: #define DLARGEST_INT "2147483647" /* 2**31 - 1 */
258: #define DF_SENSITIVE 0
259: #define DF_OPTIMIZED 1
260: #else
261: #ifdef mc300
262: #define DBI_IN_WORD 32
263: #define DBI_IN_BYTE 8
264: #define DSZ_CHAR 1
265: #define DAL_CHAR 1
266: #define DSZ_SHORT 2
267: #define DAL_SHORT 2
268: #define DSZ_INT 4
269: #define DAL_INT 4
270: #define DSZ_LONG 4
271: #define DAL_LONG 4
272: #define DSZ_FLOAT 4
273: #define DAL_FLOAT 4
274: #define DSZ_DOUBLE 8
275: #define DAL_DOUBLE 4
276: #define DSZ_LDOUBLE 8
277: #define DAL_LDOUBLE 4
278: #define DSZ_STRUCT 2
279: #define DAL_STRUCT 2
280: //#define DSZ_FRAME 4
281: //#define DAL_FRAME 4
282: #define DSZ_WORD 4
283: #define DSZ_WPTR 4
284: #define DAL_WPTR 4
285: #define DSZ_BPTR 4
286: #define DAL_BPTR 4
287: //#define DSZ_TOP 0
288: //#define DSZ_BOTTOM 0
289: #define DLARGEST_INT "2147483647" /* 2**31 - 1 */
290: #define DF_SENSITIVE 0
291: #define DF_OPTIMIZED 1
292: #else
293: /* defaults: 0 => error */
294: #define DBI_IN_WORD 0
295: #define DBI_IN_BYTE 0
296: #define DSZ_CHAR 1
297: #define DAL_CHAR 1
298: #define DSZ_SHORT 0
299: #define DAL_SHORT 0
300: #define DSZ_INT 0
301: #define DAL_INT 0
302: #define DSZ_LONG 0
303: #define DAL_LONG 0
304: #define DSZ_FLOAT 0
305: #define DAL_FLOAT 0
306: #define DSZ_DOUBLE 0
307: #define DAL_DOUBLE 0
308: #define DSZ_LDOUBLE 0
309: #define DAL_LDOUBLE 0
310: #define DSZ_STRUCT 0
311: #define DAL_STRUCT 0
312: #define DSZ_WORD 0
313: #define DSZ_WPTR 0
314: #define DAL_WPTR 0
315: #define DSZ_BPTR 0
316: #define DAL_BPTR 0
317: #define DLARGEST_INT "0"
318: #define DF_SENSITIVE 0
319: #define DF_OPTIMIZED 0
320: #endif
321: #endif
322: #endif
323: #endif
324: #endif
325: #endif
326: #endif
327:
328: #ifndef DZB_BOUNDARY
329: // #define ZB_BOUNDARY DSZ_WORD
330: #define DZB_BOUNDARY DSZ_WORD
331: #endif
332:
333: int BI_IN_WORD = DBI_IN_WORD;
334: int BI_IN_BYTE = DBI_IN_BYTE;
335: int SZ_CHAR = DSZ_CHAR;
336: int AL_CHAR = DAL_CHAR;
337: int SZ_SHORT = DSZ_SHORT;
338: int AL_SHORT = DAL_SHORT;
339: int SZ_INT = DSZ_INT;
340: int AL_INT = DAL_INT;
341: int SZ_LONG = DSZ_LONG;
342: int AL_LONG = DAL_LONG;
343: int SZ_FLOAT = DSZ_FLOAT;
344: int AL_FLOAT = DAL_FLOAT;
345: int SZ_DOUBLE = DSZ_DOUBLE;
346: int AL_DOUBLE = DAL_DOUBLE;
347: int SZ_LDOUBLE = DSZ_LDOUBLE;
348: int AL_LDOUBLE = DAL_LDOUBLE;
349: int SZ_STRUCT = DSZ_STRUCT;
350: int AL_STRUCT = DAL_STRUCT;
351: //int SZ_FRAME = DSZ_FRAME;
352: //int AL_FRAME = DAL_FRAME;
353: int SZ_WORD = DSZ_WORD;
354: int ZB_BOUNDARY = DZB_BOUNDARY;
355: int SZ_WPTR = DSZ_WPTR;
356: int AL_WPTR = DAL_WPTR;
357: int SZ_BPTR = DSZ_BPTR;
358: int AL_BPTR = DAL_BPTR;
359: //int SZ_TOP = DSZ_TOP;
360: //int SZ_BOTTOM = DSZ_BOTTOM;
361: char* LARGEST_INT = DLARGEST_INT;
362: int F_SENSITIVE = DF_SENSITIVE;
363: int F_OPTIMIZED = DF_OPTIMIZED;
364:
365: int arg1 = 0;
366: int arg2 = 0;
367:
368: int get_line(FILE* fp)
369: {
370: char s[32];
371:
372: if (fscanf(fp," %s %d %d",s,&arg1,&arg2) == EOF) return 0;
373: // fprintf(stderr,"xxx %s %d %d",s,arg1,arg2);
374: if (strcmp("char",s) == 0) {
375: SZ_CHAR = arg1;
376: AL_CHAR = arg2;
377: return 1;
378: }
379: if (strcmp("short",s) == 0) {
380: SZ_SHORT = arg1;
381: AL_SHORT = arg2;
382: return 1;
383: }
384: if (strcmp("int",s) == 0) {
385: SZ_INT = arg1;
386: AL_INT = arg2;
387: if (fscanf(fp," %s",s) == EOF) return 0;
388: LARGEST_INT = new char[strlen(s)+1];
389: strcpy(LARGEST_INT,s);
390: return 1;
391: }
392: if (strcmp("long",s) == 0) {
393: SZ_LONG = arg1;
394: AL_LONG = arg2;
395: return 1;
396: }
397: if (strcmp("float",s) == 0) {
398: SZ_FLOAT = arg1;
399: AL_FLOAT = arg2;
400: return 1;
401: }
402: if (strcmp("double",s) == 0) {
403: SZ_DOUBLE = arg1;
404: AL_DOUBLE = arg2;
405: return 1;
406: }
407: if (strcmp("ldouble",s) == 0) {
408: SZ_LDOUBLE = arg1;
409: AL_LDOUBLE = arg2;
410: return 1;
411: }
412: if (strcmp("bit",s) == 0) {
413: BI_IN_BYTE = arg1;
414: BI_IN_WORD = arg2;
415: return 1;
416: }
417: if (strcmp("struct",s) == 0) {
418: SZ_STRUCT = arg1;
419: AL_STRUCT = arg2;
420: return 1;
421: }
422: if (strcmp("struct2",s) == 0) {
423: F_SENSITIVE = arg1;
424: F_OPTIMIZED = arg2;
425: return 1;
426: }
427: if (strcmp("frame",s) == 0) {
428: // SZ_FRAME = arg1;
429: // AL_FRAME = arg2;
430: return 1;
431: }
432: if (strcmp("word",s) == 0) {
433: SZ_WORD = arg1;
434: return 1;
435: }
436: if (strcmp("zero_bitfield_boundary",s) == 0) {
437: ZB_BOUNDARY = arg1;
438: return 1;
439: }
440: if (strcmp("wptr",s) == 0) {
441: SZ_WPTR = arg1;
442: AL_WPTR = arg2;
443: return 1;
444: }
445: if (strcmp("bptr",s) == 0) {
446: SZ_BPTR = arg1;
447: AL_BPTR = arg2;
448: return 1;
449: }
450: if (strcmp("top",s) == 0) {
451: // SZ_TOP = arg1;
452: // SZ_BOTTOM = arg2;
453: return 1;
454: }
455: return 0;
456: }
457:
458: int read_align(char* f)
459: {
460: char* p = f;
461: if (*p == 0) {
462: fprintf(stderr,"size/align file missing\n");
463: ext(1);
464: }
465: FILE* fp = fopen(f,"r");
466: if (fp == 0) return 1;
467: while (get_line(fp)) ;
468: return 0;
469: }
470: /*
471: print_align(char* s)
472: {
473: fprintf(stderr,"%s sizes and alignments\n\n",s);
474:
475: fprintf(stderr," size align largest\n");
476: fprintf(stderr,"char %d %d\n",SZ_CHAR,AL_CHAR);
477: fprintf(stderr,"short %d %d\n",SZ_SHORT,AL_SHORT);
478: fprintf(stderr,"int %d %d %s\n",SZ_INT,AL_INT,LARGEST_INT);
479: fprintf(stderr,"long %d %d\n",SZ_LONG,AL_LONG);
480: fprintf(stderr,"float %d %d\n",SZ_FLOAT,AL_FLOAT);
481: fprintf(stderr,"double %d %d\n",SZ_DOUBLE,AL_DOUBLE);
482: fprintf(stderr,"ldouble %d %d\n",SZ_LDOUBLE,AL_LDOUBLE);
483: fprintf(stderr,"bptr %d %d\n",SZ_BPTR,AL_BPTR);
484: fprintf(stderr,"wptr %d %d\n",SZ_WPTR,AL_WPTR);
485: fprintf(stderr,"struct %d %d\n",SZ_STRUCT,AL_STRUCT);
486: fprintf(stderr,"struct2 %d %d\n",F_SENSITIVE,F_OPTIMIZED);
487: // fprintf(stderr,"frame %d %d\n",SZ_FRAME,AL_FRAME);
488:
489: fprintf(stderr,"%d bits in a byte, %d bits in a word, %d bytes in a word zero bitfield aligned to %d bytes\n",
490: BI_IN_BYTE, BI_IN_WORD, SZ_WORD, ZB_BOUNDARY);
491: return 1;
492: }
493: */
494:
495: int c_strlen(const char* s)
496: /*
497: return sizeof(s) with escapes processed
498: sizeof("") == 1 the terminating 0
499: sizeof("a") == 2
500: sizeof("\0x") == 3 0 x 0
501: sizeof("\012") == 2 '\012'
502: sizeof("\01") '\001'
503: sizeof("\x") == 2 \ ignored
504:
505: */
506: {
507: int i = 1;
508: for (const char* p = s; *p; i++,p++) {
509: if (*p == '\\') { // '\?
510: switch (*++p) {
511: case '0':
512: switch (p[1]) { // '\01' or '\012'
513: case '0': case '1': case '2': case '3':
514: case '4': case '5': case '6': case '7':
515: break;
516: default:
517: continue; // '\0'
518: }
519: /* no break */
520: case '1': case '2': case '3':
521: case '4': case '5': case '6': case '7': // '\123'
522: switch (*++p) {
523: case '0': case '1': case '2': case '3':
524: case '4': case '5': case '6': case '7':
525: switch (*++p) {
526: case '0': case '1': case '2': case '3':
527: case '4': case '5': case '6': case '7':
528: break;
529: default:
530: --p;
531: }
532: break;
533: default:
534: --p;
535: }
536: }
537: }
538: }
539: return i;
540: }
541: /* ODI notes --
542:
543: * move all the initialization #ifdef's into here so they
544: * can be changed without recompiling the whole compiler.
545: * Add ZB_BOUNDARY to represent the start of a bitfield 32 bit
546: * throw as distinct from the "word", which is 32 bits on a sun.
547: *
548:
549: */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.