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
*, int));
49 som_symfile_finish
PARAMS ((struct objfile
*));
52 som_symtab_read
PARAMS ((bfd
*, struct objfile
*,
53 struct section_offsets
*));
56 som_symfile_offsets
PARAMS ((struct objfile
*, struct section_addr_info
*));
58 /* FIXME: These should really be in a common header somewhere */
61 hpread_build_psymtabs
PARAMS ((struct objfile
*, 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
, mainline
)
360 struct objfile
*objfile
;
363 bfd
*abfd
= objfile
->obfd
;
364 struct cleanup
*back_to
;
366 do_pxdb (symfile_bfd_open (objfile
->name
));
368 init_minimal_symbol_collection ();
369 back_to
= make_cleanup ((make_cleanup_func
) discard_minimal_symbols
, 0);
371 /* Read in the import list and the export list. Currently
372 the export list isn't used; the import list is used in
373 hp-symtab-read.c to handle static vars declared in other
375 init_import_symbols (objfile
);
376 #if 0 /* Export symbols not used today 1997-08-05 */
377 init_export_symbols (objfile
);
379 objfile
->export_list
= NULL
;
380 objfile
->export_list_size
= 0;
383 /* Process the normal SOM symbol table first.
384 This reads in the DNTT and string table, but doesn't
385 actually scan the DNTT. It does scan the linker symbol
386 table and thus build up a "minimal symbol table". */
388 som_symtab_read (abfd
, objfile
, objfile
->section_offsets
);
390 /* Now read information from the stabs debug sections.
391 This is a no-op for SOM.
392 Perhaps it is intended for some kind of mixed STABS/SOM
394 stabsect_build_psymtabs (objfile
, mainline
,
395 "$GDB_SYMBOLS$", "$GDB_STRINGS$", "$TEXT$");
397 /* Now read the native debug information.
398 This builds the psymtab. This used to be done via a scan of
399 the DNTT, but is now done via the PXDB-built quick-lookup tables
400 together with a scan of the GNTT. See hp-psymtab-read.c. */
401 hpread_build_psymtabs (objfile
, mainline
);
403 /* Install any minimal symbols that have been collected as the current
404 minimal symbols for this objfile.
405 Further symbol-reading is done incrementally, file-by-file,
406 in a step known as "psymtab-to-symtab" expansion. hp-symtab-read.c
407 contains the code to do the actual DNTT scanning and symtab building. */
408 install_minimal_symbols (objfile
);
410 /* Force hppa-tdep.c to re-read the unwind descriptors. */
411 objfile
->obj_private
= NULL
;
412 do_cleanups (back_to
);
415 /* Initialize anything that needs initializing when a completely new symbol
416 file is specified (not just adding some symbols from another file, e.g. a
419 We reinitialize buildsym, since we may be reading stabs from a SOM file. */
422 som_new_init (ignore
)
423 struct objfile
*ignore
;
425 stabsread_new_init ();
426 buildsym_new_init ();
429 /* Perform any local cleanups required when we are done with a particular
430 objfile. I.E, we are in the process of discarding all symbol information
431 for an objfile, freeing up all memory held for it, and unlinking the
432 objfile struct from the global list of known objfiles. */
435 som_symfile_finish (objfile
)
436 struct objfile
*objfile
;
438 if (objfile
->sym_stab_info
!= NULL
)
440 mfree (objfile
->md
, objfile
->sym_stab_info
);
442 hpread_symfile_finish (objfile
);
445 /* SOM specific initialization routine for reading symbols. */
448 som_symfile_init (objfile
)
449 struct objfile
*objfile
;
451 /* SOM objects may be reordered, so set OBJF_REORDERED. If we
452 find this causes a significant slowdown in gdb then we could
453 set it in the debug symbol readers only when necessary. */
454 objfile
->flags
|= OBJF_REORDERED
;
455 hpread_symfile_init (objfile
);
458 /* SOM specific parsing routine for section offsets.
460 Plain and simple for now. */
463 som_symfile_offsets (objfile
, addrs
)
464 struct objfile
*objfile
;
465 struct section_addr_info
*addrs
;
470 objfile
->num_sections
= SECT_OFF_MAX
;
471 objfile
->section_offsets
= (struct section_offsets
*)
472 obstack_alloc (&objfile
->psymbol_obstack
, SIZEOF_SECTION_OFFSETS
);
474 /* First see if we're a shared library. If so, get the section
475 offsets from the library, else get them from addrs. */
476 if (!som_solib_section_offsets (objfile
, objfile
->section_offsets
))
478 for (i
= 0; i
< SECT_OFF_MAX
&& addrs
->other
[i
].name
; i
++)
479 if (strcmp (addrs
->other
[i
].name
, ".text") == 0)
481 text_addr
= addrs
->other
[i
].addr
;
483 for (i
= 0; i
< SECT_OFF_MAX
; i
++)
484 ANOFFSET (objfile
->section_offsets
, i
) = text_addr
;
488 /* Read in and initialize the SOM import list which is present
489 for all executables and shared libraries. The import list
490 consists of the symbols that are referenced in OBJFILE but
491 not defined there. (Variables that are imported are dealt
492 with as "loc_indirect" vars.)
493 Return value = number of import symbols read in. */
495 init_import_symbols (objfile
)
496 struct objfile
*objfile
;
498 unsigned int import_list
;
499 unsigned int import_list_size
;
500 unsigned int string_table
;
501 unsigned int string_table_size
;
506 asection
*text_section
; /* section handle */
507 unsigned int dl_header
[12]; /* SOM executable header */
509 /* A struct for an entry in the SOM import list */
512 int name
; /* index into the string table */
513 short dont_care1
; /* we don't use this */
514 unsigned char type
; /* 0 = NULL, 2 = Data, 3 = Code, 7 = Storage, 13 = Plabel */
515 unsigned int reserved2
:8; /* not used */
519 /* We read 100 entries in at a time from the disk file. */
520 #define SOM_READ_IMPORTS_NUM 100
521 #define SOM_READ_IMPORTS_CHUNK_SIZE (sizeof (SomImportEntry) * SOM_READ_IMPORTS_NUM)
522 SomImportEntry buffer
[SOM_READ_IMPORTS_NUM
];
524 /* Initialize in case we error out */
525 objfile
->import_list
= NULL
;
526 objfile
->import_list_size
= 0;
528 /* It doesn't work, for some reason, to read in space $TEXT$;
529 the subspace $SHLIB_INFO$ has to be used. Some BFD quirk? pai/1997-08-05 */
530 text_section
= bfd_get_section_by_name (objfile
->obfd
, "$SHLIB_INFO$");
533 /* Get the SOM executable header */
534 bfd_get_section_contents (objfile
->obfd
, text_section
, dl_header
, 0, 12 * sizeof (int));
536 /* Check header version number for 10.x HP-UX */
537 /* Currently we deal only with 10.x systems; on 9.x the version # is 89060912.
538 FIXME: Change for future HP-UX releases and mods to the SOM executable format */
539 if (dl_header
[0] != 93092112)
542 import_list
= dl_header
[4];
543 import_list_size
= dl_header
[5];
544 if (!import_list_size
)
546 string_table
= dl_header
[10];
547 string_table_size
= dl_header
[11];
548 if (!string_table_size
)
551 /* Suck in SOM string table */
552 string_buffer
= (char *) xmalloc (string_table_size
);
553 bfd_get_section_contents (objfile
->obfd
, text_section
, string_buffer
,
554 string_table
, string_table_size
);
556 /* Allocate import list in the psymbol obstack; this has nothing
557 to do with psymbols, just a matter of convenience. We want the
558 import list to be freed when the objfile is deallocated */
560 = (ImportEntry
*) obstack_alloc (&objfile
->psymbol_obstack
,
561 import_list_size
* sizeof (ImportEntry
));
563 /* Read in the import entries, a bunch at a time */
565 j
< (import_list_size
/ SOM_READ_IMPORTS_NUM
);
568 bfd_get_section_contents (objfile
->obfd
, text_section
, buffer
,
569 import_list
+ j
* SOM_READ_IMPORTS_CHUNK_SIZE
,
570 SOM_READ_IMPORTS_CHUNK_SIZE
);
571 for (i
= 0; i
< SOM_READ_IMPORTS_NUM
; i
++, k
++)
573 if (buffer
[i
].type
!= (unsigned char) 0)
575 objfile
->import_list
[k
]
576 = (char *) obstack_alloc (&objfile
->psymbol_obstack
, strlen (string_buffer
+ buffer
[i
].name
) + 1);
577 strcpy (objfile
->import_list
[k
], string_buffer
+ buffer
[i
].name
);
578 /* Some day we might want to record the type and other information too */
581 objfile
->import_list
[k
] = NULL
;
586 /* Get the leftovers */
587 if (k
< import_list_size
)
588 bfd_get_section_contents (objfile
->obfd
, text_section
, buffer
,
589 import_list
+ k
* sizeof (SomImportEntry
),
590 (import_list_size
- k
) * sizeof (SomImportEntry
));
591 for (i
= 0; k
< import_list_size
; i
++, k
++)
593 if (buffer
[i
].type
!= (unsigned char) 0)
595 objfile
->import_list
[k
]
596 = (char *) obstack_alloc (&objfile
->psymbol_obstack
, strlen (string_buffer
+ buffer
[i
].name
) + 1);
597 strcpy (objfile
->import_list
[k
], string_buffer
+ buffer
[i
].name
);
598 /* Some day we might want to record the type and other information too */
601 objfile
->import_list
[k
] = NULL
;
604 objfile
->import_list_size
= import_list_size
;
605 free (string_buffer
);
606 return import_list_size
;
609 /* Read in and initialize the SOM export list which is present
610 for all executables and shared libraries. The import list
611 consists of the symbols that are referenced in OBJFILE but
612 not defined there. (Variables that are imported are dealt
613 with as "loc_indirect" vars.)
614 Return value = number of import symbols read in. */
616 init_export_symbols (objfile
)
617 struct objfile
*objfile
;
619 unsigned int export_list
;
620 unsigned int export_list_size
;
621 unsigned int string_table
;
622 unsigned int string_table_size
;
627 asection
*text_section
; /* section handle */
628 unsigned int dl_header
[12]; /* SOM executable header */
630 /* A struct for an entry in the SOM export list */
633 int next
; /* for hash table use -- we don't use this */
634 int name
; /* index into string table */
635 int value
; /* offset or plabel */
636 int dont_care1
; /* not used */
637 unsigned char type
; /* 0 = NULL, 2 = Data, 3 = Code, 7 = Storage, 13 = Plabel */
638 char dont_care2
; /* not used */
639 short dont_care3
; /* not used */
643 /* We read 100 entries in at a time from the disk file. */
644 #define SOM_READ_EXPORTS_NUM 100
645 #define SOM_READ_EXPORTS_CHUNK_SIZE (sizeof (SomExportEntry) * SOM_READ_EXPORTS_NUM)
646 SomExportEntry buffer
[SOM_READ_EXPORTS_NUM
];
648 /* Initialize in case we error out */
649 objfile
->export_list
= NULL
;
650 objfile
->export_list_size
= 0;
652 /* It doesn't work, for some reason, to read in space $TEXT$;
653 the subspace $SHLIB_INFO$ has to be used. Some BFD quirk? pai/1997-08-05 */
654 text_section
= bfd_get_section_by_name (objfile
->obfd
, "$SHLIB_INFO$");
657 /* Get the SOM executable header */
658 bfd_get_section_contents (objfile
->obfd
, text_section
, dl_header
, 0, 12 * sizeof (int));
660 /* Check header version number for 10.x HP-UX */
661 /* Currently we deal only with 10.x systems; on 9.x the version # is 89060912.
662 FIXME: Change for future HP-UX releases and mods to the SOM executable format */
663 if (dl_header
[0] != 93092112)
666 export_list
= dl_header
[8];
667 export_list_size
= dl_header
[9];
668 if (!export_list_size
)
670 string_table
= dl_header
[10];
671 string_table_size
= dl_header
[11];
672 if (!string_table_size
)
675 /* Suck in SOM string table */
676 string_buffer
= (char *) xmalloc (string_table_size
);
677 bfd_get_section_contents (objfile
->obfd
, text_section
, string_buffer
,
678 string_table
, string_table_size
);
680 /* Allocate export list in the psymbol obstack; this has nothing
681 to do with psymbols, just a matter of convenience. We want the
682 export list to be freed when the objfile is deallocated */
684 = (ExportEntry
*) obstack_alloc (&objfile
->psymbol_obstack
,
685 export_list_size
* sizeof (ExportEntry
));
687 /* Read in the export entries, a bunch at a time */
689 j
< (export_list_size
/ SOM_READ_EXPORTS_NUM
);
692 bfd_get_section_contents (objfile
->obfd
, text_section
, buffer
,
693 export_list
+ j
* SOM_READ_EXPORTS_CHUNK_SIZE
,
694 SOM_READ_EXPORTS_CHUNK_SIZE
);
695 for (i
= 0; i
< SOM_READ_EXPORTS_NUM
; i
++, k
++)
697 if (buffer
[i
].type
!= (unsigned char) 0)
699 objfile
->export_list
[k
].name
700 = (char *) obstack_alloc (&objfile
->psymbol_obstack
, strlen (string_buffer
+ buffer
[i
].name
) + 1);
701 strcpy (objfile
->export_list
[k
].name
, string_buffer
+ buffer
[i
].name
);
702 objfile
->export_list
[k
].address
= buffer
[i
].value
;
703 /* Some day we might want to record the type and other information too */
708 objfile
->export_list
[k
].name
= NULL
;
709 objfile
->export_list
[k
].address
= 0;
714 /* Get the leftovers */
715 if (k
< export_list_size
)
716 bfd_get_section_contents (objfile
->obfd
, text_section
, buffer
,
717 export_list
+ k
* sizeof (SomExportEntry
),
718 (export_list_size
- k
) * sizeof (SomExportEntry
));
719 for (i
= 0; k
< export_list_size
; i
++, k
++)
721 if (buffer
[i
].type
!= (unsigned char) 0)
723 objfile
->export_list
[k
].name
724 = (char *) obstack_alloc (&objfile
->psymbol_obstack
, strlen (string_buffer
+ buffer
[i
].name
) + 1);
725 strcpy (objfile
->export_list
[k
].name
, string_buffer
+ buffer
[i
].name
);
726 /* Some day we might want to record the type and other information too */
727 objfile
->export_list
[k
].address
= buffer
[i
].value
;
731 objfile
->export_list
[k
].name
= NULL
;
732 objfile
->export_list
[k
].address
= 0;
736 objfile
->export_list_size
= export_list_size
;
737 free (string_buffer
);
738 return export_list_size
;
743 /* Register that we are able to handle SOM object file formats. */
745 static struct sym_fns som_sym_fns
=
747 bfd_target_som_flavour
,
748 som_new_init
, /* sym_new_init: init anything gbl to entire symtab */
749 som_symfile_init
, /* sym_init: read initial info, setup for sym_read() */
750 som_symfile_read
, /* sym_read: read a symbol file into symtab */
751 som_symfile_finish
, /* sym_finish: finished with file, cleanup */
752 som_symfile_offsets
, /* sym_offsets: Translate ext. to int. relocation */
753 NULL
/* next: pointer to next struct sym_fns */
757 _initialize_somread ()
759 add_symtab_fns (&som_sym_fns
);