OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [branches/] [oc/] [gdb-5.0/] [bfd/] [sco5-core.c] - Blame information for rev 1771

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 104 markom
/* BFD back end for SCO5 core files (U-area and raw sections)
2
   Copyright 1998 Free Software Foundation, Inc.
3
   Written by Jouke Numan <jnuman@hiscom.nl>
4
 
5
This file is part of BFD, the Binary File Descriptor library.
6
 
7
This program is free software; you can redistribute it and/or modify
8
it under the terms of the GNU General Public License as published by
9
the Free Software Foundation; either version 2 of the License, or
10
(at your option) any later version.
11
 
12
This program is distributed in the hope that it will be useful,
13
but WITHOUT ANY WARRANTY; without even the implied warranty of
14
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15
GNU General Public License for more details.
16
 
17
You should have received a copy of the GNU General Public License
18
along with this program; if not, write to the Free Software
19
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
20
 
21
#include "bfd.h"
22
#include "sysdep.h"
23
#include "libbfd.h"
24
#include "libaout.h"           /* BFD a.out internal data structures */
25
 
26
#include <stdio.h>
27
#include <sys/types.h>
28
#include <sys/param.h>
29
#include <sys/dir.h>
30
#include <signal.h>
31
 
32
#include <sys/user.h>           /* After a.out.h  */
33
#include <sys/paccess.h>
34
#include <sys/region.h>
35
 
36
struct sco5_core_struct
37
{
38
  struct user u;
39
};
40
 
41
/* forward declarations */
42
 
43
static asection *
44
make_bfd_asection PARAMS ((bfd *, const char *, flagword, bfd_size_type,
45
                           bfd_vma, file_ptr));
46
static asymbol *sco5_core_make_empty_symbol PARAMS ((bfd *));
47
static struct user *read_uarea PARAMS ((bfd *, int));
48
const bfd_target *sco5_core_file_p PARAMS ((bfd *abfd));
49
char *sco5_core_file_failing_command PARAMS ((bfd *abfd));
50
int sco5_core_file_failing_signal PARAMS ((bfd *abfd));
51
boolean sco5_core_file_matches_executable_p PARAMS ((bfd *core_bfd,
52
                                                     bfd *exec_bfd));
53
static void swap_abort PARAMS ((void));
54
 
55
static asection *
56
make_bfd_asection (abfd, name, flags, _raw_size, vma, filepos)
57
     bfd *abfd;
58
     const char *name;
59
     flagword flags;
60
     bfd_size_type _raw_size;
61
     bfd_vma vma;
62
     file_ptr filepos;
63
{
64
  asection *asect;
65
 
66
  asect = bfd_make_section_anyway (abfd, name);
67
  if (!asect)
68
    return NULL;
69
  asect->flags = flags;
70
  asect->_raw_size = _raw_size;
71
  asect->vma = vma;
72
  asect->filepos = filepos;
73
  asect->alignment_power = 2;
74
 
75
  return asect;
76
}
77
 
78
static asymbol *
79
sco5_core_make_empty_symbol (abfd)
80
     bfd *abfd;
81
{
82
  asymbol *new = (asymbol *) bfd_zalloc (abfd, sizeof (asymbol));
83
  if (new)
84
    new->the_bfd = abfd;
85
  return new;
86
}
87
 
88
static struct user *
89
read_uarea(abfd, filepos)
90
     bfd *abfd;
91
     int filepos;
92
 
93
{
94
  struct sco5_core_struct *rawptr;
95
 
96
  rawptr = ((struct sco5_core_struct *)
97
            bfd_zmalloc (sizeof (struct sco5_core_struct)));
98
  if (rawptr == NULL)
99
    return NULL;
100
 
101
  abfd->tdata.sco5_core_data = rawptr;
102
 
103
  if ((bfd_seek (abfd, filepos, SEEK_SET) != 0)
104
      || (bfd_read ((void *)&rawptr->u, 1, sizeof rawptr->u, abfd)
105
          != sizeof rawptr->u))
106
    {
107
      bfd_set_error (bfd_error_wrong_format);
108
      return NULL;
109
    }
110
 
111
  /* Sanity check perhaps??? */
112
  if (rawptr->u.u_dsize > 0x1000000)    /* Remember, it's in pages... */
113
    {
114
      bfd_set_error (bfd_error_wrong_format);
115
      return NULL;
116
    }
117
  if (rawptr->u.u_ssize > 0x1000000)
118
    {
119
      bfd_set_error (bfd_error_wrong_format);
120
      return NULL;
121
    }
122
  return &rawptr->u;
123
}
124
 
