1*473d4f4bSDavid du Colombier /*
2*473d4f4bSDavid du Colombier * 2obj.c - identify and parse a 68020 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 "68020/2.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 sym;
15*473d4f4bSDavid du Colombier char flags;
16*473d4f4bSDavid du Colombier };
17*473d4f4bSDavid du Colombier static Addr addr(Biobuf *);
18*473d4f4bSDavid du Colombier static char type2char(int);
19*473d4f4bSDavid du Colombier static void skip(Biobuf*, int);
20*473d4f4bSDavid du Colombier
21*473d4f4bSDavid du Colombier int
_is2(char * t)22*473d4f4bSDavid du Colombier _is2(char *t)
23*473d4f4bSDavid du Colombier {
24*473d4f4bSDavid du Colombier uchar *s = (uchar *)t;
25*473d4f4bSDavid du Colombier
26*473d4f4bSDavid du Colombier return s[0] == (ANAME&0xff) /* aslo = ANAME */
27*473d4f4bSDavid du Colombier && s[1] == ((ANAME>>8)&0xff) /* ashi = ANAME */
28*473d4f4bSDavid du Colombier && s[2] == D_FILE /* type */
29*473d4f4bSDavid du Colombier && s[3] == 1 /* sym */
30*473d4f4bSDavid du Colombier && s[4] == '<'; /* name of file */
31*473d4f4bSDavid du Colombier }
32*473d4f4bSDavid du Colombier
33*473d4f4bSDavid du Colombier int
_read2(Biobuf * bp,Prog * p)34*473d4f4bSDavid du Colombier _read2(Biobuf *bp, Prog *p)
35*473d4f4bSDavid du Colombier {
36*473d4f4bSDavid du Colombier int as, n, c;
37*473d4f4bSDavid du Colombier Addr a;
38*473d4f4bSDavid du Colombier
39*473d4f4bSDavid du Colombier as = Bgetc(bp); /* as(low) */
40*473d4f4bSDavid du Colombier if(as < 0)
41*473d4f4bSDavid du Colombier return 0;
42*473d4f4bSDavid du Colombier c = Bgetc(bp); /* as(high) */
43*473d4f4bSDavid du Colombier if(c < 0)
44*473d4f4bSDavid du Colombier return 0;
45*473d4f4bSDavid du Colombier as |= ((c & 0xff) << 8);
46*473d4f4bSDavid du Colombier p->kind = aNone;
47*473d4f4bSDavid du Colombier p->sig = 0;
48*473d4f4bSDavid du Colombier if(as == ANAME || as == ASIGNAME){
49*473d4f4bSDavid du Colombier if(as == ASIGNAME){
50*473d4f4bSDavid du Colombier Bread(bp, &p->sig, 4);
51*473d4f4bSDavid du Colombier p->sig = beswal(p->sig);
52*473d4f4bSDavid du Colombier }
53*473d4f4bSDavid du Colombier p->kind = aName;
54*473d4f4bSDavid du Colombier p->type = type2char(Bgetc(bp)); /* type */
55*473d4f4bSDavid du Colombier p->sym = Bgetc(bp); /* sym */
56*473d4f4bSDavid du Colombier n = 0;
57*473d4f4bSDavid du Colombier for(;;) {
58*473d4f4bSDavid du Colombier as = Bgetc(bp);
59*473d4f4bSDavid du Colombier if(as < 0)
60*473d4f4bSDavid du Colombier return 0;
61*473d4f4bSDavid du Colombier n++;
62*473d4f4bSDavid du Colombier if(as == 0)
63*473d4f4bSDavid du Colombier break;
64*473d4f4bSDavid du Colombier }
65*473d4f4bSDavid du Colombier p->id = malloc(n);
66*473d4f4bSDavid du Colombier if(p->id == 0)
67*473d4f4bSDavid du Colombier return 0;
68*473d4f4bSDavid du Colombier Bseek(bp, -n, 1);
69*473d4f4bSDavid du Colombier if(Bread(bp, p->id, n) != n)
70*473d4f4bSDavid du Colombier return 0;
71*473d4f4bSDavid du Colombier return 1;
72*473d4f4bSDavid du Colombier }
73*473d4f4bSDavid du Colombier if(as == ATEXT)
74*473d4f4bSDavid du Colombier p->kind = aText;
75*473d4f4bSDavid du Colombier else if(as == AGLOBL)
76*473d4f4bSDavid du Colombier p->kind = aData;
77*473d4f4bSDavid du Colombier skip(bp, 4); /*lineno: low, high, lowhigh, highigh*/
78*473d4f4bSDavid du Colombier a = addr(bp);
79*473d4f4bSDavid du Colombier addr(bp);
80*473d4f4bSDavid du Colombier if(!(a.flags & T_SYM))
81*473d4f4bSDavid du Colombier p->kind = aNone;
82*473d4f4bSDavid du Colombier p->sym = a.sym;
83*473d4f4bSDavid du Colombier return 1;
84*473d4f4bSDavid du Colombier }
85*473d4f4bSDavid du Colombier
86*473d4f4bSDavid du Colombier static Addr
addr(Biobuf * bp)87*473d4f4bSDavid du Colombier addr(Biobuf *bp)
88*473d4f4bSDavid du Colombier {
89*473d4f4bSDavid du Colombier Addr a;
90*473d4f4bSDavid du Colombier int t;
91*473d4f4bSDavid du Colombier long off;
92*473d4f4bSDavid du Colombier
93*473d4f4bSDavid du Colombier a.flags = Bgetc(bp); /* flags */
94*473d4f4bSDavid du Colombier a.sym = -1;
95*473d4f4bSDavid du Colombier off = 0;
96*473d4f4bSDavid du Colombier if(a.flags & T_FIELD)
97*473d4f4bSDavid du Colombier skip(bp, 2);
98*473d4f4bSDavid du Colombier if(a.flags & T_INDEX)
99*473d4f4bSDavid du Colombier skip(bp, 7);
100*473d4f4bSDavid du Colombier if(a.flags & T_OFFSET){
101*473d4f4bSDavid du Colombier off = Bgetc(bp);
102*473d4f4bSDavid du Colombier off |= Bgetc(bp) << 8;
103*473d4f4bSDavid du Colombier off |= Bgetc(bp) << 16;
104*473d4f4bSDavid du Colombier off |= Bgetc(bp) << 24;
105*473d4f4bSDavid du Colombier if(off < 0)
106*473d4f4bSDavid du Colombier off = -off;
107*473d4f4bSDavid du Colombier }
108*473d4f4bSDavid du Colombier if(a.flags & T_SYM)
109*473d4f4bSDavid du Colombier a.sym = Bgetc(bp);
110*473d4f4bSDavid du Colombier if(a.flags & T_FCONST)
111*473d4f4bSDavid du Colombier skip(bp, 8);
112*473d4f4bSDavid du Colombier else if(a.flags & T_SCONST)
113*473d4f4bSDavid du Colombier skip(bp, NSNAME);
114*473d4f4bSDavid du Colombier else{
115*473d4f4bSDavid du Colombier t = Bgetc(bp);
116*473d4f4bSDavid du Colombier if(a.flags & T_TYPE)
117*473d4f4bSDavid du Colombier t |= Bgetc(bp) << 8;
118*473d4f4bSDavid du Colombier t &= D_MASK;
119*473d4f4bSDavid du Colombier if(a.sym > 0 && (t==D_PARAM || t==D_AUTO))
120*473d4f4bSDavid du Colombier _offset(a.sym, off);
121*473d4f4bSDavid du Colombier }
122*473d4f4bSDavid du Colombier return a;
123*473d4f4bSDavid du Colombier }
124*473d4f4bSDavid du Colombier
125*473d4f4bSDavid du Colombier static char
type2char(int t)126*473d4f4bSDavid du Colombier type2char(int t)
127*473d4f4bSDavid du Colombier {
128*473d4f4bSDavid du Colombier switch(t){
129*473d4f4bSDavid du Colombier case D_EXTERN: return 'U';
130*473d4f4bSDavid du Colombier case D_STATIC: return 'b';
131*473d4f4bSDavid du Colombier case D_AUTO: return 'a';
132*473d4f4bSDavid du Colombier case D_PARAM: return 'p';
133*473d4f4bSDavid du Colombier default: return UNKNOWN;
134*473d4f4bSDavid du Colombier }
135*473d4f4bSDavid du Colombier }
136*473d4f4bSDavid du Colombier
137*473d4f4bSDavid du Colombier static void
skip(Biobuf * bp,int n)138*473d4f4bSDavid du Colombier skip(Biobuf *bp, int n)
139*473d4f4bSDavid du Colombier {
140*473d4f4bSDavid du Colombier while (n-- > 0)
141*473d4f4bSDavid du Colombier Bgetc(bp);
142*473d4f4bSDavid du Colombier }
143