1*473d4f4bSDavid du Colombier /*
2*473d4f4bSDavid du Colombier * uobj.c - identify and parse a sparc64 object file
3*473d4f4bSDavid du Colombier */
4*473d4f4bSDavid du Colombier #include <u.h>
5*473d4f4bSDavid du Colombier #include <libc.h>
6*473d4f4bSDavid du Colombier #include <bio.h>
7*473d4f4bSDavid du Colombier #include <mach.h>
8*473d4f4bSDavid du Colombier #include "sparc64/u.out.h"
9*473d4f4bSDavid du Colombier #include "obj.h"
10*473d4f4bSDavid du Colombier
11*473d4f4bSDavid du Colombier typedef struct Addr Addr;
12*473d4f4bSDavid du Colombier struct Addr
13*473d4f4bSDavid du Colombier {
14*473d4f4bSDavid du Colombier char type;
15*473d4f4bSDavid du Colombier char sym;
16*473d4f4bSDavid du Colombier char name;
17*473d4f4bSDavid du Colombier };
18*473d4f4bSDavid du Colombier static Addr addr(Biobuf*);
19*473d4f4bSDavid du Colombier static char type2char(int);
20*473d4f4bSDavid du Colombier static void skip(Biobuf*, int);
21*473d4f4bSDavid du Colombier
22*473d4f4bSDavid du Colombier
23*473d4f4bSDavid du Colombier int
_isu(char * s)24*473d4f4bSDavid du Colombier _isu(char *s)
25*473d4f4bSDavid du Colombier {
26*473d4f4bSDavid du Colombier return s[0] == ANAME /* ANAME */
27*473d4f4bSDavid du Colombier && s[1] == D_FILE /* type */
28*473d4f4bSDavid du Colombier && s[2] == 1 /* sym */
29*473d4f4bSDavid du Colombier && s[3] == '<'; /* name of file */
30*473d4f4bSDavid du Colombier }
31*473d4f4bSDavid du Colombier
32*473d4f4bSDavid du Colombier
33*473d4f4bSDavid du Colombier int
_readu(Biobuf * bp,Prog * p)34*473d4f4bSDavid du Colombier _readu(Biobuf *bp, Prog *p)
35*473d4f4bSDavid du Colombier {
36*473d4f4bSDavid du Colombier int as, n;
37*473d4f4bSDavid du Colombier Addr a;
38*473d4f4bSDavid du Colombier
39*473d4f4bSDavid du Colombier as = Bgetc(bp); /* as */
40*473d4f4bSDavid du Colombier if(as < 0)
41*473d4f4bSDavid du Colombier return 0;
42*473d4f4bSDavid du Colombier p->kind = aNone;
43*473d4f4bSDavid du Colombier p->sig = 0;
44*473d4f4bSDavid du Colombier if(as == ANAME || as == ASIGNAME){
45*473d4f4bSDavid du Colombier if(as == ASIGNAME){
46*473d4f4bSDavid du Colombier Bread(bp, &p->sig, 4);
47*473d4f4bSDavid du Colombier p->sig = beswal(p->sig);
48*473d4f4bSDavid du Colombier }
49*473d4f4bSDavid du Colombier p->kind = aName;
50*473d4f4bSDavid du Colombier p->type = type2char(Bgetc(bp)); /* type */
51*473d4f4bSDavid du Colombier p->sym = Bgetc(bp); /* sym */
52*473d4f4bSDavid du Colombier n = 0;
53*473d4f4bSDavid du Colombier for(;;) {
54*473d4f4bSDavid du Colombier as = Bgetc(bp);
55*473d4f4bSDavid du Colombier if(as < 0)
56*473d4f4bSDavid du Colombier return 0;
57*473d4f4bSDavid du Colombier n++;
58*473d4f4bSDavid du Colombier if(as == 0)
59*473d4f4bSDavid du Colombier break;
60*473d4f4bSDavid du Colombier }
61*473d4f4bSDavid du Colombier p->id = malloc(n);
62*473d4f4bSDavid du Colombier if(p->id == 0)
63*473d4f4bSDavid du Colombier return 0;
64*473d4f4bSDavid du Colombier Bseek(bp, -n, 1);
65*473d4f4bSDavid du Colombier if(Bread(bp, p->id, n) != n)
66*473d4f4bSDavid du Colombier return 0;
67*473d4f4bSDavid du Colombier return 1;
68*473d4f4bSDavid du Colombier }
69*473d4f4bSDavid du Colombier if(as == ATEXT)
70*473d4f4bSDavid du Colombier p->kind = aText;
71*473d4f4bSDavid du Colombier else if(as == AGLOBL)
72*473d4f4bSDavid du Colombier p->kind = aData;
73*473d4f4bSDavid du Colombier skip(bp, 5); /* reg (1 byte); lineno (4 bytes) */
74*473d4f4bSDavid du Colombier a = addr(bp);
75*473d4f4bSDavid du Colombier addr(bp);
76*473d4f4bSDavid du Colombier if(a.type != D_OREG || a.name != D_STATIC && a.name != D_EXTERN)
77*473d4f4bSDavid du Colombier p->kind = aNone;
78*473d4f4bSDavid du Colombier p->sym = a.sym;
79*473d4f4bSDavid du Colombier return 1;
80*473d4f4bSDavid du Colombier }
81*473d4f4bSDavid du Colombier
82*473d4f4bSDavid du Colombier static Addr
addr(Biobuf * bp)83*473d4f4bSDavid du Colombier addr(Biobuf *bp)
84*473d4f4bSDavid du Colombier {
85*473d4f4bSDavid du Colombier Addr a;
86*473d4f4bSDavid du Colombier long off;
87*473d4f4bSDavid du Colombier
88*473d4f4bSDavid du Colombier a.type = Bgetc(bp); /* a.type */
89*473d4f4bSDavid du Colombier skip(bp, 1); /* reg */
90*473d4f4bSDavid du Colombier a.sym = Bgetc(bp); /* sym index */
91*473d4f4bSDavid du Colombier a.name = Bgetc(bp); /* sym type */
92*473d4f4bSDavid du Colombier switch(a.type) {
93*473d4f4bSDavid du Colombier default:
94*473d4f4bSDavid du Colombier case D_NONE: case D_REG: case D_FREG: case D_CREG: case D_PREG:
95*473d4f4bSDavid du Colombier break;
96*473d4f4bSDavid du Colombier case D_BRANCH:
97*473d4f4bSDavid du Colombier case D_OREG:
98*473d4f4bSDavid du Colombier case D_ASI:
99*473d4f4bSDavid du Colombier case D_CONST:
100*473d4f4bSDavid du Colombier off = Bgetc(bp);
101*473d4f4bSDavid du Colombier off |= Bgetc(bp) << 8;
102*473d4f4bSDavid du Colombier off |= Bgetc(bp) << 16;
103*473d4f4bSDavid du Colombier off |= Bgetc(bp) << 24;
104*473d4f4bSDavid du Colombier if(off < 0)
105*473d4f4bSDavid du Colombier off = -off;
106*473d4f4bSDavid du Colombier if(a.sym!=0 && (a.name==D_PARAM || a.name==D_AUTO))
107*473d4f4bSDavid du Colombier _offset(a.sym, off);
108*473d4f4bSDavid du Colombier break;
109*473d4f4bSDavid du Colombier case D_SCONST:
110*473d4f4bSDavid du Colombier skip(bp, NSNAME);
111*473d4f4bSDavid du Colombier break;
112*473d4f4bSDavid du Colombier case D_FCONST:
113*473d4f4bSDavid du Colombier skip(bp, 8);
114*473d4f4bSDavid du Colombier break;
115*473d4f4bSDavid du Colombier }
116*473d4f4bSDavid du Colombier return a;
117*473d4f4bSDavid du Colombier }
118*473d4f4bSDavid du Colombier
119*473d4f4bSDavid du Colombier
120*473d4f4bSDavid du Colombier static char
type2char(int t)121*473d4f4bSDavid du Colombier type2char(int t)
122*473d4f4bSDavid du Colombier {
123*473d4f4bSDavid du Colombier switch(t){
124*473d4f4bSDavid du Colombier case D_EXTERN: return 'U';
125*473d4f4bSDavid du Colombier case D_STATIC: return 'b';
126*473d4f4bSDavid du Colombier case D_AUTO: return 'a';
127*473d4f4bSDavid du Colombier case D_PARAM: return 'p';
128*473d4f4bSDavid du Colombier default: return UNKNOWN;
129*473d4f4bSDavid du Colombier }
130*473d4f4bSDavid du Colombier }
131*473d4f4bSDavid du Colombier
132*473d4f4bSDavid du Colombier static void
skip(Biobuf * bp,int n)133*473d4f4bSDavid du Colombier skip(Biobuf *bp, int n)
134*473d4f4bSDavid du Colombier {
135*473d4f4bSDavid du Colombier while (n-- > 0)
136*473d4f4bSDavid du Colombier Bgetc(bp);
137*473d4f4bSDavid du Colombier }
138