125
/* ARGSUSED */
126
const bfd_target *
127
sco5_core_file_p (abfd)
128
     bfd *abfd;
129
{
130
  int coffset_siz, val, nsecs, cheadoffs;
131
  int coresize;
132
  struct user *u;
133
  struct coreoffsets coffsets;
134
  struct coresecthead chead;
135
  char *secname;
136
  flagword flags;
137
 
138
  /* Read coreoffsets region at end of core (see core(FP)) */
139
 
140
  {
141
    FILE *stream = bfd_cache_lookup (abfd);
142
    struct stat statbuf;
143
    if (stream == NULL)
144
      return NULL;
145
    if (fstat (fileno (stream), &statbuf) < 0)
146
      {
147
        bfd_set_error (bfd_error_system_call);
148
        return NULL;
149
      }
150
    coresize = statbuf.st_size;
151
  }
152
  /* Last long in core is sizeof struct coreoffsets, read it */
153
  if ((bfd_seek (abfd, coresize-sizeof coffset_siz, SEEK_SET) != 0)
154
      || (bfd_read ((void *)&coffset_siz, 1, sizeof coffset_siz, abfd)
155
          != sizeof coffset_siz) )
156
    {
157
      bfd_set_error (bfd_error_wrong_format);
158
      return NULL;
159
    }
160
 
161
  /* Use it to seek start of coreoffsets region, read it and determine
162
     validity */
163
  if ((bfd_seek (abfd, coresize-coffset_siz, SEEK_SET) != 0)
164
      || (bfd_read ((void *)&coffsets, 1, sizeof coffsets, abfd)
165
          != sizeof coffsets)
166
      || ((coffsets.u_info != 1) && (coffsets.u_info != C_VERSION)))
167
    {
168
      bfd_set_error (bfd_error_wrong_format);
169
      return NULL;
170
    }
171
 
172
 
173
  if (coffsets.u_info == 1)
174
    {
175
      /* Old version, no section heads, read info from user struct */
176
 
177
      u = read_uarea(abfd, coffsets.u_user);
178
      if (! u)
179
          return NULL;
180
 
181
      if (!make_bfd_asection (abfd, ".reg", SEC_HAS_CONTENTS,
182
                              (bfd_size_type) coffsets.u_usize,
183
 
184
                              (file_ptr) coffsets.u_user))
185
        return NULL;
186
 
187
      if (!make_bfd_asection (abfd, ".data",
188
                              SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS,
189
                              ((bfd_size_type) u->u_exdata.ux_dsize
190
                               + u->u_exdata.ux_bsize),
191
                              (bfd_vma) u->u_exdata.ux_datorg,
192
                              (file_ptr) coffsets.u_data))
193
        return NULL;
194
 
195
      if (!make_bfd_asection (abfd, ".stack",
196
                              SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS,
197
                              (bfd_size_type) u->u_ssize * NBPC,
198
                              (bfd_vma) u->u_sub,
199
                              (file_ptr) coffsets.u_stack))
200
        return NULL;
201
 
202
      return abfd->xvec;                /* Done for version 1 */
203
    }
204
 
205
  /* Immediately before coreoffsets region is a long with offset in core
206
     to first coresecthead (CORES_OFFSETS), the long before this is the
207
     number of section heads in the list. Read both longs and read the
208
     coresecthead and check its validity */
209
 
210
  if ((bfd_seek (abfd,
211
                 coresize - coffset_siz - 2 * sizeof coffset_siz,
212
                 SEEK_SET) != 0)
213
      || (bfd_read ((void *)&nsecs, 1, sizeof nsecs, abfd) != sizeof nsecs)
214
      || (bfd_read ((void *)&cheadoffs, 1, sizeof cheadoffs, abfd)
215
          != sizeof cheadoffs)
216
      || (bfd_seek (abfd, cheadoffs, SEEK_SET) != 0)
217
      || (bfd_read ((void *)&chead, 1, sizeof chead, abfd) != sizeof chead)
218
      || (chead.cs_stype != CORES_OFFSETS)
219
      || (chead.cs_x.csx_magic != COREMAGIC_NUMBER))
220
    {
221
      bfd_set_error (bfd_error_wrong_format);
222
      return NULL;
223
    }
224
 
225
  /* OK, we believe you.  You're a core file (sure, sure).  */
226
 
227
  /* Now loop over all regions and map them */
228
  nsecs--;                              /* We've seen CORES_OFFSETS already */
229
  for (; nsecs; nsecs--)
230
    {
231
      if ((bfd_seek (abfd, chead.cs_hseek, SEEK_SET) != 0)
232
          || bfd_read ((void *)&chead, 1, sizeof chead, abfd) != sizeof chead)
233
        {
234
          bfd_set_error (bfd_error_wrong_format);
235
          return NULL;
236
        }
237
 
238
      switch (chead.cs_stype)
239
        {
240
        case CORES_MAGIC:                       /* Core header, check magic */
241
          if (chead.cs_x.csx_magic != COREMAGIC_NUMBER)
242
            {
243
              bfd_set_error (bfd_error_wrong_format);
244
              return NULL;
245
            }
246
          secname = NULL;
247
          nsecs++;                              /* MAGIC not in section cnt!*/
248
          break;
249
        case CORES_UAREA:                       /* U-area, read in tdata */
250
          u = read_uarea(abfd, chead.cs_sseek);
251
          if (! u)
252
            return NULL;
253
 
254
          /* This is tricky.  As the "register section", we give them
255
             the entire upage and stack.  u.u_ar0 points to where
256
             "register 0" is stored.  There are two tricks with this,
257
             though.  One is that the rest of the registers might be
258
             at positive or negative (or both) displacements from
259
             *u_ar0.  The other is that u_ar0 is sometimes an absolute
260
             address in kernel memory, and on other systems it is an
261
             offset from the beginning of the `struct user'.
262
 
263
             As a practical matter, we don't know where the registers
264
             actually are, so we have to pass the whole area to GDB.
265
             We encode the value of u_ar0 by setting the .regs section
266
             up so that its virtual memory address 0 is at the place
267
             pointed to by u_ar0 (by setting the vma of the start of
268
             the section to -u_ar0).  GDB uses this info to locate the
269
             regs, using minor trickery to get around the
270
             offset-or-absolute-addr problem. */
271
 
272
          chead.cs_vaddr = 0 - (bfd_vma) u->u_ar0;
273
 
274
 
275
          secname = ".reg";
276
          flags = SEC_HAS_CONTENTS;
277
 
278
          break;
279
        case CORES_PREGION:                     /* A program region, map it */
280
          switch (chead.cs_x.csx_preg.csxp_rtyp)
281
            {
282
            case PT_DATA:
283
              secname = ".data";        /* Data region.          */
284
              break;
285
            case PT_STACK:
286
              secname = ".stack";       /* Stack region.         */
287
              break;
288
            case PT_SHMEM:
289
              secname = ".shmem";       /* Shared memory         */
290
              break;
291
            case PT_LIBDAT:
292
              secname = ".libdat";      /* Shared library data   */
293
              break;
294
            case PT_V86:
295
              secname = ".virt86";      /* Virtual 8086 mode     */
296
              break;
297
            case PT_SHFIL:
298
              secname = ".mmfile";      /* Memory mapped file    */
299
              break;
300
            case PT_XDATA0:
301
              secname = ".Xdat0";       /* XENIX data region, virtual 0 */
302
              break;
303
            default:
304
              secname = "";
305
            }
306
          flags = SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS;
307
          break;
308
        case CORES_PROC:                        /* struct proc */
309
        case CORES_ITIMER:                      /* interval timers */
310
        case CORES_SCOUTSNAME:                  /* struct scoutsname */
311
          secname = NULL;       /* Ignore these */
312
          break;
313
        default:
314
          (*_bfd_error_handler) ("Unhandled SCO core file section type %d\n",
315
                                 chead.cs_stype);
316
          continue;
317
        }
318
 
319
      if (secname
320
          && !make_bfd_asection (abfd, secname, flags,
321
                                 (bfd_size_type) chead.cs_vsize,
322
                                 (bfd_vma) chead.cs_vaddr,
323
                                 (file_ptr) chead.cs_sseek))
324
        return NULL;
325
 
326
    }
327
 
328
  return abfd->xvec;
329
 
330
}
331
 
