1 /* rdfload.c RDOFF Object File loader library
3 * The Netwide Assembler is copyright (C) 1996 Simon Tatham and
4 * Julian Hall. All rights reserved. The software is
5 * redistributable under the licence given in the file "Licence"
6 * distributed in the NASM archive.
8 * Permission to use this file in your own projects is granted, as int32_t
9 * as acknowledgement is given in an appropriate manner to its authors,
10 * with instructions of how to obtain a copy via ftp.
14 * TODO: this has been modified from previous version only in very
15 * simplistic ways. Needs to be improved drastically, especially:
16 * - support for more than the 2 standard segments
17 * - support for segment relocations (hard to do in ANSI C)
32 rdfmodule *rdfload(const char *filename)
35 int32_t bsslength = 0;
39 f = malloc(sizeof(rdfmodule));
41 rdf_errno = RDF_ERR_NOMEM;
45 f->symtab = symtabNew();
48 rdf_errno = RDF_ERR_NOMEM;
53 if (rdfopen(&(f->f), filename)) {
58 /* read in text and data segments, and header */
60 f->t = malloc(f->f.seg[0].length);
61 f->d = malloc(f->f.seg[1].length); /* BSS seg allocated later */
62 hdr = malloc(f->f.header_len);
64 if (!f->t || !f->d || !hdr) {
65 rdf_errno = RDF_ERR_NOMEM;
75 if (rdfloadseg(&f->f, RDOFF_HEADER, hdr) ||
76 rdfloadseg(&f->f, RDOFF_CODE, f->t) ||
77 rdfloadseg(&f->f, RDOFF_DATA, f->d)) {
88 /* Allocate BSS segment; step through header and count BSS records */
90 while ((r = rdfgetheaderrec(&f->f))) {
92 bsslength += r->b.amount;
95 f->b = malloc(bsslength);
96 if (bsslength && (!f->b)) {
101 rdf_errno = RDF_ERR_NOMEM;
105 rdfheaderrewind(&f->f);
107 f->textrel = (int32_t)(size_t)f->t;
108 f->datarel = (int32_t)(size_t)f->d;
109 f->bssrel = (int32_t)(size_t)f->b;
114 int rdf_relocate(rdfmodule * m)
122 rdfheaderrewind(&m->f);
123 collection_init(&imports);
125 while ((r = rdfgetheaderrec(&m->f))) {
127 case 1: /* Relocation record */
129 /* calculate relocation factor */
131 if (r->r.refseg == 0)
133 else if (r->r.refseg == 1)
135 else if (r->r.refseg == 2)
138 /* We currently do not support load-time linkage.
139 This should be added some time soon... */
141 return 1; /* return error code */
143 if ((r->r.segment & 63) == 0)
145 else if ((r->r.segment & 63) == 1)
148 continue; /* relocation not in a loaded segment */
150 /* it doesn't matter in this case that the code is non-portable,
151 as the entire concept of executing a module like this is
153 switch (r->r.length) {
155 seg[r->r.offset] += (char)rel;
158 *(uint16_t *) (seg + r->r.offset) += (uint16_t) rel;
161 *(int32_t *)(seg + r->r.offset) += rel;
166 case 3: /* export record - add to symtab */
167 e.segment = r->e.segment;
168 e.offset = r->e.offset + (e.segment == 0 ? m->textrel : /* 0 -> code */
169 e.segment == 1 ? m->datarel : /* 1 -> data */
170 m->bssrel); /* 2 -> bss */
172 e.name = malloc(strlen(r->e.label) + 1);
176 strcpy(e.name, r->e.label);
177 symtabInsert(m->symtab, &e);
180 case 6: /* segment relocation */
181 fprintf(stderr, "%s: segment relocation not supported by this "
182 "loader\n", m->f.name);