1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
#include "obj.h"
#include "ir.h"
#include <errno.h>
#include <fcntl.h>
#include <unistd.h>
void elfinit(void);
enum section elfhassym(internstr , uint *value);
void elfaddsym(internstr , int info, enum section, uvlong value, uvlong size);
void elfreloc(internstr sym, enum relockind, enum section, uint off, vlong addend);
void elffini(WriteBuf *);
ObjFile objout;
enum { NTEXT = 4<<20 /* 4MiB */ };
void
objini(const char *infile, const char *outfile)
{
assert(!objout.outfile);
objout.infile = infile;
objout.outfile = outfile;
objout.code = objout.textbegin = mapzeros(NTEXT);
objout.textend = objout.textbegin + NTEXT;
switch (mctarg->objkind) {
case OBJELF: elfinit(); break;
}
}
void
objdeffunc(internstr nam, bool globl, uint off, uint siz)
{
switch (mctarg->objkind) {
case OBJELF:
elfaddsym(nam, /*STT_LOCAL/GLOBAL*/globl << 4 | /*STT_FUNC*/2, Stext, off, siz);
break;
}
}
enum section
objhassym(internstr name, uint *off)
{
return elfhassym(name, off);
}
uint
objnewdat(internstr name, enum section sec, bool globl, uint siz, uint align)
{
ObjFile *o = &objout;
uint off;
assert(siz && align && ispo2(align));
switch (sec) {
default: assert(0);
case Stext:
assert(align <= targ_primsizes[TYPTR]);
assert(o->textend - siz > o->code);
while ((o->code - o->textbegin) & (align - 1)) ++o->code;
off = o->code - o->textbegin;
o->code += siz;
break;
case Srodata:
if (align > o->rodataalign) o->rodataalign = align;
while (o->rodata.n & (align - 1)) vpush(&o->rodata, 0);
off = o->rodata.n;
vresize(&o->rodata, o->rodata.n + siz);
memset(o->rodata.p+off, 0, siz);
break;
case Sdata:
if (align > o->dataalign) o->dataalign = align;
while (o->data.n & (align - 1)) vpush(&o->data, 0);
off = o->data.n;
vresize(&o->data, o->data.n + siz);
memset(o->data.p+off, 0, siz);
break;
case Sbss:
if (align > o->bssalign) o->bssalign = align;
off = alignup(o->nbss, align);
o->nbss = off + siz;
break;
}
switch (mctarg->objkind) {
case OBJELF:
elfaddsym(name, /*STT_LOCAL/GLOBAL*/globl<<4 | /*STT_OBJECT*/1, sec, off, siz);
break;
}
return off;
}
void
objreloc(internstr sym, enum relockind reloc, enum section section, uint off, vlong addend)
{
switch (mctarg->objkind) {
case OBJELF:
elfreloc(sym, reloc, section, off, addend);
break;
}
}
void
objfini(void)
{
static char buf[1<<12];
WriteBuf out = FDBUF(buf, sizeof buf, open(objout.outfile, O_WRONLY | O_CREAT | O_TRUNC, 0666));
if (out.fd < 0) fatal(NULL, "could not open %'s for writing: %s", objout.outfile, strerror(errno));
switch (mctarg->objkind) {
case OBJELF: elffini(&out); break;
}
munmap(objout.textbegin, NTEXT);
ioflush(&out);
close(out.fd);
}
/* vim:set ts=3 sw=3 expandtab: */
|