332
char *
333
sco5_core_file_failing_command (abfd)
334
     bfd *abfd;
335
{
336
  char *com = abfd->tdata.sco5_core_data->u.u_comm;
337
  if (*com)
338
    return com;
339
  else
340
    return NULL;
341
}
342
 
343
/* ARGSUSED */
344
int
345
sco5_core_file_failing_signal (ignore_abfd)
346
     bfd *ignore_abfd;
347
{
348
  return ((ignore_abfd->tdata.sco5_core_data->u.u_sysabort != 0)
349
          ? ignore_abfd->tdata.sco5_core_data->u.u_sysabort
350
          : -1);
351
}
352
 
353
/* ARGSUSED */
354
boolean
355
sco5_core_file_matches_executable_p  (core_bfd, exec_bfd)
356
     bfd *core_bfd, *exec_bfd;
357
{
358
  return true;          /* FIXME, We have no way of telling at this point */
359
}
360
 
361
#define sco5_core_get_symtab_upper_bound _bfd_nosymbols_get_symtab_upper_bound
362
#define sco5_core_get_symtab _bfd_nosymbols_get_symtab
363
#define sco5_core_print_symbol _bfd_nosymbols_print_symbol
364
#define sco5_core_get_symbol_info _bfd_nosymbols_get_symbol_info
365
#define sco5_core_bfd_is_local_label_name _bfd_nosymbols_bfd_is_local_label_name
366
#define sco5_core_get_lineno _bfd_nosymbols_get_lineno
367
#define sco5_core_find_nearest_line _bfd_nosymbols_find_nearest_line
368
#define sco5_core_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
369
#define sco5_core_read_minisymbols _bfd_nosymbols_read_minisymbols
370
#define sco5_core_minisymbol_to_symbol _bfd_nosymbols_minisymbol_to_symbol
371
 
