1 /* Read the export table symbols from a portable executable and
2 convert to internal format, for GDB. Used as a last resort if no
3 debugging symbols recognized.
5 Copyright (C) 2003, 2007-2012 Free Software Foundation, Inc.
7 This file is part of GDB.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 3 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program. If not, see <http://www.gnu.org/licenses/>.
22 Contributed by Raoul M. Gough (RaoulGough@yahoo.co.uk). */
26 #include "coff-pe-read.h"
36 #include "common/common-utils.h"
40 /* Internal section information */
42 /* Coff PE read debugging flag:
44 value 1 outputs problems encountered while parsing PE file,
45 value above 1 also lists all generated minimal symbols. */
46 static unsigned int debug_coff_pe_read
;
48 struct read_pe_section_data
50 CORE_ADDR vma_offset
; /* Offset to loaded address of section. */
51 unsigned long rva_start
; /* Start offset within the pe. */
52 unsigned long rva_end
; /* End offset within the pe. */
53 enum minimal_symbol_type ms_type
; /* Type to assign symbols in
55 char *section_name
; /* Recorded section name. */
58 #define IMAGE_SCN_CNT_CODE 0x20
59 #define IMAGE_SCN_CNT_INITIALIZED_DATA 0x40
60 #define IMAGE_SCN_CNT_UNINITIALIZED_DATA 0x80
61 #define PE_SECTION_INDEX_TEXT 0
62 #define PE_SECTION_INDEX_DATA 1
63 #define PE_SECTION_INDEX_BSS 2
64 #define PE_SECTION_TABLE_SIZE 3
65 #define PE_SECTION_INDEX_INVALID -1
67 /* Get the index of the named section in our own array, which contains
68 text, data and bss in that order. Return PE_SECTION_INDEX_INVALID
69 if passed an unrecognised section name. */
72 read_pe_section_index (const char *section_name
)
74 if (strcmp (section_name
, ".text") == 0)
76 return PE_SECTION_INDEX_TEXT
;
79 else if (strcmp (section_name
, ".data") == 0)
81 return PE_SECTION_INDEX_DATA
;
84 else if (strcmp (section_name
, ".bss") == 0)
86 return PE_SECTION_INDEX_BSS
;
91 return PE_SECTION_INDEX_INVALID
;
95 /* Get the index of the named section in our own full arrayi.
96 text, data and bss in that order. Return PE_SECTION_INDEX_INVALID
97 if passed an unrecognised section name. */
100 get_pe_section_index (const char *section_name
,
101 struct read_pe_section_data
*sections
,
106 for (i
= 0; i
< nb_sections
; i
++)
107 if (strcmp (sections
[i
].section_name
, section_name
) == 0)
109 return PE_SECTION_INDEX_INVALID
;
112 /* Structure used by get_section_vmas function below
113 to access section_data array and the size of the array
114 stored in nb_sections field. */
115 struct pe_sections_info
118 struct read_pe_section_data
*sections
;
121 /* Record the virtual memory address of a section. */
124 get_section_vmas (bfd
*abfd
, asection
*sectp
, void *context
)
126 struct pe_sections_info
*data
= context
;
127 struct read_pe_section_data
*sections
= data
->sections
;
128 int sectix
= get_pe_section_index (sectp
->name
, sections
,
131 if (sectix
!= PE_SECTION_INDEX_INVALID
)
133 /* Data within the section start at rva_start in the pe and at
134 bfd_get_section_vma() within memory. Store the offset. */
136 sections
[sectix
].vma_offset
137 = bfd_get_section_vma (abfd
, sectp
) - sections
[sectix
].rva_start
;
141 /* Create a minimal symbol entry for an exported symbol.
142 SYM_NAME contains the exported name or NULL if exported by ordinal,
143 FUNC_RVA contains the Relative Virtual Address of the symbol,
144 ORDINAL is the ordinal index value of the symbol,
145 SECTION_DATA contains information about the section in which the
147 DLL_NAME is the internal name of the DLL file,
148 OBJFILE is the objfile struct of DLL_NAME. */
151 add_pe_exported_sym (const char *sym_name
,
152 unsigned long func_rva
,
154 const struct read_pe_section_data
*section_data
,
155 const char *dll_name
, struct objfile
*objfile
)
157 char *qualified_name
, *bare_name
;
158 /* Add the stored offset to get the loaded address of the symbol. */
159 CORE_ADDR vma
= func_rva
+ section_data
->vma_offset
;
160 int dll_name_len
= strlen (dll_name
);
162 /* Generate a (hopefully unique) qualified name using the first part
163 of the dll name, e.g. KERNEL32!AddAtomA. This matches the style
164 used by windbg from the "Microsoft Debugging Tools for Windows". */
166 if (sym_name
== NULL
|| *sym_name
== '\0')
167 bare_name
= xstrprintf ("#%d", ordinal
);
169 bare_name
= xstrdup (sym_name
);
171 qualified_name
= xstrprintf ("%s!%s", dll_name
, bare_name
);
173 if ((section_data
->ms_type
== mst_unknown
) && debug_coff_pe_read
)
174 fprintf_unfiltered (gdb_stdlog
, _("Unknown section type for \"%s\""
175 " for entry \"%s\" in dll \"%s\"\n"),
176 section_data
->section_name
, sym_name
, dll_name
);
178 prim_record_minimal_symbol (qualified_name
, vma
,
179 section_data
->ms_type
, objfile
);
181 /* Enter the plain name as well, which might not be unique. */
182 prim_record_minimal_symbol (bare_name
, vma
, section_data
->ms_type
, objfile
);
183 if (debug_coff_pe_read
> 1)
184 fprintf_unfiltered (gdb_stdlog
, _("Adding exported symbol \"%s\""
185 " in dll \"%s\"\n"), sym_name
, dll_name
);
186 xfree (qualified_name
);
190 /* Create a minimal symbol entry for an exported forward symbol.
191 Return 1 if the forwarded function was found 0 otherwise.
192 SYM_NAME contains the exported name or NULL if exported by ordinal,
193 FORWARD_DLL_NAME is the name of the DLL in which the target symobl resides,
194 FORWARD_FUNC_NAME is the name of the target symbol in that DLL,
195 ORDINAL is the ordinal index value of the symbol,
196 DLL_NAME is the internal name of the DLL file,
197 OBJFILE is the objfile struct of DLL_NAME. */
200 add_pe_forwarded_sym (const char *sym_name
, const char *forward_dll_name
,
201 const char *forward_func_name
, int ordinal
,
202 const char *dll_name
, struct objfile
*objfile
)
205 struct objfile
*forward_objfile
;
206 struct minimal_symbol
*msymbol
;
208 enum minimal_symbol_type msymtype
;
209 int dll_name_len
= strlen (dll_name
);
210 char *qualified_name
, *bare_name
;
211 int forward_dll_name_len
= strlen (forward_dll_name
);
212 int forward_func_name_len
= strlen (forward_func_name
);
213 int forward_len
= forward_dll_name_len
+ forward_func_name_len
+ 2;
214 char *forward_qualified_name
= alloca (forward_len
);
216 xsnprintf (forward_qualified_name
, forward_len
, "%s!%s", forward_dll_name
,
220 msymbol
= lookup_minimal_symbol_and_objfile (forward_qualified_name
,
227 for (i
= 0; i
< forward_dll_name_len
; i
++)
228 forward_qualified_name
[i
] = tolower (forward_qualified_name
[i
]);
229 msymbol
= lookup_minimal_symbol_and_objfile (forward_qualified_name
,
235 if (debug_coff_pe_read
)
236 fprintf_unfiltered (gdb_stdlog
, _("Unable to find function \"%s\" in"
237 " dll \"%s\", forward of \"%s\" in dll \"%s\"\n"),
238 forward_func_name
, forward_dll_name
, sym_name
,
243 if (debug_coff_pe_read
> 1)
244 fprintf_unfiltered (gdb_stdlog
, _("Adding forwarded exported symbol"
245 " \"%s\" in dll \"%s\", pointing to \"%s\"\n"),
246 sym_name
, dll_name
, forward_qualified_name
);
248 vma
= SYMBOL_VALUE_ADDRESS (msymbol
);
249 section
= SYMBOL_SECTION (msymbol
);
250 msymtype
= MSYMBOL_TYPE (msymbol
);
252 /* Generate a (hopefully unique) qualified name using the first part
253 of the dll name, e.g. KERNEL32!AddAtomA. This matches the style
254 used by windbg from the "Microsoft Debugging Tools for Windows". */
256 if (sym_name
== NULL
|| *sym_name
== '\0')
257 bare_name
= xstrprintf ("#%d", ordinal
);
259 bare_name
= xstrdup (sym_name
);
261 qualified_name
= xstrprintf ("%s!%s", dll_name
, bare_name
);
263 prim_record_minimal_symbol (qualified_name
, vma
, msymtype
, objfile
);
265 /* Enter the plain name as well, which might not be unique. */
266 prim_record_minimal_symbol (bare_name
, vma
, msymtype
, objfile
);
267 xfree (qualified_name
);
273 /* Truncate a dll_name at the last dot character. */
276 read_pe_truncate_name (char *dll_name
)
278 char *last_point
= strrchr (dll_name
, '.');
280 if (last_point
!= NULL
)
284 /* Low-level support functions, direct from the ld module pe-dll.c. */
286 pe_get16 (bfd
*abfd
, int where
)
290 bfd_seek (abfd
, (file_ptr
) where
, SEEK_SET
);
291 bfd_bread (b
, (bfd_size_type
) 2, abfd
);
292 return b
[0] + (b
[1] << 8);
296 pe_get32 (bfd
*abfd
, int where
)
300 bfd_seek (abfd
, (file_ptr
) where
, SEEK_SET
);
301 bfd_bread (b
, (bfd_size_type
) 4, abfd
);
302 return b
[0] + (b
[1] << 8) + (b
[2] << 16) + (b
[3] << 24);
308 unsigned char *b
= ptr
;
310 return b
[0] + (b
[1] << 8);
316 unsigned char *b
= ptr
;
318 return b
[0] + (b
[1] << 8) + (b
[2] << 16) + (b
[3] << 24);
321 /* Read the (non-debug) export symbol table from a portable
322 executable. Code originally lifted from the ld function
323 pe_implied_import_dll in pe-dll.c. */
326 read_pe_exported_syms (struct objfile
*objfile
)
328 bfd
*dll
= objfile
->obfd
;
329 unsigned long nbnormal
, nbforward
;
330 unsigned long pe_header_offset
, opthdr_ofs
, num_entries
, i
;
331 unsigned long export_opthdrrva
, export_opthdrsize
;
332 unsigned long export_rva
, export_size
, nsections
, secptr
, expptr
;
333 unsigned long exp_funcbase
;
334 unsigned char *expdata
, *erva
;
335 unsigned long name_rvas
, ordinals
, nexp
, ordbase
;
336 char *dll_name
= (char *) dll
->filename
;
337 int otherix
= PE_SECTION_TABLE_SIZE
;
342 /* Array elements are for text, data and bss in that order
343 Initialization with RVA_START > RVA_END guarantees that
344 unused sections won't be matched. */
345 struct read_pe_section_data
*section_data
;
346 struct pe_sections_info pe_sections_info
;
348 struct cleanup
*back_to
= make_cleanup (null_cleanup
, 0);
350 char const *target
= bfd_get_target (objfile
->obfd
);
352 section_data
= xzalloc (PE_SECTION_TABLE_SIZE
353 * sizeof (struct read_pe_section_data
));
355 make_cleanup (free_current_contents
, §ion_data
);
357 for (i
=0; i
< PE_SECTION_TABLE_SIZE
; i
++)
359 section_data
[i
].vma_offset
= 0;
360 section_data
[i
].rva_start
= 1;
361 section_data
[i
].rva_end
= 0;
363 section_data
[PE_SECTION_INDEX_TEXT
].ms_type
= mst_text
;
364 section_data
[PE_SECTION_INDEX_TEXT
].section_name
= ".text";
365 section_data
[PE_SECTION_INDEX_DATA
].ms_type
= mst_data
;
366 section_data
[PE_SECTION_INDEX_DATA
].section_name
= ".data";
367 section_data
[PE_SECTION_INDEX_BSS
].ms_type
= mst_bss
;
368 section_data
[PE_SECTION_INDEX_BSS
].section_name
= ".bss";
370 is_pe64
= (strcmp (target
, "pe-x86-64") == 0
371 || strcmp (target
, "pei-x86-64") == 0);
372 is_pe32
= (strcmp (target
, "pe-i386") == 0
373 || strcmp (target
, "pei-i386") == 0
374 || strcmp (target
, "pe-arm-wince-little") == 0
375 || strcmp (target
, "pei-arm-wince-little") == 0);
376 if (!is_pe32
&& !is_pe64
)
378 /* This is not a recognized PE format file. Abort now, because
379 the code is untested on anything else. *FIXME* test on
380 further architectures and loosen or remove this test. */
384 /* Get pe_header, optional header and numbers of export entries. */
385 pe_header_offset
= pe_get32 (dll
, 0x3c);
386 opthdr_ofs
= pe_header_offset
+ 4 + 20;
388 num_entries
= pe_get32 (dll
, opthdr_ofs
+ 108);
390 num_entries
= pe_get32 (dll
, opthdr_ofs
+ 92);
392 if (num_entries
< 1) /* No exports. */
398 export_opthdrrva
= pe_get32 (dll
, opthdr_ofs
+ 112);
399 export_opthdrsize
= pe_get32 (dll
, opthdr_ofs
+ 116);
403 export_opthdrrva
= pe_get32 (dll
, opthdr_ofs
+ 96);
404 export_opthdrsize
= pe_get32 (dll
, opthdr_ofs
+ 100);
406 nsections
= pe_get16 (dll
, pe_header_offset
+ 4 + 2);
407 secptr
= (pe_header_offset
+ 4 + 20 +
408 pe_get16 (dll
, pe_header_offset
+ 4 + 16));
412 /* Get the rva and size of the export section. */
413 for (i
= 0; i
< nsections
; i
++)
416 unsigned long secptr1
= secptr
+ 40 * i
;
417 unsigned long vaddr
= pe_get32 (dll
, secptr1
+ 12);
418 unsigned long vsize
= pe_get32 (dll
, secptr1
+ 16);
419 unsigned long fptr
= pe_get32 (dll
, secptr1
+ 20);
421 bfd_seek (dll
, (file_ptr
) secptr1
, SEEK_SET
);
422 bfd_bread (sname
, (bfd_size_type
) sizeof (sname
), dll
);
424 if ((strcmp (sname
, ".edata") == 0)
425 || (vaddr
<= export_opthdrrva
&& export_opthdrrva
< vaddr
+ vsize
))
427 if (strcmp (sname
, ".edata") != 0)
429 if (debug_coff_pe_read
)
430 fprintf_unfiltered (gdb_stdlog
, _("Export RVA for dll "
431 "\"%s\" is in section \"%s\"\n"),
434 else if (export_opthdrrva
!= vaddr
&& debug_coff_pe_read
)
435 fprintf_unfiltered (gdb_stdlog
, _("Wrong value of export RVA"
436 " for dll \"%s\": 0x%lx instead of 0x%lx\n"),
437 dll_name
, export_opthdrrva
, vaddr
);
438 expptr
= fptr
+ (export_opthdrrva
- vaddr
);
444 export_rva
= export_opthdrrva
;
445 export_size
= export_opthdrsize
;
447 if (export_size
== 0)
449 /* Empty export table. */
453 /* Scan sections and store the base and size of the relevant
455 for (i
= 0; i
< nsections
; i
++)
457 unsigned long secptr1
= secptr
+ 40 * i
;
458 unsigned long vsize
= pe_get32 (dll
, secptr1
+ 8);
459 unsigned long vaddr
= pe_get32 (dll
, secptr1
+ 12);
460 unsigned long characteristics
= pe_get32 (dll
, secptr1
+ 36);
464 memset (sec_name
, 0, sizeof (sec_name
));
465 bfd_seek (dll
, (file_ptr
) secptr1
+ 0, SEEK_SET
);
466 bfd_bread (sec_name
, (bfd_size_type
) 8, dll
);
468 sectix
= read_pe_section_index (sec_name
);
470 if (sectix
!= PE_SECTION_INDEX_INVALID
)
472 section_data
[sectix
].rva_start
= vaddr
;
473 section_data
[sectix
].rva_end
= vaddr
+ vsize
;
479 section_data
= xrealloc (section_data
, (otherix
+ 1)
480 * sizeof (struct read_pe_section_data
));
481 name
= xstrdup (sec_name
);
482 section_data
[otherix
].section_name
= name
;
483 make_cleanup (xfree
, name
);
484 section_data
[otherix
].rva_start
= vaddr
;
485 section_data
[otherix
].rva_end
= vaddr
+ vsize
;
486 section_data
[otherix
].vma_offset
= 0;
487 if (characteristics
& IMAGE_SCN_CNT_CODE
)
488 section_data
[otherix
].ms_type
= mst_text
;
489 else if (characteristics
& IMAGE_SCN_CNT_INITIALIZED_DATA
)
490 section_data
[otherix
].ms_type
= mst_data
;
491 else if (characteristics
& IMAGE_SCN_CNT_UNINITIALIZED_DATA
)
492 section_data
[otherix
].ms_type
= mst_bss
;
494 section_data
[otherix
].ms_type
= mst_unknown
;
499 expdata
= (unsigned char *) xmalloc (export_size
);
500 make_cleanup (xfree
, expdata
);
502 bfd_seek (dll
, (file_ptr
) expptr
, SEEK_SET
);
503 bfd_bread (expdata
, (bfd_size_type
) export_size
, dll
);
504 erva
= expdata
- export_rva
;
506 nexp
= pe_as32 (expdata
+ 24);
507 name_rvas
= pe_as32 (expdata
+ 32);
508 ordinals
= pe_as32 (expdata
+ 36);
509 ordbase
= pe_as32 (expdata
+ 16);
510 exp_funcbase
= pe_as32 (expdata
+ 28);
512 /* Use internal dll name instead of full pathname. */
513 dll_name
= pe_as32 (expdata
+ 12) + erva
;
515 pe_sections_info
.nb_sections
= otherix
;
516 pe_sections_info
.sections
= section_data
;
518 bfd_map_over_sections (dll
, get_section_vmas
, &pe_sections_info
);
520 /* Adjust the vma_offsets in case this PE got relocated. This
521 assumes that *all* sections share the same relocation offset
522 as the text section. */
523 for (i
= 0; i
< otherix
; i
++)
525 section_data
[i
].vma_offset
526 += ANOFFSET (objfile
->section_offsets
, SECT_OFF_TEXT (objfile
));
529 /* Truncate name at first dot. Should maybe also convert to all
530 lower case for convenience on Windows. */
531 read_pe_truncate_name (dll_name
);
533 if (debug_coff_pe_read
)
534 fprintf_unfiltered (gdb_stdlog
, _("DLL \"%s\" has %ld export entries,"
535 " base=%ld\n"), dll_name
, nexp
, ordbase
);
538 /* Iterate through the list of symbols. */
539 for (i
= 0; i
< nexp
; i
++)
541 /* Pointer to the names vector. */
542 unsigned long name_rva
= pe_as32 (erva
+ name_rvas
+ i
* 4);
543 /* Retrieve ordinal value. */
545 unsigned long ordinal
= pe_as16 (erva
+ ordinals
+ i
* 2);
548 /* Pointer to the function address vector. */
549 /* This is relatived to ordinal value. */
550 unsigned long func_rva
= pe_as32 (erva
+ exp_funcbase
+
553 /* Find this symbol's section in our own array. */
555 int section_found
= 0;
557 /* First handle forward cases. */
558 if (func_rva
>= export_rva
&& func_rva
< export_rva
+ export_size
)
560 char *forward_name
= (char *) (erva
+ func_rva
);
561 char *funcname
= (char *) (erva
+ name_rva
);
562 char *forward_dll_name
= forward_name
;
563 char *forward_func_name
= forward_name
;
564 char *sep
= strrchr (forward_name
, '.');
568 int len
= (int) (sep
- forward_name
);
570 forward_dll_name
= alloca (len
+ 1);
571 strncpy (forward_dll_name
, forward_name
, len
);
572 forward_dll_name
[len
] = '\0';
573 forward_func_name
= ++sep
;
575 if (add_pe_forwarded_sym (funcname
, forward_dll_name
,
576 forward_func_name
, ordinal
,
577 dll_name
, objfile
) != 0)
582 for (sectix
= 0; sectix
< otherix
; ++sectix
)
584 if ((func_rva
>= section_data
[sectix
].rva_start
)
585 && (func_rva
< section_data
[sectix
].rva_end
))
588 add_pe_exported_sym (erva
+ name_rva
,
590 section_data
+ sectix
, dll_name
, objfile
);
597 char *funcname
= (char *) (erva
+ name_rva
);
601 add_pe_exported_sym (NULL
, func_rva
, ordinal
,
602 section_data
, dll_name
, objfile
);
605 else if (debug_coff_pe_read
)
606 fprintf_unfiltered (gdb_stdlog
, _("Export name \"%s\" ord. %lu,"
607 " RVA 0x%lx in dll \"%s\" not handled\n"),
608 funcname
, ordinal
, func_rva
, dll_name
);
612 if (debug_coff_pe_read
)
613 fprintf_unfiltered (gdb_stdlog
, _("Finished reading \"%s\", exports %ld,"
614 " forwards %ld, total %ld/%ld.\n"), dll_name
, nbnormal
,
615 nbforward
, nbnormal
+ nbforward
, nexp
);
616 /* Discard expdata and section_data. */
617 do_cleanups (back_to
);
620 /* Extract from ABFD the offset of the .text section.
621 This offset is mainly related to the offset within the file.
622 The value was previously expected to be 0x1000 for all files,
623 but some Windows OS core DLLs seem to use 0x10000 section alignement
624 which modified the return value of that function.
625 Still return default 0x1000 value if ABFD is NULL or
626 if '.text' section is not found, but that should not happen... */
628 #define DEFAULT_COFF_PE_TEXT_SECTION_OFFSET 0x1000
631 pe_text_section_offset (struct bfd
*abfd
)
634 unsigned long pe_header_offset
, opthdr_ofs
, num_entries
, i
;
635 unsigned long export_rva
, export_size
, nsections
, secptr
, expptr
;
636 unsigned long exp_funcbase
;
637 unsigned char *expdata
, *erva
;
638 unsigned long name_rvas
, ordinals
, nexp
, ordbase
;
645 return DEFAULT_COFF_PE_TEXT_SECTION_OFFSET
;
647 target
= bfd_get_target (abfd
);
649 is_pe64
= (strcmp (target
, "pe-x86-64") == 0
650 || strcmp (target
, "pei-x86-64") == 0);
651 is_pe32
= (strcmp (target
, "pe-i386") == 0
652 || strcmp (target
, "pei-i386") == 0
653 || strcmp (target
, "pe-arm-wince-little") == 0
654 || strcmp (target
, "pei-arm-wince-little") == 0);
656 if (!is_pe32
&& !is_pe64
)
658 /* This is not a recognized PE format file. Abort now, because
659 the code is untested on anything else. *FIXME* test on
660 further architectures and loosen or remove this test. */
661 return DEFAULT_COFF_PE_TEXT_SECTION_OFFSET
;
664 /* Get pe_header, optional header and numbers of sections. */
665 pe_header_offset
= pe_get32 (abfd
, 0x3c);
666 opthdr_ofs
= pe_header_offset
+ 4 + 20;
667 nsections
= pe_get16 (abfd
, pe_header_offset
+ 4 + 2);
668 secptr
= (pe_header_offset
+ 4 + 20 +
669 pe_get16 (abfd
, pe_header_offset
+ 4 + 16));
671 /* Get the rva and size of the export section. */
672 for (i
= 0; i
< nsections
; i
++)
675 unsigned long secptr1
= secptr
+ 40 * i
;
676 unsigned long vaddr
= pe_get32 (abfd
, secptr1
+ 12);
678 bfd_seek (abfd
, (file_ptr
) secptr1
, SEEK_SET
);
679 bfd_bread (sname
, (bfd_size_type
) 8, abfd
);
680 if (strcmp (sname
, ".text") == 0)
684 return DEFAULT_COFF_PE_TEXT_SECTION_OFFSET
;
687 /* Implements "show debug coff_pe_read" command. */
690 show_debug_coff_pe_read (struct ui_file
*file
, int from_tty
,
691 struct cmd_list_element
*c
, const char *value
)
693 fprintf_filtered (file
, _("Coff PE read debugging is %s.\n"), value
);
696 /* Provide a prototype to silence -Wmissing-prototypes. */
698 void _initialize_coff_pe_read (void);
700 /* Adds "Set/show debug coff_pe_read" commands. */
703 _initialize_coff_pe_read (void)
705 add_setshow_uinteger_cmd ("coff_pe_read", class_maintenance
,
707 _("Set coff PE read debugging."),
708 _("Show coff PE read debugging."),
709 _("When set, debugging messages for coff reading "
710 "of exported symbols are displayed."),
711 NULL
, show_debug_coff_pe_read
,
712 &setdebuglist
, &showdebuglist
);