telfcorelinux386.c - plan9port - [fork] Plan 9 from user space
HTML git clone git://src.adamsgaard.dk/plan9port
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
telfcorelinux386.c (4396B)
---
1 #include <u.h>
2 #include <libc.h>
3 #include <mach.h>
4 #include "elf.h"
5 #include "ureg386.h"
6
7 #undef errno
8 #define errno uregerrno
9
10 typedef struct Lreg Lreg;
11 typedef struct Status Status;
12 typedef struct Psinfo Psinfo;
13
14 /*
15 * UregLinux386 is 64-bit aligned within status, so we shouldn't
16 * have any packing problems.
17 */
18 struct Status
19 {
20 u32int signo;
21 u32int code;
22 u32int errno;
23 u32int cursig;
24 u32int sigpend;
25 u32int sighold;
26 u32int pid;
27 u32int ppid;
28 u32int pgrp;
29 u32int sid;
30 u32int utime[2];
31 u32int stime[2];
32 u32int cutime[2];
33 u32int cstime[2];
34 UregLinux386 reg;
35 u32int fpvalid;
36 };
37 enum
38 {
39 StatusSize = sizeof(Status)
40 };
41
42 struct Psinfo
43 {
44 char state;
45 char sname;
46 char zomb;
47 char nice;
48 u32int flag;
49 u16int uid;
50 u16int gid;
51 u32int pid;
52 u32int ppid;
53 u32int pgrp;
54 u32int sid;
55 char fname[16];
56 char psargs[80];
57 };
58 enum
59 {
60 PsinfoSize = sizeof(Psinfo)
61 };
62
63 int
64 coreregslinux386(Elf *elf, ElfNote *note, uchar **up)
65 {
66 Status *s;
67 UregLinux386 *l;
68 Ureg *u;
69
70 if(note->descsz < sizeof(Status)){
71 werrstr("elf status note too small");
72 return -1;
73 }
74 s = (Status*)note->desc;
75 l = &s->reg;
76 if((u = malloc(sizeof *u)) == nil)
77 return -1;
78 linux2ureg386(l, u);
79 *up = (uchar*)u;
80 return sizeof(Ureg);
81 }
82
83 int
84 corecmdlinux386(Elf *elf, ElfNote *note, char **pp)
85 {
86 char *t;
87 Psinfo *p;
88
89 *pp = nil;
90 if(note->descsz < sizeof(Psinfo)){
91 werrstr("elf psinfo note too small");
92 return -1;
93 }
94 p = (Psinfo*)note->desc;
95 /* print("elf name %s\nelf args %s\n", p->fname, p->psargs); */
96 t = malloc(80+1);
97 if(t == nil)
98 return -1;
99 memmove(t, p->psargs, 80);
100 t[80] = 0;
101 *pp = t;
102 return 0;
103 }
104
105 #define dprint if(0)print
106
107 void
108 elfcorelinux386(Fhdr *fp, Elf *elf, ElfNote *note)
109 {
110 int i;
111 Psinfo *ps;
112 Status *st;
113 Mach *m;
114 Ureg *u;
115
116 m = fp->mach;
117 dprint("%s ", note->name);
118 switch(note->type){
119 case ElfNotePrPsinfo:
120 ps = (Psinfo*)note->desc;
121 dprint("note info\n");
122 dprint("state=%d sname=%d zomb=%d nice=%d\n",
123 ps->state, ps->sname, ps->zomb, ps->nice);
124 dprint("flag=0x%ux uid=%ud gid=%ud pid=%ud ppid=%ud pgrp=%ud sid=%ud\n",
125 (uint)m->swap4(ps->flag),
126 (uint)m->swap2(ps->uid),
127 (uint)m->swap2(ps->gid),
128 (uint)m->swap4(ps->pid),
129 (uint)m->swap4(ps->ppid),
130 (uint)m->swap4(ps->pgrp),
131 (uint)m->swap4(ps->sid));
132 dprint("fname=%s psargs=%s\n", ps->fname, ps->psargs);
133 fp->pid = m->swap4(ps->pid);
134 if((fp->prog = strdup(ps->fname)) == nil)
135 fprint(2, "warning: out of memory saving core program name\n");
136 if((fp->cmdline = strdup(ps->psargs)) == nil)
137 fprint(2, "warning: out of memory saving core command line\n");
138 break;
139 case ElfNotePrTaskstruct:
140 dprint("note taskstruct\n");
141 break;
142 case ElfNotePrAuxv:
143 dprint("note auxv\n");
144 break;
145 case ElfNotePrStatus:
146 dprint("note status\n");
147 if(note->descsz < StatusSize){
148 dprint("too small\n");
149 break;
150 }
151 st = (Status*)note->desc;
152 dprint("sig=%ud code=%ud errno=%ud cursig=%ud sigpend=0x%ux sighold=0x%ux\n",
153 (uint)m->swap4(st->signo),
154 (uint)m->swap4(st->code),
155 (uint)m->swap4(st->errno),
156 (uint)m->swap4(st->cursig),
157 (uint)m->swap4(st->sigpend),
158 (uint)m->swap4(st->sighold));
159 dprint("pid=%ud ppid=%ud pgrp=%ud sid=%ud\n",
160 (uint)m->swap4(st->pid),
161 (uint)m->swap4(st->ppid),
162 (uint)m->swap4(st->pgrp),
163 (uint)m->swap4(st->sid));
164 dprint("utime=%ud.%06ud stime=%ud.%06ud cutime=%ud.%06ud cstime=%ud.%06ud\n",
165 (uint)m->swap4(st->utime[0]),
166 (uint)m->swap4(st->utime[1]),
167 (uint)m->swap4(st->stime[0]),
168 (uint)m->swap4(st->stime[1]),
169 (uint)m->swap4(st->cutime[0]),
170 (uint)m->swap4(st->cutime[1]),
171 (uint)m->swap4(st->cstime[0]),
172 (uint)m->swap4(st->cstime[1]));
173 dprint("fpvalid=%ud\n",
174 (uint)m->swap4(st->fpvalid));
175 if((fp->thread = realloc(fp->thread, (1+fp->nthread)*sizeof(fp->thread[0]))) == nil){
176 fprint(2, "warning: out of memory saving thread info\n");
177 return;
178 }
179 i = fp->nthread;
180 fp->thread[i].id = m->swap4(st->pid);
181 u = malloc(sizeof *u);
182 if(u == nil){
183 fprint(2, "warning: out of memory saving thread info\n");
184 return;
185 }
186 fp->thread[i].ureg = u;
187 linux2ureg386(&st->reg, u);
188 fp->nthread++;
189 break;
190 case ElfNotePrFpreg:
191 dprint("note fpreg\n");
192 /* XXX maybe record floating-point registers eventually */
193 break;
194 case ElfNotePrXfpreg:
195 dprint("note xfpreg\n");
196 /* XXX maybe record floating-point registers eventually */
197 break;
198 default:
199 dprint("note %d\n", note->type);
200 }
201 }