1 /* Read HP PA/Risc object files for GDB.
2 Copyright 1991, 1992, 1996, 1999 Free Software Foundation, Inc.
3 Written by Fred Fish at Cygnus Support.
5 This file is part of GDB.
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.
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.
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,
20 Boston, MA 02111-1307, USA. */
29 #include "stabsread.h"
30 #include "gdb-stabs.h"
31 #include "complaints.h"
32 #include "gdb_string.h"
37 /* Various things we might complain about... */
40 som_symfile_init
PARAMS ((struct objfile
*));
43 som_new_init
PARAMS ((struct objfile
*));
46 som_symfile_read
PARAMS ((struct objfile
*, struct section_offsets
*, int));
49 som_symfile_finish
PARAMS ((struct objfile
*));
52 som_symtab_read
PARAMS ((bfd
*, struct objfile
*,
53 struct section_offsets
*));
55 static struct section_offsets
*
56 som_symfile_offsets
PARAMS ((struct objfile
*, CORE_ADDR
));
58 /* FIXME: These should really be in a common header somewhere */
61 hpread_build_psymtabs
PARAMS ((struct objfile
*, struct section_offsets
*, int));
64 hpread_symfile_finish
PARAMS ((struct objfile
*));
67 hpread_symfile_init
PARAMS ((struct objfile
*));
70 do_pxdb
PARAMS ((bfd
*));
76 som_symtab_read -- read the symbol table of a SOM file
80 void som_symtab_read (bfd *abfd, struct objfile *objfile,
81 struct section_offsets *section_offsets)
85 Given an open bfd, a base address to relocate symbols to, and a
86 flag that specifies whether or not this bfd is for an executable
87 or not (may be shared library for example), add all the global
88 function and data symbols to the minimal symbol table.
92 som_symtab_read (abfd
, objfile
, section_offsets
)
94 struct objfile
*objfile
;
95 struct section_offsets
*section_offsets
;
97 unsigned int number_of_symbols
;
100 asection
*shlib_info
;
101 struct symbol_dictionary_record
*buf
, *bufp
, *endbufp
;
103 CONST
int symsize
= sizeof (struct symbol_dictionary_record
);
104 CORE_ADDR text_offset
, data_offset
;
107 text_offset
= ANOFFSET (section_offsets
, 0);
108 data_offset
= ANOFFSET (section_offsets
, 1);
110 number_of_symbols
= bfd_get_symcount (abfd
);
112 buf
= alloca (symsize
* number_of_symbols
);
113 bfd_seek (abfd
, obj_som_sym_filepos (abfd
), SEEK_SET
);
114 val
= bfd_read (buf
, symsize
* number_of_symbols
, 1, abfd
);
115 if (val
!= symsize
* number_of_symbols
)
116 error ("Couldn't read symbol dictionary!");
118 stringtab
= alloca (obj_som_stringtab_size (abfd
));
119 bfd_seek (abfd
, obj_som_str_filepos (abfd
), SEEK_SET
);
120 val
= bfd_read (stringtab
, obj_som_stringtab_size (abfd
), 1, abfd
);
121 if (val
!= obj_som_stringtab_size (abfd
))
122 error ("Can't read in HP string table.");
124 /* We need to determine if objfile is a dynamic executable (so we
125 can do the right thing for ST_ENTRY vs ST_CODE symbols).
127 There's nothing in the header which easily allows us to do
128 this. The only reliable way I know of is to check for the
129 existance of a $SHLIB_INFO$ section with a non-zero size. */
130 /* The code below is not a reliable way to check whether an
131 * executable is dynamic, so I commented it out - RT
132 * shlib_info = bfd_get_section_by_name (objfile->obfd, "$SHLIB_INFO$");
134 * dynamic = (bfd_section_size (objfile->obfd, shlib_info) != 0);
138 /* I replaced the code with a simple check for text offset not being
139 * zero. Still not 100% reliable, but a more reliable way of asking
140 * "is this a dynamic executable?" than the above. RT
142 dynamic
= (text_offset
!= 0);
144 endbufp
= buf
+ number_of_symbols
;
145 for (bufp
= buf
; bufp
< endbufp
; ++bufp
)
147 enum minimal_symbol_type ms_type
;
151 switch (bufp
->symbol_scope
)
155 switch (bufp
->symbol_type
)
165 symname
= bufp
->name
.n_strx
+ stringtab
;
167 bufp
->symbol_value
+= text_offset
;
168 #ifdef SMASH_TEXT_ADDRESS
169 SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
174 symname
= bufp
->name
.n_strx
+ stringtab
;
175 /* For a dynamic executable, ST_ENTRY symbols are
176 the stubs, while the ST_CODE symbol is the real
179 ms_type
= mst_solib_trampoline
;
182 bufp
->symbol_value
+= text_offset
;
183 #ifdef SMASH_TEXT_ADDRESS
184 SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
189 symname
= bufp
->name
.n_strx
+ stringtab
;
190 ms_type
= mst_solib_trampoline
;
191 bufp
->symbol_value
+= text_offset
;
192 #ifdef SMASH_TEXT_ADDRESS
193 SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
198 symname
= bufp
->name
.n_strx
+ stringtab
;
199 bufp
->symbol_value
+= data_offset
;
208 /* SS_GLOBAL and SS_LOCAL are two names for the same thing (!). */
212 switch (bufp
->symbol_type
)
219 symname
= bufp
->name
.n_strx
+ stringtab
;
220 ms_type
= mst_file_text
;
221 bufp
->symbol_value
+= text_offset
;
222 #ifdef SMASH_TEXT_ADDRESS
223 SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
227 /* Utah GCC 2.5, FSF GCC 2.6 and later generate correct local
228 label prefixes for stabs, constant data, etc. So we need
229 only filter out L$ symbols which are left in due to
230 limitations in how GAS generates SOM relocations.
232 When linking in the HPUX C-library the HP linker has
233 the nasty habit of placing section symbols from the literal
234 subspaces in the middle of the program's text. Filter
235 those out as best we can. Check for first and last character
238 And finally, the newer HP compilers emit crud like $PIC_foo$N
239 in some circumstance (PIC code I guess). It's also claimed
240 that they emit D$ symbols too. What stupidity. */
241 if ((symname
[0] == 'L' && symname
[1] == '$')
242 || (symname
[0] == '$' && symname
[strlen (symname
) - 1] == '$')
243 || (symname
[0] == 'D' && symname
[1] == '$')
244 || (strncmp (symname
, "$PIC", 4) == 0))
251 symname
= bufp
->name
.n_strx
+ stringtab
;
252 ms_type
= mst_file_text
;
253 bufp
->symbol_value
+= text_offset
;
254 #ifdef SMASH_TEXT_ADDRESS
255 SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
260 symname
= bufp
->name
.n_strx
+ stringtab
;
261 /* For a dynamic executable, ST_ENTRY symbols are
262 the stubs, while the ST_CODE symbol is the real
265 ms_type
= mst_solib_trampoline
;
267 ms_type
= mst_file_text
;
268 bufp
->symbol_value
+= text_offset
;
269 #ifdef SMASH_TEXT_ADDRESS
270 SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
275 symname
= bufp
->name
.n_strx
+ stringtab
;
276 ms_type
= mst_solib_trampoline
;
277 bufp
->symbol_value
+= text_offset
;
278 #ifdef SMASH_TEXT_ADDRESS
279 SMASH_TEXT_ADDRESS (bufp
->symbol_value
);
285 symname
= bufp
->name
.n_strx
+ stringtab
;
286 bufp
->symbol_value
+= data_offset
;
287 ms_type
= mst_file_data
;
288 goto check_strange_names
;
295 /* This can happen for common symbols when -E is passed to the
296 final link. No idea _why_ that would make the linker force
297 common symbols to have an SS_UNSAT scope, but it does.
299 This also happens for weak symbols, but their type is
302 switch (bufp
->symbol_type
)
306 symname
= bufp
->name
.n_strx
+ stringtab
;
307 bufp
->symbol_value
+= data_offset
;
320 if (bufp
->name
.n_strx
> obj_som_stringtab_size (abfd
))
321 error ("Invalid symbol data; bad HP string table offset: %d",
324 prim_record_minimal_symbol (symname
, bufp
->symbol_value
, ms_type
,
329 /* Scan and build partial symbols for a symbol file.
330 We have been initialized by a call to som_symfile_init, which
331 currently does nothing.
333 SECTION_OFFSETS is a set of offsets to apply to relocate the symbols
334 in each section. This is ignored, as it isn't needed for SOM.
336 MAINLINE is true if we are reading the main symbol
337 table (as opposed to a shared lib or dynamically loaded file).
339 This function only does the minimum work necessary for letting the
340 user "name" things symbolically; it does not read the entire symtab.
341 Instead, it reads the external and static symbols and puts them in partial
342 symbol tables. When more extensive information is requested of a
343 file, the corresponding partial symbol table is mutated into a full
344 fledged symbol table by going back and reading the symbols
347 We look for sections with specific names, to tell us what debug
348 format to look for: FIXME!!!
350 somstab_build_psymtabs() handles STABS symbols.
352 Note that SOM files have a "minimal" symbol table, which is vaguely
353 reminiscent of a COFF symbol table, but has only the minimal information
354 necessary for linking. We process this also, and use the information to
355 build gdb's minimal symbol table. This gives us some minimal debugging
356 capability even for files compiled without -g. */
359 som_symfile_read (objfile
, section_offsets
, mainline
)
360 struct objfile
*objfile
;
361 struct section_offsets
*section_offsets
;
364 bfd
*abfd
= objfile
->obfd
;
365 struct cleanup
*back_to
;
367 do_pxdb (symfile_bfd_open (objfile
->name
));
369 init_minimal_symbol_collection ();
370 back_to
= make_cleanup ((make_cleanup_func
) discard_minimal_symbols
, 0);
372 /* Read in the import list and the export list. Currently
373 the export list isn't used; the import list is used in
374 hp-symtab-read.c to handle static vars declared in other
376 init_import_symbols (objfile
);
377 #if 0 /* Export symbols not used today 1997-08-05 */
378 init_export_symbols (objfile
);
380 objfile
->export_list
= NULL
;
381 objfile
->export_list_size
= 0;
384 /* Process the normal SOM symbol table first.
385 This reads in the DNTT and string table, but doesn't
386 actually scan the DNTT. It does scan the linker symbol
387 table and thus build up a "minimal symbol table". */
389 som_symtab_read (abfd
, objfile
, section_offsets
);
391 /* Now read information from the stabs debug sections.
392 This is a no-op for SOM.
393 Perhaps it is intended for some kind of mixed STABS/SOM
395 stabsect_build_psymtabs (objfile
, section_offsets
, mainline
,
396 "$GDB_SYMBOLS$", "$GDB_STRINGS$", "$TEXT$");
398 /* Now read the native debug information.
399 This builds the psymtab. This used to be done via a scan of
400 the DNTT, but is now done via the PXDB-built quick-lookup tables
401 together with a scan of the GNTT. See hp-psymtab-read.c. */
402 hpread_build_psymtabs (objfile
, section_offsets
, mainline
);
404 /* Install any minimal symbols that have been collected as the current
405 minimal symbols for this objfile.
406 Further symbol-reading is done incrementally, file-by-file,
407 in a step known as "psymtab-to-symtab" expansion. hp-symtab-read.c
408 contains the code to do the actual DNTT scanning and symtab building. */
409 install_minimal_symbols (objfile
);
411 /* Force hppa-tdep.c to re-read the unwind descriptors. */
412 objfile
->obj_private
= NULL
;
413 do_cleanups (back_to
);
416 /* Initialize anything that needs initializing when a completely new symbol
417 file is specified (not just adding some symbols from another file, e.g. a
420 We reinitialize buildsym, since we may be reading stabs from a SOM file. */
423 som_new_init (ignore
)
424 struct objfile
*ignore
;
426 stabsread_new_init ();
427 buildsym_new_init ();
430 /* Perform any local cleanups required when we are done with a particular
431 objfile. I.E, we are in the process of discarding all symbol information
432 for an objfile, freeing up all memory held for it, and unlinking the
433 objfile struct from the global list of known objfiles. */
436 som_symfile_finish (objfile
)
437 struct objfile
*objfile
;
439 if (objfile
->sym_stab_info
!= NULL
)
441 mfree (objfile
->md
, objfile
->sym_stab_info
);
443 hpread_symfile_finish (objfile
);
446 /* SOM specific initialization routine for reading symbols. */
449 som_symfile_init (objfile
)
450 struct objfile
*objfile
;
452 /* SOM objects may be reordered, so set OBJF_REORDERED. If we
453 find this causes a significant slowdown in gdb then we could
454 set it in the debug symbol readers only when necessary. */
455 objfile
->flags
|= OBJF_REORDERED
;
456 hpread_symfile_init (objfile
);
459 /* SOM specific parsing routine for section offsets.
461 Plain and simple for now. */
463 static struct section_offsets
*
464 som_symfile_offsets (objfile
, addr
)
465 struct objfile
*objfile
;
468 struct section_offsets
*section_offsets
;
471 objfile
->num_sections
= SECT_OFF_MAX
;
472 section_offsets
= (struct section_offsets
*)
473 obstack_alloc (&objfile
->psymbol_obstack
, SIZEOF_SECTION_OFFSETS
);
475 /* First see if we're a shared library. If so, get the section
476 offsets from the library, else get them from addr. */
477 if (!som_solib_section_offsets (objfile
, section_offsets
))
479 for (i
= 0; i
< SECT_OFF_MAX
; i
++)
480 ANOFFSET (section_offsets
, i
) = addr
;
483 return section_offsets
;
488 /* Check if a given symbol NAME is in the import list
490 1 => true, 0 => false
491 This is used in hp_symtab_read.c to deal with static variables
492 that are defined in a different shared library than the one
493 whose symbols are being processed. */
496 is_in_import_list (name
, objfile
)
498 struct objfile
*objfile
;
507 for (i
= 0; i
< objfile
->import_list_size
; i
++)
508 if (objfile
->import_list
[i
] && STREQ (name
, objfile
->import_list
[i
]))
514 /* Read in and initialize the SOM import list which is present
515 for all executables and shared libraries. The import list
516 consists of the symbols that are referenced in OBJFILE but
517 not defined there. (Variables that are imported are dealt
518 with as "loc_indirect" vars.)
519 Return value = number of import symbols read in. */
521 init_import_symbols (objfile
)
522 struct objfile
*objfile
;
524 unsigned int import_list
;
525 unsigned int import_list_size
;
526 unsigned int string_table
;
527 unsigned int string_table_size
;
532 asection
*text_section
; /* section handle */
533 unsigned int dl_header
[12]; /* SOM executable header */
535 /* A struct for an entry in the SOM import list */
538 int name
; /* index into the string table */
539 short dont_care1
; /* we don't use this */
540 unsigned char type
; /* 0 = NULL, 2 = Data, 3 = Code, 7 = Storage, 13 = Plabel */
541 unsigned int reserved2
:8; /* not used */
545 /* We read 100 entries in at a time from the disk file. */
546 #define SOM_READ_IMPORTS_NUM 100
547 #define SOM_READ_IMPORTS_CHUNK_SIZE (sizeof (SomImportEntry) * SOM_READ_IMPORTS_NUM)
548 SomImportEntry buffer
[SOM_READ_IMPORTS_NUM
];
550 /* Initialize in case we error out */
551 objfile
->import_list
= NULL
;
552 objfile
->import_list_size
= 0;
554 /* It doesn't work, for some reason, to read in space $TEXT$;
555 the subspace $SHLIB_INFO$ has to be used. Some BFD quirk? pai/1997-08-05 */
556 text_section
= bfd_get_section_by_name (objfile
->obfd
, "$SHLIB_INFO$");
559 /* Get the SOM executable header */
560 bfd_get_section_contents (objfile
->obfd
, text_section
, dl_header
, 0, 12 * sizeof (int));
562 /* Check header version number for 10.x HP-UX */
563 /* Currently we deal only with 10.x systems; on 9.x the version # is 89060912.
564 FIXME: Change for future HP-UX releases and mods to the SOM executable format */
565 if (dl_header
[0] != 93092112)
568 import_list
= dl_header
[4];
569 import_list_size
= dl_header
[5];
570 if (!import_list_size
)
572 string_table
= dl_header
[10];
573 string_table_size
= dl_header
[11];
574 if (!string_table_size
)
577 /* Suck in SOM string table */
578 string_buffer
= (char *) xmalloc (string_table_size
);
579 bfd_get_section_contents (objfile
->obfd
, text_section
, string_buffer
,
580 string_table
, string_table_size
);
582 /* Allocate import list in the psymbol obstack; this has nothing
583 to do with psymbols, just a matter of convenience. We want the
584 import list to be freed when the objfile is deallocated */
586 = (ImportEntry
*) obstack_alloc (&objfile
->psymbol_obstack
,
587 import_list_size
* sizeof (ImportEntry
));
589 /* Read in the import entries, a bunch at a time */
591 j
< (import_list_size
/ SOM_READ_IMPORTS_NUM
);
594 bfd_get_section_contents (objfile
->obfd
, text_section
, buffer
,
595 import_list
+ j
* SOM_READ_IMPORTS_CHUNK_SIZE
,
596 SOM_READ_IMPORTS_CHUNK_SIZE
);
597 for (i
= 0; i
< SOM_READ_IMPORTS_NUM
; i
++, k
++)
599 if (buffer
[i
].type
!= (unsigned char) 0)
601 objfile
->import_list
[k
]
602 = (char *) obstack_alloc (&objfile
->psymbol_obstack
, strlen (string_buffer
+ buffer
[i
].name
) + 1);
603 strcpy (objfile
->import_list
[k
], string_buffer
+ buffer
[i
].name
);
604 /* Some day we might want to record the type and other information too */
607 objfile
->import_list
[k
] = NULL
;
612 /* Get the leftovers */
613 if (k
< import_list_size
)
614 bfd_get_section_contents (objfile
->obfd
, text_section
, buffer
,
615 import_list
+ k
* sizeof (SomImportEntry
),
616 (import_list_size
- k
) * sizeof (SomImportEntry
));
617 for (i
= 0; k
< import_list_size
; i
++, k
++)
619 if (buffer
[i
].type
!= (unsigned char) 0)
621 objfile
->import_list
[k
]
622 = (char *) obstack_alloc (&objfile
->psymbol_obstack
, strlen (string_buffer
+ buffer
[i
].name
) + 1);
623 strcpy (objfile
->import_list
[k
], string_buffer
+ buffer
[i
].name
);
624 /* Some day we might want to record the type and other information too */
627 objfile
->import_list
[k
] = NULL
;
630 objfile
->import_list_size
= import_list_size
;
631 free (string_buffer
);
632 return import_list_size
;
635 /* Read in and initialize the SOM export list which is present
636 for all executables and shared libraries. The import list
637 consists of the symbols that are referenced in OBJFILE but
638 not defined there. (Variables that are imported are dealt
639 with as "loc_indirect" vars.)
640 Return value = number of import symbols read in. */
642 init_export_symbols (objfile
)
643 struct objfile
*objfile
;
645 unsigned int export_list
;
646 unsigned int export_list_size
;
647 unsigned int string_table
;
648 unsigned int string_table_size
;
653 asection
*text_section
; /* section handle */
654 unsigned int dl_header
[12]; /* SOM executable header */
656 /* A struct for an entry in the SOM export list */
659 int next
; /* for hash table use -- we don't use this */
660 int name
; /* index into string table */
661 int value
; /* offset or plabel */
662 int dont_care1
; /* not used */
663 unsigned char type
; /* 0 = NULL, 2 = Data, 3 = Code, 7 = Storage, 13 = Plabel */
664 char dont_care2
; /* not used */
665 short dont_care3
; /* not used */
669 /* We read 100 entries in at a time from the disk file. */
670 #define SOM_READ_EXPORTS_NUM 100
671 #define SOM_READ_EXPORTS_CHUNK_SIZE (sizeof (SomExportEntry) * SOM_READ_EXPORTS_NUM)
672 SomExportEntry buffer
[SOM_READ_EXPORTS_NUM
];
674 /* Initialize in case we error out */
675 objfile
->export_list
= NULL
;
676 objfile
->export_list_size
= 0;
678 /* It doesn't work, for some reason, to read in space $TEXT$;
679 the subspace $SHLIB_INFO$ has to be used. Some BFD quirk? pai/1997-08-05 */
680 text_section
= bfd_get_section_by_name (objfile
->obfd
, "$SHLIB_INFO$");
683 /* Get the SOM executable header */
684 bfd_get_section_contents (objfile
->obfd
, text_section
, dl_header
, 0, 12 * sizeof (int));
686 /* Check header version number for 10.x HP-UX */
687 /* Currently we deal only with 10.x systems; on 9.x the version # is 89060912.
688 FIXME: Change for future HP-UX releases and mods to the SOM executable format */
689 if (dl_header
[0] != 93092112)
692 export_list
= dl_header
[8];
693 export_list_size
= dl_header
[9];
694 if (!export_list_size
)
696 string_table
= dl_header
[10];
697 string_table_size
= dl_header
[11];
698 if (!string_table_size
)
701 /* Suck in SOM string table */
702 string_buffer
= (char *) xmalloc (string_table_size
);
703 bfd_get_section_contents (objfile
->obfd
, text_section
, string_buffer
,
704 string_table
, string_table_size
);
706 /* Allocate export list in the psymbol obstack; this has nothing
707 to do with psymbols, just a matter of convenience. We want the
708 export list to be freed when the objfile is deallocated */
710 = (ExportEntry
*) obstack_alloc (&objfile
->psymbol_obstack
,
711 export_list_size
* sizeof (ExportEntry
));
713 /* Read in the export entries, a bunch at a time */
715 j
< (export_list_size
/ SOM_READ_EXPORTS_NUM
);
718 bfd_get_section_contents (objfile
->obfd
, text_section
, buffer
,
719 export_list
+ j
* SOM_READ_EXPORTS_CHUNK_SIZE
,
720 SOM_READ_EXPORTS_CHUNK_SIZE
);
721 for (i
= 0; i
< SOM_READ_EXPORTS_NUM
; i
++, k
++)
723 if (buffer
[i
].type
!= (unsigned char) 0)
725 objfile
->export_list
[k
].name
726 = (char *) obstack_alloc (&objfile
->psymbol_obstack
, strlen (string_buffer
+ buffer
[i
].name
) + 1);
727 strcpy (objfile
->export_list
[k
].name
, string_buffer
+ buffer
[i
].name
);
728 objfile
->export_list
[k
].address
= buffer
[i
].value
;
729 /* Some day we might want to record the type and other information too */
734 objfile
->export_list
[k
].name
= NULL
;
735 objfile
->export_list
[k
].address
= 0;
740 /* Get the leftovers */
741 if (k
< export_list_size
)
742 bfd_get_section_contents (objfile
->obfd
, text_section
, buffer
,
743 export_list
+ k
* sizeof (SomExportEntry
),
744 (export_list_size
- k
) * sizeof (SomExportEntry
));
745 for (i
= 0; k
< export_list_size
; i
++, k
++)
747 if (buffer
[i
].type
!= (unsigned char) 0)
749 objfile
->export_list
[k
].name
750 = (char *) obstack_alloc (&objfile
->psymbol_obstack
, strlen (string_buffer
+ buffer
[i
].name
) + 1);
751 strcpy (objfile
->export_list
[k
].name
, string_buffer
+ buffer
[i
].name
);
752 /* Some day we might want to record the type and other information too */
753 objfile
->export_list
[k
].address
= buffer
[i
].value
;
757 objfile
->export_list
[k
].name
= NULL
;
758 objfile
->export_list
[k
].address
= 0;
762 objfile
->export_list_size
= export_list_size
;
763 free (string_buffer
);
764 return export_list_size
;
769 /* Register that we are able to handle SOM object file formats. */
771 static struct sym_fns som_sym_fns
=
773 bfd_target_som_flavour
,
774 som_new_init
, /* sym_new_init: init anything gbl to entire symtab */
775 som_symfile_init
, /* sym_init: read initial info, setup for sym_read() */
776 som_symfile_read
, /* sym_read: read a symbol file into symtab */
777 som_symfile_finish
, /* sym_finish: finished with file, cleanup */
778 som_symfile_offsets
, /* sym_offsets: Translate ext. to int. relocation */
779 NULL
/* next: pointer to next struct sym_fns */
783 _initialize_somread ()
785 add_symtab_fns (&som_sym_fns
);