Commit | Line | Data |
---|---|---|
252b5132 | 1 | /* BFD back end for Lynx core files |
aa820537 | 2 | Copyright 1993, 1994, 1995, 2001, 2002, 2004, 2005, 2006, 2007 |
eea6121a | 3 | Free Software Foundation, Inc. |
252b5132 RH |
4 | Written by Stu Grossman of Cygnus Support. |
5 | ||
cd123cb7 | 6 | This file is part of BFD, the Binary File Descriptor library. |
252b5132 | 7 | |
cd123cb7 NC |
8 | This program is free software; you can redistribute it and/or modify |
9 | it under the terms of the GNU General Public License as published by | |
10 | the Free Software Foundation; either version 3 of the License, or | |
11 | (at your option) any later version. | |
252b5132 | 12 | |
cd123cb7 NC |
13 | This program is distributed in the hope that it will be useful, |
14 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 | GNU General Public License for more details. | |
252b5132 | 17 | |
cd123cb7 NC |
18 | You should have received a copy of the GNU General Public License |
19 | along with this program; if not, write to the Free Software | |
20 | Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, | |
21 | MA 02110-1301, USA. */ | |
252b5132 | 22 | |
252b5132 | 23 | #include "sysdep.h" |
3db64b00 | 24 | #include "bfd.h" |
252b5132 RH |
25 | #include "libbfd.h" |
26 | ||
27 | #ifdef LYNX_CORE | |
28 | ||
29 | #include <sys/conf.h> | |
30 | #include <sys/kernel.h> | |
509945ae | 31 | /* sys/kernel.h should define this, but doesn't always, sigh. */ |
252b5132 RH |
32 | #ifndef __LYNXOS |
33 | #define __LYNXOS | |
34 | #endif | |
35 | #include <sys/mem.h> | |
36 | #include <sys/signal.h> | |
37 | #include <sys/time.h> | |
38 | #include <sys/resource.h> | |
39 | #include <sys/itimer.h> | |
40 | #include <sys/file.h> | |
41 | #include <sys/proc.h> | |
42 | ||
43 | /* These are stored in the bfd's tdata */ | |
44 | ||
509945ae | 45 | struct lynx_core_struct |
252b5132 RH |
46 | { |
47 | int sig; | |
48 | char cmd[PNMLEN + 1]; | |
49 | }; | |
50 | ||
51 | #define core_hdr(bfd) ((bfd)->tdata.lynx_core_data) | |
52 | #define core_signal(bfd) (core_hdr(bfd)->sig) | |
53 | #define core_command(bfd) (core_hdr(bfd)->cmd) | |
54 | ||
69d246d9 | 55 | #define lynx_core_file_matches_executable_p generic_core_file_matches_executable_p |
261b8d08 | 56 | #define lynx_core_file_pid _bfd_nocore_core_file_pid |
69d246d9 | 57 | |
252b5132 RH |
58 | /* Handle Lynx core dump file. */ |
59 | ||
60 | static asection * | |
eea6121a | 61 | make_bfd_asection (abfd, name, flags, size, vma, filepos) |
252b5132 | 62 | bfd *abfd; |
dc810e39 | 63 | const char *name; |
252b5132 | 64 | flagword flags; |
eea6121a | 65 | bfd_size_type size; |
252b5132 RH |
66 | bfd_vma vma; |
67 | file_ptr filepos; | |
68 | { | |
69 | asection *asect; | |
70 | char *newname; | |
71 | ||
dc810e39 | 72 | newname = bfd_alloc (abfd, (bfd_size_type) strlen (name) + 1); |
252b5132 RH |
73 | if (!newname) |
74 | return NULL; | |
75 | ||
76 | strcpy (newname, name); | |
77 | ||
117ed4f8 | 78 | asect = bfd_make_section_with_flags (abfd, newname, flags); |
252b5132 RH |
79 | if (!asect) |
80 | return NULL; | |
81 | ||
eea6121a | 82 | asect->size = size; |
252b5132 RH |
83 | asect->vma = vma; |
84 | asect->filepos = filepos; | |
85 | asect->alignment_power = 2; | |
86 | ||
87 | return asect; | |
88 | } | |
89 | ||
252b5132 RH |
90 | const bfd_target * |
91 | lynx_core_file_p (abfd) | |
92 | bfd *abfd; | |
93 | { | |
252b5132 RH |
94 | int secnum; |
95 | struct pssentry pss; | |
dc810e39 | 96 | bfd_size_type tcontext_size; |
252b5132 RH |
97 | core_st_t *threadp; |
98 | int pagesize; | |
99 | asection *newsect; | |
dc810e39 | 100 | bfd_size_type amt; |
252b5132 RH |
101 | |
102 | pagesize = getpagesize (); /* Serious cross-target issue here... This | |
103 | really needs to come from a system-specific | |
104 | header file. */ | |
105 | ||
106 | /* Get the pss entry from the core file */ | |
107 | ||
dc810e39 | 108 | if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0) |
252b5132 RH |
109 | return NULL; |
110 | ||
dc810e39 AM |
111 | amt = sizeof pss; |
112 | if (bfd_bread ((void *) &pss, amt, abfd) != amt) | |
252b5132 RH |
113 | { |
114 | /* Too small to be a core file */ | |
115 | if (bfd_get_error () != bfd_error_system_call) | |
116 | bfd_set_error (bfd_error_wrong_format); | |
117 | return NULL; | |
118 | } | |
119 | ||
dc810e39 AM |
120 | amt = sizeof (struct lynx_core_struct); |
121 | core_hdr (abfd) = (struct lynx_core_struct *) bfd_zalloc (abfd, amt); | |
252b5132 RH |
122 | |
123 | if (!core_hdr (abfd)) | |
124 | return NULL; | |
125 | ||
126 | strncpy (core_command (abfd), pss.pname, PNMLEN + 1); | |
127 | ||
128 | /* Compute the size of the thread contexts */ | |
129 | ||
130 | tcontext_size = pss.threadcnt * sizeof (core_st_t); | |
131 | ||
132 | /* Allocate space for the thread contexts */ | |
133 | ||
dc810e39 | 134 | threadp = (core_st_t *) bfd_alloc (abfd, tcontext_size); |
252b5132 | 135 | if (!threadp) |
9e7b37b3 | 136 | goto fail; |
252b5132 RH |
137 | |
138 | /* Save thread contexts */ | |
139 | ||
dc810e39 | 140 | if (bfd_seek (abfd, (file_ptr) pagesize, SEEK_SET) != 0) |
9e7b37b3 | 141 | goto fail; |
252b5132 | 142 | |
dc810e39 | 143 | if (bfd_bread ((void *) threadp, tcontext_size, abfd) != tcontext_size) |
252b5132 RH |
144 | { |
145 | /* Probably too small to be a core file */ | |
146 | if (bfd_get_error () != bfd_error_system_call) | |
147 | bfd_set_error (bfd_error_wrong_format); | |
9e7b37b3 | 148 | goto fail; |
252b5132 | 149 | } |
509945ae | 150 | |
252b5132 RH |
151 | core_signal (abfd) = threadp->currsig; |
152 | ||
153 | newsect = make_bfd_asection (abfd, ".stack", | |
154 | SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS, | |
155 | pss.ssize, | |
156 | pss.slimit, | |
157 | pagesize + tcontext_size); | |
158 | if (!newsect) | |
9e7b37b3 | 159 | goto fail; |
252b5132 RH |
160 | |
161 | newsect = make_bfd_asection (abfd, ".data", | |
162 | SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS, | |
163 | pss.data_len + pss.bss_len, | |
164 | pss.data_start, | |
165 | pagesize + tcontext_size + pss.ssize | |
166 | #if defined (SPARC) || defined (__SPARC__) | |
167 | /* SPARC Lynx seems to start dumping | |
168 | the .data section at a page | |
169 | boundary. It's OK to check a | |
170 | #define like SPARC here because this | |
171 | file can only be compiled on a Lynx | |
172 | host. */ | |
173 | + pss.data_start % pagesize | |
174 | #endif | |
175 | ); | |
176 | if (!newsect) | |
9e7b37b3 | 177 | goto fail; |
252b5132 RH |
178 | |
179 | /* And, now for the .reg/XXX pseudo sections. Each thread has it's own | |
180 | .reg/XXX section, where XXX is the thread id (without leading zeros). The | |
181 | currently running thread (at the time of the core dump) also has an alias | |
182 | called `.reg' (just to keep GDB happy). Note that we use `.reg/XXX' as | |
183 | opposed to `.regXXX' because GDB expects that .reg2 will be the floating- | |
184 | point registers. */ | |
185 | ||
186 | newsect = make_bfd_asection (abfd, ".reg", | |
187 | SEC_HAS_CONTENTS, | |
188 | sizeof (core_st_t), | |
189 | 0, | |
190 | pagesize); | |
191 | if (!newsect) | |
9e7b37b3 | 192 | goto fail; |
252b5132 RH |
193 | |
194 | for (secnum = 0; secnum < pss.threadcnt; secnum++) | |
195 | { | |
196 | char secname[100]; | |
197 | ||
198 | sprintf (secname, ".reg/%d", BUILDPID (0, threadp[secnum].tid)); | |
199 | newsect = make_bfd_asection (abfd, secname, | |
200 | SEC_HAS_CONTENTS, | |
201 | sizeof (core_st_t), | |
202 | 0, | |
203 | pagesize + secnum * sizeof (core_st_t)); | |
204 | if (!newsect) | |
9e7b37b3 | 205 | goto fail; |
252b5132 RH |
206 | } |
207 | ||
208 | return abfd->xvec; | |
9e7b37b3 AM |
209 | |
210 | fail: | |
211 | bfd_release (abfd, core_hdr (abfd)); | |
212 | core_hdr (abfd) = NULL; | |
213 | bfd_section_list_clear (abfd); | |
214 | return NULL; | |
252b5132 RH |
215 | } |
216 | ||
217 | char * | |
218 | lynx_core_file_failing_command (abfd) | |
219 | bfd *abfd; | |
220 | { | |
221 | return core_command (abfd); | |
222 | } | |
223 | ||
252b5132 RH |
224 | int |
225 | lynx_core_file_failing_signal (abfd) | |
226 | bfd *abfd; | |
227 | { | |
228 | return core_signal (abfd); | |
229 | } | |
230 | ||
252b5132 | 231 | #endif /* LYNX_CORE */ |