1 a84cbb2a 2004-04-19 devnull #include <u.h>
  2 a84cbb2a 2004-04-19 devnull #include <libc.h>
  3 a84cbb2a 2004-04-19 devnull #include <mach.h>
  4 a84cbb2a 2004-04-19 devnull #include "elf.h"
  5 a84cbb2a 2004-04-19 devnull #include "dwarf.h"
  6 a84cbb2a 2004-04-19 devnull 
  7 a84cbb2a 2004-04-19 devnull static int mapelf(Fhdr *fp, ulong base, Map *map, Regs**);
  8 a84cbb2a 2004-04-19 devnull static int mapcoreregs(Fhdr *fp, Map *map, Regs**);
  9 a84cbb2a 2004-04-19 devnull 
 10 a84cbb2a 2004-04-19 devnull static struct
 11 a84cbb2a 2004-04-19 devnull {
 12 a84cbb2a 2004-04-19 devnull 	uint etype;
 13 a84cbb2a 2004-04-19 devnull 	uint mtype;
 14 a84cbb2a 2004-04-19 devnull 	Mach *mach;
 15 a84cbb2a 2004-04-19 devnull 	char *name;
 16 a84cbb2a 2004-04-19 devnull } mtab[] = 
 17 a84cbb2a 2004-04-19 devnull {	/* Font Tab 4 */
 18 a84cbb2a 2004-04-19 devnull 	ElfMachSparc,	MSPARC,		nil,		"sparc",
 19 a84cbb2a 2004-04-19 devnull 	ElfMach386,		M386,		&mach386,	"386",
 20 a84cbb2a 2004-04-19 devnull 	ElfMachMips,	MMIPS,		nil,		"mips",
 21 a84cbb2a 2004-04-19 devnull 	ElfMachArm,		MARM,		nil,		"arm",
 22 a84cbb2a 2004-04-19 devnull 	ElfMachPower,	MPOWER,		nil,		"powerpc",
 23 a84cbb2a 2004-04-19 devnull 	ElfMachPower64,	MNONE,		nil,		"powerpc64",
 24 a84cbb2a 2004-04-19 devnull };
 25 a84cbb2a 2004-04-19 devnull 
 26 a84cbb2a 2004-04-19 devnull static struct
 27 a84cbb2a 2004-04-19 devnull {
 28 a84cbb2a 2004-04-19 devnull 	uint etype;
 29 a84cbb2a 2004-04-19 devnull 	uint atype;
 30 a84cbb2a 2004-04-19 devnull 	char *aname;
 31 a84cbb2a 2004-04-19 devnull } atab[] = 
 32 a84cbb2a 2004-04-19 devnull {	/* Font Tab 4 */
 33 a84cbb2a 2004-04-19 devnull 	ElfAbiSystemV,	ALINUX,		"linux",	/* [sic] */
 34 a84cbb2a 2004-04-19 devnull 	ElfAbiLinux,	ALINUX,		"linux",
 35 a84cbb2a 2004-04-19 devnull 	ElfAbiFreeBSD,	AFREEBSD,	"freebsd",
 36 a84cbb2a 2004-04-19 devnull };
 37 a84cbb2a 2004-04-19 devnull 
 38 a84cbb2a 2004-04-19 devnull static struct
 39 a84cbb2a 2004-04-19 devnull {
 40 a84cbb2a 2004-04-19 devnull 	uint mtype;
 41 a84cbb2a 2004-04-19 devnull 	uint atype;
 42 a84cbb2a 2004-04-19 devnull 	int (*coreregs)(Elf*, ElfNote*, uchar**);
 43 a84cbb2a 2004-04-19 devnull } ctab[] = 
 44 a84cbb2a 2004-04-19 devnull {	/* Font Tab 4 */
 45 a84cbb2a 2004-04-19 devnull 	M386,		ALINUX,		coreregslinux386,
 46 a84cbb2a 2004-04-19 devnull 	M386,		ANONE,		coreregslinux386,	/* [sic] */
 47 a84cbb2a 2004-04-19 devnull 	M386,		AFREEBSD,	coreregsfreebsd386,
 48 a84cbb2a 2004-04-19 devnull };
 49 a84cbb2a 2004-04-19 devnull 
 50 a84cbb2a 2004-04-19 devnull int
 51 a84cbb2a 2004-04-19 devnull crackelf(int fd, Fhdr *fp)
 52 a84cbb2a 2004-04-19 devnull {
 53 a84cbb2a 2004-04-19 devnull 	int i, havetext, havedata;
 54 a84cbb2a 2004-04-19 devnull 	Elf *elf;
 55 a84cbb2a 2004-04-19 devnull 	ElfProg *p;
 56 a84cbb2a 2004-04-19 devnull 	ElfSect *s1, *s2;
 57 a84cbb2a 2004-04-19 devnull 
 58 a84cbb2a 2004-04-19 devnull 	if((elf = elfinit(fd)) == nil)
 59 a84cbb2a 2004-04-19 devnull 		return -1;
 60 a84cbb2a 2004-04-19 devnull 
 61 a84cbb2a 2004-04-19 devnull 	fp->fd = fd;
 62 a84cbb2a 2004-04-19 devnull 	fp->elf = elf;
 63 a84cbb2a 2004-04-19 devnull 	fp->dwarf = dwarfopen(elf);	/* okay to fail */
 64 a84cbb2a 2004-04-19 devnull 	fp->syminit = symelf;
 65 a84cbb2a 2004-04-19 devnull 
 66 a84cbb2a 2004-04-19 devnull 	if((s1 = elfsection(elf, ".stab")) != nil && s1->link!=0 && s1->link < elf->nsect){
 67 a84cbb2a 2004-04-19 devnull 		s2 = &elf->sect[s1->link];
 68 a84cbb2a 2004-04-19 devnull 		if(elfmap(elf, s1) >= 0 && elfmap(elf, s2) >= 0){
 69 a84cbb2a 2004-04-19 devnull 			fp->stabs.stabbase = s1->base;
 70 a84cbb2a 2004-04-19 devnull 			fp->stabs.stabsize = s1->size;
 71 929ba9b9 2004-04-20 devnull 			fp->stabs.strbase = (char*)s2->base;
 72 a84cbb2a 2004-04-19 devnull 			fp->stabs.strsize = s2->size;
 73 a84cbb2a 2004-04-19 devnull 			fp->stabs.e2 = elf->hdr.e2;
 74 a84cbb2a 2004-04-19 devnull 			fp->stabs.e4 = elf->hdr.e4;
 75 a84cbb2a 2004-04-19 devnull 		}
 76 a84cbb2a 2004-04-19 devnull 	}
 77 a84cbb2a 2004-04-19 devnull 
 78 a84cbb2a 2004-04-19 devnull 	for(i=0; i<nelem(mtab); i++){
 79 a84cbb2a 2004-04-19 devnull 		if(elf->hdr.machine != mtab[i].etype)
 80 a84cbb2a 2004-04-19 devnull 			continue;
 81 a84cbb2a 2004-04-19 devnull 		fp->mach = mtab[i].mach;
 82 a84cbb2a 2004-04-19 devnull 		fp->mname = mtab[i].name;
 83 a84cbb2a 2004-04-19 devnull 		fp->mtype = mtab[i].mtype;
 84 a84cbb2a 2004-04-19 devnull 		break;
 85 a84cbb2a 2004-04-19 devnull 	}
 86 a84cbb2a 2004-04-19 devnull 	if(i == nelem(mtab)){
 87 a84cbb2a 2004-04-19 devnull 		werrstr("unsupported machine type %d", elf->hdr.machine);
 88 a84cbb2a 2004-04-19 devnull 		goto err;
 89 a84cbb2a 2004-04-19 devnull 	}
 90 a84cbb2a 2004-04-19 devnull 
 91 a84cbb2a 2004-04-19 devnull 	if(mach == nil)
 92 a84cbb2a 2004-04-19 devnull 		mach = fp->mach;
 93 a84cbb2a 2004-04-19 devnull 
 94 a84cbb2a 2004-04-19 devnull 	fp->aname = "unknown";
 95 a84cbb2a 2004-04-19 devnull 	for(i=0; i<nelem(atab); i++){
 96 a84cbb2a 2004-04-19 devnull 		if(elf->hdr.abi != atab[i].etype)
 97 a84cbb2a 2004-04-19 devnull 			continue;
 98 a84cbb2a 2004-04-19 devnull 		fp->atype = atab[i].atype;
 99 a84cbb2a 2004-04-19 devnull 		fp->aname = atab[i].aname;
100 a84cbb2a 2004-04-19 devnull 		break;
101 a84cbb2a 2004-04-19 devnull 	}
102 a84cbb2a 2004-04-19 devnull 
103 a84cbb2a 2004-04-19 devnull 	switch(elf->hdr.type){
104 a84cbb2a 2004-04-19 devnull 	default:
105 a84cbb2a 2004-04-19 devnull 		werrstr("unknown file type %d", elf->hdr.type);
106 a84cbb2a 2004-04-19 devnull 		goto err;
107 a84cbb2a 2004-04-19 devnull 	case ElfTypeExecutable:
108 a84cbb2a 2004-04-19 devnull 		fp->ftype = FEXEC;
109 a84cbb2a 2004-04-19 devnull 		fp->fname = "executable";
110 a84cbb2a 2004-04-19 devnull 		break;
111 a84cbb2a 2004-04-19 devnull 	case ElfTypeRelocatable:
112 a84cbb2a 2004-04-19 devnull 		fp->ftype = FRELOC;
113 a84cbb2a 2004-04-19 devnull 		fp->fname = "relocatable";
114 a84cbb2a 2004-04-19 devnull 		break;
115 a84cbb2a 2004-04-19 devnull 	case ElfTypeSharedObject:
116 a84cbb2a 2004-04-19 devnull 		fp->ftype = FSHOBJ;
117 a84cbb2a 2004-04-19 devnull 		fp->fname = "shared object";
118 a84cbb2a 2004-04-19 devnull 		break;
119 a84cbb2a 2004-04-19 devnull 	case ElfTypeCore:
120 a84cbb2a 2004-04-19 devnull 		fp->ftype = FCORE;
121 a84cbb2a 2004-04-19 devnull 		fp->fname = "core dump";
122 a84cbb2a 2004-04-19 devnull 		break;
123 a84cbb2a 2004-04-19 devnull 	}
124 a84cbb2a 2004-04-19 devnull 
125 a84cbb2a 2004-04-19 devnull 	fp->map = mapelf;
126 a84cbb2a 2004-04-19 devnull 
127 a84cbb2a 2004-04-19 devnull 	if(fp->ftype == FCORE){
128 a84cbb2a 2004-04-19 devnull 		for(i=0; i<nelem(ctab); i++){
129 a84cbb2a 2004-04-19 devnull 			if(ctab[i].atype != fp->atype
130 a84cbb2a 2004-04-19 devnull 			|| ctab[i].mtype != fp->mtype)
131 a84cbb2a 2004-04-19 devnull 				continue;
132 a84cbb2a 2004-04-19 devnull 			elf->coreregs = ctab[i].coreregs;
133 a84cbb2a 2004-04-19 devnull 			break;
134 a84cbb2a 2004-04-19 devnull 		}
135 a84cbb2a 2004-04-19 devnull 		return 0;
136 a84cbb2a 2004-04-19 devnull 	}
137 a84cbb2a 2004-04-19 devnull 
138 a84cbb2a 2004-04-19 devnull 	fp->entry = elf->hdr.entry;
139 a84cbb2a 2004-04-19 devnull 
140 a84cbb2a 2004-04-19 devnull 	/* First r-x section we find is the text and initialized data */
141 a84cbb2a 2004-04-19 devnull 	/* First rw- section we find is the r/w data */
142 a84cbb2a 2004-04-19 devnull 	havetext = 0;
143 a84cbb2a 2004-04-19 devnull 	havedata = 0;
144 a84cbb2a 2004-04-19 devnull 	for(i=0; i<elf->nprog; i++){
145 a84cbb2a 2004-04-19 devnull 		p = &elf->prog[i];
146 a84cbb2a 2004-04-19 devnull 		if(p->type != ElfProgLoad)
147 a84cbb2a 2004-04-19 devnull 			continue;
148 a84cbb2a 2004-04-19 devnull 		if(!havetext && p->flags == (ElfProgFlagRead|ElfProgFlagExec) && p->align >= mach->pgsize){
149 a84cbb2a 2004-04-19 devnull 			havetext = 1;
150 a84cbb2a 2004-04-19 devnull 			fp->txtaddr = p->vaddr;
151 a84cbb2a 2004-04-19 devnull 			fp->txtsz = p->memsz;
152 a84cbb2a 2004-04-19 devnull 			fp->txtoff = p->offset;
153 a84cbb2a 2004-04-19 devnull 		}
154 a84cbb2a 2004-04-19 devnull 		if(!havedata && p->flags == (ElfProgFlagRead|ElfProgFlagWrite) && p->align >= mach->pgsize){
155 a84cbb2a 2004-04-19 devnull 			havedata = 1;
156 a84cbb2a 2004-04-19 devnull 			fp->dataddr = p->vaddr;
157 a84cbb2a 2004-04-19 devnull 			fp->datsz = p->filesz;
158 a84cbb2a 2004-04-19 devnull 			fp->datoff = p->offset;
159 a84cbb2a 2004-04-19 devnull 			fp->bsssz = p->memsz - p->filesz;
160 a84cbb2a 2004-04-19 devnull 		}
161 a84cbb2a 2004-04-19 devnull 	}
162 a84cbb2a 2004-04-19 devnull 	if(!havetext){
163 a84cbb2a 2004-04-19 devnull 		werrstr("did not find text segment in elf binary");
164 a84cbb2a 2004-04-19 devnull 		goto err;
165 a84cbb2a 2004-04-19 devnull 	}
166 a84cbb2a 2004-04-19 devnull 	if(!havedata){
167 a84cbb2a 2004-04-19 devnull 		werrstr("did not find data segment in elf binary");
168 a84cbb2a 2004-04-19 devnull 		goto err;
169 a84cbb2a 2004-04-19 devnull 	}
170 a84cbb2a 2004-04-19 devnull 	return 0;
171 a84cbb2a 2004-04-19 devnull 
172 a84cbb2a 2004-04-19 devnull err:
173 a84cbb2a 2004-04-19 devnull 	elfclose(elf);
174 a84cbb2a 2004-04-19 devnull 	return -1;
175 a84cbb2a 2004-04-19 devnull }
176 a84cbb2a 2004-04-19 devnull 
177 a84cbb2a 2004-04-19 devnull static int
178 a84cbb2a 2004-04-19 devnull mapelf(Fhdr *fp, ulong base, Map *map, Regs **regs)
179 a84cbb2a 2004-04-19 devnull {
180 a84cbb2a 2004-04-19 devnull 	int i;
181 a84cbb2a 2004-04-19 devnull 	Elf *elf;
182 a84cbb2a 2004-04-19 devnull 	ElfProg *p;
183 a84cbb2a 2004-04-19 devnull 	ulong sz;
184 a84cbb2a 2004-04-19 devnull 	ulong lim;
185 a84cbb2a 2004-04-19 devnull 	Seg s;
186 a84cbb2a 2004-04-19 devnull 
187 a84cbb2a 2004-04-19 devnull 	elf = fp->elf;
188 a84cbb2a 2004-04-19 devnull 	if(elf == nil){
189 a84cbb2a 2004-04-19 devnull 		werrstr("not an elf file");
190 a84cbb2a 2004-04-19 devnull 		return -1;
191 a84cbb2a 2004-04-19 devnull 	}
192 a84cbb2a 2004-04-19 devnull 
193 a84cbb2a 2004-04-19 devnull 	for(i=0; i<elf->nprog; i++){
194 a84cbb2a 2004-04-19 devnull 		p = &elf->prog[i];
195 a84cbb2a 2004-04-19 devnull 		if(p->type != ElfProgLoad)
196 a84cbb2a 2004-04-19 devnull 			continue;
197 a84cbb2a 2004-04-19 devnull 		if(p->align < mach->pgsize)
198 a84cbb2a 2004-04-19 devnull 			continue;
199 a84cbb2a 2004-04-19 devnull 		if(p->filesz){
200 a84cbb2a 2004-04-19 devnull 			memset(&s, 0, sizeof s);
201 a84cbb2a 2004-04-19 devnull 			s.file = fp->filename;
202 a84cbb2a 2004-04-19 devnull 			s.fd = fp->fd;
203 a84cbb2a 2004-04-19 devnull 			if(fp->ftype == FCORE)
204 a84cbb2a 2004-04-19 devnull 				s.name = "core";
205 a84cbb2a 2004-04-19 devnull 			else if(p->flags == 5)
206 a84cbb2a 2004-04-19 devnull 				s.name = "text";
207 a84cbb2a 2004-04-19 devnull 			else
208 a84cbb2a 2004-04-19 devnull 				s.name = "data";
209 a84cbb2a 2004-04-19 devnull 			s.base = base+p->vaddr;
210 a84cbb2a 2004-04-19 devnull 			s.size = p->filesz;
211 a84cbb2a 2004-04-19 devnull 			s.offset = p->offset;
212 a84cbb2a 2004-04-19 devnull 			if(addseg(map, s) < 0)
213 a84cbb2a 2004-04-19 devnull 				return -1;
214 a84cbb2a 2004-04-19 devnull 		}
215 a84cbb2a 2004-04-19 devnull 		/*
216 a84cbb2a 2004-04-19 devnull 		 * If memsz > filesz, we're supposed to zero fill.
217 a84cbb2a 2004-04-19 devnull 		 * Core files have zeroed sections where the pages
218 a84cbb2a 2004-04-19 devnull 		 * can be filled in from the text file, so if this is a core
219 a84cbb2a 2004-04-19 devnull 		 * we only fill in that which isn't yet mapped.
220 a84cbb2a 2004-04-19 devnull 		 */
221 a84cbb2a 2004-04-19 devnull 		if(fp->ftype == FCORE){
222 a84cbb2a 2004-04-19 devnull 			sz = p->filesz;
223 a84cbb2a 2004-04-19 devnull 			while(sz < p->memsz){
224 a84cbb2a 2004-04-19 devnull 				if(addrtoseg(map, base+p->vaddr+sz, &s) < 0){
225 a84cbb2a 2004-04-19 devnull 					lim = base + p->vaddr + p->memsz;
226 a84cbb2a 2004-04-19 devnull 					if(addrtosegafter(map, base+p->vaddr+sz, &s) >= 0 && s.base < lim)
227 a84cbb2a 2004-04-19 devnull 						lim = s.base;
228 a84cbb2a 2004-04-19 devnull 					memset(&s, 0, sizeof s);
229 a84cbb2a 2004-04-19 devnull 					s.name = "zero";
230 a84cbb2a 2004-04-19 devnull 					s.base = base + p->vaddr + sz;
231 a84cbb2a 2004-04-19 devnull 					s.size = lim - s.base;
232 a84cbb2a 2004-04-19 devnull 					s.offset = p->offset;
233 a84cbb2a 2004-04-19 devnull 					if(addseg(map, s) < 0)
234 a84cbb2a 2004-04-19 devnull 						return -1;
235 a84cbb2a 2004-04-19 devnull 				}else
236 a84cbb2a 2004-04-19 devnull 					sz = (s.base+s.size) - (base + p->vaddr);
237 a84cbb2a 2004-04-19 devnull 			}
238 a84cbb2a 2004-04-19 devnull 		}else{
239 a84cbb2a 2004-04-19 devnull 			if(p->filesz < p->memsz){
240 a84cbb2a 2004-04-19 devnull 				memset(&s, 0, sizeof s);
241 a84cbb2a 2004-04-19 devnull 				s.name = "zero";
242 a84cbb2a 2004-04-19 devnull 				s.base = base + p->vaddr + p->filesz;
243 a84cbb2a 2004-04-19 devnull 				s.size = p->memsz - p->filesz;
244 a84cbb2a 2004-04-19 devnull 				if(addseg(map, s) < 0)
245 a84cbb2a 2004-04-19 devnull 					return -1;
246 a84cbb2a 2004-04-19 devnull 			}
247 a84cbb2a 2004-04-19 devnull 		}			
248 a84cbb2a 2004-04-19 devnull 	}
249 a84cbb2a 2004-04-19 devnull 
250 a84cbb2a 2004-04-19 devnull 	if(fp->ftype == FCORE){
251 a84cbb2a 2004-04-19 devnull 		if(mapcoreregs(fp, map, regs) < 0)
252 a84cbb2a 2004-04-19 devnull 			fprint(2, "warning: reading core regs: %r");
253 a84cbb2a 2004-04-19 devnull 	}
254 a84cbb2a 2004-04-19 devnull 
255 a84cbb2a 2004-04-19 devnull 	return 0;	
256 a84cbb2a 2004-04-19 devnull }
257 a84cbb2a 2004-04-19 devnull 
258 a84cbb2a 2004-04-19 devnull static int
259 a84cbb2a 2004-04-19 devnull unpacknote(Elf *elf, uchar *a, uchar *ea, ElfNote *note, uchar **pa)
260 a84cbb2a 2004-04-19 devnull {
261 a84cbb2a 2004-04-19 devnull 	if(a+12 > ea)
262 a84cbb2a 2004-04-19 devnull 		return -1;
263 a84cbb2a 2004-04-19 devnull 	note->namesz = elf->hdr.e4(a);
264 a84cbb2a 2004-04-19 devnull 	note->descsz = elf->hdr.e4(a+4);
265 a84cbb2a 2004-04-19 devnull 	note->type = elf->hdr.e4(a+8);
266 a84cbb2a 2004-04-19 devnull 	a += 12;
267 a84cbb2a 2004-04-19 devnull 	note->name = (char*)a;
268 a84cbb2a 2004-04-19 devnull /* XXX fetch alignment constants from elsewhere */
269 a84cbb2a 2004-04-19 devnull 	a += (note->namesz+3)&~3;
270 a84cbb2a 2004-04-19 devnull 	note->desc = (uchar*)a;
271 a84cbb2a 2004-04-19 devnull 	a += (note->descsz+3)&~3;
272 a84cbb2a 2004-04-19 devnull 	if(a > ea)
273 a84cbb2a 2004-04-19 devnull 		return -1;
274 a84cbb2a 2004-04-19 devnull 	*pa = a;
275 a84cbb2a 2004-04-19 devnull 	return 0;
276 a84cbb2a 2004-04-19 devnull }
277 a84cbb2a 2004-04-19 devnull 
278 a84cbb2a 2004-04-19 devnull static int
279 a84cbb2a 2004-04-19 devnull mapcoreregs(Fhdr *fp, Map *map, Regs **rp)
280 a84cbb2a 2004-04-19 devnull {
281 a84cbb2a 2004-04-19 devnull 	int i;
282 a84cbb2a 2004-04-19 devnull 	uchar *a, *sa, *ea, *uregs;
283 a84cbb2a 2004-04-19 devnull 	uint n;
284 a84cbb2a 2004-04-19 devnull 	ElfNote note;
285 a84cbb2a 2004-04-19 devnull 	ElfProg *p;
286 a84cbb2a 2004-04-19 devnull 	Elf *elf;
287 a84cbb2a 2004-04-19 devnull 	UregRegs *r;
288 a84cbb2a 2004-04-19 devnull 
289 a84cbb2a 2004-04-19 devnull 	elf = fp->elf;
290 a84cbb2a 2004-04-19 devnull 	if(elf->coreregs == nil){
291 a84cbb2a 2004-04-19 devnull 		werrstr("cannot parse %s %s cores", fp->mname, fp->aname);
292 a84cbb2a 2004-04-19 devnull 		return -1;
293 a84cbb2a 2004-04-19 devnull 	}
294 a84cbb2a 2004-04-19 devnull 
295 a84cbb2a 2004-04-19 devnull 	for(i=0; i<elf->nprog; i++){
296 a84cbb2a 2004-04-19 devnull 		p = &elf->prog[i];
297 a84cbb2a 2004-04-19 devnull 		if(p->type != ElfProgNote)
298 a84cbb2a 2004-04-19 devnull 			continue;
299 a84cbb2a 2004-04-19 devnull 		n = p->filesz;
300 a84cbb2a 2004-04-19 devnull 		a = malloc(n);
301 a84cbb2a 2004-04-19 devnull 		if(a == nil)
302 a84cbb2a 2004-04-19 devnull 			return -1;
303 a84cbb2a 2004-04-19 devnull 		if(seek(fp->fd, p->offset, 0) < 0 || readn(fp->fd, a, n) != n){
304 a84cbb2a 2004-04-19 devnull 			free(a);
305 a84cbb2a 2004-04-19 devnull 			continue;
306 a84cbb2a 2004-04-19 devnull 		}
307 a84cbb2a 2004-04-19 devnull 		sa = a;
308 a84cbb2a 2004-04-19 devnull 		ea = a+n;
309 a84cbb2a 2004-04-19 devnull 		while(a < ea){
310 a84cbb2a 2004-04-19 devnull 			note.offset = (a-sa) + p->offset;
311 a84cbb2a 2004-04-19 devnull 			if(unpacknote(elf, a, ea, &note, &a) < 0)
312 a84cbb2a 2004-04-19 devnull 				break;
313 a84cbb2a 2004-04-19 devnull 			switch(note.type){
314 a84cbb2a 2004-04-19 devnull 			case ElfNotePrStatus:
315 a84cbb2a 2004-04-19 devnull 				if((n = (*elf->coreregs)(elf, &note, &uregs)) < 0){
316 a84cbb2a 2004-04-19 devnull 					free(sa);
317 a84cbb2a 2004-04-19 devnull 					return -1;
318 a84cbb2a 2004-04-19 devnull 				}
319 a84cbb2a 2004-04-19 devnull 				free(sa);
320 a84cbb2a 2004-04-19 devnull 				if((r = mallocz(sizeof(*r), 1)) == nil){
321 a84cbb2a 2004-04-19 devnull 					free(uregs);
322 a84cbb2a 2004-04-19 devnull 					return -1;
323 a84cbb2a 2004-04-19 devnull 				}
324 a84cbb2a 2004-04-19 devnull 				r->r.rw = _uregrw;
325 a84cbb2a 2004-04-19 devnull 				r->ureg = uregs;
326 a84cbb2a 2004-04-19 devnull 				*rp = &r->r;
327 a84cbb2a 2004-04-19 devnull 				return 0;
328 a84cbb2a 2004-04-19 devnull 			case ElfNotePrFpreg:
329 a84cbb2a 2004-04-19 devnull 			case ElfNotePrPsinfo:
330 a84cbb2a 2004-04-19 devnull 			case ElfNotePrTaskstruct:
331 a84cbb2a 2004-04-19 devnull 			case ElfNotePrAuxv:
332 a84cbb2a 2004-04-19 devnull 			case ElfNotePrXfpreg:
333 a84cbb2a 2004-04-19 devnull 				break;
334 a84cbb2a 2004-04-19 devnull 			}
335 a84cbb2a 2004-04-19 devnull 		//	fprint(2, "0x%lux note %s/%lud %p\n", note.offset, note.name, note.type, note.desc);
336 a84cbb2a 2004-04-19 devnull 		}
337 a84cbb2a 2004-04-19 devnull 		free(sa);
338 a84cbb2a 2004-04-19 devnull 	}
339 a84cbb2a 2004-04-19 devnull 	fprint(2, "could not find registers in core file\n");
340 a84cbb2a 2004-04-19 devnull 	return -1;
341 a84cbb2a 2004-04-19 devnull }
342 a84cbb2a 2004-04-19 devnull