372
/* If somebody calls any byte-swapping routines, shoot them.  */
373
static void
374
swap_abort()
375
{
376
  abort(); /* This way doesn't require any declaration for ANSI to fuck up */
377
}
378
#define NO_GET  ((bfd_vma (*) PARAMS ((   const bfd_byte *))) swap_abort )
379
#define NO_PUT  ((void    (*) PARAMS ((bfd_vma, bfd_byte *))) swap_abort )
380
#define NO_SIGNED_GET \
381
  ((bfd_signed_vma (*) PARAMS ((const bfd_byte *))) swap_abort )
382
 
383
const bfd_target sco5_core_vec =
384
  {
385
    "sco5-core",
386
    bfd_target_unknown_flavour,
387
    BFD_ENDIAN_LITTLE,         /* target byte order */
388
    BFD_ENDIAN_LITTLE,         /* target headers byte order */
389
    (HAS_RELOC | EXEC_P |       /* object flags */
390
     HAS_LINENO | HAS_DEBUG |
391
     HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
392
    (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
393
    0,                                                     /* symbol prefix */
394
    ' ',                                                   /* ar_pad_char */
395
    16,                                                    /* ar_max_namelen */
396
    NO_GET, NO_SIGNED_GET, NO_PUT,      /* 64 bit data */
397
    NO_GET, NO_SIGNED_GET, NO_PUT,      /* 32 bit data */
398
    NO_GET, NO_SIGNED_GET, NO_PUT,      /* 16 bit data */
399
    NO_GET, NO_SIGNED_GET, NO_PUT,      /* 64 bit hdrs */
400
    NO_GET, NO_SIGNED_GET, NO_PUT,      /* 32 bit hdrs */
401
    NO_GET, NO_SIGNED_GET, NO_PUT,      /* 16 bit hdrs */
402
 
403
    {                           /* bfd_check_format */
404
     _bfd_dummy_target,         /* unknown format */
405
     _bfd_dummy_target,         /* object file */
406
     _bfd_dummy_target,         /* archive */
407
     sco5_core_file_p           /* a core file */
408
    },
409
    {                           /* bfd_set_format */
410
     bfd_false, bfd_false,
411
     bfd_false, bfd_false
412
    },
413
    {                           /* bfd_write_contents */
414
     bfd_false, bfd_false,
415
     bfd_false, bfd_false
416
    },
417
 
418
       BFD_JUMP_TABLE_GENERIC (_bfd_generic),
419
       BFD_JUMP_TABLE_COPY (_bfd_generic),
420
       BFD_JUMP_TABLE_CORE (sco5),
421
       BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
422
       BFD_JUMP_TABLE_SYMBOLS (sco5_core),
423
       BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
424
       BFD_JUMP_TABLE_WRITE (_bfd_generic),
425
       BFD_JUMP_TABLE_LINK (_bfd_nolink),
426
       BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
427
 
428
    NULL,
429
 
430
    (PTR) 0                     /* backend_data */
431
};

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.