URL
https://opencores.org/ocsvn/eco32/eco32/trunk
Subversion Repositories eco32
[/] [eco32/] [trunk/] [lcc/] [src/] [stab.c] - Rev 299
Go to most recent revision | Compare with Previous | Blame | View Log
#include <string.h> #include <stdlib.h> #include "c.h" #include "stab.h" static char rcsid[] = "$Id: stab.c,v 1.1 2002/08/28 23:12:46 drh Exp $"; static char *currentfile; /* current file name */ static int ntypes; extern Interface sparcIR; char *stabprefix = "L"; extern char *stabprefix; extern void stabblock(int, int, Symbol*); extern void stabend(Coordinate *, Symbol, Coordinate **, Symbol *, Symbol *); extern void stabfend(Symbol, int); extern void stabinit(char *, int, char *[]); extern void stabline(Coordinate *); extern void stabsym(Symbol); extern void stabtype(Symbol); static void asgncode(Type, int); static void dbxout(Type); static int dbxtype(Type); static int emittype(Type, int, int); /* asgncode - assign type code to ty */ static void asgncode(Type ty, int lev) { if (ty->x.marked || ty->x.typeno) return; ty->x.marked = 1; switch (ty->op) { case VOLATILE: case CONST: case VOLATILE+CONST: asgncode(ty->type, lev); ty->x.typeno = ty->type->x.typeno; break; case POINTER: case FUNCTION: case ARRAY: asgncode(ty->type, lev + 1); /* fall thru */ case VOID: case INT: case UNSIGNED: case FLOAT: break; case STRUCT: case UNION: { Field p; for (p = fieldlist(ty); p; p = p->link) asgncode(p->type, lev + 1); /* fall thru */ case ENUM: if (ty->x.typeno == 0) ty->x.typeno = ++ntypes; if (lev > 0 && (*ty->u.sym->name < '0' || *ty->u.sym->name > '9')) dbxout(ty); break; } default: assert(0); } } /* dbxout - output .stabs entry for type ty */ static void dbxout(Type ty) { ty = unqual(ty); if (!ty->x.printed) { int col = 0; print(".stabs \""), col += 8; if (ty->u.sym && !(isfunc(ty) || isarray(ty) || isptr(ty))) print("%s", ty->u.sym->name), col += strlen(ty->u.sym->name); print(":%c", isstruct(ty) || isenum(ty) ? 'T' : 't'), col += 2; emittype(ty, 0, col); print("\",%d,0,0,0\n", N_LSYM); } } /* dbxtype - emit a stabs entry for type ty, return type code */ static int dbxtype(Type ty) { asgncode(ty, 0); dbxout(ty); return ty->x.typeno; } /* * emittype - emit ty's type number, emitting its definition if necessary. * Returns the output column number after emission; col is the approximate * output column before emission and is used to emit continuation lines for long * struct, union, and enum types. Continuations are not emitted for other types, * even if the definition is long. lev is the depth of calls to emittype. */ static int emittype(Type ty, int lev, int col) { int tc = ty->x.typeno; if (isconst(ty) || isvolatile(ty)) { col = emittype(ty->type, lev, col); ty->x.typeno = ty->type->x.typeno; ty->x.printed = 1; return col; } if (tc == 0) { ty->x.typeno = tc = ++ntypes; /* fprint(2,"`%t'=%d\n", ty, tc); */ } print("%d", tc), col += 3; if (ty->x.printed) return col; ty->x.printed = 1; switch (ty->op) { case VOID: /* void is defined as itself */ print("=%d", tc), col += 1+3; break; case INT: if (ty == chartype) /* plain char is a subrange of itself */ print("=r%d;%d;%d;", tc, ty->u.sym->u.limits.min.i, ty->u.sym->u.limits.max.i), col += 2+3+2*2.408*ty->size+2; else /* other signed ints are subranges of int */ print("=r1;%D;%D;", ty->u.sym->u.limits.min.i, ty->u.sym->u.limits.max.i), col += 4+2*2.408*ty->size+2; break; case UNSIGNED: if (ty == chartype) /* plain char is a subrange of itself */ print("=r%d;0;%u;", tc, ty->u.sym->u.limits.max.i), col += 2+3+2+2.408*ty->size+1; else /* other signed ints are subranges of int */ print("=r1;0;%U;", ty->u.sym->u.limits.max.i), col += 4+2.408*ty->size+1; break; case FLOAT: /* float, double, long double get sizes, not ranges */ print("=r1;%d;0;", ty->size), col += 4+1+3; break; case POINTER: print("=*"), col += 2; col = emittype(ty->type, lev + 1, col); break; case FUNCTION: print("=f"), col += 2; col = emittype(ty->type, lev + 1, col); break; case ARRAY: /* array includes subscript as an int range */ if (ty->size && ty->type->size) print("=ar1;0;%d;", ty->size/ty->type->size - 1), col += 7+3+1; else print("=ar1;0;-1;"), col += 10; col = emittype(ty->type, lev + 1, col); break; case STRUCT: case UNION: { Field p; if (!ty->u.sym->defined) { print("=x%c%s:", ty->op == STRUCT ? 's' : 'u', ty->u.sym->name); col += 2+1+strlen(ty->u.sym->name)+1; break; } if (lev > 0 && (*ty->u.sym->name < '0' || *ty->u.sym->name > '9')) { ty->x.printed = 0; break; } print("=%c%d", ty->op == STRUCT ? 's' : 'u', ty->size), col += 1+1+3; for (p = fieldlist(ty); p; p = p->link) { if (p->name) print("%s:", p->name), col += strlen(p->name)+1; else print(":"), col += 1; col = emittype(p->type, lev + 1, col); if (p->lsb) print(",%d,%d;", 8*p->offset + (IR->little_endian ? fieldright(p) : fieldleft(p)), fieldsize(p)); else print(",%d,%d;", 8*p->offset, 8*p->type->size); col += 1+3+1+3+1; /* accounts for ,%d,%d; */ if (col >= 80 && p->link) { print("\\\\\",%d,0,0,0\n.stabs \"", N_LSYM); col = 8; } } print(";"), col += 1; break; } case ENUM: { Symbol *p; if (lev > 0 && (*ty->u.sym->name < '0' || *ty->u.sym->name > '9')) { ty->x.printed = 0; break; } print("=e"), col += 2; for (p = ty->u.sym->u.idlist; *p; p++) { print("%s:%d,", (*p)->name, (*p)->u.value), col += strlen((*p)->name)+3; if (col >= 80 && p[1]) { print("\\\\\",%d,0,0,0\n.stabs \"", N_LSYM); col = 8; } } print(";"), col += 1; break; } default: assert(0); } return col; } /* stabblock - output a stab entry for '{' or '}' at level lev */ void stabblock(int brace, int lev, Symbol *p) { if (brace == '{') while (*p) stabsym(*p++); if (IR == &sparcIR) print(".stabd 0x%x,0,%d\n", brace == '{' ? N_LBRAC : N_RBRAC, lev); else { int lab = genlabel(1); print(".stabn 0x%x,0,%d,%s%d-%s\n", brace == '{' ? N_LBRAC : N_RBRAC, lev, stabprefix, lab, cfunc->x.name); print("%s%d:\n", stabprefix, lab); } } /* stabinit - initialize stab output */ void stabinit(char *file, int argc, char *argv[]) { typedef void (*Closure)(Symbol, void *); print(".stabs \"lcc4_compiled.\",0x%x,0,0,0\n", N_OPT); if (file && *file) { print(".stabs \"%s\",0x%x,0,3,%stext0\n", file, N_SO, stabprefix); (*IR->segment)(CODE); print("%stext0:\n", stabprefix, N_SO); currentfile = file; } dbxtype(inttype); dbxtype(chartype); dbxtype(doubletype); dbxtype(floattype); dbxtype(longdouble); dbxtype(longtype); dbxtype(longlong); dbxtype(shorttype); dbxtype(signedchar); dbxtype(unsignedchar); dbxtype(unsignedlong); dbxtype(unsignedlonglong); dbxtype(unsignedshort); dbxtype(unsignedtype); dbxtype(voidtype); foreach(types, GLOBAL, (Closure)stabtype, NULL); } /* stabline - emit stab entry for source coordinate *cp */ void stabline(Coordinate *cp) { if (cp->file && cp->file != currentfile) { int lab = genlabel(1); print(".stabs \"%s\",0x%x,0,0,%s%d\n", cp->file, N_SOL, stabprefix, lab); print("%s%d:\n", stabprefix, lab); currentfile = cp->file; } if (IR == &sparcIR) print(".stabd 0x%x,0,%d\n", N_SLINE, cp->y); else { int lab = genlabel(1); print(".stabn 0x%x,0,%d,%s%d-%s\n", N_SLINE, cp->y, stabprefix, lab, cfunc->x.name); print("%s%d:\n", stabprefix, lab); } } /* stabsym - output a stab entry for symbol p */ void stabsym(Symbol p) { int code, tc, sz = p->type->size; if (p->generated || p->computed) return; if (isfunc(p->type)) { print(".stabs \"%s:%c%d\",%d,0,0,%s\n", p->name, p->sclass == STATIC ? 'f' : 'F', dbxtype(freturn(p->type)), N_FUN, p->x.name); return; } if (!IR->wants_argb && p->scope == PARAM && p->structarg) { assert(isptr(p->type) && isstruct(p->type->type)); tc = dbxtype(p->type->type); sz = p->type->type->size; } else tc = dbxtype(p->type); if (p->sclass == AUTO && p->scope == GLOBAL || p->sclass == EXTERN) { print(".stabs \"%s:G", p->name); code = N_GSYM; } else if (p->sclass == STATIC) { print(".stabs \"%s:%c%d\",%d,0,0,%s\n", p->name, p->scope == GLOBAL ? 'S' : 'V', tc, p->u.seg == BSS ? N_LCSYM : N_STSYM, p->x.name); return; } else if (p->sclass == REGISTER) { if (p->x.regnode) { int r = p->x.regnode->number; if (p->x.regnode->set == FREG) r += 32; /* floating point */ print(".stabs \"%s:%c%d\",%d,0,", p->name, p->scope == PARAM ? 'P' : 'r', tc, N_RSYM); print("%d,%d\n", sz, r); } return; } else if (p->scope == PARAM) { print(".stabs \"%s:p", p->name); code = N_PSYM; } else if (p->scope >= LOCAL) { print(".stabs \"%s:", p->name); code = N_LSYM; } else assert(0); print("%d\",%d,0,0,%s\n", tc, code, p->scope >= PARAM && p->sclass != EXTERN ? p->x.name : "0"); } /* stabtype - output a stab entry for type *p */ void stabtype(Symbol p) { if (p->type) { if (p->sclass == 0) dbxtype(p->type); else if (p->sclass == TYPEDEF) print(".stabs \"%s:t%d\",%d,0,0,0\n", p->name, dbxtype(p->type), N_LSYM); } } /* stabend - finalize a function */ void stabfend(Symbol p, int lineno) {} /* stabend - finalize stab output */ void stabend(Coordinate *cp, Symbol p, Coordinate **cpp, Symbol *sp, Symbol *stab) { (*IR->segment)(CODE); print(".stabs \"\", %d, 0, 0,%setext\n", N_SO, stabprefix); print("%setext:\n", stabprefix); }
Go to most recent revision | Compare with Previous | Blame | View Log