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