![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to 32reloc.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / jerq / sgs|
Return to 32reloc.c CVS log | Up to [Research Unix] / researchv9 / jerq / sgs |
1.1 root 1: /* reloc for 5620's */
2:
3: #include "stdio.h"
4: #include "filehdr.h"
5: #include "aouthdr.h"
6: #include "reloc.h"
7: #include "scnhdr.h"
8: #include "sys/types.h"
9: #include "sys/stat.h"
10: extern char *malloc();
11:
12: int textorg;
13: struct stat stb;
14: char *buf;
15: struct scnhdr *ts, *ds, *bs;
16: struct filehdr *fhdr;
17: long swapb4();
18:
19: #ifdef TEST
20: #define DEBUG(X,Y) printf(X,Y)
21: #else
22: #define DEBUG(X,Y)
23: #endif
24:
25: main(argc, argv)
26: char **argv;
27: { int fd;
28: struct aouthdr *ahdr;
29: if(argc != 4) {
30: fprintf(stderr, "usage: %s -b addr file\n",argv[0]);
31: exit(1);
32: }
33: sscanf(argv[2], "%x", &textorg);
34: fd = open(argv[3], 0);
35: if(fd < 0) {
36: perror(argv[3]);
37: exit(1);
38: }
39: fstat(fd, &stb);
40: if(stb.st_size <= sizeof(struct filehdr)) {
41: perror("stdin");
42: exit(1);
43: }
44: buf = malloc(stb.st_size);
45: if(read(fd, buf, stb.st_size) != stb.st_size) {
46: perror("read");
47: exit(1);
48: }
49: fhdr = (struct filehdr *) buf;
50: if(fhdr->f_magic != FBOMAGIC) {
51: fprintf(stderr, "reloc: file magic was 0%o expected 0%o\n",
52: fhdr->f_magic, FBOMAGIC);
53: exit(1);
54: }
55: if(fhdr->f_nscns != 3) {
56: fprintf(stderr, "reloc: file has %d sections instead of 3\n",
57: fhdr->f_nscns);
58: exit(1);
59: }
60:
61: ts = (struct scnhdr *) (buf + sizeof(struct filehdr) + fhdr->f_opthdr);
62: ds = ts + 1; /* is this arithmetic ok? */
63: bs = ds + 1;
64: reloc(ts);
65: reloc(ds);
66: reloc(bs);
67: fhdr->f_flags |= F_RELFLG;
68:
69: ahdr = (struct aouthdr *) (buf + sizeof(struct filehdr));
70: ahdr->entry += textorg;
71: ahdr->text_start += textorg;
72: ahdr->data_start += textorg;
73: ahdr->vstamp = 0;
74: fhdr->f_symptr = fhdr->f_nsyms = 0;
75: write(1, buf, stb.st_size);
76: exit(0);
77: }
78:
79: reloc(sp, org)
80: struct scnhdr *sp;
81: { struct reloc *rp, *realrp, copyarea;
82: int i, j;
83: int space;
84: unsigned int addr;
85: struct syment *sym;
86: unsigned char *from, *to, *foo, *saveto;
87: realrp = (struct reloc *) (buf + sp->s_relptr);
88: rp = ©area;
89: memcpy(rp, realrp, RELSZ);
90: for(i = 0; i < sp->s_nreloc; i++) {
91: switch(rp->r_type) {
92: default:
93: fprintf(stderr, "reloc type 0%o unknown\n", rp->r_type);
94: exit(1);
95: case R_DIR32:
96: DEBUG(" R_DIR32 (%d)",rp->r_type);
97: to = (unsigned char *) (buf + sp->s_scnptr + rp->r_vaddr - sp->s_vaddr);
98: #ifdef old
99: /* swap bytes on the way in... */
100: addr = to[0];
101: for(j = 1; j<=3; j++)
102: addr = (addr << 8) | to[j];
103: addr += textorg;
104: /* swap bytes on the way out... */
105: from = (unsigned char *)&addr;
106: for(j = 0; j < 4; j++)
107: *to++ = from[3-j];
108: break;
109: #endif
110: DEBUG(" to=%x, ",*to);
111: #ifdef vax
112: from = (unsigned char *) &space;
113: saveto = to;
114: for(j = 3; j >= 0 ; j--)
115: *from++ = to[j];
116: space += textorg;
117: from = (unsigned char *) &space;
118: to = saveto;
119: for(j = 3; j >= 0 ; j--)
120: to[j] = *from++;
121: #else
122: from = (char *) &space;
123: saveto = to;
124: for(j = 0; j < 4; j++)
125: *from++ = to[j];
126: space += textorg;
127: from = (char *) &space;
128: to = saveto;
129: for(j = 0; j < 4; j++)
130: to[j] = *from++;
131: #endif vax
132: DEBUG("space=%x\n",space);
133: break;
134:
135: case R_DIR32S:
136: DEBUG(" R_DIR32S (%d)",rp->r_type);
137: to = (unsigned char *) (buf + sp->s_scnptr + rp->r_vaddr - sp->s_vaddr);
138: #ifdef wannadoitfastonavax
139: /* alignment and byte order? */ /* vax byte order */
140: addr = *(int *)to;
141: /* addr += textorg; */
142: addr = swapb4( swapb4(addr,1) + textorg, 1);
143: *(int *)to = addr;
144: #endif
145: DEBUG(" to=%x, ",*to);
146: #ifdef vax
147: from = (unsigned char *) &space;
148: saveto = to;
149: for(j = 0; j < 4; j++)
150: *from++ = to[j];
151: space += textorg;
152: from = (unsigned char *) &space;
153: to = saveto;
154: for(j = 0; j < 4; j++)
155: to[j] = *from++;
156: #else
157: from = (char *) &space;
158: saveto = to;
159: for(j = 3; j >= 0 ; j--)
160: *from++ = to[j];
161: space += textorg;
162: from = (char *) &space;
163: to = saveto;
164: for(j = 3; j >= 0 ; j--)
165: to[j] = *from++;
166: #endif
167: DEBUG("space=%x\n",space);
168: }
169: /* Alignment needed for (structure) pointers on some hosts */
170: realrp = (struct reloc *) ((char *)realrp + RELSZ);
171: memcpy(rp, realrp, RELSZ);
172: }
173: sp->s_vaddr += textorg;
174: sp->s_paddr += textorg;
175: sp->s_relptr = sp->s_lnnoptr = 0;
176: sp->s_nreloc = sp->s_nlnno = 0;
177: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.