rpms/gdb
7
0
Fork 0
Code Issues Pull Requests Releases Activity
88c9a17a81
gdb/gdb-archer.patch

47413 lines
1.5 MiB
Diff
Raw Normal View History

- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
http://sourceware.org/gdb/wiki/ProjectArcher
http://sourceware.org/gdb/wiki/ArcherBranchManagement
GIT snapshot:
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
commit 7c250ce99c90cf6097e2ec55ea0f205830979cee
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
branch `archer' - the merge of branches:
archer-jankratochvil-merge-expr
archer-keiths-expr-cumulative
(archer-swagiaal-using-directive)
archer-jankratochvil-misc
archer-jankratochvil-python
archer-jankratochvil-type-refcount
archer-tromey-python
archer-jankratochvil-vla
archer-jankratochvil-type-refcount
archer-pmuldoon-exception-rewind-master
archer-sergio-catch-syscall
archer-tromey-charset
archer-tromey-delayed-symfile
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
diff --git a/bfd/po/es.po b/bfd/po/es.po
index 9f2ec21..e4410d7 100644
--- a/bfd/po/es.po
+++ b/bfd/po/es.po
@@ -1,13 +1,14 @@
-# Mensajes en espa<70>ol para bfd 2.17.90.
-# Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
-# Cristian Oth<74>n Mart<72>nez Vera <cfuga@itam.mx>, 2002, 2003, 2004, 2005, 2006, 2007
+# Mensajes en espa<70>ol para bfd 2.18.90.
+# Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+# This file is distributed under the same license as the binutils package.
+# Cristian Oth<74>n Mart<72>nez Vera <cfuga@itam.mx>, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
#
msgid ""
msgstr ""
-"Project-Id-Version: bfd 2.17.90\n"
-"Report-Msgid-Bugs-To: \n"
-"POT-Creation-Date: 2007-08-06 16:21-0400\n"
-"PO-Revision-Date: 2007-09-08 08:57-0500\n"
+"Project-Id-Version: bfd 2.18.90\n"
+"Report-Msgid-Bugs-To: bug-binutils@gnu.org\n"
+"POT-Creation-Date: 2008-09-09 15:56+0930\n"
+"PO-Revision-Date: 2009-03-03 22:20-0600\n"
"Last-Translator: Cristian Oth<74>n Mart<72>nez Vera <cfuga@itam.mx>\n"
"Language-Team: Spanish <es@li.org>\n"
"MIME-Version: 1.0\n"
@@ -31,143 +32,143 @@ msgstr "%B: Tipo de reubicaci
msgid "%B: Bad relocation record imported: %d"
msgstr "%B: Registro de reubicaci<63>n importado err<72>neo: %d"
-#: aoutx.h:1268 aoutx.h:1602
+#: aoutx.h:1268 aoutx.h:1604
#, c-format
msgid "%s: can not represent section `%s' in a.out object file format"
msgstr "%s: no se puede representar la secci<63>n `%s' en el fichero objeto de formato a.out"
-#: aoutx.h:1568
+#: aoutx.h:1570
#, c-format
msgid "%s: can not represent section for symbol `%s' in a.out object file format"
msgstr "%s: no se puede representar la secci<63>n para el s<>mbolo `%s' en el fichero objeto de formato a.out"
-#: aoutx.h:1570
+#: aoutx.h:1572
msgid "*unknown*"
msgstr "*desconocido*"
-#: aoutx.h:3987 aoutx.h:4313
+#: aoutx.h:3989 aoutx.h:4315
msgid "%P: %B: unexpected relocation type\n"
msgstr "%P: %B: tipo de reubicaci<63>n inesperado\n"
-#: aoutx.h:5347
+#: aoutx.h:5349
#, c-format
msgid "%s: relocatable link from %s to %s not supported"
msgstr "%s: no se admite el enlace reubicable de %s a %s"
-#: archive.c:1766
+#: archive.c:2046
msgid "Warning: writing archive was slow: rewriting timestamp\n"
msgstr "Aviso: la escritura del fichero fue lenta: se reescribe la marca de tiempo\n"
# <20>Uff! Si utiliz<69>ramos file=archivo, esta traducci<63>n ser<65>a imposible. cfuga
-#: archive.c:2029
+#: archive.c:2309
msgid "Reading archive file mod timestamp"
msgstr "Se lee el archivo de la modificaci<63>n de marca de tiempo del fichero"
-#: archive.c:2053
+#: archive.c:2333
msgid "Writing updated armap timestamp"
msgstr "Se escribe la marca de tiempo actualizada de armap"
-#: bfd.c:289
+#: bfd.c:368
msgid "No error"
msgstr "No hay error"
-#: bfd.c:290
+#: bfd.c:369
msgid "System call error"
msgstr "Error en la llamada al sistema"
-#: bfd.c:291
+#: bfd.c:370
msgid "Invalid bfd target"
msgstr "Objetivo bfd inv<6E>lido"
-#: bfd.c:292
+#: bfd.c:371
msgid "File in wrong format"
msgstr "Fichero en formato err<72>neo"
-#: bfd.c:293
+#: bfd.c:372
msgid "Archive object file in wrong format"
msgstr "Archivo de ficheros objeto en formato err<72>neo"
-#: bfd.c:294
+#: bfd.c:373
msgid "Invalid operation"
msgstr "Operaci<63>n inv<6E>lida"
-#: bfd.c:295
+#: bfd.c:374
msgid "Memory exhausted"
msgstr "Memoria agotada"
-#: bfd.c:296
+#: bfd.c:375
msgid "No symbols"
msgstr "No hay s<>mbolos"
-#: bfd.c:297
+#: bfd.c:376
msgid "Archive has no index; run ranlib to add one"
msgstr "El archivo no tiene <20>ndice; ejecute ranlib para agregar uno"
-#: bfd.c:298
+#: bfd.c:377
msgid "No more archived files"
msgstr "No hay m<>s ficheros archivados"
-#: bfd.c:299
+#: bfd.c:378
msgid "Malformed archive"
msgstr "Archivo malformado"
-#: bfd.c:300
+#: bfd.c:379
msgid "File format not recognized"
msgstr "No se reconoce el formato del fichero"
-#: bfd.c:301
+#: bfd.c:380
msgid "File format is ambiguous"
msgstr "El formato del fichero es ambiguo"
-#: bfd.c:302
+#: bfd.c:381
msgid "Section has no contents"
msgstr "La secci<63>n no tiene contenidos"
-#: bfd.c:303
+#: bfd.c:382
msgid "Nonrepresentable section on output"
msgstr "Secci<63>n no representable en la salida"
-#: bfd.c:304
+#: bfd.c:383
msgid "Symbol needs debug section which does not exist"
msgstr "Un s<>mbolo requiere de una secci<63>n de depuraci<63>n, la cual no existe"
-#: bfd.c:305
+#: bfd.c:384
msgid "Bad value"
msgstr "Valor err<72>neo"
-#: bfd.c:306
+#: bfd.c:385
msgid "File truncated"
msgstr "Fichero truncado"
-#: bfd.c:307
+#: bfd.c:386
msgid "File too big"
msgstr "Fichero demasiado grande"
-#: bfd.c:308
+#: bfd.c:387
#, c-format
msgid "Error reading %s: %s"
msgstr "Error al leer %s: %s"
-#: bfd.c:309
+#: bfd.c:388
msgid "#<Invalid error code>"
msgstr "#<C<>digo de error inv<6E>lido>"
-#: bfd.c:830
+#: bfd.c:912
#, c-format
msgid "BFD %s assertion fail %s:%d"
msgstr "fall<6C> la aseveraci<63>n BFD %s %s:%d"
-#: bfd.c:842
+#: bfd.c:924
#, c-format
msgid "BFD %s internal error, aborting at %s line %d in %s\n"
msgstr "error interno de BFD %s, se aborta en %s l<>nea %d en %s\n"
-#: bfd.c:846
+#: bfd.c:928
#, c-format
msgid "BFD %s internal error, aborting at %s line %d\n"
msgstr "error interno de BFD %s, se aborta en %s l<>nea %d\n"
-#: bfd.c:848
+#: bfd.c:930
msgid "Please report this bug.\n"
msgstr "Por favor reporte este bicho.\n"
@@ -186,14 +187,10 @@ msgstr "no se mapea: no se estableci
msgid "Warning: Writing section `%s' to huge (ie negative) file offset 0x%lx."
msgstr "Aviso: Se escribe la secci<63>n `%s' a un desplazamiento de fichero grande (pe negativo) 0x%lx."
-#: cache.c:238
+#: cache.c:222
msgid "reopening %B: %s\n"
msgstr "se reabre %B: %s\n"
-#: coff64-rs6000.c:2126 coff-rs6000.c:3624
-msgid "%B: symbol `%s' has unrecognized smclas %d"
-msgstr "%B: el s<>mbolo `%s' tiene smclas %d que no se reconoce"
-
#: coff-alpha.c:490
msgid ""
"%B: Cannot handle compressed Alpha binaries.\n"
@@ -206,7 +203,7 @@ msgstr ""
msgid "%B: unknown/unsupported relocation type %d"
msgstr "%B: tipo de reubicaci<63>n %d desconocida/no admitida"
-#: coff-alpha.c:899 coff-alpha.c:936 coff-alpha.c:2024 coff-mips.c:1002
+#: coff-alpha.c:899 coff-alpha.c:936 coff-alpha.c:2024 coff-mips.c:1003
msgid "GP relative relocation used when GP not defined"
msgstr "se us<75> una reubicaci<63>n GP relativa cuando GP no estaba definido"
@@ -222,22 +219,22 @@ msgstr "%B: tipo de reubicaci
msgid "%B: unsupported relocation: ALPHA_R_GPRELLOW"
msgstr "%B: tipo de reubicaci<63>n no admitida: ALPHA_R_GPRELLOW"
-#: coff-alpha.c:1574 elf32-m32r.c:2487 elf64-alpha.c:3953 elf64-alpha.c:4106
-#: elf32-ia64.c:4675 elf64-ia64.c:4675
+#: coff-alpha.c:1574 elf32-m32r.c:2487 elf64-alpha.c:3970 elf64-alpha.c:4125
+#: elf32-ia64.c:4465 elf64-ia64.c:4465
msgid "%B: unknown relocation type %d"
msgstr "%B: tipo de reubicaci<63>n %d desconocido"
-#: coff-arm.c:1036
+#: coff-arm.c:1039
#, c-format
msgid "%B: unable to find THUMB glue '%s' for `%s'"
msgstr "%B: no se puede encontrar el pegamento THUMB '%s' para `%s'"
-#: coff-arm.c:1065
+#: coff-arm.c:1068
#, c-format
msgid "%B: unable to find ARM glue '%s' for `%s'"
msgstr "%B: no se puede encontrar el pegamento ARM '%s' para `%s'"
-#: coff-arm.c:1367 elf32-arm.c:4167
+#: coff-arm.c:1370 elf32-arm.c:5453
#, c-format
msgid ""
"%B(%s): warning: interworking not enabled.\n"
@@ -246,7 +243,7 @@ msgstr ""
"%B(%s): aviso: no se activ<69> la interoperabilidad.\n"
" primer suceso: %B: llamada arm a thumb"
-#: coff-arm.c:1457
+#: coff-arm.c:1460
#, c-format
msgid ""
"%B(%s): warning: interworking not enabled.\n"
@@ -257,188 +254,118 @@ msgstr ""
" primer suceso: %B: llamada arm a thumb\n"
" considere reenlazar con --support-old-code activado"
-#: coff-arm.c:1750 cofflink.c:3018 coff-tic80.c:695
+#: coff-arm.c:1755 coff-tic80.c:695 cofflink.c:3018
msgid "%B: bad reloc address 0x%lx in section `%A'"
msgstr "%B: direcci<63>n de reubicaci<63>n 0x%lx err<72>nea en la secci<63>n `%A'"
-#: coff-arm.c:2075
+#: coff-arm.c:2080
msgid "%B: illegal symbol index in reloc: %d"
msgstr "%B: <20>ndice de s<>mbolos ilegal en la reubicaci<63>n: %d"
-#: coff-arm.c:2206
+#: coff-arm.c:2211
#, c-format
msgid "ERROR: %B is compiled for APCS-%d, whereas %B is compiled for APCS-%d"
msgstr "ERROR: %B est<73> compilado para APCS-%d, mientras que %B est<73> compilado para APCS-%d"
-#: coff-arm.c:2222 elf32-arm.c:7072
+#: coff-arm.c:2227 elf32-arm.c:8563
#, c-format
msgid "ERROR: %B passes floats in float registers, whereas %B passes them in integer registers"
msgstr "ERROR: %B pasa n<>meros de coma flotante en registros de coma flotante, mientras que %B los pasa en registros enteros"
-#: coff-arm.c:2225 elf32-arm.c:7076
+#: coff-arm.c:2230 elf32-arm.c:8567
#, c-format
msgid "ERROR: %B passes floats in integer registers, whereas %B passes them in float registers"
msgstr "ERROR: %B pasa n<>meros de coma flotante en registros enteros, mientras que %B los pasa en registros de coma flotante"
-#: coff-arm.c:2239
+#: coff-arm.c:2244
#, c-format
msgid "ERROR: %B is compiled as position independent code, whereas target %B is absolute position"
msgstr "ERROR: %B est<73> compilado como c<>digo independiente de posici<63>n, mientras que el objetivo %B es de posici<63>n absoluta"
-#: coff-arm.c:2242
+#: coff-arm.c:2247
#, c-format
msgid "ERROR: %B is compiled as absolute position code, whereas target %B is position independent"
msgstr "ERROR: %B est<73> compilado como c<>digo de posici<63>n absoluta, mientras que el objetivo %B es independiente de posici<63>n"
-#: coff-arm.c:2270 elf32-arm.c:7141
+#: coff-arm.c:2275 elf32-arm.c:8632
#, c-format
msgid "Warning: %B supports interworking, whereas %B does not"
msgstr "Aviso: %B admite interoperabilidad, mientras que %B no"
-#: coff-arm.c:2273 elf32-arm.c:7147
+#: coff-arm.c:2278 elf32-arm.c:8638
#, c-format
msgid "Warning: %B does not support interworking, whereas %B does"
msgstr "Aviso: %B no admite interoperabilidad, mientras que %B s<>"
-#: coff-arm.c:2297
+#: coff-arm.c:2302
#, c-format
msgid "private flags = %x:"
msgstr "opciones privadas = %x:"
-#: coff-arm.c:2305 elf32-arm.c:7198
+#: coff-arm.c:2310 elf32-arm.c:8689
#, c-format
msgid " [floats passed in float registers]"
msgstr "[n<>meros de coma flotante pasados en registros de coma flotante]"
-#: coff-arm.c:2307
+#: coff-arm.c:2312
#, c-format
msgid " [floats passed in integer registers]"
msgstr "[n<>meros de coma flotante pasados en registros enteros]"
-#: coff-arm.c:2310 elf32-arm.c:7201
+#: coff-arm.c:2315 elf32-arm.c:8692
#, c-format
msgid " [position independent]"
msgstr "[independiente de posici<63>n]"
-#: coff-arm.c:2312
+#: coff-arm.c:2317
#, c-format
msgid " [absolute position]"
msgstr "[posici<63>n absoluta]"
-#: coff-arm.c:2316
+#: coff-arm.c:2321
#, c-format
msgid " [interworking flag not initialised]"
msgstr "[no se inicializ<69> la opci<63>n de interoperabilidad]"
-#: coff-arm.c:2318
+#: coff-arm.c:2323
#, c-format
msgid " [interworking supported]"
msgstr "[admite interoperabilidad]"
-#: coff-arm.c:2320
+#: coff-arm.c:2325
#, c-format
msgid " [interworking not supported]"
msgstr "[no admite interoperabilidad]"
-#: coff-arm.c:2366 elf32-arm.c:6578
+#: coff-arm.c:2371 elf32-arm.c:8050
#, c-format
msgid "Warning: Not setting interworking flag of %B since it has already been specified as non-interworking"
msgstr "Aviso: No se establece la opci<63>n de interoperabilidad de %B ya que se hab<61>a especificado con anterioridad como no interoperable"
-#: coff-arm.c:2370 elf32-arm.c:6582
+#: coff-arm.c:2375 elf32-arm.c:8054
#, c-format
msgid "Warning: Clearing the interworking flag of %B due to outside request"
msgstr "Aviso: Se limpia la opci<63>n de interoperabilidad de %B debido a una petici<63>n externa"
-#: coffcode.h:850
-msgid "%B: warning: COMDAT symbol '%s' does not match section name '%s'"
-msgstr "%B: aviso: el s<>mbolo COMDAT '%s' no coincide con el nombre de secci<63>n '%s'"
-
-#. Generate a warning message rather using the 'unhandled'
-#. variable as this will allow some .sys files generate by
-#. other toolchains to be processed. See bugzilla issue 196.
-#: coffcode.h:1062
-msgid "%B: Warning: Ignoring section flag IMAGE_SCN_MEM_NOT_PAGED in section %s"
-msgstr "%B: Aviso: Se descarta la opci<63>n de secci<63>n IMAGE_SCN_MEM_NOT_PAGED en la secci<63>n %s"
-
-#: coffcode.h:1117
-msgid "%B (%s): Section flag %s (0x%x) ignored"
-msgstr "%B (%s): Se descarta la opci<63>n de secci<63>n %s (0x%x)"
-
-#: coffcode.h:2236
-#, c-format
-msgid "Unrecognized TI COFF target id '0x%x'"
-msgstr "No se reconoce el id de objetivo TI COFF '0x%x'"
-
-#: coffcode.h:2551
-msgid "%B: reloc against a non-existant symbol index: %ld"
-msgstr "%B: reubicaci<63>n contra un <20>ndice s<>mbolo que no existe: %ld"
-
-#: coffcode.h:4296
-msgid "%B: warning: line number table read failed"
-msgstr "%B: aviso: fall<6C> la lectura de tabla de n<>meros de l<>nea"
-
-#: coffcode.h:4329
-msgid "%B: warning: illegal symbol index %ld in line numbers"
-msgstr "%B: aviso: <20>ndice de s<>mbolos %ld ilegal en los n<>meros de l<>nea"
-
-#: coffcode.h:4343
-msgid "%B: warning: duplicate line number information for `%s'"
-msgstr "%B: aviso: informaci<63>n duplicada de n<>meros de l<>nea para `%s'"
-
-#: coffcode.h:4735
-msgid "%B: Unrecognized storage class %d for %s symbol `%s'"
-msgstr "%B: Clase de almacenamiento %d no reconocida para %s s<>mbolo `%s'"
-
-#: coffcode.h:4861
-msgid "warning: %B: local symbol `%s' has no section"
-msgstr "aviso: %B: el s<>mbolo local `%s' no tiene secci<63>n"
-
-#: coffcode.h:4966 coff-i860.c:601 coff-tic54x.c:393
-msgid "%B: warning: illegal symbol index %ld in relocs"
-msgstr "%B: aviso: <20>ndice de s<>mbolos %ld ilegal en reubicaciones"
-
-#: coffcode.h:5004
-msgid "%B: illegal relocation type %d at address 0x%lx"
-msgstr "%B: tipo de reubicaci<63>n %d ilegal en la direcci<63>n 0x%lx"
-
-#: coffgen.c:1518
-msgid "%B: bad string table size %lu"
-msgstr "%B: tama<6D>o de tabla de cadenas %lu err<72>neo"
-
#: coff-h8300.c:1122
#, c-format
msgid "cannot handle R_MEM_INDIRECT reloc when using %s output"
msgstr "no se puede manejar la reubicaci<63>n R_MEM_INDIRECT cuando se utiliza la salida %s"
-#: coff-i860.c:143
+#: coff-i860.c:147
#, c-format
msgid "Relocation `%s' not yet implemented\n"
msgstr "La reubicaci<63>n `%s' a<>n no est<73> implementada\n"
-#: coff-i960.c:138 coff-i960.c:501
+#: coff-i860.c:605 coff-tic54x.c:398 coffcode.h:4975
+msgid "%B: warning: illegal symbol index %ld in relocs"
+msgstr "%B: aviso: <20>ndice de s<>mbolos %ld ilegal en reubicaciones"
+
+#: coff-i960.c:143 coff-i960.c:506
msgid "uncertain calling convention for non-COFF symbol"
msgstr "convenci<63>n de llamada incierta para un s<>mbolo que no es COFF"
-#: cofflink.c:513 elflink.c:4175
-msgid "Warning: type of symbol `%s' changed from %d to %d in %B"
-msgstr "Aviso: el tipo del s<>mbolo `%s' cambi<62> de %d a %d en %B"
-
-#: cofflink.c:2296
-msgid "%B: relocs in section `%A', but it has no contents"
-msgstr "%B: reubicaciones en la secci<63>n `%A', pero no tiene contenido"
-
-#: cofflink.c:2627 coffswap.h:824
-#, c-format
-msgid "%s: %s: reloc overflow: 0x%lx > 0xffff"
-msgstr "%s: %s: desbordamiento de reubicaci<63>n: 0x%lx > 0xffff"
-
-#: cofflink.c:2636 coffswap.h:810
-#, c-format
-msgid "%s: warning: %s: line number overflow: 0x%lx > 0xffff"
-msgstr "%s: aviso: %s: desbordamiento de n<>mero de l<>nea: 0x%lx > 0xffff"
-
-#: coff-m68k.c:506 elf32-bfin.c:5434 elf32-m68k.c:2393
+#: coff-m68k.c:506 elf32-bfin.c:5510 elf32-m68k.c:3938
msgid "unsupported reloc type"
msgstr "no se admite el tipo de reubicaci<63>n"
@@ -462,31 +389,35 @@ msgstr "La direcci
msgid "Unrecognized Reloc Type"
msgstr "Tipo de Reubicaci<63>n no Reconocida"
-#: coff-mips.c:687 elf32-mips.c:958 elf32-score.c:345 elf64-mips.c:1911
-#: elfn32-mips.c:1752
+#: coff-mips.c:688 elf32-mips.c:1014 elf32-score.c:345 elf64-mips.c:1991
+#: elfn32-mips.c:1832
msgid "GP relative relocation when _gp not defined"
msgstr "reubicaci<63>n GP relativa cuando _gp no est<73> definido"
-#: coff-or32.c:228
+#: coff-or32.c:229
msgid "Unrecognized reloc"
msgstr "Reubicaci<63>n no reconocida"
-#: coff-rs6000.c:2799
+#: coff-rs6000.c:2803
#, c-format
msgid "%s: unsupported relocation type 0x%02x"
msgstr "%s: no se admite el tipo de reubicaci<63>n 0x%02x"
-#: coff-rs6000.c:2892
+#: coff-rs6000.c:2896
#, c-format
msgid "%s: TOC reloc at 0x%x to symbol `%s' with no TOC entry"
msgstr "%s: reubicaci<63>n de TOC en 0x%x al s<>mbolo `%s' sin entrada TOC"
-#: coff-tic4x.c:191 coff-tic54x.c:299 coff-tic80.c:458
+#: coff-rs6000.c:3628 coff64-rs6000.c:2130
+msgid "%B: symbol `%s' has unrecognized smclas %d"
+msgstr "%B: el s<>mbolo `%s' tiene smclas %d que no se reconoce"
+
+#: coff-tic4x.c:195 coff-tic54x.c:299 coff-tic80.c:458
#, c-format
msgid "Unrecognized reloc type 0x%x"
msgstr "Tipo de reubicaci<63>n 0x%x no reconocida"
-#: coff-tic4x.c:236
+#: coff-tic4x.c:240
#, c-format
msgid "%s: warning: illegal symbol index %ld in relocs"
msgstr "%s: aviso: <20>ncide de s<>mbolos %ld ilegal en reubicaciones"
@@ -496,6 +427,76 @@ msgstr "%s: aviso:
msgid "ignoring reloc %s\n"
msgstr "se descarta la reubicaci<63>n %s\n"
+#: coffcode.h:850
+msgid "%B: warning: COMDAT symbol '%s' does not match section name '%s'"
+msgstr "%B: aviso: el s<>mbolo COMDAT '%s' no coincide con el nombre de secci<63>n '%s'"
+
+#. Generate a warning message rather using the 'unhandled'
+#. variable as this will allow some .sys files generate by
+#. other toolchains to be processed. See bugzilla issue 196.
+#: coffcode.h:1062
+msgid "%B: Warning: Ignoring section flag IMAGE_SCN_MEM_NOT_PAGED in section %s"
+msgstr "%B: Aviso: Se descarta la opci<63>n de secci<63>n IMAGE_SCN_MEM_NOT_PAGED en la secci<63>n %s"
+
+#: coffcode.h:1117
+msgid "%B (%s): Section flag %s (0x%x) ignored"
+msgstr "%B (%s): Se descarta la opci<63>n de secci<63>n %s (0x%x)"
+
+#: coffcode.h:2244
+#, c-format
+msgid "Unrecognized TI COFF target id '0x%x'"
+msgstr "No se reconoce el id de objetivo TI COFF '0x%x'"
+
+#: coffcode.h:2559
+msgid "%B: reloc against a non-existant symbol index: %ld"
+msgstr "%B: reubicaci<63>n contra un <20>ndice s<>mbolo que no existe: %ld"
+
+#: coffcode.h:4309
+msgid "%B: warning: line number table read failed"
+msgstr "%B: aviso: fall<6C> la lectura de tabla de n<>meros de l<>nea"
+
+#: coffcode.h:4339
+msgid "%B: warning: illegal symbol index %ld in line numbers"
+msgstr "%B: aviso: <20>ndice de s<>mbolos %ld ilegal en los n<>meros de l<>nea"
+
+#: coffcode.h:4353
+msgid "%B: warning: duplicate line number information for `%s'"
+msgstr "%B: aviso: informaci<63>n duplicada de n<>meros de l<>nea para `%s'"
+
+#: coffcode.h:4744
+msgid "%B: Unrecognized storage class %d for %s symbol `%s'"
+msgstr "%B: Clase de almacenamiento %d no reconocida para %s s<>mbolo `%s'"
+
+#: coffcode.h:4870
+msgid "warning: %B: local symbol `%s' has no section"
+msgstr "aviso: %B: el s<>mbolo local `%s' no tiene secci<63>n"
+
+#: coffcode.h:5013
+msgid "%B: illegal relocation type %d at address 0x%lx"
+msgstr "%B: tipo de reubicaci<63>n %d ilegal en la direcci<63>n 0x%lx"
+
+#: coffgen.c:1518
+msgid "%B: bad string table size %lu"
+msgstr "%B: tama<6D>o de tabla de cadenas %lu err<72>neo"
+
+#: cofflink.c:513 elflink.c:4218
+msgid "Warning: type of symbol `%s' changed from %d to %d in %B"
+msgstr "Aviso: el tipo del s<>mbolo `%s' cambi<62> de %d a %d en %B"
+
+#: cofflink.c:2296
+msgid "%B: relocs in section `%A', but it has no contents"
+msgstr "%B: reubicaciones en la secci<63>n `%A', pero no tiene contenido"
+
+#: cofflink.c:2627 coffswap.h:824
+#, c-format
+msgid "%s: %s: reloc overflow: 0x%lx > 0xffff"
+msgstr "%s: %s: desbordamiento de reubicaci<63>n: 0x%lx > 0xffff"
+
+#: cofflink.c:2636 coffswap.h:810
+#, c-format
+msgid "%s: warning: %s: line number overflow: 0x%lx > 0xffff"
+msgstr "%s: aviso: %s: desbordamiento de n<>mero de l<>nea: 0x%lx > 0xffff"
+
#: cpu-arm.c:189 cpu-arm.c:200
msgid "ERROR: %B is compiled for the EP9312, whereas %B is compiled for XScale"
msgstr "ERROR: %B est<73> compilado para el EP9312, mientras que %B est<73> compilado para XScale"
@@ -505,66 +506,50 @@ msgstr "ERROR: %B est
msgid "warning: unable to update contents of %s section in %s"
msgstr "aviso: no se puede actualizar el contenido de la secci<63>n %s en %s"
-#: dwarf2.c:481
-msgid "Dwarf Error: Can't find .debug_str section."
-msgstr "Error de Dwarf: No se puede encontrar la secci<63>n .debug_str."
-
-#: dwarf2.c:499
+#: dwarf2.c:424
#, c-format
-msgid "Dwarf Error: DW_FORM_strp offset (%lu) greater than or equal to .debug_str size (%lu)."
-msgstr "Error de Dwarf: El desplazamiento DW_FROM_strp (%lu) es m<>s grande o igual que el tama<6D>o de .debug_str (%lu)."
+msgid "Dwarf Error: Can't find %s section."
+msgstr "Error de Dwarf: No se puede encontrar la secci<63>n %s."
-#: dwarf2.c:592
-msgid "Dwarf Error: Can't find .debug_abbrev section."
-msgstr "Error de Dwarf: No se puede encontrar la secci<63>n .debug_abbrev."
+#: dwarf2.c:452
+#, c-format
+msgid "Dwarf Error: unable to decompress %s section."
+msgstr "Error de Dwarf: no se puede descomprimir la secci<63>n %s."
-#: dwarf2.c:607
+#: dwarf2.c:462
#, c-format
-msgid "Dwarf Error: Abbrev offset (%lu) greater than or equal to .debug_abbrev size (%lu)."
-msgstr "Error de Dwarf: El desplazamiento de abreviatura (%lu) es m<>s grande o igual que el tama<6D>o de .debug_abbrev (%lu)."
+msgid "Dwarf Error: Offset (%lu) greater than or equal to %s size (%lu)."
+msgstr "Error de Dwarf: El desplazamiento (%lu) es mayor que o igual que el tama<6D>o de %s (%lu)."
-#: dwarf2.c:822
+#: dwarf2.c:849
#, c-format
msgid "Dwarf Error: Invalid or unhandled FORM value: %u."
msgstr "Error de Dwarf: Valor de FORM inv<6E>lido o no manejado: %u."
-#: dwarf2.c:1025
+#: dwarf2.c:1063
msgid "Dwarf Error: mangled line number section (bad file number)."
msgstr "Error de Dwarf: secci<63>n de n<>meros de l<>nea revuelta (n<>mero err<72>neo de fichero)."
-#: dwarf2.c:1137
-msgid "Dwarf Error: Can't find .debug_line section."
-msgstr "Error de Dwarf: No se puede encontrar lan secci<63>n .debug_line."
-
-#: dwarf2.c:1154
-#, c-format
-msgid "Dwarf Error: Line offset (%lu) greater than or equal to .debug_line size (%lu)."
-msgstr "Error de Dwarf: El desplazamiento de l<>nea (%lu) es m<>s grande o igual que el tama<6D>o de .debug_line (%lu)."
-
-#: dwarf2.c:1380
+#: dwarf2.c:1393
msgid "Dwarf Error: mangled line number section."
msgstr "Error de Dwarf: secci<63>n de n<>meros de l<>nea revuelta."
-#: dwarf2.c:1568
-msgid "Dwarf Error: Can't find .debug_ranges section."
-msgstr "Error de Dwarf: No se puede encontrar lan secci<63>n .debug_ranges."
-
-#: dwarf2.c:1731 dwarf2.c:1847 dwarf2.c:2119
+#: dwarf2.c:1726 dwarf2.c:1842 dwarf2.c:2114
#, c-format
msgid "Dwarf Error: Could not find abbrev number %u."
msgstr "Error de Dwarf: No se puede encontrar el n<>mero de abreviatura %u."
-#: dwarf2.c:2080
+#: dwarf2.c:2075
#, c-format
msgid "Dwarf Error: found dwarf version '%u', this reader only handles version 2 information."
msgstr "Error de Dwarf: se encontr<74> la versi<73>n de dwarf '%u', este lector solamente maneja informaci<63>n de la versi<73>n 2."
-#: dwarf2.c:2087
+#: dwarf2.c:2082
#, c-format
msgid "Dwarf Error: found address size '%u', this reader can not handle sizes greater than '%u'."
msgstr "Error de Dwarf: se encontr<74> el tama<6D>o de direcci<63>n '%u', este lector no puede manejar tama<6D>os m<>s grandes que '%u'."
-#: dwarf2.c:2110
+#: dwarf2.c:2105
#, c-format
msgid "Dwarf Error: Bad abbrev number: %u."
msgstr "Error de Dwarf: N<>mero de abreviaci<63>n err<72>neo: %u."
@@ -646,35 +631,271 @@ msgstr ""
"\n"
" Tipo: %s"
-#: elf32-arm.c:2524
+#: elf-attrs.c:582
+msgid "ERROR: %B: Must be processed by '%s' toolchain"
+msgstr "ERROR: %B: Se debe procesar por la cadena de compilaci<63>n '%s'"
+
+#: elf-attrs.c:602 elf-attrs.c:621
+msgid "ERROR: %B: Incompatible object tag '%s':%d"
+msgstr "ERROR: %B: Etiqueta de objeto '%s' incompatible:%d"
+
+#: elf-eh-frame.c:866
+msgid "%P: error in %B(%A); no .eh_frame_hdr table will be created.\n"
+msgstr "%P: error en %B(%A); no se crear<61> la tabla .eh_frame_hdr.\n"
+
+#: elf-eh-frame.c:1102
+msgid "%P: fde encoding in %B(%A) prevents .eh_frame_hdr table being created.\n"
+msgstr "%P: la codificaci<63>n fde en %B(%A) previene la creaci<63>n de la tabla .eh_frame_hdr.\n"
+
+#: elf-hppa.h:2241 elf-m10300.c:1546 elf32-arm.c:7954 elf32-i386.c:3582
+#: elf32-m32r.c:2598 elf32-m68k.c:3516 elf32-ppc.c:7223 elf32-s390.c:3058
+#: elf32-sh.c:3438 elf32-xtensa.c:3021 elf64-ppc.c:11528 elf64-s390.c:3019
+#: elf64-sh64.c:1648 elf64-x86-64.c:3239 elfxx-sparc.c:3336
+msgid "%B(%A+0x%lx): unresolvable %s relocation against symbol `%s'"
+msgstr "%B(%A+0x%lx): reubicaci<63>n %s sin resoluci<63>n contra el s<>mbolo `%s'"
+
+#: elf-hppa.h:2266 elf-hppa.h:2280
+msgid "%B(%A): warning: unresolvable relocation against symbol `%s'"
+msgstr "%B(%A): aviso: reubicaci<63>n sin resoluci<63>n contra el s<>mbolo `%s'"
+
+#: elf-m10200.c:456 elf-m10300.c:1609 elf32-avr.c:1250 elf32-bfin.c:3214
+#: elf32-cr16.c:959 elf32-cr16c.c:790 elf32-cris.c:1538 elf32-crx.c:933
+#: elf32-d10v.c:516 elf32-fr30.c:616 elf32-frv.c:4114 elf32-h8300.c:516
+#: elf32-i860.c:1218 elf32-ip2k.c:1499 elf32-iq2000.c:691 elf32-m32c.c:560
+#: elf32-m32r.c:3124 elf32-m68hc1x.c:1135 elf32-mep.c:541 elf32-msp430.c:493
+#: elf32-mt.c:402 elf32-openrisc.c:411 elf32-score.c:2451 elf32-spu.c:4132
+#: elf32-v850.c:1703 elf32-xstormy16.c:948 elf64-mmix.c:1533
+msgid "internal error: out of range error"
+msgstr "error interno: error fuera de rango"
+
+#: elf-m10200.c:460 elf-m10300.c:1613 elf32-avr.c:1254 elf32-bfin.c:3218
+#: elf32-cr16.c:963 elf32-cr16c.c:794 elf32-cris.c:1542 elf32-crx.c:937
+#: elf32-d10v.c:520 elf32-fr30.c:620 elf32-frv.c:4118 elf32-h8300.c:520
+#: elf32-i860.c:1222 elf32-iq2000.c:695 elf32-m32c.c:564 elf32-m32r.c:3128
+#: elf32-m68hc1x.c:1139 elf32-mep.c:545 elf32-msp430.c:497
+#: elf32-openrisc.c:415 elf32-score.c:2455 elf32-spu.c:4136 elf32-v850.c:1707
+#: elf32-xstormy16.c:952 elf64-mmix.c:1537 elfxx-mips.c:9065
+msgid "internal error: unsupported relocation error"
+msgstr "error interno: error de reubicaci<63>n no admitida"
+
+#: elf-m10200.c:464 elf32-cr16.c:967 elf32-cr16c.c:798 elf32-crx.c:941
+#: elf32-d10v.c:524 elf32-h8300.c:524 elf32-m32r.c:3132 elf32-m68hc1x.c:1143
+#: elf32-score.c:2459 elf32-spu.c:4140
+msgid "internal error: dangerous error"
+msgstr "error interno: error peligroso"
+
+#: elf-m10200.c:468 elf-m10300.c:1626 elf32-avr.c:1262 elf32-bfin.c:3226
+#: elf32-cr16.c:971 elf32-cr16c.c:802 elf32-cris.c:1550 elf32-crx.c:945
+#: elf32-d10v.c:528 elf32-fr30.c:628 elf32-frv.c:4126 elf32-h8300.c:528
+#: elf32-i860.c:1230 elf32-ip2k.c:1514 elf32-iq2000.c:703 elf32-m32c.c:572
+#: elf32-m32r.c:3136 elf32-m68hc1x.c:1147 elf32-mep.c:553 elf32-msp430.c:505
+#: elf32-mt.c:410 elf32-openrisc.c:423 elf32-score.c:2463 elf32-spu.c:4144
+#: elf32-v850.c:1727 elf32-xstormy16.c:960 elf64-mmix.c:1545
+msgid "internal error: unknown error"
+msgstr "error interno: error desconocido"
+
+#: elf-m10300.c:1618
+msgid "error: inappropriate relocation type for shared library (did you forget -fpic?)"
+msgstr "error: tipo de reubicaci<63>n inapropiada para la biblioteca compartida (<28>olvid<69> -fpic?)"
+
+#: elf-m10300.c:1621
+msgid "internal error: suspicious relocation type used in shared library"
+msgstr "error interno: se us<75> un tipo de reubicaci<63>n sospechosa en una biblioteca compartida"
+
+#: elf-m10300.c:4397 elf32-arm.c:9578 elf32-cris.c:2403 elf32-hppa.c:1921
+#: elf32-i370.c:506 elf32-i386.c:1807 elf32-m32r.c:1931 elf32-m68k.c:2787
+#: elf32-ppc.c:4693 elf32-s390.c:1687 elf32-sh.c:2583 elf32-vax.c:1055
+#: elf64-ppc.c:6075 elf64-s390.c:1662 elf64-sh64.c:3432 elf64-x86-64.c:1641
+#: elfxx-sparc.c:1828
+#, c-format
+msgid "dynamic variable `%s' is zero size"
+msgstr "la variable din<69>mica `%s' es de tama<6D>o cero"
+
+#: elf.c:328
+msgid "%B: invalid string offset %u >= %lu for section `%s'"
+msgstr "%B: desplazamiento de cadena inv<6E>lido %u >= %lu para la secci<63>n `%s'"
+
+#: elf.c:438
+msgid "%B symbol number %lu references nonexistent SHT_SYMTAB_SHNDX section"
+msgstr "%B el n<>mero de s<>mbolo %lu hace referencia a la secci<63>n inexistente SHT_SYMTAB_SHNDX"
+
+#: elf.c:594
+msgid "%B: Corrupt size field in group section header: 0x%lx"
+msgstr "%B: Tama<6D>o de campo corrupto en el encabezado de la secci<63>n de grupo: 0x%lx"
+
+#: elf.c:630
+msgid "%B: invalid SHT_GROUP entry"
+msgstr "%B: entrada SHT_GROUP inv<6E>lida"
+
+#: elf.c:700
+msgid "%B: no group info for section %A"
+msgstr "%B: no hay informaci<63>n de grupo para la secci<63>n %A"
+
+#: elf.c:729 elf.c:2976 elflink.c:9746
+msgid "%B: warning: sh_link not set for section `%A'"
+msgstr "%B: aviso: no se estableci<63>n sh_link para la secci<63>n `%A'"
+
+#: elf.c:748
+msgid "%B: sh_link [%d] in section `%A' is incorrect"
+msgstr "%B: sh_link [%d] en la secci<63>n `%A', es incorrecto"
+
+#: elf.c:783
+msgid "%B: unknown [%d] section `%s' in group [%s]"
+msgstr "%B: secci<63>n [%d] desconocida `%s' en el grupo [%s]"
+
+#: elf.c:1159
+#, c-format
+msgid ""
+"\n"
+"Program Header:\n"
+msgstr ""
+"\n"
+"Encabezado del Programa:\n"
+
+#: elf.c:1201
+#, c-format
+msgid ""
+"\n"
+"Dynamic Section:\n"
+msgstr ""
+"\n"
+"Secci<63>n Din<69>mica:\n"
+
+#: elf.c:1337
+#, c-format
+msgid ""
+"\n"
+"Version definitions:\n"
+msgstr ""
+"\n"
+"Definiciones de versi<73>n:\n"
+
+#: elf.c:1362
+#, c-format
+msgid ""
+"\n"
+"Version References:\n"
+msgstr ""
+"\n"
+"Referencias de Versi<73>n:\n"
+
+#: elf.c:1367
+#, c-format
+msgid " required from %s:\n"
+msgstr " requerido desde %s:\n"
+
+#: elf.c:1755
+msgid "%B: invalid link %lu for reloc section %s (index %u)"
+msgstr "%B: enlace %lu inv<6E>lido para la secci<63>n de reubicaci<63>n %s (<28>ndice %u)"
+
+#: elf.c:1924
+msgid "%B: don't know how to handle allocated, application specific section `%s' [0x%8x]"
+msgstr "%B: no se sabe c<>mo manejar lo reservado, aplicaci<63>n espec<65>fica de la secci<63>n `%s' [0x%8x]"
+
+#: elf.c:1936
+msgid "%B: don't know how to handle processor specific section `%s' [0x%8x]"
+msgstr "%B: no se sabe c<>mo manejar la secci<63>n espec<65>fica de procesador `%s' [0x%8x]"
+
+#: elf.c:1947
+msgid "%B: don't know how to handle OS specific section `%s' [0x%8x]"
+msgstr "%B: no se sabe c<>mo manejar la secci<63>n espec<65>fica de SO `%s' [0x%8x]"
+
+#: elf.c:1957
+msgid "%B: don't know how to handle section `%s' [0x%8x]"
+msgstr "%B: no se sabe c<>mo manejar la secci<63>n `%s' [0x%8x]"
+
+#: elf.c:2555
+#, c-format
+msgid "warning: section `%A' type changed to PROGBITS"
+msgstr "aviso: el tipo de la secci<63>n `%A' cambi<62> a PROGBITS"
+
+#: elf.c:2933
+msgid "%B: sh_link of section `%A' points to discarded section `%A' of `%B'"
+msgstr "%B: sh_link de la secci<63>n `%A' apunta a la secci<63>n descartada `%A' de `%B'"
+
+#: elf.c:2956
+msgid "%B: sh_link of section `%A' points to removed section `%A' of `%B'"
+msgstr "%B: sh_link de la secci<63>n `%A' apunta a la secci<63>n descartada `%A' de `%B'"
+
+#: elf.c:4300
+msgid "%B: The first section in the PT_DYNAMIC segment is not the .dynamic section"
+msgstr "%B: La primera secci<63>n en el segmento PT_DYNAMIC no es la secci<63>n .dynamic"
+
+#: elf.c:4327
+msgid "%B: Not enough room for program headers, try linking with -N"
+msgstr "%B: No hay suficiente espacio para los encabezados del programa, pruebe enlazar con -N"
+
+#: elf.c:4404
+msgid "%B: section %A vma 0x%lx overlaps previous sections"
+msgstr "%B: la secci<63>n %A vma 0x%lx traslapa las secciones anteriores"
+
+#: elf.c:4499
+msgid "%B: section `%A' can't be allocated in segment %d"
+msgstr "%B: la secci<63>n `%A' no se puede asignar en el segmento %d"
+
+#: elf.c:4549
+msgid "%B: warning: allocated section `%s' not in segment"
+msgstr "%B: aviso: la secci<63>n asignada `%s' no est<73> en el segmento"
+
+#: elf.c:5064
+msgid "%B: symbol `%s' required but not present"
+msgstr "%B: se requiere el s<>mbolo `%s' pero no est<73> presente"
+
+#: elf.c:5403
+msgid "%B: warning: Empty loadable segment detected, is this intentional ?\n"
+msgstr "%B: aviso: Se detect<63> un segmento cargable vac<61>o, <20> esto es intencional ?\n"
+
+#: elf.c:6366
+#, c-format
+msgid "Unable to find equivalent output section for symbol '%s' from section '%s'"
+msgstr "No se puede encontrar la secci<63>n de salida equivalente para el s<>mbolo '%s' de la secci<63>n '%s'"
+
+#: elf.c:7346
+msgid "%B: unsupported relocation type %s"
+msgstr "%B: no se admite el tipo de reubicaci<63>n %s"
+
+#: elf32-arm.c:2846 elf32-arm.c:2878
+msgid ""
+"%B(%s): warning: interworking not enabled.\n"
+" first occurrence: %B: Thumb call to ARM"
+msgstr ""
+"%B(%s): aviso: no se activ<69> la interoperabilidad.\n"
+" primer suceso: %B: llamada Thumb para ARM"
+
+#: elf32-arm.c:3041
+#, c-format
+msgid "%s: cannot create stub entry %s"
+msgstr "%s: no se puede crear la entrada de cabo %s"
+
+#: elf32-arm.c:3825
#, c-format
msgid "unable to find THUMB glue '%s' for '%s'"
msgstr "no se puede encontrar el pegamento THUMB '%s' para `%s'"
-#: elf32-arm.c:2557
+#: elf32-arm.c:3859
#, c-format
msgid "unable to find ARM glue '%s' for '%s'"
msgstr "no se puede encontrar el pegamento ARM '%s' para `%s'"
-#: elf32-arm.c:3127
+#: elf32-arm.c:4463
msgid "%B: BE8 images only valid in big-endian mode."
msgstr "%B: las im<69>genes BE8 s<>lo son v<>lidas en modo big-endian."
#. Give a warning, but do as the user requests anyway.
-#: elf32-arm.c:3331
+#: elf32-arm.c:4678
msgid "%B: warning: selected VFP11 erratum workaround is not necessary for target architecture"
msgstr "%B: aviso: no se necesita la alternativa para evita la errata del VFP11 seleccionado para la arquitectura objetivo"
-#: elf32-arm.c:3865 elf32-arm.c:3885
+#: elf32-arm.c:5212 elf32-arm.c:5232
msgid "%B: unable to find VFP11 veneer `%s'"
msgstr "%B: no se puede encontrar la chapa de VFP11 `%s'"
-#: elf32-arm.c:3930
+#: elf32-arm.c:5278
#, c-format
msgid "Invalid TARGET2 relocation type '%s'."
msgstr "Tipo de reubicaci<63>n TARGET2 '%s' inv<6E>lido."
-#: elf32-arm.c:4071
+#: elf32-arm.c:5362
msgid ""
"%B(%s): warning: interworking not enabled.\n"
" first occurrence: %B: thumb call to arm"
@@ -682,374 +903,326 @@ msgstr ""
"%s(%s): aviso: no se activ<69> la interoperabilidad.\n"
" primer suceso: %B: llamada thumb para arm"
-#: elf32-arm.c:4759
+#: elf32-arm.c:6094
msgid "\\%B: Warning: Arm BLX instruction targets Arm function '%s'."
msgstr "\\%B: Aviso: La instrucci<63>n Arm BLX apunta a la funci<63>n Arm '%s'."
-#: elf32-arm.c:5059
+#: elf32-arm.c:6418
msgid "%B: Warning: Thumb BLX instruction targets thumb function '%s'."
msgstr "%B: Aviso: La instrucci<63>n Thumb BLX apunta a la funci<63>n thumb '%s'."
-#: elf32-arm.c:5689
+#: elf32-arm.c:7095
msgid "%B(%A+0x%lx): R_ARM_TLS_LE32 relocation not permitted in shared object"
msgstr "%B(%A+0x%lx): la reubicaci<63>n R_ARM_TLS_LE32 no se permite en objetos compartidos"
-#: elf32-arm.c:5890
+#: elf32-arm.c:7310
msgid "%B(%A+0x%lx): Only ADD or SUB instructions are allowed for ALU group relocations"
msgstr "%B(%A+0x%lx): S<>lo se permiten las instrucciones ADD o SUB para la reubicaci<63>n de grupo ALU"
-#: elf32-arm.c:5930 elf32-arm.c:6017 elf32-arm.c:6100 elf32-arm.c:6185
+#: elf32-arm.c:7350 elf32-arm.c:7437 elf32-arm.c:7520 elf32-arm.c:7605
msgid "%B(%A+0x%lx): Overflow whilst splitting 0x%lx for group relocation %s"
msgstr "%B(%A+0x%lx): Desborde al dividirse 0x%lx para la reubicaci<63>n de grupo %s"
-#: elf32-arm.c:6369 elf32-sh.c:3304 elf64-sh64.c:1556
+#: elf32-arm.c:7812 elf32-sh.c:3334 elf64-sh64.c:1556
msgid "%B(%A+0x%lx): %s relocation against SEC_MERGE section"
msgstr "%B(%A+0x%lx): reubicaci<63>n %s contra la secci<63>n SEC_MERGE"
-#: elf32-arm.c:6458 elf64-ppc.c:9973
+#: elf32-arm.c:7930 elf32-xtensa.c:2759 elf64-ppc.c:10374
msgid "%B(%A+0x%lx): %s used with TLS symbol %s"
msgstr "%B(%A+0x%lx): se us<75> %s con el s<>mbolo TLS %s"
-#: elf32-arm.c:6459 elf64-ppc.c:9974
+#: elf32-arm.c:7931 elf32-xtensa.c:2760 elf64-ppc.c:10375
msgid "%B(%A+0x%lx): %s used with non-TLS symbol %s"
msgstr "%B(%A+0x%lx): se us<75> %s con el s<>mbolo %s que no es TLS"
-#: elf32-arm.c:6482 elf32-i386.c:3310 elf32-m32r.c:2598 elf32-m68k.c:1982
-#: elf32-ppc.c:6796 elf32-s390.c:3048 elf32-sh.c:3408 elf32-xtensa.c:2290
-#: elf64-ppc.c:11138 elf64-s390.c:3009 elf64-sh64.c:1648 elf64-x86-64.c:3002
-#: elf-hppa.h:2194 elf-m10300.c:1460 elfxx-sparc.c:3256
-msgid "%B(%A+0x%lx): unresolvable %s relocation against symbol `%s'"
-msgstr "%B(%A+0x%lx): reubicaci<63>n %s sin resoluci<63>n contra el s<>mbolo `%s'"
-
-#: elf32-arm.c:6516
+#: elf32-arm.c:7988
msgid "out of range"
msgstr "fuera de rango"
-#: elf32-arm.c:6520
+#: elf32-arm.c:7992
msgid "unsupported relocation"
msgstr "no se admite la reubicaci<63>n"
-#: elf32-arm.c:6528
+#: elf32-arm.c:8000
msgid "unknown error"
msgstr "error desconocido"
-#: elf32-arm.c:6628
+#: elf32-arm.c:8099
msgid "Warning: Clearing the interworking flag of %B because non-interworking code in %B has been linked with it"
msgstr "Aviso: Se limpia la opci<63>n de interoperaci<63>n en %B porque se ha enlazado con <20>l c<>digo no interoperable en %B"
-#: elf32-arm.c:6730
+#: elf32-arm.c:8205
msgid "ERROR: %B uses VFP register arguments, %B does not"
msgstr "ERROR: %B utiliza argumentos de registro VFP, mientras que %B no"
-#: elf32-arm.c:6780
+#: elf32-arm.c:8254
msgid "ERROR: %B: Conflicting architecture profiles %c/%c"
msgstr "ERROR: %B: Perfiles de arquitecturas en conflicto %c/%c"
-#: elf32-arm.c:6795
+#: elf32-arm.c:8274
msgid "Warning: %B: Conflicting platform configuration"
msgstr "Aviso: %B: Configuraci<63>n de plataformas en conflicto"
-#: elf32-arm.c:6804
+#: elf32-arm.c:8283
msgid "ERROR: %B: Conflicting use of R9"
msgstr "ERROR: %B: Uso en conflicto de R9"
-#: elf32-arm.c:6816
+#: elf32-arm.c:8295
msgid "ERROR: %B: SB relative addressing conflicts with use of R9"
msgstr "ERROR: %B: El direccionamiento relativo a SB tiene conflictos con el uso de R9"
-#: elf32-arm.c:6838
-msgid "ERROR: %B: Conflicting definitions of wchar_t"
-msgstr "ERROR: %B: Definiciones en conflicto de wchar_t"
+#: elf32-arm.c:8318
+msgid "warning: %B uses %u-byte wchar_t yet the output is to use %u-byte wchar_t; use of wchar_t values across objects may fail"
+msgstr "aviso: %B usa wchar_t de %u bytes aunque la salida usa wchar_t de %u bytes; el uso de valores wchar_t entre objetos puede fallar"
-#: elf32-arm.c:6867
+#: elf32-arm.c:8347
msgid "warning: %B uses %s enums yet the output is to use %s enums; use of enum values across objects may fail"
msgstr "aviso: %B usa %s enums aunque la salida usa %s enums; el uso de valores enum entre objetos puede fallar"
-#: elf32-arm.c:6880
+#: elf32-arm.c:8360
msgid "ERROR: %B uses iWMMXt register arguments, %B does not"
msgstr "ERROR: %B utiliza argumentos de registro iWMMXt, mientras que %B no"
-#: elf32-arm.c:6920
+#: elf32-arm.c:8400
msgid "Warning: %B: Unknown EABI object attribute %d"
msgstr "Aviso: %B: Atributo de objeto EABI %d desconocido"
-#: elf32-arm.c:7045
+#: elf32-arm.c:8460
+msgid "ERROR: %B is already in final BE8 format"
+msgstr "ERROR: %B ya est<73> en el formato BE8 final"
+
+#: elf32-arm.c:8536
msgid "ERROR: Source object %B has EABI version %d, but target %B has EABI version %d"
msgstr "ERROR: El objeto fuente %B tiene EABI versi<73>n %d, pero el objetivo %B tiene EABI versi<73>n %d"
-#: elf32-arm.c:7061
+#: elf32-arm.c:8552
msgid "ERROR: %B is compiled for APCS-%d, whereas target %B uses APCS-%d"
msgstr "ERROR: %B est<73> compilado para APCS-%d mientras que el objetivo %B usa APCS-%d"
-#: elf32-arm.c:7086
+#: elf32-arm.c:8577
msgid "ERROR: %B uses VFP instructions, whereas %B does not"
msgstr "ERROR: %B utiliza instrucciones VFP, mientras que %B no"
-#: elf32-arm.c:7090
+#: elf32-arm.c:8581
msgid "ERROR: %B uses FPA instructions, whereas %B does not"
msgstr "ERROR: %B utiliza instrucciones FPA, mientras que %B no"
-#: elf32-arm.c:7100
+#: elf32-arm.c:8591
msgid "ERROR: %B uses Maverick instructions, whereas %B does not"
msgstr "ERROR: %B utiliza instrucciones Maverick, mientras que %B no"
-#: elf32-arm.c:7104
+#: elf32-arm.c:8595
msgid "ERROR: %B does not use Maverick instructions, whereas %B does"
msgstr "ERROR: %B no utiliza instrucciones Maverick, mientras que %B s<>"
-#: elf32-arm.c:7123
+#: elf32-arm.c:8614
msgid "ERROR: %B uses software FP, whereas %B uses hardware FP"
msgstr "ERROR: %B utiliza FP de software, mientras que %B utiliza FP de hardware"
-#: elf32-arm.c:7127
+#: elf32-arm.c:8618
msgid "ERROR: %B uses hardware FP, whereas %B uses software FP"
msgstr "ERROR: %B utiliza FP de hardware, mientras que %B utiliza FP de software"
#. Ignore init flag - it may not be set, despite the flags field
#. containing valid data.
#. Ignore init flag - it may not be set, despite the flags field containing valid data.
-#: elf32-arm.c:7174 elf32-bfin.c:4795 elf32-cris.c:3234 elf32-m68hc1x.c:1277
-#: elf32-m68k.c:620 elf32-score.c:3753 elf32-vax.c:538 elfxx-mips.c:11331
+#: elf32-arm.c:8665 elf32-bfin.c:4899 elf32-cris.c:3235 elf32-m68hc1x.c:1279
+#: elf32-m68k.c:774 elf32-score.c:3750 elf32-vax.c:538 elfxx-mips.c:12699
#, c-format
msgid "private flags = %lx:"
msgstr "opciones privadas = %lx:"
-#: elf32-arm.c:7183
+#: elf32-arm.c:8674
#, c-format
msgid " [interworking enabled]"
msgstr " [interoperabilidad activada]"
-#: elf32-arm.c:7191
+#: elf32-arm.c:8682
#, c-format
msgid " [VFP float format]"
msgstr " [formato de coma flotante VFP]"
-#: elf32-arm.c:7193
+#: elf32-arm.c:8684
#, c-format
msgid " [Maverick float format]"
msgstr " [formato de coma flotante Maverick]"
-#: elf32-arm.c:7195
+#: elf32-arm.c:8686
#, c-format
msgid " [FPA float format]"
msgstr " [formato de coma flotante FPA]"
-#: elf32-arm.c:7204
+#: elf32-arm.c:8695
#, c-format
msgid " [new ABI]"
msgstr " [ABI nuevo]"
-#: elf32-arm.c:7207
+#: elf32-arm.c:8698
#, c-format
msgid " [old ABI]"
msgstr " [ABI antiguo]"
-#: elf32-arm.c:7210
+#: elf32-arm.c:8701
#, c-format
msgid " [software FP]"
msgstr " [FP por software]"
-#: elf32-arm.c:7219
+#: elf32-arm.c:8710
#, c-format
msgid " [Version1 EABI]"
msgstr " [EABI Version1]"
-#: elf32-arm.c:7222 elf32-arm.c:7233
+#: elf32-arm.c:8713 elf32-arm.c:8724
#, c-format
msgid " [sorted symbol table]"
msgstr " [tabla de s<>mbolos ordenados]"
-#: elf32-arm.c:7224 elf32-arm.c:7235
+#: elf32-arm.c:8715 elf32-arm.c:8726
#, c-format
msgid " [unsorted symbol table]"
msgstr " [tabla de s<>mbolos sin ordenar]"
-#: elf32-arm.c:7230
+#: elf32-arm.c:8721
#, c-format
msgid " [Version2 EABI]"
msgstr " [EABI Version2]"
-#: elf32-arm.c:7238
+#: elf32-arm.c:8729
#, c-format
msgid " [dynamic symbols use segment index]"
msgstr " [los s<>mbolos din<69>micos utilizan <20>ndices de segmento]"
-#: elf32-arm.c:7241
+#: elf32-arm.c:8732
#, c-format
msgid " [mapping symbols precede others]"
msgstr " [el mapeo de s<>mbolos precede a otros]"
-#: elf32-arm.c:7248
+#: elf32-arm.c:8739
#, c-format
msgid " [Version3 EABI]"
msgstr " [EABI Version3]"
-#: elf32-arm.c:7252
+#: elf32-arm.c:8743
#, c-format
msgid " [Version4 EABI]"
msgstr " [EABI Version4]"
-#: elf32-arm.c:7256
+#: elf32-arm.c:8747
#, c-format
msgid " [Version5 EABI]"
msgstr " [EABI Version5]"
-#: elf32-arm.c:7259
+#: elf32-arm.c:8750
#, c-format
msgid " [BE8]"
msgstr " [BE8]"
-#: elf32-arm.c:7262
+#: elf32-arm.c:8753
#, c-format
msgid " [LE8]"
msgstr " [LE8]"
-#: elf32-arm.c:7268
+#: elf32-arm.c:8759
#, c-format
msgid " <EABI version unrecognised>"
msgstr " <versi<73>n de EABI no reconocida>"
-#: elf32-arm.c:7275
+#: elf32-arm.c:8766
#, c-format
msgid " [relocatable executable]"
msgstr " [ejecutable reubicable]"
-#: elf32-arm.c:7278
+#: elf32-arm.c:8769
#, c-format
msgid " [has entry point]"
msgstr " [tiene punto de entrada]"
-#: elf32-arm.c:7283
+#: elf32-arm.c:8774
#, c-format
msgid "<Unrecognised flag bits set>"
msgstr "<Conjunto de bits de opci<63>n sin reconocer>"
-#: elf32-arm.c:7522 elf32-i386.c:961 elf32-s390.c:1003 elf32-xtensa.c:814
-#: elf64-s390.c:958 elf64-x86-64.c:773 elfxx-sparc.c:1115
+#: elf32-arm.c:9013 elf32-i386.c:1236 elf32-s390.c:1006 elf32-xtensa.c:999
+#: elf64-s390.c:961 elf64-x86-64.c:1016 elfxx-sparc.c:1127
msgid "%B: bad symbol index: %d"
msgstr "%B: <20>ndice de s<>mbolos err<72>neo: %d"
-#: elf32-arm.c:8080 elf32-cris.c:2400 elf32-hppa.c:1906 elf32-i370.c:506
-#: elf32-i386.c:1522 elf32-m32r.c:1931 elf32-m68k.c:1331 elf32-ppc.c:4314
-#: elf32-s390.c:1679 elf32-sh.c:2584 elf32-vax.c:1050 elf64-ppc.c:5898
-#: elf64-s390.c:1654 elf64-sh64.c:3438 elf64-x86-64.c:1382 elf-m10300.c:4207
-#: elfxx-sparc.c:1797
-#, c-format
-msgid "dynamic variable `%s' is zero size"
-msgstr "la variable din<69>mica `%s' es de tama<6D>o cero"
-
-#: elf32-arm.c:8603
+#: elf32-arm.c:10125
#, c-format
msgid "Errors encountered processing file %s"
msgstr "Se encontraron errores al procesar el fichero %s"
-#: elf32-arm.c:9839 elf32-arm.c:9861
+#: elf32-arm.c:11526 elf32-arm.c:11548
msgid "%B: error: VFP11 veneer out of range"
msgstr "%B: error: la chapa VFP11 est<73> fuera de rango"
-#: elf32-avr.c:1253 elf32-bfin.c:2795 elf32-cr16.c:887 elf32-cr16c.c:790
-#: elf32-cris.c:1538 elf32-crx.c:933 elf32-d10v.c:517 elf32-fr30.c:616
-#: elf32-frv.c:4129 elf32-h8300.c:516 elf32-i860.c:1218 elf32-ip2k.c:1499
-#: elf32-iq2000.c:647 elf32-m32c.c:560 elf32-m32r.c:3124 elf32-m68hc1x.c:1133
-#: elf32-mep.c:642 elf32-msp430.c:497 elf32-mt.c:402 elf32-openrisc.c:411
-#: elf32-score.c:2456 elf32-spu.c:2813 elf32-v850.c:1701 elf32-xstormy16.c:946
-#: elf64-mmix.c:1533 elf-m10200.c:456 elf-m10300.c:1523
-msgid "internal error: out of range error"
-msgstr "error interno: error fuera de rango"
-
-#: elf32-avr.c:1257 elf32-bfin.c:2799 elf32-cr16.c:891 elf32-cr16c.c:794
-#: elf32-cris.c:1542 elf32-crx.c:937 elf32-d10v.c:521 elf32-fr30.c:620
-#: elf32-frv.c:4133 elf32-h8300.c:520 elf32-i860.c:1222 elf32-iq2000.c:651
-#: elf32-m32c.c:564 elf32-m32r.c:3128 elf32-m68hc1x.c:1137 elf32-mep.c:646
-#: elf32-msp430.c:501 elf32-openrisc.c:415 elf32-score.c:2460 elf32-spu.c:2817
-#: elf32-v850.c:1705 elf32-xstormy16.c:950 elf64-mmix.c:1537 elf-m10200.c:460
-#: elf-m10300.c:1527 elfxx-mips.c:8025
-msgid "internal error: unsupported relocation error"
-msgstr "error interno: error de reubicaci<63>n no admitida"
-
-#: elf32-avr.c:1261 elf32-bfin.c:2803 elf32-cris.c:1546 elf32-fr30.c:624
-#: elf32-frv.c:4137 elf32-i860.c:1226 elf32-ip2k.c:1510 elf32-iq2000.c:655
-#: elf32-m32c.c:568 elf32-mep.c:650 elf32-msp430.c:505 elf32-mt.c:406
-#: elf32-openrisc.c:419 elf32-v850.c:1709 elf32-xstormy16.c:954
+#: elf32-avr.c:1258 elf32-bfin.c:3222 elf32-cris.c:1546 elf32-fr30.c:624
+#: elf32-frv.c:4122 elf32-i860.c:1226 elf32-ip2k.c:1510 elf32-iq2000.c:699
+#: elf32-m32c.c:568 elf32-mep.c:549 elf32-msp430.c:501 elf32-mt.c:406
+#: elf32-openrisc.c:419 elf32-v850.c:1711 elf32-xstormy16.c:956
#: elf64-mmix.c:1541
msgid "internal error: dangerous relocation"
msgstr "error interno: reubicaci<63>n peligrosa"
-#: elf32-avr.c:1265 elf32-bfin.c:2807 elf32-cr16.c:899 elf32-cr16c.c:802
-#: elf32-cris.c:1550 elf32-crx.c:945 elf32-d10v.c:529 elf32-fr30.c:628
-#: elf32-frv.c:4141 elf32-h8300.c:528 elf32-i860.c:1230 elf32-ip2k.c:1514
-#: elf32-iq2000.c:659 elf32-m32c.c:572 elf32-m32r.c:3136 elf32-m68hc1x.c:1145
-#: elf32-mep.c:654 elf32-msp430.c:509 elf32-mt.c:410 elf32-openrisc.c:423
-#: elf32-score.c:2468 elf32-spu.c:2825 elf32-v850.c:1725 elf32-xstormy16.c:958
-#: elf64-mmix.c:1545 elf-m10200.c:468 elf-m10300.c:1540
-msgid "internal error: unknown error"
-msgstr "error interno: error desconocido"
-
-#: elf32-avr.c:2369 elf32-hppa.c:595 elf32-m68hc1x.c:164 elf64-ppc.c:3802
+#: elf32-avr.c:2396 elf32-hppa.c:605 elf32-m68hc1x.c:164 elf64-ppc.c:3983
msgid "%B: cannot create stub entry %s"
msgstr "%B: no se puede crear la entrada de cabo %s"
-#: elf32-bfin.c:2274
+#: elf32-bfin.c:1585
+msgid "%B(%A+0x%lx): unresolvable relocation against symbol `%s'"
+msgstr "%B(%A+0x%lx): reubicaci<63>n sin resoluci<63>n contra el s<>mbolo `%s'"
+
+#: elf32-bfin.c:1618 elf32-i386.c:3623 elf32-m68k.c:3557 elf32-s390.c:3110
+#: elf64-s390.c:3071 elf64-x86-64.c:3278
+msgid "%B(%A+0x%lx): reloc against `%s': error %d"
+msgstr "%B(%A+0x%lx): reubicaci<63>n contra `%s': error %d"
+
+#: elf32-bfin.c:2711
msgid "%B: relocation at `%A+0x%x' references symbol `%s' with nonzero addend"
msgstr "%B: la reubicaci<63>n en `%A+0x%x' referenc<6E>a al s<>mbolo `%s' con adici<63>n que no es cero"
-#: elf32-bfin.c:2288 elf32-frv.c:2919
+#: elf32-bfin.c:2725 elf32-frv.c:2904
msgid "relocation references symbol not defined in the module"
msgstr "la reubicaci<63>n referenc<6E>a un s<>mbolo que no est<73> definido en el m<>dulo"
-#: elf32-bfin.c:2385
+#: elf32-bfin.c:2822
msgid "R_BFIN_FUNCDESC references dynamic symbol with nonzero addend"
msgstr "R_BFIN_FUNCDESC referenc<6E>a un s<>mbolo din<69>mico con adici<63>n que no es cero"
-#: elf32-bfin.c:2424 elf32-bfin.c:2547 elf32-frv.c:3656 elf32-frv.c:3777
+#: elf32-bfin.c:2861 elf32-bfin.c:2987 elf32-frv.c:3641 elf32-frv.c:3762
msgid "cannot emit fixups in read-only section"
msgstr "no se pueden emitir composturas en la secci<63>n de s<>lo lectura"
-#: elf32-bfin.c:2452 elf32-bfin.c:2587 elf32-frv.c:3687 elf32-frv.c:3821
+#: elf32-bfin.c:2889 elf32-bfin.c:3036 elf32-frv.c:3672 elf32-frv.c:3806
msgid "cannot emit dynamic relocations in read-only section"
-msgstr "no se pueden emitri reubicaciones din<69>micas en la secci<63>n de s<>lo lectura"
+msgstr "no se pueden emitir reubicaciones din<69>micas en la secci<63>n de s<>lo lectura"
-#: elf32-bfin.c:2505
+#: elf32-bfin.c:2945
msgid "R_BFIN_FUNCDESC_VALUE references dynamic symbol with nonzero addend"
msgstr "R_BFIN_FUNCDESC_VALUE referenc<6E>a un s<>mbolo din<69>mico con adici<63>n que no es cero"
-#: elf32-bfin.c:2673
+#: elf32-bfin.c:3126
msgid "relocations between different segments are not supported"
msgstr "no se admiten las reubicaciones entre segmentos diferentes"
-#: elf32-bfin.c:2674
+#: elf32-bfin.c:3127
msgid "warning: relocation references a different segment"
msgstr "aviso: la reubicaci<63>n referenc<6E>a un segmento diferente"
-#: elf32-bfin.c:3083
-msgid "%B(%A+0x%lx): unresolvable relocation against symbol `%s'"
-msgstr "%B(%A+0x%lx): reubicaci<63>n sin resoluci<63>n contra el s<>mbolo `%s'"
-
-#: elf32-bfin.c:3116 elf32-i386.c:3351 elf32-m68k.c:2023 elf32-s390.c:3100
-#: elf64-s390.c:3061 elf64-x86-64.c:3041
-msgid "%B(%A+0x%lx): reloc against `%s': error %d"
-msgstr "%B(%A+0x%lx): reubicaci<63>n contra `%s': error %d"
-
-#: elf32-bfin.c:4687 elf32-frv.c:6423
+#: elf32-bfin.c:4791 elf32-frv.c:6404
msgid "%B: unsupported relocation type %i"
msgstr "%B: no se admite el tipo de reubicaci<63>n %i"
-#: elf32-bfin.c:4868 elf32-frv.c:6831
+#: elf32-bfin.c:4944 elf32-frv.c:6812
#, c-format
msgid "%s: cannot link non-fdpic object file into fdpic executable"
msgstr "%s: no se puede enlazar el fichero objeto que no es fdpic en un ejecutable fdpic"
-#: elf32-bfin.c:4872 elf32-frv.c:6835
+#: elf32-bfin.c:4948 elf32-frv.c:6816
#, c-format
msgid "%s: cannot link fdpic object file into non-fdpic executable"
msgstr "%s: no se puede enlazar el fichero objeto fdpic en un ejecutable que no es fdpic"
-#: elf32-cr16.c:895 elf32-cr16c.c:798 elf32-crx.c:941 elf32-d10v.c:525
-#: elf32-h8300.c:524 elf32-m32r.c:3132 elf32-m68hc1x.c:1141 elf32-score.c:2464
-#: elf32-spu.c:2821 elf-m10200.c:464
-msgid "internal error: dangerous error"
-msgstr "error interno: error peligroso"
-
#: elf32-cris.c:1060
msgid "%B, section %A: unresolvable relocation %s against symbol `%s'"
msgstr "%B, secci<63>n %A: reubicaci<63>n %s sin resoluci<63>n contra el s<>mbolo `%s'"
@@ -1086,7 +1259,7 @@ msgstr "%B, secci
msgid "%B: Internal inconsistency; no relocation section %s"
msgstr "%B: Inconsistencia interna; no se encuentra la secci<63>n de reubicaci<63>n %s"
-#: elf32-cris.c:2511
+#: elf32-cris.c:2510
msgid ""
"%B, section %A:\n"
" v10/v32 compatible object %s must not contain a PIC relocation"
@@ -1094,7 +1267,7 @@ msgstr ""
"%B, secci<63>n %A:\n"
" el objeto %s compatible con v10/v32 no debe contener una reubicaci<63>n PIC"
-#: elf32-cris.c:2698 elf32-cris.c:2766
+#: elf32-cris.c:2697 elf32-cris.c:2765
msgid ""
"%B, section %A:\n"
" relocation %s should not be used in a shared object; recompile with -fPIC"
@@ -1102,129 +1275,129 @@ msgstr ""
"%B, secci<63>n %A:\n"
" la reubicaci<63>n %s no se debe usar en un objeto compartido; recompile con -fPIC"
-#: elf32-cris.c:3183
+#: elf32-cris.c:3184
msgid "Unexpected machine number"
msgstr "N<>mero de m<>quina inesperado"
-#: elf32-cris.c:3237
+#: elf32-cris.c:3238
#, c-format
msgid " [symbols have a _ prefix]"
msgstr " [los s<>mbolos tiene un prefijo _]"
-#: elf32-cris.c:3240
+#: elf32-cris.c:3241
#, c-format
msgid " [v10 and v32]"
msgstr " [v10 y v32]"
-#: elf32-cris.c:3243
+#: elf32-cris.c:3244
#, c-format
msgid " [v32]"
msgstr " [v32]"
-#: elf32-cris.c:3288
+#: elf32-cris.c:3289
msgid "%B: uses _-prefixed symbols, but writing file with non-prefixed symbols"
msgstr "%B: utiliza s<>mbolos con prefijo _, pero escribe el fichero con s<>mbolos sin prefijo"
-#: elf32-cris.c:3289
+#: elf32-cris.c:3290
msgid "%B: uses non-prefixed symbols, but writing file with _-prefixed symbols"
msgstr "%B: utiliza s<>mbolos sin prefijo, pero escribe el fichero con s<>mbolos con prefijo _"
-#: elf32-cris.c:3308
+#: elf32-cris.c:3309
msgid "%B contains CRIS v32 code, incompatible with previous objects"
msgstr "%B contiene c<>digo CRIS v32, incompatible con objetos previos"
-#: elf32-cris.c:3310
+#: elf32-cris.c:3311
msgid "%B contains non-CRIS-v32 code, incompatible with previous objects"
msgstr "%B contiene c<>digo que no es CRIS v32, incompatible con objetos previos"
-#: elf32-frv.c:1523 elf32-frv.c:1672
+#: elf32-frv.c:1507 elf32-frv.c:1656
msgid "relocation requires zero addend"
msgstr "la reubicaci<63>n requiere una adici<63>n cero"
-#: elf32-frv.c:2906
+#: elf32-frv.c:2891
msgid "%B(%A+0x%x): relocation to `%s+%x' may have caused the error above"
msgstr "%B(%A+0x%x): la reubicaci<63>n a `%s+%x' tal vez caus<75> el error anterior"
-#: elf32-frv.c:2995
+#: elf32-frv.c:2980
msgid "R_FRV_GETTLSOFF not applied to a call instruction"
msgstr "no se aplic<69> R_FRV_GETTLSOFF a una instrucci<63>n call"
-#: elf32-frv.c:3037
+#: elf32-frv.c:3022
msgid "R_FRV_GOTTLSDESC12 not applied to an lddi instruction"
msgstr "no se aplic<69> R_FRV_GOTTLSDESC12 a una instrucci<63>n lddi"
-#: elf32-frv.c:3108
+#: elf32-frv.c:3093
msgid "R_FRV_GOTTLSDESCHI not applied to a sethi instruction"
msgstr "no se aplic<69> R_FRV_GOTTLSDESCHI a una instrucci<63>n sethi"
-#: elf32-frv.c:3145
+#: elf32-frv.c:3130
msgid "R_FRV_GOTTLSDESCLO not applied to a setlo or setlos instruction"
msgstr "no se aplic<69> R_FRV_GOTTLSDESCLO a una instrucci<63>n setlo o setlos"
-#: elf32-frv.c:3193
+#: elf32-frv.c:3178
msgid "R_FRV_TLSDESC_RELAX not applied to an ldd instruction"
msgstr "no se aplic<69> R_FRV_GOTTLSDESC_RELAX a una instrucci<63>n ldd"
-#: elf32-frv.c:3277
+#: elf32-frv.c:3262
msgid "R_FRV_GETTLSOFF_RELAX not applied to a calll instruction"
msgstr "no se aplic<69> R_FRV_GETTLSOFF_RELAX a una instrucci<63>n calll"
-#: elf32-frv.c:3332
+#: elf32-frv.c:3317
msgid "R_FRV_GOTTLSOFF12 not applied to an ldi instruction"
msgstr "no se aplic<69> R_FRV_GOTTLSOFF12 a una instrucci<63>n ldi"
-#: elf32-frv.c:3362
+#: elf32-frv.c:3347
msgid "R_FRV_GOTTLSOFFHI not applied to a sethi instruction"
msgstr "no se aplic<69> R_FRV_GOTTLSOFFHI a una instrucci<63>n sethi"
-#: elf32-frv.c:3391
+#: elf32-frv.c:3376
msgid "R_FRV_GOTTLSOFFLO not applied to a setlo or setlos instruction"
msgstr "no se aplic<69> R_FRV_GOTTLSOFFLO a una instrucci<63>n setlo o setlos"
-#: elf32-frv.c:3422
+#: elf32-frv.c:3407
msgid "R_FRV_TLSOFF_RELAX not applied to an ld instruction"
msgstr "no se aplic<69> R_FRV_TLSOFF_RELAX a una instrucci<63>n ld"
-#: elf32-frv.c:3467
+#: elf32-frv.c:3452
msgid "R_FRV_TLSMOFFHI not applied to a sethi instruction"
msgstr "no se aplic<69> R_FRV_TLSMOFFHI a una instrucci<63>n sethi"
-#: elf32-frv.c:3494
+#: elf32-frv.c:3479
msgid "R_FRV_TLSMOFFLO not applied to a setlo or setlos instruction"
msgstr "no se aplic<69> R_FRV_TLSMOFFLO a una instrucci<63>n setlo o setlos"
-#: elf32-frv.c:3615
+#: elf32-frv.c:3600
msgid "R_FRV_FUNCDESC references dynamic symbol with nonzero addend"
msgstr "R_FRV_FUNCDESC referenc<6E>a un s<>mbolo din<69>mico con adici<63>n que no es cero"
-#: elf32-frv.c:3735
+#: elf32-frv.c:3720
msgid "R_FRV_FUNCDESC_VALUE references dynamic symbol with nonzero addend"
msgstr "R_FRV_FUNCDESC_VALUE referenc<6E>a un s<>mbolo din<69>mico con adici<63>n que no es cero"
-#: elf32-frv.c:3992 elf32-frv.c:4148
+#: elf32-frv.c:3977 elf32-frv.c:4133
msgid "%B(%A+0x%lx): reloc against `%s': %s"
msgstr "%B(%A+0x%lx): reubicaci<63>n contra `%s': %s"
-#: elf32-frv.c:3994 elf32-frv.c:3998
+#: elf32-frv.c:3979 elf32-frv.c:3983
msgid "relocation references a different segment"
msgstr "la reubicaci<63>n referenc<6E>a un segmento diferente"
-#: elf32-frv.c:6745
+#: elf32-frv.c:6726
#, c-format
msgid "%s: compiled with %s and linked with modules that use non-pic relocations"
msgstr "%s: compilado con %s y enlazado con m<>dulos que usan reubicaciones que no son pic"
-#: elf32-frv.c:6798 elf32-iq2000.c:808 elf32-m32c.c:819
+#: elf32-frv.c:6779 elf32-iq2000.c:852 elf32-m32c.c:814
#, c-format
msgid "%s: compiled with %s and linked with modules compiled with %s"
msgstr "%s: compilado con %s y enlazado con m<>dulos compilados con %s"
-#: elf32-frv.c:6810
+#: elf32-frv.c:6791
#, c-format
msgid "%s: uses different unknown e_flags (0x%lx) fields than previous modules (0x%lx)"
msgstr "%s: usa campos e_flags desconocidos (0x%lx) diferentes a aqu<71>llos de los m<>dulos previos (0x%lx)"
-#: elf32-frv.c:6860 elf32-iq2000.c:845 elf32-m32c.c:855 elf32-mt.c:587
+#: elf32-frv.c:6841 elf32-iq2000.c:889 elf32-m32c.c:850 elf32-mt.c:583
#, c-format
msgid "private flags = 0x%lx:"
msgstr "opciones privadas = 0x%lx:"
@@ -1233,55 +1406,79 @@ msgstr "opciones privadas = 0x%lx:"
msgid "%B: Relocations in generic ELF (EM: %d)"
msgstr "%B: Reubicaciones en ELF gen<65>rico (EM: %d)"
-#: elf32-hppa.c:844 elf32-hppa.c:3577
+#: elf32-hppa.c:854 elf32-hppa.c:3600
msgid "%B(%A+0x%lx): cannot reach %s, recompile with -ffunction-sections"
msgstr "%B(%A+0x%lx): no se puede alcanzar %s, recompile con -ffuntion-sections"
-#: elf32-hppa.c:1253
+#: elf32-hppa.c:1263
msgid "%B: relocation %s can not be used when making a shared object; recompile with -fPIC"
msgstr "%B: no se puede usar la reubicaci<63>n %s cuando se hace un objeto compartido; recompile con -fPIC"
-#: elf32-hppa.c:1506
+#: elf32-hppa.c:1518
#, c-format
msgid "Could not find relocation section for %s"
msgstr "No se puede encontrar la secci<63>n de reubicaci<63>n para %s"
-#: elf32-hppa.c:2795
+#: elf32-hppa.c:2810
msgid "%B: duplicate export stub %s"
msgstr "%B: cabo de exportaci<63>n %s duplicado"
-#: elf32-hppa.c:3413
+#: elf32-hppa.c:3436
msgid "%B(%A+0x%lx): %s fixup for insn 0x%x is not supported in a non-shared link"
msgstr "%B(%A+0x%lx): la compostura %s para la insn 0x%x no se admite en un enlazado que no es compartido"
-#: elf32-hppa.c:4267
+#: elf32-hppa.c:4290
msgid "%B(%A+0x%lx): cannot handle %s for %s"
msgstr "%B(%A+0x%lx): no se puede manejar %s para %s"
-#: elf32-hppa.c:4574
+#: elf32-hppa.c:4597
msgid ".got section not immediately after .plt section"
msgstr "la secci<63>n .got no est<73> inmediatamente despu<70>s de la secci<63>n .plt"
-#: elf32-i386.c:364 elf32-ppc.c:1616 elf32-s390.c:379 elf64-ppc.c:2148
-#: elf64-s390.c:403 elf64-x86-64.c:221
+#: elf32-i386.c:362 elf32-ppc.c:1616 elf32-s390.c:379 elf64-ppc.c:2153
+#: elf64-s390.c:403 elf64-x86-64.c:222
msgid "%B: invalid relocation type %d"
msgstr "%B: tipo de reubicaci<63>n %d inv<6E>lido"
-#: elf32-i386.c:1085 elf32-s390.c:1185 elf32-sh.c:5063 elf64-s390.c:1149
-#: elfxx-sparc.c:1243
+#: elf32-i386.c:1183 elf64-x86-64.c:964
+msgid "%B: TLS transition from %s to %s against `%s' at 0x%lx in section `%A' failed"
+msgstr "%B: fall<6C> la transici<63>n TLS de %s para %s contra `%s' en 0x%lx en la secci<63>n `%A'"
+
+#: elf32-i386.c:1364 elf32-s390.c:1188 elf32-sh.c:5098 elf32-xtensa.c:1162
+#: elf64-s390.c:1152 elfxx-sparc.c:1263
msgid "%B: `%s' accessed both as normal and thread local symbol"
msgstr "%B: se acces<65> `%s' como un s<>mbolo normal y un s<>mbolo local de hilo"
-#: elf32-i386.c:1200 elf32-s390.c:1294 elf64-ppc.c:4864 elf64-s390.c:1261
-#: elf64-x86-64.c:1051
+#: elf32-i386.c:1479 elf32-s390.c:1297 elf64-ppc.c:5046 elf64-s390.c:1264
+#: elf64-x86-64.c:1299
msgid "%B: bad relocation section name `%s'"
msgstr "%B: nombre de secci<63>n de reubicaci<63>n `%s' err<72>neo"
-#: elf32-i386.c:2257
+#: elf32-i386.c:2598
msgid "%B: unrecognized relocation (0x%x) in section `%A'"
msgstr "%B: no se reconoce la direcci<63>n de reubicaci<63>n (0x%lx) en la secci<63>n `%A'"
-#: elf32-i386.c:2479
+#: elf32-i386.c:2822 elf64-x86-64.c:2660
+msgid "hidden symbol"
+msgstr "s<>mbolo oculto"
+
+#: elf32-i386.c:2825 elf64-x86-64.c:2663
+msgid "internal symbol"
+msgstr "s<>mbolo interno"
+
+#: elf32-i386.c:2828 elf64-x86-64.c:2666
+msgid "protected symbol"
+msgstr "s<>mbolos protegido"
+
+#: elf32-i386.c:2831 elf64-x86-64.c:2669
+msgid "symbol"
+msgstr "s<>mbolo"
+
+#: elf32-i386.c:2836
+msgid "%B: relocation R_386_GOTOFF against undefined %s `%s' can not be used when making a shared object"
+msgstr "%B: no se puede usar la reubicaci<63>n R_386_GOTOFF contra %s indefinida `%s' cuando se hace un objeto compartido"
+
+#: elf32-i386.c:2846
msgid "%B: relocation R_386_GOTOFF against protected function `%s' can not be used when making a shared object"
msgstr "%B: no se puede usar la reubicaci<63>n R_386_GOTOFF contra la funci<63>n protegida `%s' cuando se hace un objeto compartido"
@@ -1308,7 +1505,7 @@ msgstr "enlazador ip2k: instrucci
msgid "unsupported relocation between data/insn address spaces"
msgstr "no se admite la reubicaci<63>n entre espacios de direcciones datos/insn"
-#: elf32-iq2000.c:821 elf32-m32c.c:831
+#: elf32-iq2000.c:865 elf32-m32c.c:826
#, c-format
msgid "%s: uses different e_flags (0x%lx) fields than previous modules (0x%lx)"
msgstr "%s: usa campos de e_flags diferentes (0x%lx) que los m<>dulos previos (0x%lx)"
@@ -1345,86 +1542,94 @@ msgstr ": instrucciones m32rx"
msgid ": m32r2 instructions"
msgstr ": instrucciones m32r2"
-#: elf32-m68hc1x.c:1045
+#: elf32-m68hc1x.c:1047
#, c-format
msgid "Reference to the far symbol `%s' using a wrong relocation may result in incorrect execution"
msgstr "El referenciar al s<>mbolo far `%s' usando una reubicaci<63>n incorrecta puede resultar en una ejecuci<63>n incorrecta"
-#: elf32-m68hc1x.c:1068
+#: elf32-m68hc1x.c:1070
#, c-format
msgid "banked address [%lx:%04lx] (%lx) is not in the same bank as current banked address [%lx:%04lx] (%lx)"
msgstr "la direcci<63>n almacenada [%lx:%04lx] (%lx) no est<73> en el mismo banco que la direcci<63>n almacenada actual [%lx:%04lx] (%lx)"
-#: elf32-m68hc1x.c:1087
+#: elf32-m68hc1x.c:1089
#, c-format
msgid "reference to a banked address [%lx:%04lx] in the normal address space at %04lx"
msgstr "referencia a una direcci<63>n almacenada [%lx:%04lx] en el espacio normal de direcciones en %04lx"
-#: elf32-m68hc1x.c:1220
+#: elf32-m68hc1x.c:1222
msgid "%B: linking files compiled for 16-bit integers (-mshort) and others for 32-bit integers"
msgstr "%B: se enlazan ficheros compilados con enteros de 16-bit (-mshort) y otros con enteros de 32-bit"
-#: elf32-m68hc1x.c:1227
+#: elf32-m68hc1x.c:1229
msgid "%B: linking files compiled for 32-bit double (-fshort-double) and others for 64-bit double"
msgstr "%B: se enlazan ficheros compilados con dobles de 32-bit (-fshort-double) y otros con dobles de 64-bit"
-#: elf32-m68hc1x.c:1236
+#: elf32-m68hc1x.c:1238
msgid "%B: linking files compiled for HCS12 with others compiled for HC12"
msgstr "%B: se enlazan ficheros compilados para HCS12, con otros compilados para HC12"
-#: elf32-m68hc1x.c:1252 elf32-ppc.c:3734 elf64-sparc.c:697 elfxx-mips.c:11292
+#: elf32-m68hc1x.c:1254 elf32-ppc.c:4046 elf64-sparc.c:697 elfxx-mips.c:12561
msgid "%B: uses different e_flags (0x%lx) fields than previous modules (0x%lx)"
msgstr "%B: usa campos de e_flags diferentes (0x%lx) que los m<>dulos previos (0x%lx)"
-#: elf32-m68hc1x.c:1280
+#: elf32-m68hc1x.c:1282
#, c-format
msgid "[abi=32-bit int, "
msgstr "[abi=int de 32-bit, "
-#: elf32-m68hc1x.c:1282
+#: elf32-m68hc1x.c:1284
#, c-format
msgid "[abi=16-bit int, "
msgstr "[abi=int de 16-bit, "
-#: elf32-m68hc1x.c:1285
+#: elf32-m68hc1x.c:1287
#, c-format
msgid "64-bit double, "
msgstr "doble de 64-bit, "
-#: elf32-m68hc1x.c:1287
+#: elf32-m68hc1x.c:1289
#, c-format
msgid "32-bit double, "
msgstr "doble de 32-bit, "
-#: elf32-m68hc1x.c:1290
+#: elf32-m68hc1x.c:1292
#, c-format
msgid "cpu=HC11]"
msgstr "cpu=HC11]"
-#: elf32-m68hc1x.c:1292
+#: elf32-m68hc1x.c:1294
#, c-format
msgid "cpu=HCS12]"
msgstr "cpu=HCS12]"
-#: elf32-m68hc1x.c:1294
+#: elf32-m68hc1x.c:1296
#, c-format
msgid "cpu=HC12]"
msgstr "cpu=HC12]"
-#: elf32-m68hc1x.c:1297
+#: elf32-m68hc1x.c:1299
#, c-format
msgid " [memory=bank-model]"
msgstr " [memoria=modelo de bancos]"
-#: elf32-m68hc1x.c:1299
+#: elf32-m68hc1x.c:1301
#, c-format
msgid " [memory=flat]"
msgstr " [memoria=plana]"
-#: elf32-m68k.c:635 elf32-m68k.c:636
+#: elf32-m68k.c:789 elf32-m68k.c:790
msgid "unknown"
msgstr "desconocido"
+#: elf32-m68k.c:1216
+msgid "%B: GOT overflow: Number of R_68K_GOT8O relocations > %d"
+msgstr "%B: desbordamiento de GOT: N<>mero de reubicaciones R_68K_GOT80 > %d"
+
+#: elf32-m68k.c:1221
+msgid "%B: GOT overflow: Number of R_68K_GOT8O and R_68K_GOT16O relocations > %d"
+msgstr "%B desbordamiento de GOT: N<>mero de reubicaciones R_68K_GOT80 Y R_68K_GOT160 > %d"
+
#: elf32-mcore.c:99 elf32-mcore.c:442
msgid "%B: Relocation %s (%d) is not currently supported.\n"
msgstr "%B: La reubicaci<63>n %s (%d) actualmente no se admite.\n"
@@ -1433,24 +1638,24 @@ msgstr "%B: La reubicaci
msgid "%B: Unknown relocation type %d\n"
msgstr "%B: Tipo de reubicaci<63>n %d desconocido\n"
-#: elf32-mep.c:812
+#: elf32-mep.c:654
msgid "%B and %B are for different cores"
msgstr "%B y %B son para n<>cleos diferentes"
-#: elf32-mep.c:829
+#: elf32-mep.c:671
msgid "%B and %B are for different configurations"
msgstr "%B y %B son para configuraciones diferentes"
-#: elf32-mep.c:867
+#: elf32-mep.c:709
#, c-format
msgid "private flags = 0x%lx"
msgstr "opciones privadas = 0x%lx"
-#: elf32-mips.c:989 elf64-mips.c:1976 elfn32-mips.c:1808
+#: elf32-mips.c:1045 elf64-mips.c:2056 elfn32-mips.c:1888
msgid "literal relocation occurs for an external symbol"
msgstr "la reubicaci<63>n literal sucede para un s<>mbolo externo"
-#: elf32-mips.c:1029 elf32-score.c:484 elf64-mips.c:2019 elfn32-mips.c:1849
+#: elf32-mips.c:1085 elf32-score.c:484 elf64-mips.c:2099 elfn32-mips.c:1929
msgid "32bits gp relative relocation occurs for an external symbol"
msgstr "la reubicaci<63>n gp relativa de 32bits sucede para un s<>mbolo externo"
@@ -1459,162 +1664,143 @@ msgstr "la reubicaci
msgid "generic linker can't handle %s"
msgstr "el enlazador gen<65>rico no puede manejar %s"
-#: elf32-ppc.c:2163
+#: elf32-ppc.c:2161
msgid "corrupt or empty %s section in %B"
msgstr "secci<63>n %s corrupta o vac<61>a en %B"
-#: elf32-ppc.c:2170
+#: elf32-ppc.c:2168
msgid "unable to read in %s section from %B"
msgstr "no se puede leer en la secci<63>n %s desde %B"
-#: elf32-ppc.c:2176
+#: elf32-ppc.c:2174
msgid "corrupt %s section in %B"
msgstr "secci<63>n %s corrupta en %B"
-#: elf32-ppc.c:2219
+#: elf32-ppc.c:2217
msgid "warning: unable to set size of %s section in %B"
msgstr "aviso: no se puede establecer el tama<6D>o de la secci<63>n %s en %B"
-#: elf32-ppc.c:2267
+#: elf32-ppc.c:2265
msgid "failed to allocate space for new APUinfo section."
msgstr "no se puede reservar espacio para la nueva secci<63>n APUinfo."
-#: elf32-ppc.c:2286
+#: elf32-ppc.c:2284
msgid "failed to compute new APUinfo section."
msgstr "no se puede calcular la nueva secci<63>n APUinfo."
-#: elf32-ppc.c:2289
+#: elf32-ppc.c:2287
msgid "failed to install new APUinfo section."
msgstr "no se puede instalar la nueva secci<63>n APUinfo."
-#: elf32-ppc.c:3022
+#: elf32-ppc.c:3263
msgid "%B: relocation %s cannot be used when making a shared object"
msgstr "%B: no se puede usar la reubicaci<63>n %s cuando se hace un objeto compartido"
#. It does not make sense to have a procedure linkage
#. table entry for a local symbol.
-#: elf32-ppc.c:3292
+#: elf32-ppc.c:3534
msgid "%B(%A+0x%lx): %s reloc against local symbol"
msgstr "%B(%A+0x%lx): reubicaci<63>n %s contra un s<>mbolo local"
-#: elf32-ppc.c:3633 elf32-ppc.c:3637 elfxx-mips.c:11036 elfxx-mips.c:11055
-#: elfxx-mips.c:11070
+#: elf32-ppc.c:3885 elf32-ppc.c:3900 elfxx-mips.c:12268 elfxx-mips.c:12294
+#: elfxx-mips.c:12316 elfxx-mips.c:12342
msgid "Warning: %B uses hard float, %B uses soft float"
msgstr "Aviso: %B usa coma flotante hard, %B usa coma flotante soft"
-#: elf32-ppc.c:3640 elf32-ppc.c:3644 elfxx-mips.c:11017 elfxx-mips.c:11021
+#: elf32-ppc.c:3888 elf32-ppc.c:3892
+msgid "Warning: %B uses double-precision hard float, %B uses single-precision hard float"
+msgstr "Aviso: %B usa coma flotante hard de doble precisi<73>n, %B usa coma flotante hard de precisi<73>n simple"
+
+#: elf32-ppc.c:3896
+msgid "Warning: %B uses soft float, %B uses single-precision hard float"
+msgstr "Aviso: %B usa coma flotante soft, %B usa coma flotante hard de precisi<73>n simple"
+
+#: elf32-ppc.c:3903 elf32-ppc.c:3907 elfxx-mips.c:12248 elfxx-mips.c:12252
msgid "Warning: %B uses unknown floating point ABI %d"
msgstr "Aviso: %B usa la ABI de coma flotante desconocida %d"
-#: elf32-ppc.c:3699
+#: elf32-ppc.c:3949 elf32-ppc.c:3953
+msgid "Warning: %B uses unknown vector ABI %d"
+msgstr "Aviso: %B usa la ABI de vector desconocida %d"
+
+#: elf32-ppc.c:3957
+msgid "Warning: %B uses vector ABI \"%s\", %B uses \"%s\""
+msgstr "Aviso: %B usa la ABI de vector \"%s\", %B usa \"%s\""
+
+#: elf32-ppc.c:4011
msgid "%B: compiled with -mrelocatable and linked with modules compiled normally"
msgstr "%B: compilado con -mrelocatable y enlazado con m<>dulos compilados de forma normal"
-#: elf32-ppc.c:3707
+#: elf32-ppc.c:4019
msgid "%B: compiled normally and linked with modules compiled with -mrelocatable"
msgstr "%B: compilado de forma normal y enlazado con m<>dulos compilados con -mrelocatable"
-#: elf32-ppc.c:3793
+#: elf32-ppc.c:4105
msgid "Using bss-plt due to %B"
msgstr "Se usa bss-plt debido a %B"
-#: elf32-ppc.c:6002 elf64-ppc.c:10490
+#: elf32-ppc.c:6418 elf64-ppc.c:10881
msgid "%B: unknown relocation type %d for symbol %s"
msgstr "%B: tipo de reubicaci<63>n %d desconocido para el s<>mbolo %s"
-#: elf32-ppc.c:6252
+#: elf32-ppc.c:6668
msgid "%B(%A+0x%lx): non-zero addend on %s reloc against `%s'"
msgstr "%B(%A+0x%lx): adici<63>n que no es cero en la reubicaci<63>n %s contra `%s'"
-#: elf32-ppc.c:6597 elf32-ppc.c:6623 elf32-ppc.c:6682
+#: elf32-ppc.c:7024 elf32-ppc.c:7050 elf32-ppc.c:7109
msgid "%B: the target (%s) of a %s relocation is in the wrong output section (%s)"
msgstr "%B: el objetivo (%s) de una reubicaci<63>n %s est<73> en la secci<63>n de salida err<72>nea (%s)"
-#: elf32-ppc.c:6737
+#: elf32-ppc.c:7164
msgid "%B: relocation %s is not yet supported for symbol %s."
msgstr "%B: la reubicaci<63>n %s a<>n no se admite para el s<>mbolo %s."
-#: elf32-ppc.c:6845 elf64-ppc.c:11185
+#: elf32-ppc.c:7272 elf64-ppc.c:11575
msgid "%B(%A+0x%lx): %s reloc against `%s': error %d"
msgstr "%B(%A+0x%lx): reubicaci<63>n %s contra `%s': error %d"
-#: elf32-s390.c:2238 elf64-s390.c:2212
+#: elf32-s390.c:2246 elf64-s390.c:2220
msgid "%B(%A+0x%lx): invalid instruction for TLS relocation %s"
msgstr "%B(%A+0x%lx): instrucci<63>n inv<6E>lida para la reubicaci<63>n TLS %s"
-#: elf32-score.c:1418 elfxx-mips.c:2699
+#: elf32-score.c:1415 elfxx-mips.c:3273
msgid "not enough GOT space for local GOT entries"
msgstr "no hay suficiente espacio GOT para entradas GOT locales"
-#: elf32-score.c:2550
+#: elf32-score.c:2545
#, c-format
msgid "%s: Malformed reloc detected for section %s"
msgstr "%s: Se detect<63> una reubicaci<63>n malformada para la secci<63>n %s"
-#: elf32-score.c:2601
+#: elf32-score.c:2596
msgid "%B: CALL15 reloc at 0x%lx not against global symbol"
msgstr "%B: la reubicaci<63>n CALL15 en 0x%lx no es contra un s<>mbolo global"
-#: elf32-score.c:3756
+#: elf32-score.c:3753
#, c-format
msgid " [pic]"
msgstr " [pic]"
-#: elf32-score.c:3760
+#: elf32-score.c:3757
#, c-format
msgid " [fix dep]"
msgstr " [fix dep]"
-#: elf32-score.c:3802 elfxx-mips.c:11201
+#: elf32-score.c:3799
msgid "%B: warning: linking PIC files with non-PIC files"
msgstr "%B: aviso: se enlazan ficheros PIC con ficheros que no son PIC"
-#: elf32-sh64.c:222 elf64-sh64.c:2350
-#, c-format
-msgid "%s: compiled as 32-bit object and %s is 64-bit"
-msgstr "%s: compilado como un objeto de 32-bit y %s es de 64-bit"
-
-#: elf32-sh64.c:225 elf64-sh64.c:2353
-#, c-format
-msgid "%s: compiled as 64-bit object and %s is 32-bit"
-msgstr "%s: compilado como un objeto de 64-bit y %s es de 32-bit"
-
-#: elf32-sh64.c:227 elf64-sh64.c:2355
-#, c-format
-msgid "%s: object size does not match that of target %s"
-msgstr "%s: el tama<6D>o del objeto no coincide con el tama<6D>o del objetivo %s"
-
-#: elf32-sh64.c:450 elf64-sh64.c:2894
-#, c-format
-msgid "%s: encountered datalabel symbol in input"
-msgstr "%s: se encontr<74> un s<>mbolo datalabel en la entrada"
-
-#: elf32-sh64.c:527
-msgid "PTB mismatch: a SHmedia address (bit 0 == 1)"
-msgstr "No coincide PTB: una direcci<63>n SHmedia (bit 0 == 1)"
-
-#: elf32-sh64.c:530
-msgid "PTA mismatch: a SHcompact address (bit 0 == 0)"
-msgstr "No coincide PTA: una direcci<63>n SHcompact (bit 0 == 0)"
-
-#: elf32-sh64.c:548
-#, c-format
-msgid "%s: GAS error: unexpected PTB insn with R_SH_PT_16"
-msgstr "%s: error de GAS: instrucci<63>n PTB inesperada con R_SH_PT_16"
-
-#: elf32-sh64.c:597
-msgid "%B: error: unaligned relocation type %d at %08x reloc %p\n"
-msgstr "%B: error: tipo de reubicaci<63>n %d sin alinear en %08x reubicaci<63>n %p\n"
+#: elf32-sh-symbian.c:130
+msgid "%B: IMPORT AS directive for %s conceals previous IMPORT AS"
+msgstr "%B: la directiva IMPORT AS para %s oculta un IMPORT AS previo"
-#: elf32-sh64.c:673
-#, c-format
-msgid "%s: could not write out added .cranges entries"
-msgstr "%s: no se pueden escribir las entradas .cranges agregadas"
+#: elf32-sh-symbian.c:383
+msgid "%B: Unrecognised .directive command: %s"
+msgstr "%B: Orden .directive no reconocida: %s"
-#: elf32-sh64.c:733
-#, c-format
-msgid "%s: could not write out sorted .cranges entries"
-msgstr "%s: no se pueden escribir las entradas .cranges ordenadas"
+#: elf32-sh-symbian.c:504
+msgid "%B: Failed to add renamed symbol %s"
+msgstr "%B: Fall<6C> al agregar el s<>mbolo renombrado %s"
#: elf32-sh.c:533
msgid "%B: 0x%lx: warning: bad R_SH_USES offset"
@@ -1648,41 +1834,76 @@ msgstr "%B: 0x%lx: aviso: cuenta err
msgid "%B: 0x%lx: fatal: reloc overflow while relaxing"
msgstr "%B: 0x%lx: fatal: desbordamiento de reubicaci<63>n durante la relajaci<63>n"
-#: elf32-sh.c:3249 elf64-sh64.c:1526
+#: elf32-sh.c:3279 elf64-sh64.c:1526
msgid "Unexpected STO_SH5_ISA32 on local symbol is not handled"
msgstr "No se maneja un STO_SH5_ISA32 inesperado en un s<>mbolo local"
-#: elf32-sh.c:3486
+#: elf32-sh.c:3516
msgid "%B: 0x%lx: fatal: unaligned branch target for relax-support relocation"
msgstr "%B: 0x%lx: fatal: objetivo de ramificaci<63>n sin alineaci<63>n para la reubicaci<63>n de soporte de relajamiento"
-#: elf32-sh.c:3519 elf32-sh.c:3534
+#: elf32-sh.c:3549 elf32-sh.c:3564
msgid "%B: 0x%lx: fatal: unaligned %s relocation 0x%lx"
msgstr "%B: 0x%lx: fatal: reubicaci<63>n %s sin alineaci<63>n 0x%lx"
-#: elf32-sh.c:3548
+#: elf32-sh.c:3578
msgid "%B: 0x%lx: fatal: R_SH_PSHA relocation %d not in range -32..32"
msgstr "%B: 0x%lx: fatal: la reubicaci<63>n R_SH_PSHA %d no est<73> en el rango -32..32"
-#: elf32-sh.c:3562
+#: elf32-sh.c:3592
msgid "%B: 0x%lx: fatal: R_SH_PSHL relocation %d not in range -32..32"
msgstr "%B: 0x%lx: fatal: la reubicaci<63>n R_SH_PSHL %d no est<73> en el rango -32..32"
-#: elf32-sh.c:5275 elf64-alpha.c:4533
+#: elf32-sh.c:5310 elf64-alpha.c:4552
msgid "%B: TLS local exec code cannot be linked into shared objects"
msgstr "%B: el c<>digo de ejecuci<63>n local TLS no se puede enlazar en objetos compartidos"
-#: elf32-sh-symbian.c:130
-msgid "%B: IMPORT AS directive for %s conceals previous IMPORT AS"
-msgstr "%B: la directiva IMPORT AS para %s oculta un IMPORT AS previo"
+#: elf32-sh64.c:222 elf64-sh64.c:2345
+#, c-format
+msgid "%s: compiled as 32-bit object and %s is 64-bit"
+msgstr "%s: compilado como un objeto de 32-bit y %s es de 64-bit"
-#: elf32-sh-symbian.c:383
-msgid "%B: Unrecognised .directive command: %s"
-msgstr "%B: Orden .directive no reconocida: %s"
+#: elf32-sh64.c:225 elf64-sh64.c:2348
+#, c-format
+msgid "%s: compiled as 64-bit object and %s is 32-bit"
+msgstr "%s: compilado como un objeto de 64-bit y %s es de 32-bit"
-#: elf32-sh-symbian.c:504
-msgid "%B: Failed to add renamed symbol %s"
-msgstr "%B: Fall<6C> al agregar el s<>mbolo renombrado %s"
+#: elf32-sh64.c:227 elf64-sh64.c:2350
+#, c-format
+msgid "%s: object size does not match that of target %s"
+msgstr "%s: el tama<6D>o del objeto no coincide con el tama<6D>o del objetivo %s"
+
+#: elf32-sh64.c:450 elf64-sh64.c:2888
+#, c-format
+msgid "%s: encountered datalabel symbol in input"
+msgstr "%s: se encontr<74> un s<>mbolo datalabel en la entrada"
+
+#: elf32-sh64.c:527
+msgid "PTB mismatch: a SHmedia address (bit 0 == 1)"
+msgstr "No coincide PTB: una direcci<63>n SHmedia (bit 0 == 1)"
+
+#: elf32-sh64.c:530
+msgid "PTA mismatch: a SHcompact address (bit 0 == 0)"
+msgstr "No coincide PTA: una direcci<63>n SHcompact (bit 0 == 0)"
+
+#: elf32-sh64.c:548
+#, c-format
+msgid "%s: GAS error: unexpected PTB insn with R_SH_PT_16"
+msgstr "%s: error de GAS: instrucci<63>n PTB inesperada con R_SH_PT_16"
+
+#: elf32-sh64.c:597
+msgid "%B: error: unaligned relocation type %d at %08x reloc %p\n"
+msgstr "%B: error: tipo de reubicaci<63>n %d sin alinear en %08x reubicaci<63>n %p\n"
+
+#: elf32-sh64.c:673
+#, c-format
+msgid "%s: could not write out added .cranges entries"
+msgstr "%s: no se pueden escribir las entradas .cranges agregadas"
+
+#: elf32-sh64.c:733
+#, c-format
+msgid "%s: could not write out sorted .cranges entries"
+msgstr "%s: no se pueden escribir las entradas .cranges ordenadas"
#: elf32-sparc.c:89
msgid "%B: compiled for a 64 bit system and target is 32 bit"
@@ -1692,69 +1913,103 @@ msgstr "%B: compilado para un sistema de 64 bit y el objetivo es de 32 bit"
msgid "%B: linking little endian files with big endian files"
msgstr "%B: se enlazan ficheros little endian con ficheros big endian"
-#: elf32-spu.c:995
+#: elf32-spu.c:607
+msgid "%X%P: overlay sections %A and %A do not start at the same address.\n"
+msgstr "%X%P: las secciones de sobreescritura %A y %A no inician en la misma direcci<63>n.\n"
+
+#: elf32-spu.c:805
msgid "warning: call to non-function symbol %s defined in %B"
msgstr "aviso: se llama al s<>mbolo %s que no es funci<63>n, definido en %B"
-#: elf32-spu.c:1315
+#: elf32-spu.c:1406
msgid "%B is not allowed to define %s"
msgstr "%B no se permite para definir %s"
-#: elf32-spu.c:1352
+#: elf32-spu.c:1453
#, c-format
msgid "%s in overlay section"
msgstr "%s en la secci<63>n de sobreescritura"
-#: elf32-spu.c:1363
+#: elf32-spu.c:1469
msgid "overlay stub relocation overflow"
msgstr "desbordamiento del segmento de reubicaci<63>n de sobreescritura"
-#: elf32-spu.c:1820
+#: elf32-spu.c:1478 elf64-ppc.c:10078
+msgid "stubs don't match calculated size"
+msgstr "los cabos no coinciden con el tama<6D>o calculado"
+
+#: elf32-spu.c:1976
#, c-format
msgid "warning: %s overlaps %s\n"
msgstr "aviso: %s sobreescribe %s\n"
-#: elf32-spu.c:1836
+#: elf32-spu.c:1992
#, c-format
msgid "warning: %s exceeds section size\n"
msgstr "aviso: %s excede el tama<6D>o de la secci<63>n\n"
-#: elf32-spu.c:1867
+#: elf32-spu.c:2023
msgid "%A:0x%v not found in function table\n"
msgstr "%A:0x%v no se encuentra en la tabla de funci<63>n\n"
-#: elf32-spu.c:1958
-msgid "%B(%A+0x%v): call to non-code section %B(%A), stack analysis incomplete\n"
-msgstr "%B(%A+0x%v): se llama a la secci<63>n %B(%A) que no es de c<>digo, an<61>lisis de pila incompleto\n"
+#: elf32-spu.c:2165
+msgid "%B(%A+0x%v): call to non-code section %B(%A), analysis incomplete\n"
+msgstr "%B(%A+0x%v): se llama a la secci<63>n %B(%A) que no es de c<>digo, an<61>lisis incompleto\n"
-#: elf32-spu.c:2079
+#: elf32-spu.c:2339
#, c-format
msgid "%A link_order not found\n"
msgstr "no se encontr<74> link_order %A\n"
-#: elf32-spu.c:2358
+#: elf32-spu.c:2706
#, c-format
msgid "Stack analysis will ignore the call from %s to %s\n"
msgstr "El an<61>lisis de pila descartar<61> la llamada de %s a %s\n"
-#: elf32-spu.c:2513
+#: elf32-spu.c:3348
+msgid " %s: 0x%v\n"
+msgstr " %s: 0x%v\n"
+
+#: elf32-spu.c:3349
msgid "%s: 0x%v 0x%v\n"
msgstr "%s: 0x%v 0x%v\n"
-#: elf32-spu.c:2517
+#: elf32-spu.c:3354
msgid " calls:\n"
msgstr " llama:\n"
-#: elf32-spu.c:2524
+#: elf32-spu.c:3362
#, c-format
msgid " %s%s %s\n"
msgstr " %s%s %s\n"
-#: elf32-spu.c:2585
+#: elf32-spu.c:3564
+#, c-format
+msgid "%s duplicated in %s\n"
+msgstr "%s duplicado en %s\n"
+
+#: elf32-spu.c:3568
+#, c-format
+msgid "%s duplicated\n"
+msgstr "%s duplicado\n"
+
+#: elf32-spu.c:3575
+msgid "sorry, no support for duplicate object files in auto-overlay script\n"
+msgstr "perd<72>n, no se admiten ficheros objeto duplicados en el gui<75>n de sobreescritura autom<6F>tica\n"
+
+#: elf32-spu.c:3605
+msgid "non-overlay size of 0x%v plus maximum overlay size of 0x%v exceeds local store\n"
+msgstr "eltama<6D>o 0x%v que no es de sobreescritura mas el tama<6D>o de sobreescritura m<>ximo de 0x%v excede el almacenamiento local\n"
+
+#: elf32-spu.c:3741
+msgid "%B:%A%s exceeds overlay size\n"
+msgstr "%B:%A%s excede el tama<6D>o de sobreescritura\n"
+
+#: elf32-spu.c:3862
msgid "Stack size for call graph root nodes.\n"
msgstr "Tama<6D>o de la pila para los nodos ra<72>z del grafo de llamadas.\n"
-#: elf32-spu.c:2586
+#: elf32-spu.c:3863
msgid ""
"\n"
"Stack size for functions. Annotations: '*' max stack, 't' tail call\n"
@@ -1762,80 +2017,76 @@ msgstr ""
"\n"
"Tama<6D>o de la pila para funciones. Anotaciones: '*' max de pila, 't' llamada cola\n"
-#: elf32-spu.c:2615
-msgid " %s: 0x%v\n"
-msgstr " %s: 0x%v\n"
-
-#: elf32-spu.c:2625
+#: elf32-spu.c:3871
msgid "Maximum stack required is 0x%v\n"
msgstr "La pila m<>xima requerida es 0x%v\n"
-#: elf32-spu.c:2751
+#: elf32-spu.c:4067
msgid "%B(%s+0x%lx): unresolvable %s relocation against symbol `%s'"
msgstr "%B(%s+0x%lx): reubicaci<63>n %s sin resoluci<63>n contra el s<>mbolo `%s'"
-#: elf32-v850.c:163
+#: elf32-v850.c:165
#, c-format
msgid "Variable `%s' cannot occupy in multiple small data regions"
msgstr "La variable `%s' no puede ocupar m<>ltiples regiones de datos small"
-#: elf32-v850.c:166
+#: elf32-v850.c:168
#, c-format
msgid "Variable `%s' can only be in one of the small, zero, and tiny data regions"
msgstr "La variable `%s' solamente puede estar en una de las regiones de datos small, cero, y tiny"
-#: elf32-v850.c:169
+#: elf32-v850.c:171
#, c-format
msgid "Variable `%s' cannot be in both small and zero data regions simultaneously"
msgstr "La variable `%s' no puede estar simult<6C>neamente en las regiones de datos small y cero"
-#: elf32-v850.c:172
+#: elf32-v850.c:174
#, c-format
msgid "Variable `%s' cannot be in both small and tiny data regions simultaneously"
msgstr "La variable `%s' no puede estar simult<6C>neamente en las regiones de datos small y tiny"
-#: elf32-v850.c:175
+#: elf32-v850.c:177
#, c-format
msgid "Variable `%s' cannot be in both zero and tiny data regions simultaneously"
msgstr "La variable `%s' no puede estar simult<6C>neamente en las regiones de datos cero y tiny"
-#: elf32-v850.c:478
+#: elf32-v850.c:480
#, c-format
msgid "FAILED to find previous HI16 reloc\n"
msgstr "FALLO para encontrar la reubicaci<63>n HI16 previa\n"
-#: elf32-v850.c:1713
+#: elf32-v850.c:1715
msgid "could not locate special linker symbol __gp"
msgstr "no se puede localizar el s<>mbolo especial del enlazador __gp"
-#: elf32-v850.c:1717
+#: elf32-v850.c:1719
msgid "could not locate special linker symbol __ep"
msgstr "no se puede localizar el s<>mbolo especial del enlazador __ep"
-#: elf32-v850.c:1721
+#: elf32-v850.c:1723
msgid "could not locate special linker symbol __ctbp"
msgstr "no se puede localizar el s<>mbolo especial del enlazador __ctbp"
-#: elf32-v850.c:1871
+#: elf32-v850.c:1873
msgid "%B: Architecture mismatch with previous modules"
msgstr "%B: No coincide la arquitectura con los m<>dulos previos"
-#: elf32-v850.c:1890
+#: elf32-v850.c:1892
#, c-format
msgid "private flags = %lx: "
msgstr "opciones privadas = %lx: "
-#: elf32-v850.c:1895
+#: elf32-v850.c:1897
#, c-format
msgid "v850 architecture"
msgstr "arquitectura v850"
-#: elf32-v850.c:1896
+#: elf32-v850.c:1898
#, c-format
msgid "v850e architecture"
msgstr "arquitectura v850e"
-#: elf32-v850.c:1897
+#: elf32-v850.c:1899
#, c-format
msgid "v850e1 architecture"
msgstr "arquitectura v850e1"
@@ -1860,114 +2111,118 @@ msgstr " [flotante-g]"
msgid "%s: warning: GOT addend of %ld to `%s' does not match previous GOT addend of %ld"
msgstr "%s: aviso: la adici<63>n GOT de %ld a `%s' no coincide con la adici<63>n previa GOT de %ld"
-#: elf32-vax.c:1584
+#: elf32-vax.c:1589
#, c-format
msgid "%s: warning: PLT addend of %d to `%s' from %s section ignored"
msgstr "%s: aviso: se descarta la adici<63>n PLT de %d a `%s' de la secci<63>n %s"
-#: elf32-vax.c:1721
+#: elf32-vax.c:1726
#, c-format
msgid "%s: warning: %s relocation against symbol `%s' from %s section"
msgstr "%s: aviso: reubicaci<63>n %s contra el s<>mbolo `%s' de la secci<63>n %s"
-#: elf32-vax.c:1727
+#: elf32-vax.c:1732
#, c-format
msgid "%s: warning: %s relocation to 0x%x from %s section"
msgstr "%s: aviso: reubicaci<63>n %s a 0x%x de la secci<63>n %s"
-#: elf32-xstormy16.c:451 elf32-ia64.c:2962 elf64-ia64.c:2962
+#: elf32-xstormy16.c:451 elf32-ia64.c:2794 elf64-ia64.c:2794
msgid "non-zero addend in @fptr reloc"
msgstr "adici<63>n que no es cero en la reubicaci<63>n @fptr"
-#: elf32-xtensa.c:733
+#: elf32-xtensa.c:911
msgid "%B(%A): invalid property table"
msgstr "%B(%A): tabla de propiedades inv<6E>lida"
-#: elf32-xtensa.c:2177
+#: elf32-xtensa.c:2734
msgid "%B(%A+0x%lx): relocation offset out of range (size=0x%x)"
msgstr "%B(%A+0x%lx): desplazamiento de reubicaci<63>n fuera de rango (tama<6D>o=0x%x)"
-#: elf32-xtensa.c:2234
+#: elf32-xtensa.c:2813 elf32-xtensa.c:2934
msgid "dynamic relocation in read-only section"
msgstr "reubicaci<63>n din<69>mica en la secci<63>n de s<>lo lectura"
-#: elf32-xtensa.c:2407
+#: elf32-xtensa.c:2910
+msgid "TLS relocation invalid without dynamic sections"
+msgstr "reubicaci<63>n TLS inv<6E>lida sin secciones din<69>micas"
+
+#: elf32-xtensa.c:3127
msgid "internal inconsistency in size of .got.loc section"
msgstr "inconsistencia interna en el tama<6D>o de la secci<63>n .got.loc"
-#: elf32-xtensa.c:2714
+#: elf32-xtensa.c:3437
msgid "%B: incompatible machine type. Output is 0x%x. Input is 0x%x"
msgstr "%B: tipo de m<>quina incompatible. La salida es 0x%x. La entrada es 0x%x"
-#: elf32-xtensa.c:3920 elf32-xtensa.c:3928
+#: elf32-xtensa.c:4666 elf32-xtensa.c:4674
msgid "Attempt to convert L32R/CALLX to CALL failed"
msgstr "Fall<6C> el intento de convertir L32R/CALLX a CALL"
-#: elf32-xtensa.c:5522 elf32-xtensa.c:5598 elf32-xtensa.c:6714
+#: elf32-xtensa.c:6276 elf32-xtensa.c:6352 elf32-xtensa.c:7468
msgid "%B(%A+0x%lx): could not decode instruction; possible configuration mismatch"
msgstr "%B(%A+0x%lx): no se puede decodificar la instrucci<63>n; posible falta de coincidencia de la configuraci<63>n"
-#: elf32-xtensa.c:6454
+#: elf32-xtensa.c:7208
msgid "%B(%A+0x%lx): could not decode instruction for XTENSA_ASM_SIMPLIFY relocation; possible configuration mismatch"
msgstr "%B(%A+0x%lx): no se puede decodificar la instrucci<63>n para la reubicaci<63>n XTENSA_ASM_SIMPLIFY; posible falta de coincidencia de la configuraci<63>n"
-#: elf32-xtensa.c:8166
+#: elf32-xtensa.c:8969
msgid "invalid relocation address"
msgstr "direcci<63>n de reubicaci<63>n inv<6E>lida"
-#: elf32-xtensa.c:8215
+#: elf32-xtensa.c:9018
msgid "overflow after relaxation"
msgstr "desbordamiento despu<70>s de la relajaci<63>n"
-#: elf32-xtensa.c:9341
+#: elf32-xtensa.c:10154
msgid "%B(%A+0x%lx): unexpected fix for %s relocation"
msgstr "%B(%A+0x%lx): compostura inesperada para la reubicaci<63>n %s"
-#: elf64-alpha.c:453
+#: elf64-alpha.c:452
msgid "GPDISP relocation did not find ldah and lda instructions"
msgstr "la reubicaci<63>n GPDISP no encontr<74> las instrucciones ldah y lda"
-#: elf64-alpha.c:2404
+#: elf64-alpha.c:2416
msgid "%B: .got subsegment exceeds 64K (size %d)"
msgstr "%B: el subsegmento .got excede los 64K (tama<6D>o %d)"
-#: elf64-alpha.c:4277 elf64-alpha.c:4289
+#: elf64-alpha.c:4296 elf64-alpha.c:4308
msgid "%B: gp-relative relocation against dynamic symbol %s"
msgstr "%B: reubicaci<63>n gp relativa contra el s<>mbolo din<69>mico %s"
-#: elf64-alpha.c:4315 elf64-alpha.c:4450
+#: elf64-alpha.c:4334 elf64-alpha.c:4469
msgid "%B: pc-relative relocation against dynamic symbol %s"
msgstr "%B: reubicaci<63>n relativa al pc contra el s<>mbolo din<69>mico %s"
-#: elf64-alpha.c:4343
+#: elf64-alpha.c:4362
msgid "%B: change in gp: BRSGP %s"
msgstr "%B: cambio en gp: BRSGP %s"
-#: elf64-alpha.c:4368
+#: elf64-alpha.c:4387
msgid "<unknown>"
msgstr "<desconocido>"
-#: elf64-alpha.c:4373
+#: elf64-alpha.c:4392
msgid "%B: !samegp reloc against symbol without .prologue: %s"
msgstr "%B: reubicaci<63>n !samegp contra un s<>mbolo sin .prologue: %s"
-#: elf64-alpha.c:4425
+#: elf64-alpha.c:4444
msgid "%B: unhandled dynamic relocation against %s"
msgstr "%B: reubicaci<63>n din<69>mica sin manejar contra %s"
-#: elf64-alpha.c:4457
+#: elf64-alpha.c:4476
msgid "%B: pc-relative relocation against undefined weak symbol %s"
msgstr "%B: reubicaci<63>n relativa al pc contra el s<>mbolo d<>bil sin definir %s"
-#: elf64-alpha.c:4517
+#: elf64-alpha.c:4536
msgid "%B: dtp-relative relocation against dynamic symbol %s"
msgstr "%B: reubicaci<63>n relativa a dtp contra el s<>mbolo din<69>mico %s"
-#: elf64-alpha.c:4540
+#: elf64-alpha.c:4559
msgid "%B: tp-relative relocation against dynamic symbol %s"
msgstr "%B: reubicaci<63>n relativa a tp contra el s<>mbolo din<69>mico %s"
-#: elf64-hppa.c:2040
+#: elf64-hppa.c:2071
#, c-format
msgid "stub entry for %s cannot load .plt, dp offset = %ld"
msgstr "la entrada de cabo para %s no puede cargar .plt, desplazamiento dp = %ld"
@@ -2011,16 +2266,16 @@ msgstr "%s: la directiva LOCAL s
msgid "%s: LOCAL directive: Register $%ld is not a local register. First global register is $%ld."
msgstr "%s: directiva LOCAL: El registro $%ld no es un registro local. El primer registro global es $%ld."
-#: elf64-mmix.c:2202
+#: elf64-mmix.c:2201
#, c-format
msgid "%s: Error: multiple definition of `%s'; start of %s is set in a earlier linked file\n"
msgstr "%s: Error: definici<63>n m<>ltiple de `%s'; el inicio de %s est<73> definido en un fichero enlazado con anterioridad\n"
-#: elf64-mmix.c:2260
+#: elf64-mmix.c:2259
msgid "Register section has contents\n"
msgstr "La secci<63>n de registros no tiene contenido\n"
-#: elf64-mmix.c:2452
+#: elf64-mmix.c:2451
#, c-format
msgid ""
"Internal inconsistency: remaining %u != max %u.\n"
@@ -2029,69 +2284,65 @@ msgstr ""
"Inconsistencia interna: %u restante != %u m<>ximo.\n"
" Por favor reporte este bicho."
-#: elf64-ppc.c:2569 libbfd.c:950
+#: elf64-ppc.c:2561 libbfd.c:978
msgid "%B: compiled for a big endian system and target is little endian"
msgstr "%B: compilado para un sistema big endian y el objetivo es little endian"
-#: elf64-ppc.c:2572 libbfd.c:952
+#: elf64-ppc.c:2564 libbfd.c:980
msgid "%B: compiled for a little endian system and target is big endian"
msgstr "%B: compilado para un sistema little endian y el objetivo es big endian"
-#: elf64-ppc.c:5888
+#: elf64-ppc.c:6065
#, c-format
msgid "copy reloc against `%s' requires lazy plt linking; avoid setting LD_BIND_NOW=1 or upgrade gcc"
msgstr "la reubicaci<63>n de copia contra `%s' requiere de enlazado plt suelto; evite establecer LD_BIND_NOW=1 o actualice gcc"
-#: elf64-ppc.c:6316
+#: elf64-ppc.c:6486
msgid "dynreloc miscount for %B, section %A"
msgstr "cuenta err<72>nea de la reubicaci<63>n din<69>mica de %B, secci<63>n %A"
-#: elf64-ppc.c:6420
+#: elf64-ppc.c:6570
msgid "%B: .opd is not a regular array of opd entries"
msgstr "%B: .opd no es una matriz regular de entradas opd"
-#: elf64-ppc.c:6429
+#: elf64-ppc.c:6579
msgid "%B: unexpected reloc type %u in .opd section"
msgstr "%B: tipo de reubicaci<63>n %u inesperado en la secci<63>n .opd"
-#: elf64-ppc.c:6450
+#: elf64-ppc.c:6600
msgid "%B: undefined sym `%s' in .opd section"
msgstr "%B: s<>mbolo `%s' indefinido en la secci<63>n .opd"
-#: elf64-ppc.c:7157 elf64-ppc.c:7537
+#: elf64-ppc.c:7377 elf64-ppc.c:7754
#, c-format
msgid "%s defined in removed toc entry"
msgstr "se defini<6E> %s en la entrada toc eliminada"
-#: elf64-ppc.c:8272
+#: elf64-ppc.c:8581
#, c-format
msgid "long branch stub `%s' offset overflow"
msgstr "desbordamiento del desplazamiento de stub de ramificaci<63>n long `%s'"
-#: elf64-ppc.c:8347
+#: elf64-ppc.c:8640
#, c-format
msgid "can't find branch stub `%s'"
msgstr "no se puede encontrar la ramificaci<63>n de cabo `%s'"
-#: elf64-ppc.c:8413 elf64-ppc.c:8489
+#: elf64-ppc.c:8702 elf64-ppc.c:8822
#, c-format
msgid "linkage table error against `%s'"
msgstr "error de la tabla de enlazado contra `%s'"
-#: elf64-ppc.c:8618
+#: elf64-ppc.c:8978
#, c-format
msgid "can't build branch stub `%s'"
msgstr "no se puede construir la ramificaci<63>n de cabos `%s'"
-#: elf64-ppc.c:9070
+#: elf64-ppc.c:9451
msgid "%B section %A exceeds stub group size"
msgstr "%B secci<63>n %A excede el tama<6D>o de grupo de stub"
-#: elf64-ppc.c:9682
-msgid "stubs don't match calculated size"
-msgstr "los cabos no coinciden con el tama<6D>o calculado"
-
-#: elf64-ppc.c:9694
+#: elf64-ppc.c:10090
#, c-format
msgid ""
"linker stubs in %u group%s\n"
@@ -2108,19 +2359,19 @@ msgstr ""
" ajuste toc long %lu\n"
" llamada plt %lu"
-#: elf64-ppc.c:10378
+#: elf64-ppc.c:10769
msgid "%B(%A+0x%lx): automatic multiple TOCs not supported using your crt files; recompile with -mminimal-toc or upgrade gcc"
msgstr "%B(%A+0x%lx): no se admiten los TOCs m<>ltiples autom<6F>ticos, utilizando sus ficheros crt; recompile con -mminimal-toc o actualice gcc"
-#: elf64-ppc.c:10386
+#: elf64-ppc.c:10777
msgid "%B(%A+0x%lx): sibling call optimization to `%s' does not allow automatic multiple TOCs; recompile with -mminimal-toc or -fno-optimize-sibling-calls, or make `%s' extern"
msgstr "%B(%A+0x%lx): la optimizaci<63>n de llamada hermana a `%s' no permite TOCs m<>ltiples autom<6F>ticos; recompile con -mminimal-toc <20> -fno-optimize-sibling-calls, o vuelva `%s' externa"
-#: elf64-ppc.c:11037
+#: elf64-ppc.c:11427
msgid "%B: relocation %s is not supported for symbol %s."
msgstr "%B: no se admite la reubicaci<63>n %s para el s<>mbolo %s."
-#: elf64-ppc.c:11119
+#: elf64-ppc.c:11509
msgid "%B: error: relocation %s not a multiple of %d"
msgstr "%B: error: la reubicaci<63>n %s no es un m<>ltiplo de %d"
@@ -2149,194 +2400,48 @@ msgstr "El s
msgid "%B: linking UltraSPARC specific with HAL specific code"
msgstr "%B: se enlaza c<>digo espec<65>fico de UltraSPARC con c<>digo espec<65>fico de HAL"
-#: elf64-x86-64.c:799 elf64-x86-64.c:959 elf64-x86-64.c:2360
+#: elf64-x86-64.c:1047 elf64-x86-64.c:1207 elfxx-mips.c:7834
msgid "%B: relocation %s against `%s' can not be used when making a shared object; recompile with -fPIC"
msgstr "%B: no se puede usar la reubicaci<63>n %s contra `%s' cuando se hace un objeto compartido; recompile con -fPIC"
-#: elf64-x86-64.c:890
-msgid "%B: %s' accessed both as normal and thread local symbol"
-msgstr "%B: se acces<65> `%s' como un s<>mbolo normal y como un s<>mbolo local de hilo"
+#: elf64-x86-64.c:1138
+msgid "%B: '%s' accessed both as normal and thread local symbol"
+msgstr "%B: se accedi<64> a '%s' como un s<>mbolo normal y como un s<>mbolo local de hilo"
-#: elf64-x86-64.c:2272
+#: elf64-x86-64.c:2559
msgid "%B: relocation R_X86_64_GOTOFF64 against protected function `%s' can not be used when making a shared object"
msgstr "%B: no se puede usar la reubicaci<63>n R_X86_64_GOTOFF contra la funci<63>n protegida `%s' cuando se hace un objeto compartido"
-#: elf64-x86-64.c:2356
-msgid "%B: relocation R_X86_64_PC32 against protected function `%s' can not be used when making a shared object"
-msgstr "%B: no se puede usar la reubicaci<63>n R_X86_64_PC32 contra la funci<63>n protegida `%' cuando se hace un objeto compartido"
+#: elf64-x86-64.c:2670
+msgid "; recompile with -fPIC"
+msgstr "; recompile con -fPIC"
-#: elf-attrs.c:582
-msgid "ERROR: %B: Must be processed by '%s' toolchain"
-msgstr "ERROR: %B: Se debe procesar por la cadena de compilaci<63>n '%s'"
-
-#: elf-attrs.c:602 elf-attrs.c:621
-msgid "ERROR: %B: Incompatible object tag '%s':%d"
-msgstr "ERROR: %B: Etiqueta de objeto '%s' incompatible:%d"
-
-#: elf.c:312
-msgid "%B: invalid string offset %u >= %lu for section `%s'"
-msgstr "%B: desplazamiento de cadena inv<6E>lido %u >= %lu para la secci<63>n `%s'"
-
-#: elf.c:414
-msgid "%B symbol number %lu references nonexistent SHT_SYMTAB_SHNDX section"
-msgstr "%B el n<>mero de s<>mbolo %lu hace referencia a la secci<63>n inexistente SHT_SYMTAB_SHNDX"
-
-#: elf.c:567
-msgid "%B: Corrupt size field in group section header: 0x%lx"
-msgstr "%B: Tama<6D>o de campo corrupto en el encabezado de la secci<63>n de grupo: 0x%lx"
+#: elf64-x86-64.c:2675
+msgid "%B: relocation %s against %s `%s' can not be used when making a shared object%s"
+msgstr "%B: no se puede usar la reubicaci<63>n %s contra %s `%s' cuando se hace un objeto compartido%s"
-#: elf.c:603
-msgid "%B: invalid SHT_GROUP entry"
-msgstr "%B: entrada SHT_GROUP inv<6E>lida"
-
-#: elf.c:673
-msgid "%B: no group info for section %A"
-msgstr "%B: no hay informaci<63>n de grupo para la secci<63>n %A"
+#: elf64-x86-64.c:2677
+msgid "%B: relocation %s against undefined %s `%s' can not be used when making a shared object%s"
+msgstr "%B: no se puede usar la reubicaci<63>n %s contra %s sin definir `%s' cuando se hace un objeto compartido%s"
-#: elf.c:703 elf.c:2886 elflink.c:9858
-msgid "%B: warning: sh_link not set for section `%A'"
-msgstr "%B: aviso: no se estableci<63>n sh_link para la secci<63>n `%A'"
-
-#: elf.c:719
-msgid "%B: sh_link [%d] in section `%A' is incorrect"
-msgstr "%B: sh_link [%d] en la secci<63>n `%A', es incorrecto"
-
-#: elf.c:754
-msgid "%B: unknown [%d] section `%s' in group [%s]"
-msgstr "%B: secci<63>n [%d] desconocida `%s' en el grupo [%s]"
-
-#: elf.c:1108
-#, c-format
-msgid ""
-"\n"
-"Program Header:\n"
-msgstr ""
-"\n"
-"Encabezado del Programa:\n"
-
-#: elf.c:1150
-#, c-format
-msgid ""
-"\n"
-"Dynamic Section:\n"
-msgstr ""
-"\n"
-"Secci<63>n Din<69>mica:\n"
-
-#: elf.c:1276
-#, c-format
-msgid ""
-"\n"
-"Version definitions:\n"
-msgstr ""
-"\n"
-"Definiciones de versi<73>n:\n"
-
-#: elf.c:1301
-#, c-format
-msgid ""
-"\n"
-"Version References:\n"
-msgstr ""
-"\n"
-"Referencias de Versi<73>n:\n"
-
-#: elf.c:1306
-#, c-format
-msgid " required from %s:\n"
-msgstr " requerido desde %s:\n"
-
-#: elf.c:1690
-msgid "%B: invalid link %lu for reloc section %s (index %u)"
-msgstr "%B: enlace %lu inv<6E>lido para la secci<63>n de reubicaci<63>n %s (<28>ndice %u)"
-
-#: elf.c:1858
-msgid "%B: don't know how to handle allocated, application specific section `%s' [0x%8x]"
-msgstr "%B: no se sabe c<>mo manejar lo reservado, aplicaci<63>n espec<65>fica de la secci<63>n `%s' [0x%8x]"
-
-#: elf.c:1870
-msgid "%B: don't know how to handle processor specific section `%s' [0x%8x]"
-msgstr "%B: no se sabe c<>mo manejar la secci<63>n espec<65>fica de procesador `%s' [0x%8x]"
-
-#: elf.c:1881
-msgid "%B: don't know how to handle OS specific section `%s' [0x%8x]"
-msgstr "%B: no se sabe c<>mo manejar la secci<63>n espec<65>fica de SO `%s' [0x%8x]"
-
-#: elf.c:1891
-msgid "%B: don't know how to handle section `%s' [0x%8x]"
-msgstr "%B: no se sabe c<>mo manejar la secci<63>n `%s' [0x%8x]"
-
-#: elf.c:2843
-msgid "%B: sh_link of section `%A' points to discarded section `%A' of `%B'"
-msgstr "%B: sh_link de la secci<63>n `%A' apunta a la secci<63>n descartada `%A' de `%B'"
-
-#: elf.c:2866
-msgid "%B: sh_link of section `%A' points to removed section `%A' of `%B'"
-msgstr "%B: sh_link de la secci<63>n `%A' apunta a la secci<63>n descartada `%A' de `%B'"
-
-#: elf.c:4142
-msgid "%B: The first section in the PT_DYNAMIC segment is not the .dynamic section"
-msgstr "%B: La primera secci<63>n en el segmento PT_DYNAMIC no es la secci<63>n .dynamic"
-
-#: elf.c:4165
-msgid "%B: Not enough room for program headers, try linking with -N"
-msgstr "%B: No hay suficiente espacio para los encabezados del programa, pruebe enlazar con -N"
-
-#: elf.c:4243
-msgid "%B: section %A lma 0x%lx overlaps previous sections"
-msgstr "%B: la secci<63>n %A lma 0x%lx traslapa las secciones anteriores"
-
-#: elf.c:4341
-msgid "%B: section `%A' can't be allocated in segment %d"
-msgstr "%B: la secci<63>n `%A' no se puede asignar en el segmento %d"
-
-#: elf.c:4390
-msgid "%B: warning: allocated section `%s' not in segment"
-msgstr "%B: aviso: la secci<63>n asignada `%s' no est<73> en el segmento"
-
-#: elf.c:4886
-msgid "%B: symbol `%s' required but not present"
-msgstr "%B: se requiere el s<>mbolo `%s' pero no est<73> presente"
-
-#: elf.c:5199
-msgid "%B: warning: Empty loadable segment detected, is this intentional ?\n"
-msgstr "%B: aviso: Se detect<63> un segmento cargable vac<61>o, <20> esto es intencional ?\n"
-
-#: elf.c:6105
-#, c-format
-msgid "Unable to find equivalent output section for symbol '%s' from section '%s'"
-msgstr "No se puede encontrar la secci<63>n de salida equivalente para el s<>mbolo '%s' de la secci<63>n '%s'"
-
-#: elf.c:7079
-msgid "%B: unsupported relocation type %s"
-msgstr "%B: no se admite el tipo de reubicaci<63>n %s"
-
-#: elfcode.h:813
+#: elfcode.h:795
#, c-format
msgid "warning: %s has a corrupt string table index - ignoring"
msgstr "aviso: %s tiene un <20>ndice de tablas de cadenas corrupto - se descarta"
-#: elfcode.h:1226
+#: elfcode.h:1201
#, c-format
msgid "%s: version count (%ld) does not match symbol count (%ld)"
msgstr "%s: la cuenta de versi<73>n (%ld) no coincide con la cuenta de s<>mbolos (%ld)"
-#: elfcode.h:1459
+#: elfcode.h:1435
#, c-format
msgid "%s(%s): relocation %d has invalid symbol index %ld"
msgstr "%s(%s): la reubicaci<63>n %d tiene un <20>ndice de s<>mbolo %ld inv<6E>lido"
-#: elf-eh-frame.c:823
-msgid "%P: fde encoding in %B(%A) prevents .eh_frame_hdr table being created.\n"
-msgstr "%P: la codificaci<63>n fde en %B(%A) previene la creaci<63>n de la tabla .eh_frame_hdr.\n"
-
-#: elf-eh-frame.c:974
-msgid "%P: error in %B(%A); no .eh_frame_hdr table will be created.\n"
-msgstr "%P: error en %B(%A); no se crear<61> la tabla .eh_frame_hdr.\n"
-
-#: elf-hppa.h:2219 elf-hppa.h:2233
-msgid "%B(%A): warning: unresolvable relocation against symbol `%s'"
-msgstr "%B(%A): aviso: reubicaci<63>n sin resoluci<63>n contra el s<>mbolo `%s'"
+#: elfcore.h:251
+msgid "Warning: %B is truncated: expected core file size >= %lu, found: %lu."
+msgstr "Aviso: se trunc<6E> %B: se esperaba el tama<6D>o de fichero core >= %lu, se encontr<74>: %lu."
#: elflink.c:1028
msgid "%s: TLS definition in %B section %A mismatches non-TLS definition in %B section %A"
@@ -2358,282 +2463,295 @@ msgstr "%s: la referencia TLS en %B no coincide con la definici
msgid "%B: unexpected redefinition of indirect versioned symbol `%s'"
msgstr "%B: redefinici<63>n inesperada del s<>mbolo con versi<73>n indirecta `%s'"
-#: elflink.c:1974
+#: elflink.c:1982
msgid "%B: version node not found for symbol %s"
msgstr "%B: no se encuentra la versi<73>n del nodo para el s<>mbolo %s"
-#: elflink.c:2122
+#: elflink.c:2130
msgid "%B: bad reloc symbol index (0x%lx >= 0x%lx) for offset 0x%lx in section `%A'"
msgstr "%B: <20>ndice de s<>mbolos de reubicaci<63>n inv<6E>lido (0x%lx >= 0x%lx) err<72>neo para el desplazamiento 0x%lx en la secci<63>n `%A'"
-#: elflink.c:2314
+#: elflink.c:2327
msgid "%B: relocation size mismatch in %B section %A"
msgstr "%B: el tama<6D>o de reubicaci<63>n no coincide en %B secci<63>n %A"
-#: elflink.c:2616
+#: elflink.c:2629
#, c-format
msgid "warning: type and size of dynamic symbol `%s' are not defined"
msgstr "aviso: el tipo y tama<6D>o del s<>mbolo din<69>mico `%s' no est<73>n definidos"
-#: elflink.c:3910
+#: elflink.c:3953
msgid "%B: %s: invalid version %u (max %d)"
msgstr "%B: %s: versi<73>n %u inv<6E>lida (m<>ximo %d)"
-#: elflink.c:3946
+#: elflink.c:3989
msgid "%B: %s: invalid needed version %d"
msgstr "%B: %s: versi<73>n requerida %d inv<6E>lida"
-#: elflink.c:4129
+#: elflink.c:4172
msgid "Warning: alignment %u of common symbol `%s' in %B is greater than the alignment (%u) of its section %A"
msgstr "Aviso: la alineaci<63>n %u del s<>mbolo com<6F>n `%s' en %B es m<>s grande que la alineaci<63>n (%u) de su secci<63>n %A"
-#: elflink.c:4135
+#: elflink.c:4178
msgid "Warning: alignment %u of symbol `%s' in %B is smaller than %u in %B"
msgstr "Aviso: la alineaci<63>n %u del s<>mbolo `%s' en %B es m<>s peque<75>a que %u en %B"
-#: elflink.c:4150
+#: elflink.c:4193
msgid "Warning: size of symbol `%s' changed from %lu in %B to %lu in %B"
msgstr "Aviso: el tama<6D>o del s<>mbolo `%s' cambi<62> de %lu en %B a %lu en %B"
-#: elflink.c:4326
+#: elflink.c:4371
#, c-format
msgid "%s: invalid DSO for symbol `%s' definition"
msgstr "%s: DSO inv<6E>lido para la definici<63>n del s<>mbolo `%s'"
-#: elflink.c:5552
+#: elflink.c:5621
#, c-format
msgid "%s: undefined version: %s"
msgstr "%s: versi<73>n sin definir: %s"
-#: elflink.c:5620
+#: elflink.c:5689
msgid "%B: .preinit_array section is not allowed in DSO"
msgstr "%B: no se permite la secci<63>n .preinit_array en DSO"
-#: elflink.c:7359
+#: elflink.c:7414
#, c-format
msgid "undefined %s reference in complex symbol: %s"
msgstr "referencia %s indefinida en el s<>mbolo complejo: %s"
-#: elflink.c:7514
+#: elflink.c:7568
#, c-format
msgid "unknown operator '%c' in complex symbol"
msgstr "operador desconocido '%c' en el s<>mbolo complejo"
-#: elflink.c:8053 elflink.c:8070 elflink.c:8107 elflink.c:8124
+#: elflink.c:7904 elflink.c:7921 elflink.c:7958 elflink.c:7975
msgid "%B: Unable to sort relocs - they are in more than one size"
msgstr "%B: No se pueden ordenar las reubicaciones - son de tama<6D>os diferentes"
-#: elflink.c:8084 elflink.c:8138
+#: elflink.c:7935 elflink.c:7989
msgid "%B: Unable to sort relocs - they are of an unknown size"
msgstr "%B: No se pueden ordenar las reubicaciones - son de tama<6D>o desconocido"
-#: elflink.c:8187
+#: elflink.c:8038
msgid "Not enough memory to sort relocations"
msgstr "No hay suficiente memoria para ordenar las reubicaciones"
-#: elflink.c:8374
+#: elflink.c:8227
msgid "%B: Too many sections: %d (>= %d)"
msgstr "%B: Demasiadas secciones: %d (>= %d)"
-#: elflink.c:8608
+#: elflink.c:8461
msgid "%B: %s symbol `%s' in %B is referenced by DSO"
msgstr "%B: el s<>mbolo %s `%s' en %B est<73> referenciado por DSO"
-#: elflink.c:8691
+#: elflink.c:8544
msgid "%B: could not find output section %A for input section %A"
msgstr "%B: no se puede encontrar la secci<63>n de salida %A para la secci<63>n de entrada %A"
-#: elflink.c:8788
+#: elflink.c:8655
msgid "%B: %s symbol `%s' isn't defined"
msgstr "%B: el s<>mbolo %s `%s' no est<73> definido"
-#: elflink.c:9284
+#: elflink.c:9141
msgid "error: %B contains a reloc (0x%s) for section %A that references a non-existent global symbol"
msgstr "error: %B contiene una reubicaci<63>n (0x%s) para la secci<63>n %A que refiere a un s<>mbolo global que no existe"
-#: elflink.c:9318
+#: elflink.c:9205
msgid "%X`%s' referenced in section `%A' of %B: defined in discarded section `%A' of %B\n"
msgstr "%X`%s' referido en la secci<63>n `%A' de %B: se defini<6E> en la secci<63>n descartada `%A' de %B\n"
-#: elflink.c:9936
+#: elflink.c:9825
msgid "%A has both ordered [`%A' in %B] and unordered [`%A' in %B] sections"
msgstr "%A tiene tanto secciones ordenadas [`%A' en %B] como desordenadas [`%A' en %B]"
-#: elflink.c:9941
+#: elflink.c:9830
#, c-format
msgid "%A has both ordered and unordered sections"
msgstr "%A tiene tanto secciones ordenadas como desordenadas"
-#: elflink.c:10828 elflink.c:10872
+#: elflink.c:10715 elflink.c:10759
msgid "%B: could not find output section %s"
msgstr "%B: no se puede encontrar la secci<63>n de salida %s"
-#: elflink.c:10833
+#: elflink.c:10720
#, c-format
msgid "warning: %s section has zero size"
msgstr "aviso: la secci<63>n %s es de tama<6D>o cero"
-#: elflink.c:10937
+#: elflink.c:10824
msgid "%P: warning: creating a DT_TEXTREL in a shared object.\n"
msgstr "%P: aviso: se crea un DT_TEXTREL en un objeto compartido.\n"
-#: elflink.c:11305
+#: elflink.c:11006
+msgid "%P%X: can not read symbols: %E\n"
+msgstr "%P%X: no se pueden leer s<>mbolos: %E\n"
+
+#: elflink.c:11313
msgid "Removing unused section '%s' in file '%B'"
msgstr "Se elimina la secci<63>n sin uso '%s' en el fichero '%B'"
-#: elflink.c:11496
+#: elflink.c:11525
msgid "Warning: gc-sections option ignored"
msgstr "Aviso: se descarta la opci<63>n gc-sections"
-#: elflink.c:11987
-msgid "%P%X: can not read symbols: %E\n"
-msgstr "%P%X: no se pueden leer s<>mbolos: %E\n"
-
-#: elflink.c:12129
+#: elflink.c:12056
msgid "%B: ignoring duplicate section `%A'"
msgstr "%B: se descarta la secci<63>n duplicada `%A'"
-#: elflink.c:12136 elflink.c:12143
+#: elflink.c:12063 elflink.c:12070
msgid "%B: duplicate section `%A' has different size"
msgstr "%B: la secci<63>n duplicada `%A' tiene tama<6D>o diferente"
-#: elflink.c:12151 elflink.c:12156
+#: elflink.c:12078 elflink.c:12083
msgid "%B: warning: could not read contents of section `%A'"
msgstr "%B: aviso: no se puede leer el contenido de la secci<63>n `%A'"
-#: elflink.c:12160
+#: elflink.c:12087
msgid "%B: warning: duplicate section `%A' has different contents"
msgstr "%B: aviso: la secci<63>n duplicada `%A' tiene contenido diferente"
-#: elflink.c:12239 linker.c:3081
+#: elflink.c:12166 linker.c:3080
msgid "%F%P: already_linked_table: %E"
msgstr "%F%P: already_linked_table: %E"
-#: elf-m10300.c:1532
-msgid "error: inappropriate relocation type for shared library (did you forget -fpic?)"
-msgstr "error: tipo de reubicaci<63>n inapropiada para la biblioteca compartida (<28>olvid<69> -fpic?)"
-
-#: elf-m10300.c:1535
-msgid "internal error: suspicious relocation type used in shared library"
-msgstr "error interno: se us<75> un tipo de reubicaci<63>n sospechosa en una biblioteca compartida"
-
-#: elfxx-mips.c:990
+#: elfxx-mips.c:1197
msgid "static procedure (no name)"
msgstr "procedimiento est<73>tico (sin nombre)"
-#: elfxx-mips.c:4663
+#: elfxx-mips.c:5562
msgid "%B: %A+0x%lx: jump to stub routine which is not jal"
msgstr "%B: %A+0x%lx: salto a una rutina cabo la cual no es jal"
-#: elfxx-mips.c:5326 elfxx-mips.c:5546
+#: elfxx-mips.c:6206 elfxx-mips.c:6427
msgid "%B: Warning: bad `%s' option size %u smaller than its header"
msgstr "%B: Aviso: el tama<6D>o de opci<63>n `%s' %u err<72>neo es m<>s peque<75>o que su encabezado"
-#: elfxx-mips.c:6405
+#: elfxx-mips.c:7174 elfxx-mips.c:7299
+msgid "%B: Warning: cannot determine the target function for stub section `%s'"
+msgstr "%B: Aviso: no se puede determinar la funci<63>n objetivo para la secci<63>n de cabo `%s'"
+
+#: elfxx-mips.c:7428
msgid "%B: Malformed reloc detected for section %s"
msgstr "%B: Se detect<63> una reubicaci<63>n malformada para la secci<63>n %s"
-#: elfxx-mips.c:6447
+#: elfxx-mips.c:7468
msgid "%B: GOT reloc at 0x%lx not expected in executables"
msgstr "%B: no se esperaba la reubicaci<63>n GOT en 0x%lx en ejecutables"
-#: elfxx-mips.c:6517
+#: elfxx-mips.c:7566
msgid "%B: CALL16 reloc at 0x%lx not against global symbol"
msgstr "%B: la reubicaci<63>n CALL16 en 0x%lx no es contra un s<>mbolo global"
-#: elfxx-mips.c:7880
+#: elfxx-mips.c:8244
+#, c-format
+msgid "non-dynamic relocations refer to dynamic symbol %s"
+msgstr "reubicaciones que no son din<69>micas se refieren al s<>mbolo din<69>mico %s"
+
+#: elfxx-mips.c:8947
msgid "%B: Can't find matching LO16 reloc against `%s' for %s at 0x%lx in section `%A'"
msgstr "%B: No se puede encontrar una reubicaci<63>n LO16 coincidente contra `%s' para %s en 0x%lx en la secci<63>n `%A'"
-#: elfxx-mips.c:8046
+#: elfxx-mips.c:9086
msgid "small-data section exceeds 64KB; lower small-data size limit (see option -G)"
msgstr "la secci<63>n small-data excede los 64KB; disminuya el l<>mite de tama<6D>o de small-data (vea la opci<63>n -G)"
-#: elfxx-mips.c:10661
+#: elfxx-mips.c:11887
#, c-format
msgid "%s: illegal section name `%s'"
msgstr "%s: nombre de secci<63>n `%s' ilegal"
-#: elfxx-mips.c:11031 elfxx-mips.c:11050
+#: elfxx-mips.c:12262 elfxx-mips.c:12288
msgid "Warning: %B uses -msingle-float, %B uses -mdouble-float"
msgstr "Aviso: %B usa -msingle-float, %B usa -mdouble-float"
-#: elfxx-mips.c:11106
+#: elfxx-mips.c:12274 elfxx-mips.c:12330
+msgid "Warning: %B uses -msingle-float, %B uses -mips32r2 -mfp64"
+msgstr "Aviso: %B usa -msingle-float, %B usa -mips32r2 -mfp64"
+
+#: elfxx-mips.c:12300 elfxx-mips.c:12336
+msgid "Warning: %B uses -mdouble-float, %B uses -mips32r2 -mfp64"
+msgstr "Aviso: %B usa -mdouble-float, %B usa -mips32r2 -mfp64"
+
+#: elfxx-mips.c:12378
msgid "%B: endianness incompatible with that of the selected emulation"
msgstr "%B: la endianez es incompatible con aquella de la emulaci<63>n seleccionada"
-#: elfxx-mips.c:11118
+#: elfxx-mips.c:12389
msgid "%B: ABI is incompatible with that of the selected emulation"
msgstr "%B: la ABI es incompatible con aquella de la emulaci<63>n seleccionada"
-#: elfxx-mips.c:11218
+#: elfxx-mips.c:12470
+msgid "%B: warning: linking abicalls files with non-abicalls files"
+msgstr "%B: aviso: se enlazan ficheros de llamadas abi con ficheros que no son de llamadas abi"
+
+#: elfxx-mips.c:12487
msgid "%B: linking 32-bit code with 64-bit code"
msgstr "%B: se enlaza c<>digo de 32-bit con c<>digo de 64-bit"
-#: elfxx-mips.c:11246
+#: elfxx-mips.c:12515
msgid "%B: linking %s module with previous %s modules"
msgstr "%B: se enlaza el m<>dulo %s con m<>dulos %s previos"
-#: elfxx-mips.c:11269
+#: elfxx-mips.c:12538
msgid "%B: ABI mismatch: linking %s module with previous %s modules"
msgstr "%B: no coincide el ABI: se enlaza el m<>dulo %s con m<>dulos %s previos"
-#: elfxx-mips.c:11334
+#: elfxx-mips.c:12702
#, c-format
msgid " [abi=O32]"
msgstr " [abi=O32]"
-#: elfxx-mips.c:11336
+#: elfxx-mips.c:12704
#, c-format
msgid " [abi=O64]"
msgstr " [abi=O64]"
-#: elfxx-mips.c:11338
+#: elfxx-mips.c:12706
#, c-format
msgid " [abi=EABI32]"
msgstr " [abi=EABI32]"
-#: elfxx-mips.c:11340
+#: elfxx-mips.c:12708
#, c-format
msgid " [abi=EABI64]"
msgstr " [abi=EABI64]"
-#: elfxx-mips.c:11342
+#: elfxx-mips.c:12710
#, c-format
msgid " [abi unknown]"
msgstr " [abi desconocido]"
-#: elfxx-mips.c:11344
+#: elfxx-mips.c:12712
#, c-format
msgid " [abi=N32]"
msgstr " [abi=N32]"
-#: elfxx-mips.c:11346
+#: elfxx-mips.c:12714
#, c-format
msgid " [abi=64]"
msgstr " [abi=64]"
-#: elfxx-mips.c:11348
+#: elfxx-mips.c:12716
#, c-format
msgid " [no abi set]"
msgstr " [no hay conjunto abi]"
-#: elfxx-mips.c:11369
+#: elfxx-mips.c:12737
#, c-format
msgid " [unknown ISA]"
msgstr " [ISA desconocido]"
-#: elfxx-mips.c:11380
+#: elfxx-mips.c:12748
#, c-format
msgid " [not 32bitmode]"
msgstr " [no es modo 32bit]"
-#: elfxx-sparc.c:430
+#: elfxx-sparc.c:440
#, c-format
msgid "invalid relocation type %d"
msgstr "tipo de reubicaci<63>n %d inv<6E>lido"
-#: elfxx-sparc.c:2901
+#: elfxx-sparc.c:2976
msgid "%B: probably compiled without -fPIC?"
msgstr "%B: <20>Compilado probablemente sin -fPIC?"
@@ -2720,34 +2838,34 @@ msgstr "%B: longitud de secci
msgid "%s: address 0x%s out of range for Intel Hex file"
msgstr "%s: la direcci<63>n 0x%s est<73> fuera de rango en el fichero Hexadecimal de Intel"
-#: libbfd.c:980
+#: libbfd.c:1008
#, c-format
msgid "Deprecated %s called at %s line %d in %s\n"
msgstr "Se llam<61> a %s que es obsoleto en %s l<>nea %d en %s\n"
-#: libbfd.c:983
+#: libbfd.c:1011
#, c-format
msgid "Deprecated %s called\n"
msgstr "Se llam<61> a %s que es obsoleto\n"
-#: linker.c:1875
+#: linker.c:1874
msgid "%B: indirect symbol `%s' to `%s' is a loop"
msgstr "%B: el s<>mbolo indirecto `%s' para `%s' es un ciclo"
-#: linker.c:2741
+#: linker.c:2740
#, c-format
msgid "Attempt to do relocatable link with %s input and %s output"
msgstr "Se intent<6E> hacer un enlace reubicable con entrada %s y salida %s"
-#: linker.c:3048
+#: linker.c:3047
msgid "%B: warning: ignoring duplicate section `%A'\n"
msgstr "%B: aviso: se descarta la secci<63>n duplicada `%A'\n"
-#: linker.c:3062
+#: linker.c:3061
msgid "%B: warning: duplicate section `%A' has different size\n"
msgstr "%B: aviso: la secci<63>n duplicada `%A' es de tama<6D>o diferente\n"
-#: merge.c:820
+#: merge.c:828
#, c-format
msgid "%s: access beyond end of merged section (%ld)"
msgstr "%s: acceso m<>s all<6C> del final de la secci<63>n mezclada (%ld)"
@@ -2887,6 +3005,26 @@ msgstr "%s: no se puede representar la secci
msgid "Unhandled OSF/1 core file section type %d\n"
msgstr "Tipo de secci<63>n de fichero n<>cleo OSF/1 %d sin manejar\n"
+#: pe-mips.c:607
+msgid "%B: `ld -r' not supported with PE MIPS objects\n"
+msgstr "%B: `ld -r' no se admite con objetos PE MIPS\n"
+
+#. OK, at this point the following variables are set up:
+#. src = VMA of the memory we're fixing up
+#. mem = pointer to memory we're fixing up
+#. val = VMA of what we need to refer to.
+#: pe-mips.c:723
+msgid "%B: unimplemented %s\n"
+msgstr "%B: %s sin implementar\n"
+
+#: pe-mips.c:749
+msgid "%B: jump too far away\n"
+msgstr "%B: salto demasiado lejos\n"
+
+#: pe-mips.c:775
+msgid "%B: bad pair/reflo after refhi\n"
+msgstr "%B: pair/reflo err<72>neo despu<70>s de refhi\n"
+
#. XXX code yet to be written.
#: peicode.h:759
msgid "%B: Unhandled import type; %x"
@@ -2916,26 +3054,6 @@ msgstr "%B: el tama
msgid "%B: string not null terminated in ILF object file."
msgstr "%B: cadena no terminada en null en el fichero objeto ILF."
-#: pe-mips.c:606
-msgid "%B: `ld -r' not supported with PE MIPS objects\n"
-msgstr "%B: `ld -r' no se admite con objetos PE MIPS\n"
-
-#. OK, at this point the following variables are set up:
-#. src = VMA of the memory we're fixing up
-#. mem = pointer to memory we're fixing up
-#. val = VMA of what we need to refer to.
-#: pe-mips.c:722
-msgid "%B: unimplemented %s\n"
-msgstr "%B: %s sin implementar\n"
-
-#: pe-mips.c:748
-msgid "%B: jump too far away\n"
-msgstr "%B: salto demasiado lejos\n"
-
-#: pe-mips.c:774
-msgid "%B: bad pair/reflo after refhi\n"
-msgstr "%B: pair/reflo err<72>neo despu<70>s de refhi\n"
-
#: ppcboot.c:414
#, c-format
msgid ""
@@ -2950,22 +3068,22 @@ msgstr ""
msgid "Entry offset = 0x%.8lx (%ld)\n"
msgstr "Desplazamiento de entrada = 0x%.8lx (%ld)\n"
-#: ppcboot.c:416
+#: ppcboot.c:417
#, c-format
msgid "Length = 0x%.8lx (%ld)\n"
msgstr "Longitud = 0x%.8lx (%ld)\n"
-#: ppcboot.c:419
+#: ppcboot.c:421
#, c-format
msgid "Flag field = 0x%.2x\n"
msgstr "Campo de opciones = 0x%.2x\n"
-#: ppcboot.c:425
+#: ppcboot.c:427
#, c-format
msgid "Partition name = \"%s\"\n"
msgstr "Nombre de la partici<63>n = \"%s\"\n"
-#: ppcboot.c:444
+#: ppcboot.c:446
#, c-format
msgid ""
"\n"
@@ -2974,22 +3092,22 @@ msgstr ""
"\n"
"Partici<63>n[%d] inicio = { 0x%.2x, 0x%.2x, 0x%.2x, 0x%.2x }\n"
-#: ppcboot.c:450
+#: ppcboot.c:452
#, c-format
msgid "Partition[%d] end = { 0x%.2x, 0x%.2x, 0x%.2x, 0x%.2x }\n"
msgstr "Partici<63>n[%d] fin = { 0x%.2x, 0x%.2x, 0x%.2x, 0x%.2x }\n"
-#: ppcboot.c:456
+#: ppcboot.c:458
#, c-format
msgid "Partition[%d] sector = 0x%.8lx (%ld)\n"
msgstr "Partici<63>n[%d] sector = 0x%.8lx (%ld)\n"
-#: ppcboot.c:457
+#: ppcboot.c:460
#, c-format
msgid "Partition[%d] length = 0x%.8lx (%ld)\n"
msgstr "Partici<63>n[%d] longitud = 0x%.8lx (%ld)\n"
-#: som.c:5088
+#: som.c:5137
#, c-format
msgid ""
"\n"
@@ -2998,7 +3116,7 @@ msgstr ""
"\n"
"Encabezado Auxiliar de Ejecuci<63>n\n"
-#: som.c:5349
+#: som.c:5440
msgid "som_sizeof_headers unimplemented"
msgstr "som_sizeof_headers sin implementar"
@@ -3006,11 +3124,15 @@ msgstr "som_sizeof_headers sin implementar"
msgid "%B:%d: Unexpected character `%s' in S-record file\n"
msgstr "%B:%d: Caract<63>r `%s' inesperado en el fichero S-record\n"
+#: srec.c:567 srec.c:600
+msgid "%B:%d: Bad checksum in S-record file\n"
+msgstr "%B:%d: Suma de comprobaci<63>n err<72>nea en el fichero S-record\n"
+
#: stabs.c:279
msgid "%B(%A+0x%lx): Stabs entry has invalid string index."
msgstr "%B(%A+0x%lx): La entrada de cabos tiene una cadena <20>ndice inv<6E>lida."
-#: syms.c:1057
+#: syms.c:1067
msgid "Unsupported .stab relocation"
msgstr "No se admite la reubicaci<63>n .stab"
@@ -3047,20 +3169,20 @@ msgstr "Desbordamiento de la pila (%d) en _bfd_vms_push"
msgid "Stack underflow in _bfd_vms_pop"
msgstr "Desbordamiento por debajo de la pila en _bfd_vms_pop"
-#: vms-misc.c:803
+#: vms-misc.c:808
msgid "_bfd_vms_output_counted called with zero bytes"
msgstr "se llam<61> _bfd_vms_output_counted con cero bytes"
-#: vms-misc.c:808
+#: vms-misc.c:813
msgid "_bfd_vms_output_counted called with too many bytes"
msgstr "se llam<61> _bfd_vms_output_counted con demasiados bytes"
-#: vms-misc.c:926
+#: vms-misc.c:931
#, c-format
msgid "Symbol %s replaced by %s\n"
msgstr "El s<>mbolo %s fue reemplazado por %s\n"
-#: vms-misc.c:985
+#: vms-misc.c:990
#, c-format
msgid "failed to enter %s"
msgstr "fall<6C> la introducci<63>n de %s"
@@ -3256,73 +3378,77 @@ msgstr "%s: reubicaci
msgid "%s: `%s' in loader reloc but not loader sym"
msgstr "%s: `%s' en la reubicaci<63>n del cargador pero no es un s<>mbolo del cargador"
-#: elf32-ia64.c:1169 elf64-ia64.c:1169
+#: elf32-ia64.c:1037 elf64-ia64.c:1037
msgid "%B: Can't relax br at 0x%lx in section `%A'. Please use brl or indirect branch."
msgstr "%B: No se puede relajar br en 0x%lx en la secci<63>n `%A'. Por favor use brl o ramificaci<63>n indirecta."
-#: elf32-ia64.c:2910 elf64-ia64.c:2910
+#: elf32-ia64.c:2742 elf64-ia64.c:2742
msgid "@pltoff reloc against local symbol"
msgstr "reubicaci<63>n @pltoff contra un s<>mbolo local"
-#: elf32-ia64.c:4523 elf64-ia64.c:4523
+#: elf32-ia64.c:4317 elf64-ia64.c:4317
#, c-format
msgid "%s: short data segment overflowed (0x%lx >= 0x400000)"
msgstr "%s: segmento de datos short desbordado (0x%lx >= 0x400000)"
-#: elf32-ia64.c:4534 elf64-ia64.c:4534
+#: elf32-ia64.c:4328 elf64-ia64.c:4328
#, c-format
msgid "%s: __gp does not cover short data segment"
msgstr "%s: __gp no cubre el segmento de datos short"
-#: elf32-ia64.c:4808 elf64-ia64.c:4808
+#: elf32-ia64.c:4598 elf64-ia64.c:4598
msgid "%B: non-pic code with imm relocation against dynamic symbol `%s'"
msgstr "%B: c<>digo que no es pic con reubicaci<63>n imm contra el s<>mbolo din<69>mico %s"
-#: elf32-ia64.c:4875 elf64-ia64.c:4875
+#: elf32-ia64.c:4665 elf64-ia64.c:4665
msgid "%B: @gprel relocation against dynamic symbol %s"
msgstr "%B: reubicaci<63>n @gprel contra el s<>mbolo din<69>mico %s"
-#: elf32-ia64.c:4938 elf64-ia64.c:4938
+#: elf32-ia64.c:4728 elf64-ia64.c:4728
msgid "%B: linking non-pic code in a position independent executable"
msgstr "%B: se enlaza c<>digo que no es pic en un ejecutable independiente de posici<63>n"
-#: elf32-ia64.c:5075 elf64-ia64.c:5075
+#: elf32-ia64.c:4865 elf64-ia64.c:4865
msgid "%B: @internal branch to dynamic symbol %s"
msgstr "%B: ramificaci<63>n @internal al s<>mbolo din<69>mico %s"
-#: elf32-ia64.c:5077 elf64-ia64.c:5077
+#: elf32-ia64.c:4867 elf64-ia64.c:4867
msgid "%B: speculation fixup to dynamic symbol %s"
msgstr "%B: compostura de especulaci<63>n al s<>mbolo din<69>mico %s"
-#: elf32-ia64.c:5079 elf64-ia64.c:5079
+#: elf32-ia64.c:4869 elf64-ia64.c:4869
msgid "%B: @pcrel relocation against dynamic symbol %s"
msgstr "%B: reubicaci<63>n @pcrel contra el s<>mbolo din<69>mico %s"
-#: elf32-ia64.c:5279 elf64-ia64.c:5279
+#: elf32-ia64.c:5066 elf64-ia64.c:5066
msgid "unsupported reloc"
msgstr "no se admite la reubicaci<63>n"
-#: elf32-ia64.c:5312 elf64-ia64.c:5312
+#: elf32-ia64.c:5104 elf64-ia64.c:5104
+msgid "%B: missing TLS section for relocation %s against `%s' at 0x%lx in section `%A'."
+msgstr "%B: falta la secci<63>n TLS para la reubicaci<63>n %s contra `%s' en 0x%lx en la secci<63>n `%A'."
+
+#: elf32-ia64.c:5119 elf64-ia64.c:5119
msgid "%B: Can't relax br (%s) to `%s' at 0x%lx in section `%A' with size 0x%lx (> 0x1000000)."
msgstr "%B: No se puede relajar br (%s) a `%s' en 0x%lx en la secci<63>n `%A' con tama<6D>o 0x%lx (> 0x1000000)."
-#: elf32-ia64.c:5573 elf64-ia64.c:5573
+#: elf32-ia64.c:5375 elf64-ia64.c:5375
msgid "%B: linking trap-on-NULL-dereference with non-trapping files"
msgstr "%B: se enlaza deferencias-captura-en-NULL con ficheros que no son de captura"
-#: elf32-ia64.c:5582 elf64-ia64.c:5582
+#: elf32-ia64.c:5384 elf64-ia64.c:5384
msgid "%B: linking big-endian files with little-endian files"
msgstr "%B: se enlazan ficheros big-endian con ficheros little-endian"
-#: elf32-ia64.c:5591 elf64-ia64.c:5591
+#: elf32-ia64.c:5393 elf64-ia64.c:5393
msgid "%B: linking 64-bit files with 32-bit files"
msgstr "%B: se enlazan ficheros de 64-bit con ficheros de 32-bit"
-#: elf32-ia64.c:5600 elf64-ia64.c:5600
+#: elf32-ia64.c:5402 elf64-ia64.c:5402
msgid "%B: linking constant-gp files with non-constant-gp files"
msgstr "%B: se enlazan ficheros de gp constante con ficheros con gp no constante"
-#: elf32-ia64.c:5610 elf64-ia64.c:5610
+#: elf32-ia64.c:5412 elf64-ia64.c:5412
msgid "%B: linking auto-pic files with non-auto-pic files"
msgstr "%B: se enlazan ficheros de pic autom<6F>tico con ficheros sin pic autom<6F>tico"
@@ -3602,12 +3728,14 @@ msgstr ""
"\n"
"Tabla [Puntero a Ordinal/Nombre]\n"
-#: peigen.c:1610 pepigen.c:1610 pex64igen.c:1610
+#: peigen.c:1617 peigen.c:1796 pepigen.c:1617 pepigen.c:1796 pex64igen.c:1617
+#: pex64igen.c:1796
#, c-format
msgid "Warning, .pdata section size (%ld) is not a multiple of %d\n"
msgstr "Aviso, el tama<6D>o de la secci<63>n .pdata (%ld) no es un m<>ltiplo de %d\n"
-#: peigen.c:1614 pepigen.c:1614 pex64igen.c:1614
+#: peigen.c:1621 peigen.c:1800 pepigen.c:1621 pepigen.c:1800 pex64igen.c:1621
+#: pex64igen.c:1800
#, c-format
msgid ""
"\n"
@@ -3616,12 +3744,12 @@ msgstr ""
"\n"
"La Tabla de Funciones (se interpretaron los contenidos de la secci<63>n .pdata)\n"
-#: peigen.c:1617 pepigen.c:1617 pex64igen.c:1617
+#: peigen.c:1624 pepigen.c:1624 pex64igen.c:1624
#, c-format
msgid " vma:\t\t\tBegin Address End Address Unwind Info\n"
msgstr " vma:\t\t\tDirecci<63>n Inicio Direcci<63>n Fin Informaci<63>n Desenvuelta\n"
-#: peigen.c:1619 pepigen.c:1619 pex64igen.c:1619
+#: peigen.c:1626 pepigen.c:1626 pex64igen.c:1626
#, c-format
msgid ""
" vma:\t\tBegin End EH EH PrologEnd Exception\n"
@@ -3630,22 +3758,31 @@ msgstr ""
" vma:\t\tInicio Fin EH EH FinPr<50>logo Excepci<63>n\n"
" \t\tDirecc Direcc Asa Datos Direcci<63>n M<>scara\n"
-#: peigen.c:1689 pepigen.c:1689 pex64igen.c:1689
+#: peigen.c:1696 pepigen.c:1696 pex64igen.c:1696
#, c-format
msgid " Register save millicode"
msgstr " Registro para guardar milic<69>digo"
-#: peigen.c:1692 pepigen.c:1692 pex64igen.c:1692
+#: peigen.c:1699 pepigen.c:1699 pex64igen.c:1699
#, c-format
msgid " Register restore millicode"
msgstr " Registro para restaurar milic<69>digo"
-#: peigen.c:1695 pepigen.c:1695 pex64igen.c:1695
+#: peigen.c:1702 pepigen.c:1702 pex64igen.c:1702
#, c-format
msgid " Glue code sequence"
msgstr " Secuencia de c<>digo pegamento"
-#: peigen.c:1745 pepigen.c:1745 pex64igen.c:1745
+#: peigen.c:1802 pepigen.c:1802 pex64igen.c:1802
+#, c-format
+msgid ""
+" vma:\t\tBegin Prolog Function Flags Exception EH\n"
+" \t\tAddress Length Length 32b exc Handler Data\n"
+msgstr ""
+" vma:\t\tInicio Pr<50>logo Funci<63>n Opciones Excepci<63>n EH\n"
+" \t\tDirecc Longitud Longitud 32b exc Manejador Datos\n"
+
+#: peigen.c:1933 pepigen.c:1933 pex64igen.c:1933
#, c-format
msgid ""
"\n"
@@ -3656,7 +3793,7 @@ msgstr ""
"\n"
"Reubicaciones de Fichero Base PE (se interpretaron los contenidos de la secci<63>n .reloc)\n"
-#: peigen.c:1775 pepigen.c:1775 pex64igen.c:1775
+#: peigen.c:1963 pepigen.c:1963 pex64igen.c:1963
#, c-format
msgid ""
"\n"
@@ -3665,7 +3802,7 @@ msgstr ""
"\n"
"Direcci<63>n Virtual: %08lx Tama<6D>o del trozo %ld (0x%lx) N<>mero de composturas %ld\n"
-#: peigen.c:1788 pepigen.c:1788 pex64igen.c:1788
+#: peigen.c:1976 pepigen.c:1976 pex64igen.c:1976
#, c-format
msgid "\treloc %4d offset %4x [%4lx] %s"
msgstr "\treubicaci<63>n %4d desplazamiento %4x [%4lx] %s"
@@ -3673,7 +3810,7 @@ msgstr "\treubicaci
#. The MS dumpbin program reportedly ands with 0xff0f before
#. printing the characteristics field. Not sure why. No reason to
#. emulate it here.
-#: peigen.c:1827 pepigen.c:1827 pex64igen.c:1827
+#: peigen.c:2015 pepigen.c:2015 pex64igen.c:2015
#, c-format
msgid ""
"\n"
@@ -3682,26 +3819,47 @@ msgstr ""
"\n"
"Caracter<65>sticas 0x%x\n"
-#: peigen.c:2088 pepigen.c:2088 pex64igen.c:2088
+#: peigen.c:2289 pepigen.c:2289 pex64igen.c:2289
msgid "%B: unable to fill in DataDictionary[1] because .idata$2 is missing"
msgstr "%B: no se puede llenar DataDictionary[1] porque falta .idata$2"
-#: peigen.c:2106 pepigen.c:2106 pex64igen.c:2106
+#: peigen.c:2307 pepigen.c:2307 pex64igen.c:2307
msgid "%B: unable to fill in DataDictionary[1] because .idata$4 is missing"
msgstr "%B: no se puede llenar DataDictionary[1] porque falta .idata$4"
-#: peigen.c:2125 pepigen.c:2125 pex64igen.c:2125
+#: peigen.c:2326 pepigen.c:2326 pex64igen.c:2326
msgid "%B: unable to fill in DataDictionary[12] because .idata$5 is missing"
msgstr "%B: no se puede llenar DataDictionary[12] porque falta .idata$5"
-#: peigen.c:2143 pepigen.c:2143 pex64igen.c:2143
+#: peigen.c:2344 pepigen.c:2344 pex64igen.c:2344
msgid "%B: unable to fill in DataDictionary[PE_IMPORT_ADDRESS_TABLE (12)] because .idata$6 is missing"
msgstr "%B: no se puede llenar DataDictionary[PE_IMPORT_ADDRESS_TABLE (12)] porque falta .idata$6"
-#: peigen.c:2163 pepigen.c:2163 pex64igen.c:2163
+#: peigen.c:2364 pepigen.c:2364 pex64igen.c:2364
msgid "%B: unable to fill in DataDictionary[9] because __tls_used is missing"
msgstr "%B: no se puede llenar DataDictionary[9] porque falta __tls_used"
+#~ msgid "Dwarf Error: DW_FORM_strp offset (%lu) greater than or equal to .debug_str size (%lu)."
+#~ msgstr "Error de Dwarf: El desplazamiento DW_FROM_strp (%lu) es m<>s grande o igual que el tama<6D>o de .debug_str (%lu)."
+
+#~ msgid "Dwarf Error: Can't find .debug_abbrev section."
+#~ msgstr "Error de Dwarf: No se puede encontrar la secci<63>n .debug_abbrev."
+
+#~ msgid "Dwarf Error: Abbrev offset (%lu) greater than or equal to .debug_abbrev size (%lu)."
+#~ msgstr "Error de Dwarf: El desplazamiento de abreviatura (%lu) es m<>s grande o igual que el tama<6D>o de .debug_abbrev (%lu)."
+
+#~ msgid "Dwarf Error: Can't find .debug_line section."
+#~ msgstr "Error de Dwarf: No se puede encontrar lan secci<63>n .debug_line."
+
+#~ msgid "Dwarf Error: Can't find .debug_ranges section."
+#~ msgstr "Error de Dwarf: No se puede encontrar lan secci<63>n .debug_ranges."
+
+#~ msgid "ERROR: %B: Conflicting definitions of wchar_t"
+#~ msgstr "ERROR: %B: Definiciones en conflicto de wchar_t"
+
+#~ msgid "%B: relocation R_X86_64_PC32 against protected function `%s' can not be used when making a shared object"
+#~ msgstr "%B: no se puede usar la reubicaci<63>n R_X86_64_PC32 contra la funci<63>n protegida `%' cuando se hace un objeto compartido"
+
#~ msgid "ERROR: %B: Conflicting enum sizes"
#~ msgstr "ERROR: %B: Tama<6D>os de enum en conflicto"
@@ -3846,9 +4004,6 @@ msgstr "%B: no se puede llenar DataDictionary[9] porque falta __tls_used"
#~ msgid "local symbols in discarded section %s"
#~ msgstr "s<>mbolos locales en la secci<63>n descartada %s"
-#~ msgid "%s: linking abicalls files with non-abicalls files"
-#~ msgstr "%s: se enlazan ficheros de llamadas abi con ficheros que no son de llamadas abi"
-
#~ msgid "%s: ISA mismatch (-mips%d) with previous modules (-mips%d)"
#~ msgstr "%s: no coincide el ISA (-mips%d) con m<>dulos previos (-mips%d)"
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/Makefile.in b/gdb/Makefile.in
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
index 74aa72e..c84a4ac 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/Makefile.in
+++ b/gdb/Makefile.in
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -167,11 +167,20 @@ INTL_CFLAGS = @INCINTL@
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
# Where is the ICONV library? This can be empty if libc has iconv.
LIBICONV = @LIBICONV@
+LIBICONV_INCLUDE = @LIBICONV_INCLUDE@
+LIBICONV_LIBDIR = @LIBICONV_LIBDIR@
# Did the user give us a --with-sysroot option?
TARGET_SYSTEM_ROOT = @TARGET_SYSTEM_ROOT@
TARGET_SYSTEM_ROOT_DEFINE = @TARGET_SYSTEM_ROOT_DEFINE@
+# Did the user give us a --with-gdb-datadir option?
+GDB_DATADIR_PATH = @GDB_DATADIR_PATH@
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+# The argument to --with-pythondir. If not given, this is
+# GDB_DATADIR_PATH/python.
+pythondir = @pythondir@
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
# Helper code from gnulib.
LIBGNU = gnulib/libgnu.a
INCGNU = -I$(srcdir)/gnulib -Ignulib
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -270,12 +279,34 @@ SUBDIR_TUI_CFLAGS= \
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
#
SUBDIR_PYTHON_OBS = \
python.o \
+ python-block.o \
+ python-breakpoint.o \
python-cmd.o \
+ python-frame.o \
+ python-function.o \
+ python-hooks.o \
+ python-membuf.o \
+ python-objfile.o \
+ python-param.o \
+ python-symbol.o \
+ python-symtab.o \
+ python-type.o \
python-utils.o \
python-value.o
SUBDIR_PYTHON_SRCS = \
python/python.c \
+ python/python-block.c \
+ python/python-breakpoint.c \
python/python-cmd.c \
+ python/python-frame.c \
+ python/python-function.c \
+ python/python-hooks.c \
+ python/python-membuf.c \
+ python/python-objfile.c \
+ python/python-param.c \
+ python/python-symbol.c \
+ python/python-symtab.c \
+ python/python-type.c \
python/python-utils.c \
python/python-value.c
SUBDIR_PYTHON_DEPS =
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -390,7 +421,8 @@ INTERNAL_CFLAGS_BASE = \
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
$(CFLAGS) $(GLOBAL_CFLAGS) $(PROFILE_CFLAGS) \
$(GDB_CFLAGS) $(OPCODES_CFLAGS) $(READLINE_CFLAGS) \
$(BFD_CFLAGS) $(INCLUDE_CFLAGS) $(LIBDECNUMBER_CFLAGS) \
- $(INTL_CFLAGS) $(INCGNU) $(ENABLE_CFLAGS) $(INTERNAL_CPPFLAGS)
+ $(INTL_CFLAGS) $(INCGNU) $(ENABLE_CFLAGS) $(INTERNAL_CPPFLAGS) \
+ $(LIBICONV_INCLUDE)
INTERNAL_WARN_CFLAGS = $(INTERNAL_CFLAGS_BASE) $(GDB_WARN_CFLAGS)
INTERNAL_CFLAGS = $(INTERNAL_WARN_CFLAGS) $(GDB_WERROR_CFLAGS)
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -402,7 +434,7 @@ LDFLAGS = @LDFLAGS@
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
# I think it's perfectly reasonable for a user to set -pg in CFLAGS
# and have it work; that's why CFLAGS is here.
# PROFILE_CFLAGS is _not_ included, however, because we use monstartup.
-INTERNAL_LDFLAGS = $(CFLAGS) $(GLOBAL_CFLAGS) $(MH_LDFLAGS) $(LDFLAGS) $(CONFIG_LDFLAGS)
+INTERNAL_LDFLAGS = $(CFLAGS) $(GLOBAL_CFLAGS) $(MH_LDFLAGS) $(LDFLAGS) $(CONFIG_LDFLAGS) $(LIBICONV_LIBDIR)
# If your system is missing alloca(), or, more likely, it's there but
# it doesn't work, then refer to libiberty.
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -663,6 +695,7 @@ SFILES = ada-exp.y ada-lang.c ada-typeprint.c ada-valprint.c ada-tasks.c \
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
valarith.c valops.c valprint.c value.c varobj.c vec.c \
wrapper.c \
xml-tdesc.c xml-support.c \
+ xml-syscall.c \
inferior.c
LINTFILES = $(SFILES) $(YYFILES) $(CONFIG_SRCS) init.c
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -733,7 +766,8 @@ config/sparc/nm-sol2.h config/nm-linux.h config/mips/nm-irix5.h \
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
config/rs6000/nm-rs6000.h top.h bsd-kvm.h gdb-stabs.h reggroups.h \
annotate.h sim-regno.h dictionary.h dfp.h main.h frame-unwind.h \
remote-fileio.h i386-linux-tdep.h vax-tdep.h objc-lang.h \
-sentinel-frame.h bcache.h symfile.h windows-tdep.h linux-tdep.h
+sentinel-frame.h bcache.h symfile.h windows-tdep.h linux-tdep.h xml-syscall.h \
+python/python.h python/python-internal.h
# Header files that already have srcdir in them, or which are in objdir.
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -812,10 +846,16 @@ COMMON_OBS = $(DEPFILES) $(CONFIG_OBS) $(YYOBJ) \
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
trad-frame.o \
tramp-frame.o \
solib.o solib-null.o \
- prologue-value.o memory-map.o xml-support.o \
+ prologue-value.o memory-map.o xml-support.o xml-syscall.o \
target-descriptions.o target-memory.o xml-tdesc.o xml-builtin.o \
inferior.o osdata.o
+# Definitions for the syscall's XML files and dir
+XML_SYSCALLS_DIR = syscalls/
+XML_SYSCALLS_FILES = gdb-syscalls.dtd \
+ ppc-linux.xml ppc64-linux.xml \
+ i386-linux.xml amd64-linux.xml
+
TSOBS = inflow.o
SUBDIRS = @subdirs@
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -849,11 +889,38 @@ generated_files = config.h observer.h observer.inc ada-lex.c \
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
$(COMPILE) $<
$(POSTCOMPILE)
-all: gdb$(EXEEXT) $(CONFIG_ALL)
+all: gdb$(EXEEXT) $(CONFIG_ALL) .gdbinit xml-syscall-copy
@$(MAKE) $(FLAGS_TO_PASS) DO=all "DODIRS=`echo $(SUBDIRS) | sed 's/testsuite//'`" subdir_do
.PHONY: all-tui
all-tui: $(TUI)$(EXEEXT)
+xml-syscall-copy:
+ if [ "`cd $(srcdir) && pwd`" != "`pwd`" ] ; then \
+ mkdir -p ./$(XML_SYSCALLS_DIR) ; \
+ list='$(XML_SYSCALLS_FILES)' ; \
+ for file in $$list ; do \
+ f=$(srcdir)/$(XML_SYSCALLS_DIR)/$$file ; \
+ if test -f $$f ; then \
+ $(INSTALL_DATA) $$f \
+ ./$(XML_SYSCALLS_DIR) ; \
+ fi ; \
+ done ; \
+ fi ;
+
+# This target is responsible for properly installing the syscalls'
+# XML files in the system.
+xml-syscall-install:
+ $(SHELL) $(srcdir)/../mkinstalldirs \
+ $(DESTDIR)$(GDB_DATADIR_PATH)/$(XML_SYSCALLS_DIR) ; \
+ list='$(XML_SYSCALLS_FILES)' ; \
+ for file in $$list ; do \
+ f=$(srcdir)/$(XML_SYSCALLS_DIR)/$$file ; \
+ if test -f $$f ; then \
+ $(INSTALL_DATA) $$f \
+ $(DESTDIR)$(GDB_DATADIR_PATH)/$(XML_SYSCALLS_DIR) ; \
+ fi ; \
+ done ;
+
installcheck:
# The check target can not use subdir_do, because subdir_do does not
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -907,8 +974,11 @@ gdb.z:gdb.1
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
# source file and doesn't care about rebuilding or just wants to save the
# time it takes for make to check that all is up to date.
# install-only is intended to address that need.
-install: all install-only
-install-only: $(CONFIG_INSTALL)
+install: all install-only
+
+# The "install-only" target also installs the syscalls' XML files in
+# the system.
+install-only: $(CONFIG_INSTALL) xml-syscall-install
transformed_name=`t='$(program_transform_name)'; \
echo gdb | sed -e "$$t"` ; \
if test "x$$transformed_name" = x; then \
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1202,6 +1272,12 @@ stamp-h: config.in config.status
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
CONFIG_LINKS= \
$(SHELL) config.status
+.gdbinit: gdbinit.in config.status
+ CONFIG_FILES=".gdbinit:gdbinit.in" \
+ CONFIG_COMMANDS= \
+ CONFIG_HEADERS= \
+ $(SHELL) config.status
+
config.status: configure configure.tgt configure.host
$(SHELL) config.status --recheck
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1845,10 +1921,54 @@ python.o: $(srcdir)/python/python.c
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
$(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python.c
$(POSTCOMPILE)
+python-block.o: $(srcdir)/python/python-block.c
+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-block.c
+ $(POSTCOMPILE)
+
+python-breakpoint.o: $(srcdir)/python/python-breakpoint.c
+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-breakpoint.c
+ $(POSTCOMPILE)
+
python-cmd.o: $(srcdir)/python/python-cmd.c
$(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-cmd.c
$(POSTCOMPILE)
+python-frame.o: $(srcdir)/python/python-frame.c
+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-frame.c
+ $(POSTCOMPILE)
+
+python-function.o: $(srcdir)/python/python-function.c
+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-function.c
+ $(POSTCOMPILE)
+
+python-hooks.o: $(srcdir)/python/python-hooks.c
+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-hooks.c
+ $(POSTCOMPILE)
+
+python-membuf.o: $(srcdir)/python/python-membuf.c
+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-membuf.c
+ $(POSTCOMPILE)
+
+python-objfile.o: $(srcdir)/python/python-objfile.c
+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-objfile.c
+ $(POSTCOMPILE)
+
+python-param.o: $(srcdir)/python/python-param.c
+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-param.c
+ $(POSTCOMPILE)
+
+python-symbol.o: $(srcdir)/python/python-symbol.c
+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-symbol.c
+ $(POSTCOMPILE)
+
+python-symtab.o: $(srcdir)/python/python-symtab.c
+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-symtab.c
+ $(POSTCOMPILE)
+
+python-type.o: $(srcdir)/python/python-type.c
+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-type.c
+ $(POSTCOMPILE)
+
python-utils.o: $(srcdir)/python/python-utils.c
$(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-utils.c
$(POSTCOMPILE)
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1857,6 +1977,38 @@ python-value.o: $(srcdir)/python/python-value.c
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
$(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-value.c
$(POSTCOMPILE)
+# All python library files, with the "python/lib" stripped off.
+# Note that we should only install files in the "gdb" module.
+PY_FILES = gdb/FrameIterator.py gdb/command/alias.py \
+ gdb/command/backtrace.py gdb/command/require.py \
+ gdb/command/pahole.py gdb/command/__init__.py \
+ gdb/command/ignore_errors.py gdb/command/save_breakpoints.py \
+ gdb/libstdcxx/v6/printers.py gdb/libstdcxx/v6/__init__.py \
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ gdb/libstdcxx/__init__.py gdb/function/caller_is.py \
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ gdb/function/in_scope.py gdb/function/__init__.py gdb/backtrace.py \
+ gdb/__init__.py
+
+# Install the Python library. Python library files go under
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+# $(pythondir).
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+install-python:
+ files='$(PY_FILES)'; for file in $$files; do \
+ dir=`echo "$$file" | sed 's,/[^/]*$$,,'`; \
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ $(SHELL) $(srcdir)/../mkinstalldirs $(DESTDIR)$(pythondir)/$$dir; \
+ $(INSTALL_DATA) $(srcdir)/python/lib/$$file $(DESTDIR)$(pythondir)/$$file; \
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ done
+
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+# Other packages may have their files installed in $(pythondir).
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+uninstall-python:
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ files='$(PY_FILES)'; for file in $$files; do \
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ slashdir=`echo "/$$file" | sed 's,/[^/]*$$,,'`; \
+ rm -f $(DESTDIR)$(pythondir)/$$file; \
+ while test "x$$file" != "x$$slashdir"; do \
+ rmdir 2>/dev/null "$(DESTDIR)$(pythondir)$$slashdir"; \
+ file="$$slashdir"; \
+ slashdir=`echo "$$file" | sed 's,/[^/]*$$,,'`; \
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ done \
+ done
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
#
# Dependency tracking. Most of this is conditional on GNU Make being
# found by configure; if GNU Make is not found, we fall back to a
diff --git a/gdb/NEWS b/gdb/NEWS
index 9078412..3f084e7 100644
--- a/gdb/NEWS
+++ b/gdb/NEWS
@@ -3,6 +3,13 @@
*** Changes since GDB 6.8
+* GDB now has support for multi-byte and wide character sets on the
+target. Strings whose character type is wchar_t, char16_t, or
+char32_t are now correctly printed. GDB supports wide- and unicode-
+literals in C, that is, L'x', L"string", u'x', u"string", U'x', and
+U"string" syntax. And, GDB allows the "%ls" and "%lc" formats in
+`printf'.
+
* GDB now supports automatic retrieval of shared library files from
remote targets. To use this feature, specify a system root that begins
with the `remote:' prefix, either via the `set sysroot' command or via
@@ -182,6 +189,11 @@ set target-async
with GDB while the target is running. "show target-async" displays the
current state of asynchronous execution of the target.
+set target-wide-charset
+show target-wide-charset
+ The target-wide-charset is the name of the character set that GDB
+ uses when printing characters whose type is wchar_t.
+
set tcp auto-retry (on|off)
show tcp auto-retry
set tcp connect-timeout
diff --git a/gdb/acinclude.m4 b/gdb/acinclude.m4
index 81b5d47..c2bd043 100644
--- a/gdb/acinclude.m4
+++ b/gdb/acinclude.m4
@@ -29,6 +29,9 @@ sinclude([../config/depstand.m4])
dnl For AM_LC_MESSAGES
sinclude([../config/lcmessage.m4])
+dnl For AM_LANGINFO_CODESET.
+sinclude([../config/codeset.m4])
+
#
# Sometimes the native compiler is a bogus stub for gcc or /usr/ucb/cc. This
# makes configure think it's cross compiling. If --target wasn't used, then
@@ -174,8 +177,8 @@ AC_DEFUN([AM_ICONV],
AC_ARG_WITH([libiconv-prefix],
[ --with-libiconv-prefix=DIR search for libiconv in DIR/include and DIR/lib], [
for dir in `echo "$withval" | tr : ' '`; do
- if test -d $dir/include; then CPPFLAGS="$CPPFLAGS -I$dir/include"; fi
- if test -d $dir/lib; then LDFLAGS="$LDFLAGS -L$dir/lib"; fi
+ if test -d $dir/include; then LIBICONV_INCLUDE="-I$dir/include"; CPPFLAGS="$CPPFLAGS -I$dir/include"; fi
+ if test -d $dir/lib; then LIBICONV_LIBDIR="-L$dir/lib"; LDFLAGS="$LDFLAGS -L$dir/lib"; fi
done
])
@@ -230,6 +233,8 @@ size_t iconv();
LIBICONV="-liconv"
fi
AC_SUBST(LIBICONV)
+ AC_SUBST(LIBICONV_INCLUDE)
+ AC_SUBST(LIBICONV_LIBDIR)
])
dnl written by Guido Draheim <guidod@gmx.de>, original by Alexandre Oliva
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 671cb35..edcee3f 100644
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -486,7 +486,7 @@ coerce_unspec_val_to_type (struct value *val, struct type *type)
set_value_component_location (result, val);
set_value_bitsize (result, value_bitsize (val));
set_value_bitpos (result, value_bitpos (val));
- VALUE_ADDRESS (result) += value_offset (val);
+ set_value_address (result, value_address (val));
if (value_lazy (val)
|| TYPE_LENGTH (type) > TYPE_LENGTH (value_type (val)))
set_value_lazy (result, 1);
@@ -1328,7 +1328,7 @@ thin_data_pntr (struct value *val)
value_copy (val));
else
return value_from_longest (desc_data_type (thin_descriptor_type (type)),
- VALUE_ADDRESS (val) + value_offset (val));
+ value_address (val));
}
/* True iff TYPE indicates a "thick" array pointer type. */
@@ -1393,7 +1393,7 @@ desc_bounds (struct value *arr)
if (TYPE_CODE (type) == TYPE_CODE_PTR)
addr = value_as_long (arr);
else
- addr = VALUE_ADDRESS (arr) + value_offset (arr);
+ addr = value_address (arr);
return
value_from_longest (lookup_pointer_type (bounds_type),
@@ -1666,8 +1666,8 @@ ada_type_of_array (struct value *arr, int bounds)
return NULL;
while (arity > 0)
{
- struct type *range_type = alloc_type (objf);
- struct type *array_type = alloc_type (objf);
+ struct type *range_type = alloc_type (objf, NULL);
+ struct type *array_type = alloc_type (objf, NULL);
struct value *low = desc_one_bound (descriptor, arity, 0);
struct value *high = desc_one_bound (descriptor, arity, 1);
arity -= 1;
@@ -1774,9 +1774,9 @@ packed_array_type (struct type *type, long *elt_bits)
if (TYPE_CODE (type) != TYPE_CODE_ARRAY)
return type;
- new_type = alloc_type (TYPE_OBJFILE (type));
new_elt_type = packed_array_type (ada_check_typedef (TYPE_TARGET_TYPE (type)),
elt_bits);
+ new_type = alloc_type (TYPE_OBJFILE (type), new_elt_type);
create_array_type (new_type, new_elt_type, TYPE_INDEX_TYPE (type));
TYPE_FIELD_BITSIZE (new_type, 0) = *elt_bits;
TYPE_NAME (new_type) = ada_type_name (type);
@@ -1831,6 +1831,7 @@ decode_packed_array_type (struct type *type)
return NULL;
}
shadow_type = SYMBOL_TYPE (sym);
+ CHECK_TYPEDEF (shadow_type);
if (TYPE_CODE (shadow_type) != TYPE_CODE_ARRAY)
{
@@ -2005,10 +2006,9 @@ ada_value_primitive_packed_val (struct value *obj, const gdb_byte *valaddr,
}
else if (VALUE_LVAL (obj) == lval_memory && value_lazy (obj))
{
- v = value_at (type,
- VALUE_ADDRESS (obj) + value_offset (obj) + offset);
+ v = value_at (type, value_address (obj) + offset);
bytes = (unsigned char *) alloca (len);
- read_memory (VALUE_ADDRESS (v), bytes, len);
+ read_memory (value_address (v), bytes, len);
}
else
{
@@ -2018,15 +2018,18 @@ ada_value_primitive_packed_val (struct value *obj, const gdb_byte *valaddr,
if (obj != NULL)
{
+ CORE_ADDR new_addr;
+
set_value_component_location (v, obj);
- VALUE_ADDRESS (v) += value_offset (obj) + offset;
+ new_addr = value_address (obj) + offset;
set_value_bitpos (v, bit_offset + value_bitpos (obj));
set_value_bitsize (v, bit_size);
if (value_bitpos (v) >= HOST_CHAR_BIT)
{
- VALUE_ADDRESS (v) += 1;
+ new_addr++;
set_value_bitpos (v, value_bitpos (v) - HOST_CHAR_BIT);
}
+ set_value_address (v, new_addr);
}
else
set_value_bitsize (v, bit_size);
@@ -2218,7 +2221,7 @@ ada_value_assign (struct value *toval, struct value *fromval)
int from_size;
char *buffer = (char *) alloca (len);
struct value *val;
- CORE_ADDR to_addr = VALUE_ADDRESS (toval) + value_offset (toval);
+ CORE_ADDR to_addr = value_address (toval);
if (TYPE_CODE (type) == TYPE_CODE_FLT)
fromval = value_cast (type, fromval);
@@ -2259,8 +2262,7 @@ value_assign_to_component (struct value *container, struct value *component,
struct value *val)
{
LONGEST offset_in_container =
- (LONGEST) (VALUE_ADDRESS (component) + value_offset (component)
- - VALUE_ADDRESS (container) - value_offset (container));
+ (LONGEST) (value_address (component) - value_address (container));
int bit_offset_in_container =
value_bitpos (component) - value_bitpos (container);
int bits;
@@ -3788,7 +3790,7 @@ parse_old_style_renaming (struct type *type,
/* Return an lvalue containing the value VAL. This is the identity on
lvalues, and otherwise has the side-effect of pushing a copy of VAL
on the stack, using and updating *SP as the stack pointer, and
- returning an lvalue whose VALUE_ADDRESS points to the copy. */
+ returning an lvalue whose value_address points to the copy. */
static struct value *
ensure_lval (struct value *val, CORE_ADDR *sp)
@@ -3802,12 +3804,12 @@ ensure_lval (struct value *val, CORE_ADDR *sp)
indicated. */
if (gdbarch_inner_than (current_gdbarch, 1, 2))
{
- /* Stack grows downward. Align SP and VALUE_ADDRESS (val) after
+ /* Stack grows downward. Align SP and value_address (val) after
reserving sufficient space. */
*sp -= len;
if (gdbarch_frame_align_p (current_gdbarch))
*sp = gdbarch_frame_align (current_gdbarch, *sp);
- VALUE_ADDRESS (val) = *sp;
+ set_value_address (val, *sp);
}
else
{
@@ -3815,14 +3817,14 @@ ensure_lval (struct value *val, CORE_ADDR *sp)
then again, re-align the frame. */
if (gdbarch_frame_align_p (current_gdbarch))
*sp = gdbarch_frame_align (current_gdbarch, *sp);
- VALUE_ADDRESS (val) = *sp;
+ set_value_address (val, *sp);
*sp += len;
if (gdbarch_frame_align_p (current_gdbarch))
*sp = gdbarch_frame_align (current_gdbarch, *sp);
}
VALUE_LVAL (val) = lval_memory;
- write_memory (VALUE_ADDRESS (val), value_contents_raw (val), len);
+ write_memory (value_address (val), value_contents_raw (val), len);
}
return val;
@@ -3911,12 +3913,12 @@ make_array_descriptor (struct type *type, struct value *arr, CORE_ADDR *sp)
bounds = ensure_lval (bounds, sp);
modify_general_field (value_contents_writeable (descriptor),
- VALUE_ADDRESS (ensure_lval (arr, sp)),
+ value_address (ensure_lval (arr, sp)),
fat_pntr_data_bitpos (desc_type),
fat_pntr_data_bitsize (desc_type));
modify_general_field (value_contents_writeable (descriptor),
- VALUE_ADDRESS (bounds),
+ value_address (bounds),
fat_pntr_bounds_bitpos (desc_type),
fat_pntr_bounds_bitsize (desc_type));
@@ -6790,7 +6792,7 @@ variant_field_index (struct type *type)
static struct type *
empty_record (struct objfile *objfile)
{
- struct type *type = alloc_type (objfile);
+ struct type *type = alloc_type (objfile, NULL);
TYPE_CODE (type) = TYPE_CODE_STRUCT;
TYPE_NFIELDS (type) = 0;
TYPE_FIELDS (type) = NULL;
@@ -6847,7 +6849,7 @@ ada_template_to_fixed_record_type_1 (struct type *type,
nfields++;
}
- rtype = alloc_type (TYPE_OBJFILE (type));
+ rtype = alloc_type (TYPE_OBJFILE (type), NULL);
TYPE_CODE (rtype) = TYPE_CODE_STRUCT;
INIT_CPLUS_SPECIFIC (rtype);
TYPE_NFIELDS (rtype) = nfields;
@@ -7034,7 +7036,8 @@ template_to_static_fixed_type (struct type *type0)
new_type = static_unwrap_type (field_type);
if (type == type0 && new_type != field_type)
{
- TYPE_TARGET_TYPE (type0) = type = alloc_type (TYPE_OBJFILE (type0));
+ TYPE_TARGET_TYPE (type0) = type = alloc_type (TYPE_OBJFILE (type0),
+ NULL);
TYPE_CODE (type) = TYPE_CODE (type0);
INIT_CPLUS_SPECIFIC (type);
TYPE_NFIELDS (type) = nfields;
@@ -7079,7 +7082,7 @@ to_record_with_fixed_variant_part (struct type *type, const gdb_byte *valaddr,
else
dval = dval0;
- rtype = alloc_type (TYPE_OBJFILE (type));
+ rtype = alloc_type (TYPE_OBJFILE (type), NULL);
TYPE_CODE (rtype) = TYPE_CODE_STRUCT;
INIT_CPLUS_SPECIFIC (rtype);
TYPE_NFIELDS (rtype) = nfields;
@@ -7251,7 +7254,7 @@ to_fixed_array_type (struct type *type0, struct value *dval,
if (elt_type0 == elt_type)
result = type0;
else
- result = create_array_type (alloc_type (TYPE_OBJFILE (type0)),
+ result = create_array_type (alloc_type (TYPE_OBJFILE (type0), NULL),
elt_type, TYPE_INDEX_TYPE (type0));
}
else
@@ -7281,7 +7284,7 @@ to_fixed_array_type (struct type *type0, struct value *dval,
struct type *range_type =
to_fixed_range_type (TYPE_FIELD_NAME (index_type_desc, i),
dval, TYPE_OBJFILE (type0));
- result = create_array_type (alloc_type (TYPE_OBJFILE (type0)),
+ result = create_array_type (alloc_type (TYPE_OBJFILE (type0), NULL),
result, range_type);
}
if (!ignore_too_big && TYPE_LENGTH (result) > varsize_limit)
@@ -7523,7 +7526,7 @@ static struct value *
ada_to_fixed_value (struct value *val)
{
return ada_to_fixed_value_create (value_type (val),
- VALUE_ADDRESS (val) + value_offset (val),
+ value_address (val),
val);
}
@@ -7869,7 +7872,7 @@ unwrap_value (struct value *val)
return
coerce_unspec_val_to_type
(val, ada_to_fixed_type (raw_real_type, 0,
- VALUE_ADDRESS (val) + value_offset (val),
+ value_address (val),
NULL, 1));
}
}
@@ -9546,7 +9549,7 @@ to_fixed_range_type (char *name, struct value *dval, struct objfile *objfile)
if (L < INT_MIN || U > INT_MAX)
return raw_type;
else
- return create_range_type (alloc_type (objfile), raw_type,
+ return create_range_type (alloc_type (objfile, NULL), raw_type,
discrete_type_low_bound (raw_type),
discrete_type_high_bound (raw_type));
}
@@ -9611,7 +9614,7 @@ to_fixed_range_type (char *name, struct value *dval, struct objfile *objfile)
if (objfile == NULL)
objfile = TYPE_OBJFILE (base_type);
- type = create_range_type (alloc_type (objfile), base_type, L, U);
+ type = create_range_type (alloc_type (objfile, NULL), base_type, L, U);
TYPE_NAME (type) = name;
return type;
}
@@ -11009,9 +11012,9 @@ ada_language_arch_info (struct gdbarch *gdbarch,
/* Not really used, but needed in the ada_language_defn. */
static void
-emit_char (int c, struct ui_file *stream, int quoter)
+emit_char (int c, struct type *type, struct ui_file *stream, int quoter)
{
- ada_emit_char (c, stream, quoter, 1);
+ ada_emit_char (c, type, stream, quoter, 1);
}
static int
diff --git a/gdb/ada-lang.h b/gdb/ada-lang.h
index c7cc62a..fac027b 100644
--- a/gdb/ada-lang.h
+++ b/gdb/ada-lang.h
@@ -257,12 +257,12 @@ extern int ada_value_print (struct value *, struct ui_file *,
/* Defined in ada-lang.c */
-extern void ada_emit_char (int, struct ui_file *, int, int);
+extern void ada_emit_char (int, struct type *, struct ui_file *, int, int);
-extern void ada_printchar (int, struct ui_file *);
+extern void ada_printchar (int, struct type *, struct ui_file *);
-extern void ada_printstr (struct ui_file *, const gdb_byte *,
- unsigned int, int, int,
+extern void ada_printstr (struct ui_file *, struct type *, const gdb_byte *,
+ unsigned int, int,
const struct value_print_options *);
struct value *ada_convert_actual (struct value *actual,
diff --git a/gdb/ada-tasks.c b/gdb/ada-tasks.c
index 61ed06e..8b1639e 100644
--- a/gdb/ada-tasks.c
+++ b/gdb/ada-tasks.c
@@ -293,7 +293,7 @@ read_fat_string_value (char *dest, struct value *val, int max_len)
/* Extract LEN characters from the fat string. */
array_val = value_ind (value_field (val, array_fieldno));
- read_memory (VALUE_ADDRESS (array_val), dest, len);
+ read_memory (value_address (array_val), dest, len);
/* Add the NUL character to close the string. */
dest[len] = '\0';
diff --git a/gdb/ada-typeprint.c b/gdb/ada-typeprint.c
index f00824a..ef665c4 100644
--- a/gdb/ada-typeprint.c
+++ b/gdb/ada-typeprint.c
@@ -357,16 +357,17 @@ print_array_type (struct type *type, struct ui_file *stream, int show,
bitsize = 0;
fprintf_filtered (stream, "array (");
+ if (type == NULL)
+ {
+ fprintf_filtered (stream, _("<undecipherable array type>"));
+ return;
+ }
+
n_indices = -1;
if (show < 0)
fprintf_filtered (stream, "...");
else
{
- if (type == NULL)
- {
- fprintf_filtered (stream, _("<undecipherable array type>"));
- return;
- }
if (ada_is_simple_array_type (type))
{
struct type *range_desc_type =
diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c
index 9647971..cfa94a2 100644
--- a/gdb/ada-valprint.c
+++ b/gdb/ada-valprint.c
@@ -269,7 +269,8 @@ printable_val_type (struct type *type, const gdb_byte *valaddr)
(1 or 2) of the character. */
void
-ada_emit_char (int c, struct ui_file *stream, int quoter, int type_len)
+ada_emit_char (int c, struct type *type, struct ui_file *stream,
+ int quoter, int type_len)
{
if (type_len != 2)
type_len = 1;
@@ -366,10 +367,10 @@ ada_print_floating (const gdb_byte *valaddr, struct type *type,
}
void
-ada_printchar (int c, struct ui_file *stream)
+ada_printchar (int c, struct type *type, struct ui_file *stream)
{
fputs_filtered ("'", stream);
- ada_emit_char (c, stream, '\'', 1);
+ ada_emit_char (c, type, stream, '\'', 1);
fputs_filtered ("'", stream);
}
@@ -411,7 +412,7 @@ ada_print_scalar (struct type *type, LONGEST val, struct ui_file *stream)
break;
case TYPE_CODE_CHAR:
- LA_PRINT_CHAR ((unsigned char) val, stream);
+ LA_PRINT_CHAR ((unsigned char) val, type, stream);
break;
case TYPE_CODE_BOOL:
@@ -454,7 +455,7 @@ ada_print_scalar (struct type *type, LONGEST val, struct ui_file *stream)
*/
static void
-printstr (struct ui_file *stream, const gdb_byte *string,
+printstr (struct ui_file *stream, struct type *elttype, const gdb_byte *string,
unsigned int length, int force_ellipses, int type_len,
const struct value_print_options *options)
{
@@ -506,7 +507,7 @@ printstr (struct ui_file *stream, const gdb_byte *string,
in_quotes = 0;
}
fputs_filtered ("'", stream);
- ada_emit_char (char_at (string, i, type_len), stream, '\'',
+ ada_emit_char (char_at (string, i, type_len), elttype, stream, '\'',
type_len);
fputs_filtered ("'", stream);
fprintf_filtered (stream, _(" <repeats %u times>"), reps);
@@ -524,7 +525,7 @@ printstr (struct ui_file *stream, const gdb_byte *string,
fputs_filtered ("\"", stream);
in_quotes = 1;
}
- ada_emit_char (char_at (string, i, type_len), stream, '"',
+ ada_emit_char (char_at (string, i, type_len), elttype, stream, '"',
type_len);
things_printed += 1;
}
@@ -544,11 +545,12 @@ printstr (struct ui_file *stream, const gdb_byte *string,
}
void
-ada_printstr (struct ui_file *stream, const gdb_byte *string,
- unsigned int length, int width, int force_ellipses,
+ada_printstr (struct ui_file *stream, struct type *type, const gdb_byte *string,
+ unsigned int length, int force_ellipses,
const struct value_print_options *options)
{
- printstr (stream, string, length, force_ellipses, width, options);
+ printstr (stream, type, string, length, force_ellipses, TYPE_LENGTH (type),
+ options);
}
@@ -637,7 +639,7 @@ ada_val_print_array (struct type *type, const gdb_byte *valaddr,
len = temp_len;
}
- printstr (stream, valaddr, len, 0, eltlen, options);
+ printstr (stream, elttype, valaddr, len, 0, eltlen, options);
result = len;
}
else
@@ -688,7 +690,7 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr0,
}
else
retn = ada_val_print_1 (value_type (val), value_contents (val), 0,
- VALUE_ADDRESS (val), stream, recurse, options);
+ value_address (val), stream, recurse, options);
value_free_to_mark (mark);
return retn;
}
@@ -817,7 +819,7 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr0,
{
fputs_filtered (" ", stream);
ada_printchar ((unsigned char) unpack_long (type, valaddr),
- stream);
+ type, stream);
}
}
return 0;
@@ -904,7 +906,7 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr0,
deref_val_int));
val_print (value_type (deref_val),
value_contents (deref_val), 0,
- VALUE_ADDRESS (deref_val), stream, recurse + 1,
+ value_address (deref_val), stream, recurse + 1,
options, current_language);
}
else
@@ -944,7 +946,7 @@ ada_value_print (struct value *val0, struct ui_file *stream,
const struct value_print_options *options)
{
const gdb_byte *valaddr = value_contents (val0);
- CORE_ADDR address = VALUE_ADDRESS (val0) + value_offset (val0);
+ CORE_ADDR address = value_address (val0);
struct type *type =
ada_to_fixed_type (value_type (val0), valaddr, address, NULL, 1);
struct value *val =
diff --git a/gdb/auxv.c b/gdb/auxv.c
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
index 5007cd0..3a51ec5 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/auxv.c
+++ b/gdb/auxv.c
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -205,6 +205,7 @@ fprint_target_auxv (struct ui_file *file, struct target_ops *ops)
TAG (AT_UCACHEBSIZE, _("Unified cache block size"), dec);
TAG (AT_IGNOREPPC, _("Entry should be ignored"), dec);
TAG (AT_BASE_PLATFORM, _("String identifying base platform"), str);
+ TAG (AT_RANDOM, _("Address of 16 random bytes"), hex);
TAG (AT_EXECFN, _("File name of executable"), str);
TAG (AT_SECURE, _("Boolean, was exec setuid-like?"), dec);
TAG (AT_SYSINFO, _("Special system info/entry points"), hex);
@@ -247,7 +248,8 @@ fprint_target_auxv (struct ui_file *file, struct target_ops *ops)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
get_user_print_options (&opts);
if (opts.addressprint)
fprintf_filtered (file, "0x%s", paddr_nz (val));
- val_print_string (val, -1, 1, file, &opts);
+ val_print_string (builtin_type (target_gdbarch)->builtin_char,
+ val, -1, file, &opts);
fprintf_filtered (file, "\n");
}
break;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
diff --git a/gdb/block.c b/gdb/block.c
index 8f0140c..d451769 100644
--- a/gdb/block.c
+++ b/gdb/block.c
@@ -207,24 +207,16 @@ block_set_scope (struct block *block, const char *scope,
}
/* This returns the first using directives associated to BLOCK, if
- any. */
-
-/* FIXME: carlton/2003-04-23: This uses the fact that we currently
- only have using directives in static blocks, because we only
- generate using directives from anonymous namespaces. Eventually,
- when we support using directives everywhere, we'll want to replace
- this by some iterator functions. */
+ any. Each BLOCK_NAMESPACE()->USING already contains all the namespaces
+ imported at that code point - even those from its parent blocks. */
struct using_direct *
block_using (const struct block *block)
{
- const struct block *static_block = block_static_block (block);
-
- if (static_block == NULL
- || BLOCK_NAMESPACE (static_block) == NULL)
+ if (block == NULL || BLOCK_NAMESPACE (block) == NULL)
return NULL;
else
- return BLOCK_NAMESPACE (static_block)->using;
+ return BLOCK_NAMESPACE (block)->using;
}
/* Set BLOCK's using member to USING; if needed, allocate memory via
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/breakpoint.c b/gdb/breakpoint.c
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
index b23b294..567f574 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/breakpoint.c
+++ b/gdb/breakpoint.c
@@ -191,6 +191,8 @@ static int is_hardware_watchpoint (struct breakpoint *bpt);
static void insert_breakpoint_locations (void);
+static int syscall_catchpoint_p (struct breakpoint *b);
+
static const char *
bpdisp_text (enum bpdisp disp)
{
@@ -341,6 +343,18 @@ set_breakpoint_count (int num)
value_from_longest (builtin_type_int32, (LONGEST) num));
}
+/* Used in run_command to reset syscall catchpoints fields. */
+
+void
+clear_syscall_catchpoints_info (void)
+{
+ struct breakpoint *b;
+
+ ALL_BREAKPOINTS (b)
+ if (syscall_catchpoint_p (b))
+ b->syscall_number = UNKNOWN_SYSCALL;
+}
+
/* Used in run_command to zero the hit count when a new run starts. */
void
@@ -523,6 +537,53 @@ get_number_or_range (char **pp)
+/* Set break condition of breakpoint B to EXP. */
+
+void
+set_breakpoint_condition (struct breakpoint *b, char *exp, int from_tty)
+{
+ struct bp_location *loc = b->loc;
+
+ for (; loc; loc = loc->next)
+ {
+ if (loc->cond)
+ {
+ xfree (loc->cond);
+ loc->cond = 0;
+ }
+ }
+
+ if (b->cond_string != NULL)
+ xfree (b->cond_string);
+
+ if (*exp == 0)
+ {
+ b->cond_string = NULL;
+ if (from_tty)
+ printf_filtered (_("Breakpoint %d now unconditional.\n"), b->number);
+ }
+ else
+ {
+ char *arg = exp;
+
+ /* I don't know if it matters whether this is the string the user
+ typed in or the decompiled expression. */
+ b->cond_string = savestring (arg, strlen (arg));
+ b->condition_not_parsed = 0;
+ for (loc = b->loc; loc; loc = loc->next)
+ {
+ arg = exp;
+ loc->cond =
+ parse_exp_1 (&arg, block_for_pc (loc->address), 0);
+ if (*arg)
+ error (_("Junk at end of expression"));
+ }
+ }
+
+ breakpoints_changed ();
+ observer_notify_breakpoint_modified (b->number);
+}
+
/* condition N EXP -- set break condition of breakpoint N to EXP. */
static void
@@ -543,42 +604,7 @@ condition_command (char *arg, int from_tty)
ALL_BREAKPOINTS (b)
if (b->number == bnum)
{
- struct bp_location *loc = b->loc;
- for (; loc; loc = loc->next)
- {
- if (loc->cond)
- {
- xfree (loc->cond);
- loc->cond = 0;
- }
- }
- if (b->cond_string != NULL)
- xfree (b->cond_string);
-
- if (*p == 0)
- {
- b->cond_string = NULL;
- if (from_tty)
- printf_filtered (_("Breakpoint %d now unconditional.\n"), bnum);
- }
- else
- {
- arg = p;
- /* I don't know if it matters whether this is the string the user
- typed in or the decompiled expression. */
- b->cond_string = savestring (arg, strlen (arg));
- b->condition_not_parsed = 0;
- for (loc = b->loc; loc; loc = loc->next)
- {
- arg = p;
- loc->cond =
- parse_exp_1 (&arg, block_for_pc (loc->address), 0);
- if (*arg)
- error (_("Junk at end of expression"));
- }
- }
- breakpoints_changed ();
- observer_notify_breakpoint_modified (b->number);
+ set_breakpoint_condition (b, p, from_tty);
return;
}
@@ -961,7 +987,7 @@ update_watchpoint (struct breakpoint *b, int reparse)
int len, type;
struct bp_location *loc, **tmp;
- addr = VALUE_ADDRESS (v) + value_offset (v);
+ addr = value_address (v);
len = TYPE_LENGTH (value_type (v));
type = hw_write;
if (b->type == bp_read_watchpoint)
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
@@ -3948,8 +3974,8 @@ check_duplicates_for (CORE_ADDR address, struct obj_section *section)
}
/* If we found a permanent breakpoint at this address, go over the
- list again and declare all the other breakpoints there to be the
- duplicates. */
+ list again and declare all the other breakpoints there (except
+ other permanent breakpoints) to be the duplicates. */
if (perm_bp)
{
perm_bp->duplicate = 0;
@@ -3963,7 +3989,8 @@ check_duplicates_for (CORE_ADDR address, struct obj_section *section)
ALL_BP_LOCATIONS (b)
if (b != perm_bp)
{
- if (b->owner->enable_state != bp_disabled
+ if (b->owner->enable_state != bp_permanent
+ && b->owner->enable_state != bp_disabled
&& b->owner->enable_state != bp_call_disabled
&& b->enabled && !b->shlib_disabled
&& b->address == address /* address / overlay match */
@@ -4134,6 +4161,8 @@ set_raw_breakpoint_without_location (enum bptype bptype)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
b->frame_id = null_frame_id;
b->forked_inferior_pid = null_ptid;
b->exec_pathname = NULL;
+ b->syscalls_to_be_caught = NULL;
+ b->syscall_number = UNKNOWN_SYSCALL;
b->ops = NULL;
b->condition_not_parsed = 0;
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
@@ -4660,7 +4689,241 @@ static struct breakpoint_ops catch_vfork_breakpoint_ops =
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
print_mention_catch_vfork
};
-/* Create a new breakpoint of the bp_catchpoint kind and return it.
+/* We keep a count of the number of times the user has requested a
+ particular syscall to be tracked, and pass this information to the
+ target. This lets capable targets implement filtering directly. */
+
+/* Number of times that "any" syscall is requested. */
+static int any_syscall_count;
+
+/* Count of each system call. */
+static int *syscalls_counts;
+
+/* Number of system entries in SYSCALLS_COUNTS. */
+static int syscalls_size;
+
+/* This counts all syscall catch requests, so we can readily determine
+ if any catching is necessary. */
+static int total_syscalls_count;
+
+/* Implement the "insert" breakpoint_ops method for syscall
+ catchpoints. */
+
+static void
+insert_catch_syscall (struct breakpoint *b)
+{
+ ++total_syscalls_count;
+ if (!b->syscalls_to_be_caught)
+ ++any_syscall_count;
+ else
+ {
+ struct syscall_filter *iter;
+ for (iter = b->syscalls_to_be_caught; iter; iter = iter->next)
+ {
+ if (iter->syscall >= syscalls_size)
+ {
+ syscalls_counts = xrealloc (syscalls_counts,
+ (iter->syscall + 1) * sizeof (int));
+ memset (&syscalls_counts[syscalls_size], 0,
+ (iter->syscall + 1 - syscalls_size) * sizeof (int));
+ }
+ ++syscalls_counts[iter->syscall];
+ }
+ }
+
+ target_set_syscall_catchpoint (PIDGET (inferior_ptid),
+ total_syscalls_count != 0,
+ any_syscall_count,
+ syscalls_size,
+ syscalls_counts);
+}
+
+/* Implement the "remove" breakpoint_ops method for syscall
+ catchpoints. */
+
+static int
+remove_catch_syscall (struct breakpoint *b)
+{
+ --total_syscalls_count;
+ if (!b->syscalls_to_be_caught)
+ --any_syscall_count;
+ else
+ {
+ struct syscall_filter *iter;
+ for (iter = b->syscalls_to_be_caught; iter; iter = iter->next)
+ {
+ if (iter->syscall >= syscalls_size)
+ {
+ /* Shouldn't happen. */
+ continue;
+ }
+ --syscalls_counts[iter->syscall];
+ }
+ }
+
+ return target_set_syscall_catchpoint (PIDGET (inferior_ptid),
+ total_syscalls_count != 0,
+ any_syscall_count,
+ syscalls_size,
+ syscalls_counts);
+}
+
+/* Implement the "breakpoint_hit" breakpoint_ops method for syscall
+ catchpoints. */
+
+static int
+breakpoint_hit_catch_syscall (struct breakpoint *b)
+{
+ /* We must check if we are catching specific syscalls in this breakpoint.
+ If we are, then we must guarantee that the called syscall is the same
+ syscall we are catching. */
+ int syscall_number = 0;
+
+ if (!inferior_has_called_syscall (inferior_ptid, &syscall_number))
+ return 0;
+
+ /* Now, checking if the syscall is the same. */
+ if (b->syscalls_to_be_caught)
+ {
+ struct syscall_filter *iter;
+ for (iter = b->syscalls_to_be_caught; iter; iter = iter->next)
+ if (syscall_number == iter->syscall)
+ break;
+ /* Not the same. */
+ if (!iter)
+ return 0;
+ }
+
+ /* It's the same syscall. We can update the breakpoint struct
+ with the correct information. */
+ b->syscall_number = syscall_number;
+
+ return 1;
+}
+
+/* Implement the "print_it" breakpoint_ops method for syscall
+ catchpoints. */
+
+static enum print_stop_action
+print_it_catch_syscall (struct breakpoint *b)
+{
+ /* These are needed because we want to know in which state a
+ syscall is. It can be in the TARGET_WAITKIND_SYSCALL_ENTRY
+ or TARGET_WAITKIND_SYSCALL_RETURN, and depending on it we
+ must print "called syscall" or "returned from syscall". */
+ ptid_t ptid;
+ struct target_waitstatus last;
+ struct syscall s;
+ struct cleanup *old_chain;
+ char *syscall_id;
+
+ gdbarch_get_syscall_by_number (current_gdbarch, b->syscall_number, &s);
+
+ get_last_target_status (&ptid, &last);
+
+ annotate_catchpoint (b->number);
+
+ if (s.name == NULL)
+ syscall_id = xstrprintf ("%d", b->syscall_number);
+ else
+ syscall_id = xstrprintf ("'%s'", s.name);
+
+ old_chain = make_cleanup (xfree, syscall_id);
+
+ if (last.kind == TARGET_WAITKIND_SYSCALL_ENTRY)
+ printf_filtered (_("\nCatchpoint %d (call to syscall %s), "),
+ b->number, syscall_id);
+ else
+ printf_filtered (_("\nCatchpoint %d (returned from syscall %s), "),
+ b->number, syscall_id);
+
+ do_cleanups (old_chain);
+
+ return PRINT_SRC_AND_LOC;
+}
+
+/* Implement the "print_one" breakpoint_ops method for syscall
+ catchpoints. */
+
+static void
+print_one_catch_syscall (struct breakpoint *b, CORE_ADDR *last_addr)
+{
+ struct value_print_options opts;
+ struct syscall s;
+
+ gdbarch_get_syscall_by_number (current_gdbarch, b->syscall_number, &s);
+
+ get_user_print_options (&opts);
+ /* Field 4, the address, is omitted (which makes the columns
+ not line up too nicely with the headers, but the effect
+ is relatively readable). */
+ if (opts.addressprint)
+ ui_out_field_skip (uiout, "addr");
+ annotate_field (5);
+ ui_out_text (uiout, "syscall \"");
+ if (b->syscall_number != UNKNOWN_SYSCALL)
+ {
+ if (s.name)
+ ui_out_field_string (uiout, "what", s.name);
+ else
+ ui_out_field_int (uiout, "what", b->syscall_number);
+ }
+ else
+ ui_out_field_string (uiout, "what", "<any syscall>");
+ ui_out_text (uiout, "\" ");
+}
+
+/* Implement the "print_mention" breakpoint_ops method for syscall
+ catchpoints. */
+
+static void
+print_mention_catch_syscall (struct breakpoint *b)
+{
+ if (b->syscalls_to_be_caught)
+ {
+ struct syscall_filter *iter;
+ printf_filtered (_("Catchpoint %d (syscall(s)"), b->number);
+ for (iter = b->syscalls_to_be_caught; iter; iter = iter->next)
+ {
+ struct syscall s;
+ gdbarch_get_syscall_by_number (current_gdbarch, iter->syscall, &s);
+
+ if (s.name)
+ printf_filtered (" '%s'", s.name);
+ else
+ printf_filtered (" %d", iter->syscall);
+ }
+ printf_filtered (")");
+ }
+ else
+ printf_filtered (_("Catchpoint %d (any syscall)"),
+ b->number);
+}
+
+/* The breakpoint_ops structure to be used in syscall catchpoints. */
+
+static struct breakpoint_ops catch_syscall_breakpoint_ops =
+{
+ insert_catch_syscall,
+ remove_catch_syscall,
+ breakpoint_hit_catch_syscall,
+ print_it_catch_syscall,
+ print_one_catch_syscall,
+ print_mention_catch_syscall
+};
+
+/* Returns non-zero if 'b' is a syscall catchpoint. */
+
+static int
+syscall_catchpoint_p (struct breakpoint *b)
+{
+ return (b->ops == &catch_syscall_breakpoint_ops);
+}
+
+/* Create a new breakpoint of the bp_catchpoint kind and return it,
+ but does NOT mention it nor update the global location list.
+ This is useful if you need to fill more fields in the
+ struct breakpoint before calling mention.
If TEMPFLAG is non-zero, then make the breakpoint temporary.
If COND_STRING is not NULL, then store it in the breakpoint.
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
@@ -4668,16 +4931,13 @@ static struct breakpoint_ops catch_vfork_breakpoint_ops =
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
to the catchpoint. */
static struct breakpoint *
-create_catchpoint (int tempflag, char *cond_string,
- struct breakpoint_ops *ops)
+create_catchpoint_without_mention (int tempflag, char *cond_string,
+ struct breakpoint_ops *ops)
{
struct symtab_and_line sal;
struct breakpoint *b;
init_sal (&sal);
- sal.pc = 0;
- sal.symtab = NULL;
- sal.line = 0;
b = set_raw_breakpoint (sal, bp_catchpoint);
set_breakpoint_count (breakpoint_count + 1);
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
@@ -4691,6 +4951,23 @@ create_catchpoint (int tempflag, char *cond_string,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
b->disposition = tempflag ? disp_del : disp_donttouch;
b->ops = ops;
+ return b;
+}
+
+/* Create a new breakpoint of the bp_catchpoint kind and return it.
+
+ If TEMPFLAG is non-zero, then make the breakpoint temporary.
+ If COND_STRING is not NULL, then store it in the breakpoint.
+ OPS, if not NULL, is the breakpoint_ops structure associated
+ to the catchpoint. */
+
+static struct breakpoint *
+create_catchpoint (int tempflag, char *cond_string,
+ struct breakpoint_ops *ops)
+{
+ struct breakpoint *b =
+ create_catchpoint_without_mention (tempflag, cond_string, ops);
+
mention (b);
update_global_location_list (1);
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
@@ -4775,6 +5052,23 @@ static struct breakpoint_ops catch_exec_breakpoint_ops =
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
print_mention_catch_exec
};
+static void
+create_syscall_event_catchpoint (int tempflag, struct syscall_filter *filter,
+ struct breakpoint_ops *ops)
+{
+ struct breakpoint *b =
+ create_catchpoint_without_mention (tempflag, NULL, ops);
+
+ b->syscalls_to_be_caught = filter;
+ /* We still don't know the syscall that will be caught :-). */
+ b->syscall_number = UNKNOWN_SYSCALL;
+
+ /* Now, we have to mention the breakpoint and update the global
+ location list. */
+ mention (b);
+ update_global_location_list (1);
+}
+
static int
hw_breakpoint_used_count (void)
{
- Archer update to the snapshot: a99e30d08ade4a2df0f943b036cd653bcd12b04d - Fixes internal error on breaking at a multi-locations C++ caller (BZ 488572).
2009-03-09 22:23:48 +00:00
@@ -5188,7 +5482,6 @@ expand_line_sal_maybe (struct symtab_and_line sal)
struct symtabs_and_lines expanded;
CORE_ADDR original_pc = sal.pc;
char *original_function = NULL;
- int found;
int i;
/* If we have explicit pc, don't expand.
@@ -5264,14 +5557,42 @@ expand_line_sal_maybe (struct symtab_and_line sal)
if (original_pc)
{
- found = 0;
+ /* Find all the other PCs for a line of code with multiple instances
+ (locations). If the instruction is in the middle of an instruction
+ block for source line GDB cannot safely find the same instruction in
+ the other compiled instances of the same source line because the other
+ instances may have been compiled completely differently.
+
+ The testcase gdb.cp/expand-sals.exp shows that breaking at the return
+ address in a caller of the current frame works for the current
+ instance but the breakpoint cannot catch the point (instruction) where
+ the callee returns in the other compiled instances of this source line.
+
+ The current implementation will place the breakpoint at the expected
+ returning address of the current instance of the caller. But the
+ other instances will get the breakpoint at the first instruction of
+ the source line - therefore before the call would be made. Another
+ possibility would be to place the breakpoint in the other instances at
+ the start of the next source line.
+
+ A possible heuristics would compare the instructions length of each of
+ the instances of the current source line and if it matches it would
+ place the breakpoint at the same offset. Unfortunately a mistaken
+ guess would possibly crash the inferior. */
+
+ CORE_ADDR best = -1;
+
+ /* Find the nearest preceding PC and set it to ORIGINAL_PC. */
for (i = 0; i < expanded.nelts; ++i)
- if (expanded.sals[i].pc == original_pc)
- {
- found = 1;
- break;
- }
- gdb_assert (found);
+ if (expanded.sals[i].pc <= original_pc
+ && (best == -1 || expanded.sals[best].pc < expanded.sals[i].pc))
+ best = i;
+
+ if (best == -1)
+ error (_("Cannot find the best address for %s out of the %d locations"),
+ paddr (original_pc), expanded.nelts);
+
+ expanded.sals[best].pc = original_pc;
}
return expanded;
@@ -5310,8 +5631,6 @@ create_breakpoints (struct symtabs_and_lines sals, char **addr_string,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
cond_string, type, disposition,
thread, ignore_count, ops, from_tty, enabled);
}
-
- update_global_location_list (1);
}
/* Parse ARG which is assumed to be a SAL specification possibly
- Archer update to the snapshot: a99e30d08ade4a2df0f943b036cd653bcd12b04d - Fixes internal error on breaking at a multi-locations C++ caller (BZ 488572).
2009-03-09 22:23:48 +00:00
@@ -5637,7 +5956,6 @@ break_command_really (char *arg, char *cond_string, int thread,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
b->ops = ops;
b->enable_state = enabled ? bp_enabled : bp_disabled;
- update_global_location_list (1);
mention (b);
}
- Archer update to the snapshot: a99e30d08ade4a2df0f943b036cd653bcd12b04d - Fixes internal error on breaking at a multi-locations C++ caller (BZ 488572).
2009-03-09 22:23:48 +00:00
@@ -5649,6 +5967,11 @@ break_command_really (char *arg, char *cond_string, int thread,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
discard_cleanups (breakpoint_chain);
/* But cleanup everything else. */
do_cleanups (old_chain);
+
+ /* Have already BREAKPOINT_CHAIN discarded as we may get an exception while
+ inserting the breakpoints which would double-free the resources both by
+ BREAKPOINT_CHAIN now and during DELETE_BREAKPOINT in the future. */
+ update_global_location_list (1);
}
/* Set a breakpoint.
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -5727,7 +6050,12 @@ resolve_sal_pc (struct symtab_and_line *sal)
/* If this SAL corresponds to a breakpoint inserted using
a line number, then skip the function prologue if necessary. */
if (sal->explicit_line)
- skip_prologue_sal (sal);
+ {
+ /* Preserve the original line number. */
+ int saved_line = sal->line;
+ skip_prologue_sal (sal);
+ sal->line = saved_line;
+ }
}
if (sal->section == 0 && sal->symtab != NULL)
@@ -6131,7 +6459,7 @@ can_use_hardware_watchpoint (struct value *v)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
|| (TYPE_CODE (vtype) != TYPE_CODE_STRUCT
&& TYPE_CODE (vtype) != TYPE_CODE_ARRAY))
{
- CORE_ADDR vaddr = VALUE_ADDRESS (v) + value_offset (v);
+ CORE_ADDR vaddr = value_address (v);
int len = TYPE_LENGTH (value_type (v));
if (!TARGET_REGION_OK_FOR_HW_WATCHPOINT (vaddr, len))
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -6668,6 +6996,122 @@ catch_ada_exception_command (char *arg, int from_tty,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
from_tty);
}
+/* Cleanup function for a syscall filter list. */
+static void
+clean_up_filters (void *arg)
+{
+ struct syscall_filter *iter = *(struct syscall_filter **) arg;
+ while (iter)
+ {
+ struct syscall_filter *next = iter->next;
+ xfree (iter);
+ iter = next;
+ }
+}
+
+/* Splits the argument using space as delimiter. Returns an xmalloc'd
+ filter list, or NULL if no filtering is required. */
+static struct syscall_filter *
+catch_syscall_split_args (char *arg)
+{
+ struct syscall_filter *result = NULL;
+ struct cleanup *cleanup = make_cleanup (clean_up_filters, &result);
+
+ while (*arg != '\0')
+ {
+ int i, syscall_number;
+ char *endptr;
+ char cur_name[128];
+ struct syscall_filter *new_filter;
+ struct syscall s;
+
+ /* Skip whitespace. */
+ while (isspace (*arg))
+ arg++;
+
+ for (i = 0; arg[i] && !isspace (arg[i]); ++i)
+ cur_name[i] = arg[i];
+ cur_name[i] = '\0';
+ arg += i;
+
+ /* Check if the user provided a syscall name or a number. */
+ syscall_number = (int) strtol (cur_name, &endptr, 10);
+ if (*endptr == '\0')
+ {
+ gdbarch_get_syscall_by_number (current_gdbarch,
+ syscall_number, &s);
+
+ if (s.name == NULL)
+ /* We can issue just a warning, but still create the catchpoint.
+ This is because, even not knowing the syscall name that
+ this number represents, we can still try to catch the syscall
+ number. */
+ warning (_("The number '%d' does not represent a known syscall."),
+ syscall_number);
+ }
+ else
+ {
+ /* We have a name. Let's check if it's valid and convert it
+ to a number. */
+ gdbarch_get_syscall_by_name (current_gdbarch, cur_name, &s);
+
+ if (s.number == UNKNOWN_SYSCALL)
+ /* Here we have to issue an error instead of a warning, because
+ GDB cannot do anything useful if there's no syscall number to
+ be caught. */
+ error (_("Unknown syscall name '%s'."), cur_name);
+ }
+
+ /* Ok, it's valid. */
+ new_filter = XNEW (struct syscall_filter);
+ new_filter->syscall = s.number;
+ new_filter->next = result;
+ result = new_filter;
+ }
+
+ discard_cleanups (cleanup);
+ return result;
+}
+
+/* Implement the "catch syscall" command. */
+
+static void
+catch_syscall_command_1 (char *arg, int from_tty, struct cmd_list_element *command)
+{
+ int tempflag;
+ struct syscall_filter *filter;
+ struct syscall s;
+
+ /* Checking if the feature if supported. */
+ if (gdbarch_get_syscall_number_p (current_gdbarch) == 0)
+ error (_("The feature 'catch syscall' is not supported on \
+this architeture yet."));
+
+ tempflag = get_cmd_context (command) == CATCH_TEMPORARY;
+
+ ep_skip_leading_whitespace (&arg);
+
+ /* We need to do this first "dummy" translation in order
+ to get the syscall XML file loaded or, most important,
+ to display a warning to the user if there's no XML file
+ for his/her architecture. */
+ gdbarch_get_syscall_by_number (current_gdbarch, 0, &s);
+
+ /* The allowed syntax is:
+ catch syscall
+ catch syscall <name | number> [<name | number> ... <name | number>]
+
+ Let's check if there's a syscall name. */
+
+ if (arg != NULL)
+ filter = catch_syscall_split_args (arg);
+ else
+ filter = NULL;
+
+ create_syscall_event_catchpoint (tempflag, filter,
+ &catch_syscall_breakpoint_ops);
+}
+
/* Implement the "catch assert" command. */
static void
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -7134,6 +7578,7 @@ delete_breakpoint (struct breakpoint *bpt)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
xfree (bpt->source_file);
if (bpt->exec_pathname != NULL)
xfree (bpt->exec_pathname);
+ clean_up_filters (&bpt->syscalls_to_be_caught);
/* Be sure no bpstat's are pointing at it after it's been freed. */
/* FIXME, how can we find all bpstat's?
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -8041,6 +8486,56 @@ single_step_breakpoint_inserted_here_p (CORE_ADDR pc)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return 0;
}
+/* Returns 0 if 'bp' is NOT a syscall catchpoint,
+ non-zero otherwise. */
+static int
+is_syscall_catchpoint_enabled (struct breakpoint *bp)
+{
+ if (syscall_catchpoint_p (bp)
+ && bp->enable_state != bp_disabled
+ && bp->enable_state != bp_call_disabled)
+ return 1;
+ else
+ return 0;
+}
+
+int
+catch_syscall_enabled (void)
+{
+ return total_syscalls_count != 0;
+}
+
+int
+catching_syscall_number (int syscall_number)
+{
+ struct breakpoint *bp;
+
+ ALL_BREAKPOINTS (bp)
+ if (is_syscall_catchpoint_enabled (bp))
+ {
+ if (bp->syscalls_to_be_caught)
+ {
+ struct syscall_filter *iter;
+ for (iter = bp->syscalls_to_be_caught; iter; iter = iter->next)
+ if (syscall_number == iter->syscall)
+ return 1;
+ }
+ else
+ return 1;
+ }
+
+ return 0;
+}
+
+/* Complete syscall names. Used by "catch syscall". */
+static char **
+catch_syscall_completer (struct cmd_list_element *self, char *text, char *word)
+{
+ const char **list =
+ gdbarch_get_syscall_names (current_gdbarch);
+ return (list == NULL) ? NULL : complete_on_enum (list, text, word);
+}
+
/* This help string is used for the break, hbreak, tbreak and thbreak commands.
It is defined as a macro to prevent duplication.
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -8073,6 +8568,8 @@ static void
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
add_catch_command (char *name, char *docstring,
void (*sfunc) (char *args, int from_tty,
struct cmd_list_element *command),
+ char **(*completion_function) (struct cmd_list_element *self,
+ char *text, char *word),
void *user_data_catch,
void *user_data_tcatch)
{
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -8082,11 +8579,13 @@ add_catch_command (char *name, char *docstring,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
&catch_cmdlist);
set_cmd_sfunc (command, sfunc);
set_cmd_context (command, user_data_catch);
+ set_cmd_completer (command, completion_function);
command = add_cmd (name, class_breakpoint, NULL, docstring,
&tcatch_cmdlist);
set_cmd_sfunc (command, sfunc);
set_cmd_context (command, user_data_tcatch);
+ set_cmd_completer (command, completion_function);
}
void
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -8361,36 +8860,50 @@ Set temporary catchpoints to catch events."),
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
Catch an exception, when caught.\n\
With an argument, catch only exceptions with the given name."),
catch_catch_command,
+ NULL,
CATCH_PERMANENT,
CATCH_TEMPORARY);
add_catch_command ("throw", _("\
Catch an exception, when thrown.\n\
With an argument, catch only exceptions with the given name."),
catch_throw_command,
+ NULL,
CATCH_PERMANENT,
CATCH_TEMPORARY);
add_catch_command ("fork", _("Catch calls to fork."),
catch_fork_command_1,
+ NULL,
(void *) (uintptr_t) catch_fork_permanent,
(void *) (uintptr_t) catch_fork_temporary);
add_catch_command ("vfork", _("Catch calls to vfork."),
catch_fork_command_1,
+ NULL,
(void *) (uintptr_t) catch_vfork_permanent,
(void *) (uintptr_t) catch_vfork_temporary);
add_catch_command ("exec", _("Catch calls to exec."),
catch_exec_command_1,
+ NULL,
CATCH_PERMANENT,
CATCH_TEMPORARY);
+ add_catch_command ("syscall", _("\
+Catch system calls.\n\
+With an argument, catch only that syscall."),
+ catch_syscall_command_1,
+ catch_syscall_completer,
+ CATCH_PERMANENT,
+ CATCH_TEMPORARY);
add_catch_command ("exception", _("\
Catch Ada exceptions, when raised.\n\
With an argument, catch only exceptions with the given name."),
catch_ada_exception_command,
+ NULL,
CATCH_PERMANENT,
CATCH_TEMPORARY);
add_catch_command ("assert", _("\
Catch failed Ada assertions, when raised.\n\
With an argument, catch only exceptions with the given name."),
catch_assert_command,
+ NULL,
CATCH_PERMANENT,
CATCH_TEMPORARY);
diff --git a/gdb/breakpoint.h b/gdb/breakpoint.h
index 94287de..8552e1b 100644
--- a/gdb/breakpoint.h
+++ b/gdb/breakpoint.h
@@ -33,7 +33,8 @@ struct block;
#define BREAKPOINT_MAX 16
-/* Type of breakpoint. */
+
+/* Type of breakpoint. */
/* FIXME In the future, we should fold all other breakpoint-like things into
here. This includes:
@@ -337,6 +338,17 @@ enum watchpoint_triggered
watch_triggered_yes
};
+/* A syscall filter is represented as a linked list of syscall
+ numbers. */
+struct syscall_filter
+{
+ /* The system call to accept. */
+ int syscall;
+
+ /* The next filter. */
+ struct syscall_filter *next;
+};
+
typedef struct bp_location *bp_location_p;
DEF_VEC_P(bp_location_p);
@@ -442,6 +454,20 @@ struct breakpoint
triggered. */
char *exec_pathname;
+ /* Syscall number used for the 'catch syscall' feature.
+ If no syscall has been called, its value is UNKNOWN_SYSCALL.
+ Otherwise, it holds the system call number in the target.
+
+ This field is only valid immediately after this catchpoint has
+ triggered. */
+ int syscall_number;
+
+ /* Syscall numbers used for the 'catch syscall' feature.
+ If no syscall has been specified for filtering, its value is NULL.
+ Otherwise, it holds a list of all syscalls to be caught.
+ The list elements are allocated with xmalloc. */
+ struct syscall_filter *syscalls_to_be_caught;
+
/* Methods associated with this breakpoint. */
struct breakpoint_ops *ops;
@@ -783,6 +809,8 @@ extern void enable_watchpoints_after_interactive_call_stop (void);
extern enum command_control_type commands_from_control_command
(char *arg, struct command_line *cmd);
+extern void clear_syscall_catchpoints_info (void);
+
extern void clear_breakpoint_hit_counts (void);
extern int get_number (char **);
@@ -857,7 +885,19 @@ extern int breakpoints_always_inserted_mode (void);
in our opinion won't ever trigger. */
extern void breakpoint_retire_moribund (void);
+/* Checks if we are catching syscalls or not.
+ Returns 0 if not, greater than 0 if we are. */
+extern int catch_syscall_enabled (void);
+
+/* Checks if we are catching syscalls with the specific
+ syscall_number. Used for "filtering" the catchpoints.
+ Returns 0 if not, greater than 0 if we are. */
+extern int catching_syscall_number (int syscall_number);
+
/* Tell a breakpoint to be quiet. */
extern void make_breakpoint_silent (struct breakpoint *);
+/* Set break condition of breakpoint B to EXP. */
+extern void set_breakpoint_condition (struct breakpoint *b, char *exp, int from_tty);
+
#endif /* !defined (BREAKPOINT_H) */
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
diff --git a/gdb/buildsym.c b/gdb/buildsym.c
index 55ace15..2722daa 100644
--- a/gdb/buildsym.c
+++ b/gdb/buildsym.c
@@ -384,6 +384,8 @@ finish_block (struct symbol *symbol, struct pending **listhead,
opblock = pblock;
}
+ block_set_using (block, using_directives, &objfile->objfile_obstack);
+
record_pending_block (objfile, block, opblock);
return block;
@@ -815,10 +817,6 @@ start_symtab (char *name, char *dirname, CORE_ADDR start_addr)
/* We shouldn't have any address map at this point. */
gdb_assert (! pending_addrmap);
- /* Set up support for C++ namespace support, in case we need it. */
-
- cp_initialize_namespace ();
-
/* Initialize the list of sub source files with one entry for this
file (the top-level source file). */
@@ -1015,8 +1013,6 @@ end_symtab (CORE_ADDR end_addr, struct objfile *objfile, int section)
finish_block (0, &global_symbols, 0, last_source_start_addr, end_addr,
objfile);
blockvector = make_blockvector (objfile);
- cp_finalize_namespace (BLOCKVECTOR_BLOCK (blockvector, STATIC_BLOCK),
- &objfile->objfile_obstack);
}
/* Read the line table if it has to be read separately. */
@@ -1202,10 +1198,12 @@ push_context (int desc, CORE_ADDR valu)
new->params = param_symbols;
new->old_blocks = pending_blocks;
new->start_addr = valu;
+ new->using_directives = using_directives;
new->name = NULL;
local_symbols = NULL;
param_symbols = NULL;
+ using_directives = NULL;
return new;
}
diff --git a/gdb/buildsym.h b/gdb/buildsym.h
index bf23ecc..f542aca 100644
--- a/gdb/buildsym.h
+++ b/gdb/buildsym.h
@@ -125,6 +125,10 @@ EXTERN struct pending *local_symbols;
EXTERN struct pending *param_symbols;
+/* using directives local to lexical context */
+
+EXTERN struct using_direct *using_directives;
+
/* Stack representing unclosed lexical contexts (that will become
blocks, eventually). */
@@ -138,6 +142,10 @@ struct context_stack
struct pending *params;
+ /* Pending using directives at the time we entered */
+
+ struct using_direct *using_directives;
+
/* Pointer into blocklist as of entry */
struct pending_block *old_blocks;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/c-exp.y b/gdb/c-exp.y
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
index d4bbbcc..107452a 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/c-exp.y
+++ b/gdb/c-exp.y
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -119,6 +119,8 @@ static int yylex (void);
void yyerror (char *);
+/* Cleanup for 'nonempty_typelist' */
+static struct cleanup *typelist_cleanup;
%}
/* Although the yacc "value" of an expression is not used,
@@ -143,6 +145,7 @@ void yyerror (char *);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
struct symbol *sym;
struct type *tval;
struct stoken sval;
+ struct typed_stoken tsval;
struct ttype tsym;
struct symtoken ssym;
int voidval;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -150,6 +153,7 @@ void yyerror (char *);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
enum exp_opcode opcode;
struct internalvar *ivar;
+ struct stoken_vector svec;
struct type **tvec;
int *ivec;
}
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -182,11 +186,13 @@ static int parse_number (char *, int, int, YYSTYPE *);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
Contexts where this distinction is not important can use the
nonterminal "name", which matches either NAME or TYPENAME. */
-%token <sval> STRING
+%token <tsval> STRING
+%token <tsval> CHAR
%token <ssym> NAME /* BLOCKNAME defined below to give it higher precedence. */
%token <voidval> COMPLETE
%token <tsym> TYPENAME
-%type <sval> name string_exp
+%type <sval> name
+%type <svec> string_exp
%type <ssym> name_not_typename
%type <tsym> typename
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -399,6 +405,38 @@ arglist : arglist ',' exp %prec ABOVE_COMMA
{ arglist_len++; }
;
+exp : exp '(' nonempty_typelist ')'
+ { int i;
+ /* What to do about freeing memory if
+ there is an error during parsing? */
+ write_exp_elt_opcode (TYPE_INSTANCE);
+ write_exp_elt_longcst ((LONGEST) $<ivec>3[0]);
+ for (i = 0; i < $<ivec>3[0]; ++i)
+ write_exp_elt_type ($<tvec>3[i + 1]);
+ write_exp_elt_longcst((LONGEST) $<ivec>3[0]);
+ write_exp_elt_opcode (TYPE_INSTANCE);
+ do_cleanups (typelist_cleanup);
+ }
+ ;
+
+/*
+exp : BLOCKNAME '(' nonempty_typelist ')'
+ { int i;
+ write_exp_elt_opcode (TYPE_INSTANCE_LOOKUP);
+ write_exp_elt_sym ($1.sym);
+ write_exp_elt_opcode (TYPE_INSTANCE_LOOKUP);
+
+ write_exp_elt_opcode (TYPE_INSTANCE);
+ write_exp_elt_longcst ((LONGEST) $<ivec>3[0]);
+ for (i = 0; i < $<ivec>3[0]; ++i)
+ write_exp_elt_type ($<tvec>3[i + 1]);
+ write_exp_elt_longcst((LONGEST) $<ivec>3[0]);
+ write_exp_elt_opcode (TYPE_INSTANCE);
+ do_cleanups (typelist_cleanup);
+ }
+ ;
+*/
+
rcurly : '}'
{ $$ = end_arglist () - 1; }
;
@@ -524,6 +562,15 @@ exp : INT
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
write_exp_elt_opcode (OP_LONG); }
;
+exp : CHAR
+ {
+ struct stoken_vector vec;
+ vec.len = 1;
+ vec.tokens = &$1;
+ write_exp_string_vector ($1.type, &vec);
+ }
+ ;
+
exp : NAME_OR_INT
{ YYSTYPE val;
parse_number ($1.stoken.ptr, $1.stoken.length, 0, &val);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -572,48 +619,64 @@ string_exp:
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
string. Note that we follow the
NUL-termination convention of the
lexer. */
- $$.length = $1.length;
- $$.ptr = malloc ($1.length + 1);
- memcpy ($$.ptr, $1.ptr, $1.length + 1);
+ struct typed_stoken *vec = XNEW (struct typed_stoken);
+ $$.len = 1;
+ $$.tokens = vec;
+
+ vec->type = $1.type;
+ vec->length = $1.length;
+ vec->ptr = malloc ($1.length + 1);
+ memcpy (vec->ptr, $1.ptr, $1.length + 1);
}
| string_exp STRING
{
/* Note that we NUL-terminate here, but just
for convenience. */
- struct stoken t;
- t.length = $1.length + $2.length;
- t.ptr = malloc (t.length + 1);
- memcpy (t.ptr, $1.ptr, $1.length);
- memcpy (t.ptr + $1.length, $2.ptr, $2.length + 1);
- free ($1.ptr);
- $$ = t;
+ char *p;
+ ++$$.len;
+ $$.tokens = realloc ($$.tokens,
+ $$.len * sizeof (struct typed_stoken));
+
+ p = malloc ($2.length + 1);
+ memcpy (p, $2.ptr, $2.length + 1);
+
+ $$.tokens[$$.len - 1].type = $2.type;
+ $$.tokens[$$.len - 1].length = $2.length;
+ $$.tokens[$$.len - 1].ptr = p;
}
;
exp : string_exp
- { /* C strings are converted into array constants with
- an explicit null byte added at the end. Thus
- the array upper bound is the string length.
- There is no such thing in C as a completely empty
- string. */
- char *sp = $1.ptr; int count = $1.length;
- while (count-- > 0)
+ {
+ int i;
+ enum c_string_type type = C_STRING;
+
+ for (i = 0; i < $1.len; ++i)
{
- write_exp_elt_opcode (OP_LONG);
- write_exp_elt_type (parse_type->builtin_char);
- write_exp_elt_longcst ((LONGEST)(*sp++));
- write_exp_elt_opcode (OP_LONG);
+ switch ($1.tokens[i].type)
+ {
+ case C_STRING:
+ break;
+ case C_WIDE_STRING:
+ case C_STRING_16:
+ case C_STRING_32:
+ if (type != C_STRING
+ && type != $1.tokens[i].type)
+ error ("Undefined string concatenation.");
+ type = $1.tokens[i].type;
+ break;
+ default:
+ /* internal error */
+ internal_error (__FILE__, __LINE__,
+ "unrecognized type in string concatenation");
+ }
}
- write_exp_elt_opcode (OP_LONG);
- write_exp_elt_type (parse_type->builtin_char);
- write_exp_elt_longcst ((LONGEST)'\0');
- write_exp_elt_opcode (OP_LONG);
- write_exp_elt_opcode (OP_ARRAY);
- write_exp_elt_longcst ((LONGEST) 0);
- write_exp_elt_longcst ((LONGEST) ($1.length));
- write_exp_elt_opcode (OP_ARRAY);
- free ($1.ptr);
+
+ write_exp_string_vector (type, &$1);
+ for (i = 0; i < $1.len; ++i)
+ free ($1.tokens[i].ptr);
+ free ($1.tokens);
}
;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -713,12 +776,13 @@ qualified_name: typebase COLONCOLON name
;
variable: qualified_name
+ | COLONCOLON qualified_name
| COLONCOLON name
{
char *name = copy_name ($2);
struct symbol *sym;
struct minimal_symbol *msymbol;
-
+
sym =
lookup_symbol (name, (const struct block *) NULL,
VAR_DOMAIN, (int *) NULL);
@@ -856,7 +920,7 @@ array_mod: '[' ']'
func_mod: '(' ')'
{ $$ = 0; }
| '(' nonempty_typelist ')'
- { free ($2); $$ = 0; }
+ { do_cleanups (typelist_cleanup); $$ = 0; }
;
/* We used to try to recognize pointer to member types here, but
@@ -1057,12 +1121,15 @@ typename: TYPENAME
nonempty_typelist
: type
{ $$ = (struct type **) malloc (sizeof (struct type *) * 2);
+ typelist_cleanup = make_cleanup (free, $$);
$<ivec>$[0] = 1; /* Number of types in vector */
$$[1] = $1;
}
| nonempty_typelist ',' type
{ int len = sizeof (struct type *) * (++($<ivec>1[0]) + 1);
$$ = (struct type **) realloc ((char *) $1, len);
+ discard_cleanups (typelist_cleanup);
+ typelist_cleanup = make_cleanup (free, $$);
$$[$<ivec>$[0]] = $3;
}
;
@@ -1361,6 +1428,263 @@ parse_number (p, len, parsed_float, putithere)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return INT;
}
+/* Temporary obstack used for holding strings. */
+static struct obstack tempbuf;
+static int tempbuf_init;
+
+/* Parse a C escape sequence. The initial backslash of the sequence
+ is at (*PTR)[-1]. *PTR will be updated to point to just after the
+ last character of the sequence. If OUTPUT is not NULL, the
+ translated form of the escape sequence will be written there. If
+ OUTPUT is NULL, no output is written and the call will only affect
+ *PTR. If an escape sequence is expressed in target bytes, then the
+ entire sequence will simply be copied to OUTPUT. Return 1 if any
+ character was emitted, 0 otherwise. */
+
+int
+c_parse_escape (char **ptr, struct obstack *output)
+{
+ char *tokptr = *ptr;
+ int result = 1;
+
+ /* Some escape sequences undergo character set conversion. Those we
+ translate here. */
+ switch (*tokptr)
+ {
+ /* Hex escapes do not undergo character set conversion, so keep
+ the escape sequence for later. */
+ case 'x':
+ if (output)
+ obstack_grow_str (output, "\\x");
+ ++tokptr;
+ if (!isxdigit (*tokptr))
+ error (_("\\x escape without a following hex digit"));
+ while (isxdigit (*tokptr))
+ {
+ if (output)
+ obstack_1grow (output, *tokptr);
+ ++tokptr;
+ }
+ break;
+
+ /* Octal escapes do not undergo character set conversion, so
+ keep the escape sequence for later. */
+ case '0':
+ case '1':
+ case '2':
+ case '3':
+ case '4':
+ case '5':
+ case '6':
+ case '7':
+ if (output)
+ obstack_grow_str (output, "\\");
+ while (isdigit (*tokptr) && *tokptr != '8' && *tokptr != '9')
+ {
+ if (output)
+ obstack_1grow (output, *tokptr);
+ ++tokptr;
+ }
+ break;
+
+ /* We handle UCNs later. We could handle them here, but that
+ would mean a spurious error in the case where the UCN could
+ be converted to the target charset but not the host
+ charset. */
+ case 'u':
+ case 'U':
+ {
+ char c = *tokptr;
+ int i, len = c == 'U' ? 8 : 4;
+ if (output)
+ {
+ obstack_1grow (output, '\\');
+ obstack_1grow (output, *tokptr);
+ }
+ ++tokptr;
+ if (!isxdigit (*tokptr))
+ error (_("\\%c escape without a following hex digit"), c);
+ for (i = 0; i < len && isxdigit (*tokptr); ++i)
+ {
+ if (output)
+ obstack_1grow (output, *tokptr);
+ ++tokptr;
+ }
+ }
+ break;
+
+ /* We must pass backslash through so that it does not
+ cause quoting during the second expansion. */
+ case '\\':
+ if (output)
+ obstack_grow_str (output, "\\\\");
+ ++tokptr;
+ break;
+
+ /* Escapes which undergo conversion. */
+ case 'a':
+ if (output)
+ obstack_1grow (output, '\a');
+ ++tokptr;
+ break;
+ case 'b':
+ if (output)
+ obstack_1grow (output, '\b');
+ ++tokptr;
+ break;
+ case 'f':
+ if (output)
+ obstack_1grow (output, '\f');
+ ++tokptr;
+ break;
+ case 'n':
+ if (output)
+ obstack_1grow (output, '\n');
+ ++tokptr;
+ break;
+ case 'r':
+ if (output)
+ obstack_1grow (output, '\r');
+ ++tokptr;
+ break;
+ case 't':
+ if (output)
+ obstack_1grow (output, '\t');
+ ++tokptr;
+ break;
+ case 'v':
+ if (output)
+ obstack_1grow (output, '\v');
+ ++tokptr;
+ break;
+
+ /* GCC extension. */
+ case 'e':
+ if (output)
+ obstack_1grow (output, HOST_ESCAPE_CHAR);
+ ++tokptr;
+ break;
+
+ /* Backslash-newline expands to nothing at all. */
+ case '\n':
+ ++tokptr;
+ result = 0;
+ break;
+
+ /* A few escapes just expand to the character itself. */
+ case '\'':
+ case '\"':
+ case '?':
+ /* GCC extensions. */
+ case '(':
+ case '{':
+ case '[':
+ case '%':
+ /* Unrecognized escapes turn into the character itself. */
+ default:
+ if (output)
+ obstack_1grow (output, *tokptr);
+ ++tokptr;
+ break;
+ }
+ *ptr = tokptr;
+ return result;
+}
+
+/* Parse a string or character literal from TOKPTR. The string or
+ character may be wide or unicode. *OUTPTR is set to just after the
+ end of the literal in the input string. The resulting token is
+ stored in VALUE. This returns a token value, either STRING or
+ CHAR, depending on what was parsed. *HOST_CHARS is set to the
+ number of host characters in the literal. */
+static int
+parse_string_or_char (char *tokptr, char **outptr, struct typed_stoken *value,
+ int *host_chars)
+{
+ int quote, i;
+ enum c_string_type type;
+
+ /* Build the gdb internal form of the input string in tempbuf. Note
+ that the buffer is null byte terminated *only* for the
+ convenience of debugging gdb itself and printing the buffer
+ contents when the buffer contains no embedded nulls. Gdb does
+ not depend upon the buffer being null byte terminated, it uses
+ the length string instead. This allows gdb to handle C strings
+ (as well as strings in other languages) with embedded null
+ bytes */
+
+ if (!tempbuf_init)
+ tempbuf_init = 1;
+ else
+ obstack_free (&tempbuf, NULL);
+ obstack_init (&tempbuf);
+
+ /* Record the string type. */
+ if (*tokptr == 'L')
+ {
+ type = C_WIDE_STRING;
+ ++tokptr;
+ }
+ else if (*tokptr == 'u')
+ {
+ type = C_STRING_16;
+ ++tokptr;
+ }
+ else if (*tokptr == 'U')
+ {
+ type = C_STRING_32;
+ ++tokptr;
+ }
+ else
+ type = C_STRING;
+
+ /* Skip the quote. */
+ quote = *tokptr;
+ if (quote == '\'')
+ type |= C_CHAR;
+ ++tokptr;
+
+ *host_chars = 0;
+
+ while (*tokptr)
+ {
+ char c = *tokptr;
+ if (c == '\\')
+ {
+ ++tokptr;
+ *host_chars += c_parse_escape (&tokptr, &tempbuf);
+ }
+ else if (c == quote)
+ break;
+ else
+ {
+ obstack_1grow (&tempbuf, c);
+ ++tokptr;
+ /* FIXME: this does the wrong thing with multi-byte host
+ characters. We could use mbrlen here, but that would
+ make "set host-charset" a bit less useful. */
+ ++*host_chars;
+ }
+ }
+
+ if (*tokptr != quote)
+ {
+ if (quote == '"')
+ error ("Unterminated string in expression.");
+ else
+ error ("Unmatched single quote.");
+ }
+ ++tokptr;
+
+ value->type = type;
+ value->ptr = obstack_base (&tempbuf);
+ value->length = obstack_object_size (&tempbuf);
+
+ *outptr = tokptr;
+
+ return quote == '"' ? STRING : CHAR;
+}
+
struct token
{
char *operator;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -1526,23 +1850,33 @@ static int last_was_structop;
static int
yylex ()
{
+ /* name_prefix stores the full qualification of a variable that is
+ specified in the expression. It is used to eleminate confusion
+ during lookup.*/
+ static char* name_prefix = NULL;
+ static int name_prefix_len = 0;
+ static int terminate_prefix = 0;
+
int c;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
int namelen;
unsigned int i;
char *tokstart;
- char *tokptr;
- int tempbufindex;
- static char *tempbuf;
- static int tempbufsize;
- char * token_string = NULL;
- int class_prefix = 0;
int saw_structop = last_was_structop;
char *copy;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
last_was_structop = 0;
-
+
retry:
-
+
+ if(terminate_prefix ||
+ lexptr != name_prefix + name_prefix_len // Some token was skiped so clear name_prefix
+ ){
+ name_prefix = NULL;
+ name_prefix_len = 0;
+ }
+
+ terminate_prefix = 1;
+
/* Check if this is a macro invocation that we need to expand. */
if (! scanning_macro_expansion ())
{
@@ -1570,10 +1904,19 @@ yylex ()
for (i = 0; i < sizeof tokentab2 / sizeof tokentab2[0]; i++)
if (strncmp (tokstart, tokentab2[i].operator, 2) == 0)
{
+
+ if(tokentab2[i].token == COLONCOLON){
+ name_prefix_len += 2;
+ terminate_prefix = 0;
+ if(name_prefix == NULL){
+ name_prefix = lexptr;
+ }
+ }
lexptr += 2;
yylval.opcode = tokentab2[i].opcode;
if (in_parse_field && tokentab2[i].token == ARROW)
last_was_structop = 1;
+
return tokentab2[i].token;
}
@@ -1602,51 +1945,13 @@ yylex ()
return 0;
case ' ':
+ name_prefix_len++;
+ terminate_prefix = 0;
case '\t':
case '\n':
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
lexptr++;
goto retry;
- case '\'':
- /* We either have a character constant ('0' or '\177' for example)
- or we have a quoted symbol reference ('foo(int,int)' in C++
- for example). */
- lexptr++;
- c = *lexptr++;
- if (c == '\\')
- c = parse_escape (&lexptr);
- else if (c == '\'')
- error ("Empty character constant.");
- else if (! host_char_to_target (c, &c))
- {
- int toklen = lexptr - tokstart + 1;
- char *tok = alloca (toklen + 1);
- memcpy (tok, tokstart, toklen);
- tok[toklen] = '\0';
- error ("There is no character corresponding to %s in the target "
- "character set `%s'.", tok, target_charset ());
- }
-
- yylval.typed_val_int.val = c;
- yylval.typed_val_int.type = parse_type->builtin_char;
-
- c = *lexptr++;
- if (c != '\'')
- {
- namelen = skip_quoted (tokstart) - tokstart;
- if (namelen > 2)
- {
- lexptr = tokstart + namelen;
- if (lexptr[-1] != '\'')
- error ("Unmatched single quote.");
- namelen -= 2;
- tokstart++;
- goto tryname;
- }
- error ("Invalid character constant.");
- }
- return INT;
-
case '(':
paren_depth++;
lexptr++;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -1764,70 +2069,33 @@ yylex ()
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
lexptr++;
return c;
+ case 'L':
+ case 'u':
+ case 'U':
+ if (tokstart[1] != '"' && tokstart[1] != '\'')
+ break;
+ /* Fall through. */
+ case '\'':
case '"':
-
- /* Build the gdb internal form of the input string in tempbuf,
- translating any standard C escape forms seen. Note that the
- buffer is null byte terminated *only* for the convenience of
- debugging gdb itself and printing the buffer contents when
- the buffer contains no embedded nulls. Gdb does not depend
- upon the buffer being null byte terminated, it uses the length
- string instead. This allows gdb to handle C strings (as well
- as strings in other languages) with embedded null bytes */
-
- tokptr = ++tokstart;
- tempbufindex = 0;
-
- do {
- char *char_start_pos = tokptr;
-
- /* Grow the static temp buffer if necessary, including allocating
- the first one on demand. */
- if (tempbufindex + 1 >= tempbufsize)
- {
- tempbuf = (char *) realloc (tempbuf, tempbufsize += 64);
- }
- switch (*tokptr)
+ {
+ int host_len;
+ int result = parse_string_or_char (tokstart, &lexptr, &yylval.tsval,
+ &host_len);
+ if (result == CHAR)
{
- case '\0':
- case '"':
- /* Do nothing, loop will terminate. */
- break;
- case '\\':
- tokptr++;
- c = parse_escape (&tokptr);
- if (c == -1)
+ if (host_len == 0)
+ error ("Empty character constant.");
+ else if (host_len > 2 && c == '\'')
{
- continue;
+ ++tokstart;
+ namelen = lexptr - tokstart - 1;
+ goto tryname;
}
- tempbuf[tempbufindex++] = c;
- break;
- default:
- c = *tokptr++;
- if (! host_char_to_target (c, &c))
- {
- int len = tokptr - char_start_pos;
- char *copy = alloca (len + 1);
- memcpy (copy, char_start_pos, len);
- copy[len] = '\0';
-
- error ("There is no character corresponding to `%s' "
- "in the target character set `%s'.",
- copy, target_charset ());
- }
- tempbuf[tempbufindex++] = c;
- break;
+ else if (host_len > 1)
+ error ("Invalid character constant.");
}
- } while ((*tokptr != '"') && (*tokptr != '\0'));
- if (*tokptr++ != '"')
- {
- error ("Unterminated string in expression.");
- }
- tempbuf[tempbufindex] = '\0'; /* See note above */
- yylval.sval.ptr = tempbuf;
- yylval.sval.length = tempbufindex;
- lexptr = tokptr;
- return (STRING);
+ return result;
+ }
}
if (!(c == '_' || c == '$'
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -1836,11 +2104,13 @@ yylex ()
error ("Invalid character '%c' in expression.", c);
/* It's a name. See how long it is. */
+
namelen = 0;
for (c = tokstart[namelen];
(c == '_' || c == '$' || (c >= '0' && c <= '9')
|| (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z') || c == '<');)
{
+
/* Template parameter lists are part of the name.
FIXME: This mishandles `print $a<4&&$a>3'. */
@@ -1904,14 +2174,29 @@ yylex ()
currently as names of types; NAME for other symbols.
The caller is not constrained to care about the distinction. */
{
+ char *tmp = copy;
struct symbol *sym;
int is_a_field_of_this = 0;
int hextype;
- sym = lookup_symbol (copy, expression_context_block,
+ if(name_prefix != NULL){
+ tmp = savestring (name_prefix, name_prefix_len+namelen);
+ }
+
+ sym = lookup_symbol (tmp, expression_context_block,
VAR_DOMAIN,
parse_language->la_language == language_cplus
? &is_a_field_of_this : (int *) NULL);
+
+ /* keep this name as prefix for the next name */
+ if(sym){
+ if(name_prefix == NULL){
+ name_prefix = tokstart;
+ }
+ name_prefix_len += namelen;
+ terminate_prefix = 0;
+ }
+
/* Call lookup_symtab, not lookup_partial_symtab, in case there are
no psymtabs (coff, xcoff, or some future change to blow away the
psymtabs once once symbols are read). */
@@ -1970,6 +2255,7 @@ yylex ()
yylval.ssym.is_a_field_of_this = is_a_field_of_this;
if (in_parse_field && *lexptr == '\0')
saw_name_at_eof = 1;
+
return NAME;
}
}
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/c-lang.c b/gdb/c-lang.c
index 8b5410f..188755b 100644
--- a/gdb/c-lang.c
+++ b/gdb/c-lang.c
@@ -33,48 +33,304 @@
#include "demangle.h"
#include "cp-abi.h"
#include "cp-support.h"
+#include "gdb_obstack.h"
+#include <ctype.h>
+#include <wchar.h>
+#include <wctype.h>
extern void _initialize_c_language (void);
-static void c_emit_char (int c, struct ui_file * stream, int quoter);
+
+/* Given a C string type, STR_TYPE, return the corresponding target
+ character set name. */
+
+static const char *
+charset_for_string_type (enum c_string_type str_type)
+{
+ switch (str_type & ~C_CHAR)
+ {
+ case C_STRING:
+ return target_charset ();
+ case C_WIDE_STRING:
+ return target_wide_charset ();
+ case C_STRING_16:
+ /* FIXME: UCS-2 is not always correct. */
+ if (gdbarch_byte_order (current_gdbarch) == BFD_ENDIAN_BIG)
+ return "UCS-2BE";
+ else
+ return "UCS-2LE";
+ case C_STRING_32:
+ /* FIXME: UCS-4 is not always correct. */
+ if (gdbarch_byte_order (current_gdbarch) == BFD_ENDIAN_BIG)
+ return "UCS-4BE";
+ else
+ return "UCS-4LE";
+ }
+ internal_error (__FILE__, __LINE__, "unhandled c_string_type");
+}
+
+/* Classify ELTTYPE according to what kind of character it is. Return
+ the enum constant representing the character type. Also set
+ *ENCODING to the name of the character set to use when converting
+ characters of this type to the host character set. */
+
+static enum c_string_type
+classify_type (struct type *elttype, const char **encoding)
+{
+ struct type *saved_type;
+ enum c_string_type result;
+
+ /* We do one or two passes -- one on ELTTYPE, and then maybe a
+ second one on a typedef target. */
+ do
+ {
+ char *name = TYPE_NAME (elttype);
+
+ if (TYPE_CODE (elttype) == TYPE_CODE_CHAR || !name)
+ {
+ result = C_CHAR;
+ goto done;
+ }
+
+ if (!strcmp (name, "wchar_t"))
+ {
+ result = C_WIDE_CHAR;
+ goto done;
+ }
+
+ if (!strcmp (name, "char16_t"))
+ {
+ result = C_CHAR_16;
+ goto done;
+ }
+
+ if (!strcmp (name, "char32_t"))
+ {
+ result = C_CHAR_32;
+ goto done;
+ }
+
+ saved_type = elttype;
+ CHECK_TYPEDEF (elttype);
+ }
+ while (elttype != saved_type);
+
+ /* Punt. */
+ result = C_CHAR;
+
+ done:
+ *encoding = charset_for_string_type (result);
+ return result;
+}
+
+/* Return true if print_wchar can display W without resorting to a
+ numeric escape, false otherwise. */
+
+static int
+wchar_printable (wchar_t w)
+{
+ return (iswprint (w)
+ || w == L'\a' || w == L'\b' || w == L'\f' || w == L'\n'
+ || w == L'\r' || w == L'\t' || w == L'\v');
+}
+
+/* A helper function that converts the contents of STRING to wide
+ characters and then appends them to OUTPUT. */
+
+static void
+append_string_as_wide (const char *string, struct obstack *output)
+{
+ for (; *string; ++string)
+ {
+ wchar_t w = btowc (*string);
+ obstack_grow (output, &w, sizeof (wchar_t));
+ }
+}
+
+/* Print a wide character W to OUTPUT. ORIG is a pointer to the
+ original (target) bytes representing the character, ORIG_LEN is the
+ number of valid bytes. WIDTH is the number of bytes in a base
+ characters of the type. OUTPUT is an obstack to which wide
+ characters are emitted. QUOTER is a (narrow) character indicating
+ the style of quotes surrounding the character to be printed.
+ NEED_ESCAPE is an in/out flag which is used to track numeric
+ escapes across calls. */
+
+static void
+print_wchar (wint_t w, const gdb_byte *orig, int orig_len,
+ int width, struct obstack *output, int quoter,
+ int *need_escapep)
+{
+ int need_escape = *need_escapep;
+ *need_escapep = 0;
+ if (iswprint (w) && (!need_escape || (!iswdigit (w)
+ && w != L'8'
+ && w != L'9')))
+ {
+ if (w == btowc (quoter) || w == L'\\')
+ obstack_grow_wstr (output, L"\\");
+ obstack_grow (output, &w, sizeof (wchar_t));
+ }
+ else
+ {
+ switch (w)
+ {
+ case L'\a':
+ obstack_grow_wstr (output, L"\\a");
+ break;
+ case L'\b':
+ obstack_grow_wstr (output, L"\\b");
+ break;
+ case L'\f':
+ obstack_grow_wstr (output, L"\\f");
+ break;
+ case L'\n':
+ obstack_grow_wstr (output, L"\\n");
+ break;
+ case L'\r':
+ obstack_grow_wstr (output, L"\\r");
+ break;
+ case L'\t':
+ obstack_grow_wstr (output, L"\\t");
+ break;
+ case L'\v':
+ obstack_grow_wstr (output, L"\\v");
+ break;
+ default:
+ {
+ int i;
+
+ for (i = 0; i + width <= orig_len; i += width)
+ {
+ char octal[30];
+ ULONGEST value = extract_unsigned_integer (&orig[i], width);
+ sprintf (octal, "\\%lo", (long) value);
+ append_string_as_wide (octal, output);
+ }
+ /* If we somehow have extra bytes, print them now. */
+ while (i < orig_len)
+ {
+ char octal[5];
+ sprintf (octal, "\\%.3o", orig[i] & 0xff);
+ append_string_as_wide (octal, output);
+ ++i;
+ }
+
+ *need_escapep = 1;
+ }
+ break;
+ }
+ }
+}
/* Print the character C on STREAM as part of the contents of a literal
string whose delimiter is QUOTER. Note that that format for printing
characters and strings is language specific. */
static void
-c_emit_char (int c, struct ui_file *stream, int quoter)
+c_emit_char (int c, struct type *type, struct ui_file *stream, int quoter)
{
- const char *escape;
- int host_char;
+ struct obstack wchar_buf, output;
+ struct cleanup *cleanups;
+ const char *encoding;
+ gdb_byte *buf;
+ struct wchar_iterator *iter;
+ int need_escape = 0;
- c &= 0xFF; /* Avoid sign bit follies */
+ classify_type (type, &encoding);
- escape = c_target_char_has_backslash_escape (c);
- if (escape)
- {
- if (quoter == '"' && strcmp (escape, "0") == 0)
- /* Print nulls embedded in double quoted strings as \000 to
- prevent ambiguity. */
- fprintf_filtered (stream, "\\000");
- else
- fprintf_filtered (stream, "\\%s", escape);
- }
- else if (target_char_to_host (c, &host_char)
- && host_char_print_literally (host_char))
+ buf = alloca (TYPE_LENGTH (type));
+ pack_long (buf, type, c);
+
+ iter = make_wchar_iterator (buf, TYPE_LENGTH (type), encoding,
+ TYPE_LENGTH (type));
+ cleanups = make_cleanup_wchar_iterator (iter);
+
+ /* This holds the printable form of the wchar_t data. */
+ obstack_init (&wchar_buf);
+ make_cleanup_obstack_free (&wchar_buf);
+
+ while (1)
{
- if (host_char == '\\' || host_char == quoter)
- fputs_filtered ("\\", stream);
- fprintf_filtered (stream, "%c", host_char);
+ int num_chars;
+ wchar_t *chars;
+ const gdb_byte *buf;
+ size_t buflen;
+ int print_escape = 1;
+ enum wchar_iterate_result result;
+
+ num_chars = wchar_iterate (iter, &result, &chars, &buf, &buflen);
+ if (num_chars < 0)
+ break;
+ if (num_chars > 0)
+ {
+ /* If all characters are printable, print them. Otherwise,
+ we're going to have to print an escape sequence. We
+ check all characters because we want to print the target
+ bytes in the escape sequence, and we don't know character
+ boundaries there. */
+ int i;
+
+ print_escape = 0;
+ for (i = 0; i < num_chars; ++i)
+ if (!wchar_printable (chars[i]))
+ {
+ print_escape = 1;
+ break;
+ }
+
+ if (!print_escape)
+ {
+ for (i = 0; i < num_chars; ++i)
+ print_wchar (chars[i], buf, buflen, TYPE_LENGTH (type),
+ &wchar_buf, quoter, &need_escape);
+ }
+ }
+
+ /* This handles the NUM_CHARS == 0 case as well. */
+ if (print_escape)
+ print_wchar (WEOF, buf, buflen, TYPE_LENGTH (type), &wchar_buf, quoter,
+ &need_escape);
}
- else
- fprintf_filtered (stream, "\\%.3o", (unsigned int) c);
+
+ /* The output in the host encoding. */
+ obstack_init (&output);
+ make_cleanup_obstack_free (&output);
+
+ convert_between_encodings ("wchar_t", host_charset (),
+ obstack_base (&wchar_buf),
+ obstack_object_size (&wchar_buf),
+ 1, &output, translit_char);
+ obstack_1grow (&output, '\0');
+
+ fputs_filtered (obstack_base (&output), stream);
+
+ do_cleanups (cleanups);
}
void
-c_printchar (int c, struct ui_file *stream)
+c_printchar (int c, struct type *type, struct ui_file *stream)
{
+ enum c_string_type str_type;
+ const char *encoding;
+
+ str_type = classify_type (type, &encoding);
+ switch (str_type)
+ {
+ case C_CHAR:
+ break;
+ case C_WIDE_CHAR:
+ fputc_filtered ('L', stream);
+ break;
+ case C_CHAR_16:
+ fputc_filtered ('u', stream);
+ break;
+ case C_CHAR_32:
+ fputc_filtered ('U', stream);
+ break;
+ }
+
fputc_filtered ('\'', stream);
- LA_EMIT_CHAR (c, stream, '\'');
+ LA_EMIT_CHAR (c, type, stream, '\'');
fputc_filtered ('\'', stream);
}
@@ -85,87 +341,206 @@ c_printchar (int c, struct ui_file *stream)
printing LENGTH characters, or if FORCE_ELLIPSES. */
void
-c_printstr (struct ui_file *stream, const gdb_byte *string,
- unsigned int length, int width, int force_ellipses,
+c_printstr (struct ui_file *stream, struct type *type, const gdb_byte *string,
+ unsigned int length, int force_ellipses,
const struct value_print_options *options)
{
unsigned int i;
unsigned int things_printed = 0;
int in_quotes = 0;
int need_comma = 0;
+ int width = TYPE_LENGTH (type);
+ struct obstack wchar_buf, output;
+ struct cleanup *cleanup;
+ enum c_string_type str_type;
+ const char *encoding;
+ struct wchar_iterator *iter;
+ int finished = 0;
+ int need_escape = 0;
/* If the string was not truncated due to `set print elements', and
the last byte of it is a null, we don't print that, in traditional C
style. */
if (!force_ellipses
&& length > 0
- && (extract_unsigned_integer (string + (length - 1) * width, width)
- == '\0'))
+ && (extract_unsigned_integer (string + (length - 1) * width, width) == 0))
length--;
+ str_type = classify_type (type, &encoding) & ~C_CHAR;
+ switch (str_type)
+ {
+ case C_STRING:
+ break;
+ case C_WIDE_STRING:
+ fputs_filtered ("L", stream);
+ break;
+ case C_STRING_16:
+ fputs_filtered ("u", stream);
+ break;
+ case C_STRING_32:
+ fputs_filtered ("U", stream);
+ break;
+ }
+
if (length == 0)
{
fputs_filtered ("\"\"", stream);
return;
}
- for (i = 0; i < length && things_printed < options->print_max; ++i)
+ if (length == -1)
+ {
+ unsigned long current_char = 1;
+ for (i = 0; current_char; ++i)
+ {
+ QUIT;
+ current_char = extract_unsigned_integer (string + i * width, width);
+ }
+ length = i;
+ }
+
+ /* Arrange to iterate over the characters, in wchar_t form. */
+ iter = make_wchar_iterator (string, length * width, encoding, width);
+ cleanup = make_cleanup_wchar_iterator (iter);
+
+ /* WCHAR_BUF is the obstack we use to represent the string in
+ wchar_t form. */
+ obstack_init (&wchar_buf);
+ make_cleanup_obstack_free (&wchar_buf);
+
+ while (!finished && things_printed < options->print_max)
{
- /* Position of the character we are examining
- to see whether it is repeated. */
- unsigned int rep1;
- /* Number of repetitions we have detected so far. */
- unsigned int reps;
- unsigned long current_char;
+ int num_chars;
+ enum wchar_iterate_result result;
+ wchar_t *chars;
+ const gdb_byte *buf;
+ size_t buflen;
QUIT;
if (need_comma)
{
- fputs_filtered (", ", stream);
+ obstack_grow_wstr (&wchar_buf, L", ");
need_comma = 0;
}
- current_char = extract_unsigned_integer (string + i * width, width);
+ num_chars = wchar_iterate (iter, &result, &chars, &buf, &buflen);
+ /* We only look at repetitions when we were able to convert a
+ single character in isolation. This makes the code simpler
+ and probably does the sensible thing in the majority of
+ cases. */
+ while (num_chars == 1)
+ {
+ /* Count the number of repetitions. */
+ unsigned int reps = 0;
+ wchar_t current_char = chars[0];
+ const gdb_byte *orig_buf = buf;
+ int orig_len = buflen;
- rep1 = i + 1;
- reps = 1;
- while (rep1 < length
- && extract_unsigned_integer (string + rep1 * width, width)
- == current_char)
+ if (need_comma)
+ {
+ obstack_grow_wstr (&wchar_buf, L", ");
+ need_comma = 0;
+ }
+
+ while (num_chars == 1 && current_char == chars[0])
+ {
+ num_chars = wchar_iterate (iter, &result, &chars, &buf, &buflen);
+ ++reps;
+ }
+
+ /* Emit CURRENT_CHAR according to the repetition count and
+ options. */
+ if (reps > options->repeat_count_threshold)
+ {
+ if (in_quotes)
+ {
+ if (options->inspect_it)
+ obstack_grow_wstr (&wchar_buf, L"\\\", ");
+ else
+ obstack_grow_wstr (&wchar_buf, L"\", ");
+ in_quotes = 0;
+ }
+ obstack_grow_wstr (&wchar_buf, L"'");
+ need_escape = 0;
+ print_wchar (current_char, orig_buf, orig_len, width,
+ &wchar_buf, '\'', &need_escape);
+ obstack_grow_wstr (&wchar_buf, L"'");
+ {
+ /* Painful gyrations. */
+ int j;
+ char *s = xstrprintf (_(" <repeats %u times>"), reps);
+ for (j = 0; s[j]; ++j)
+ {
+ wchar_t w = btowc (s[j]);
+ obstack_grow (&wchar_buf, &w, sizeof (wchar_t));
+ }
+ xfree (s);
+ }
+ things_printed += options->repeat_count_threshold;
+ need_comma = 1;
+ }
+ else
+ {
+ /* Saw the character one or more times, but fewer than
+ the repetition threshold. */
+ if (!in_quotes)
+ {
+ if (options->inspect_it)
+ obstack_grow_wstr (&wchar_buf, L"\\\"");
+ else
+ obstack_grow_wstr (&wchar_buf, L"\"");
+ in_quotes = 1;
+ need_escape = 0;
+ }
+
+ while (reps-- > 0)
+ {
+ print_wchar (current_char, orig_buf, orig_len, width,
+ &wchar_buf, '"', &need_escape);
+ ++things_printed;
+ }
+ }
+ }
+
+ /* NUM_CHARS and the other outputs from wchar_iterate are valid
+ here regardless of which branch was taken above. */
+ if (num_chars < 0)
{
- ++rep1;
- ++reps;
+ /* Hit EOF. */
+ finished = 1;
+ break;
}
- if (reps > options->repeat_count_threshold)
+ switch (result)
{
- if (in_quotes)
+ case wchar_iterate_invalid:
+ if (!in_quotes)
{
if (options->inspect_it)
- fputs_filtered ("\\\", ", stream);
+ obstack_grow_wstr (&wchar_buf, L"\\\"");
else
- fputs_filtered ("\", ", stream);
- in_quotes = 0;
+ obstack_grow_wstr (&wchar_buf, L"\"");
+ in_quotes = 1;
}
- LA_PRINT_CHAR (current_char, stream);
- fprintf_filtered (stream, _(" <repeats %u times>"), reps);
- i = rep1 - 1;
- things_printed += options->repeat_count_threshold;
- need_comma = 1;
- }
- else
- {
- if (!in_quotes)
+ need_escape = 0;
+ print_wchar (WEOF, buf, buflen, width, &wchar_buf, '"', &need_escape);
+ break;
+
+ case wchar_iterate_incomplete:
+ if (in_quotes)
{
if (options->inspect_it)
- fputs_filtered ("\\\"", stream);
+ obstack_grow_wstr (&wchar_buf, L"\\\",");
else
- fputs_filtered ("\"", stream);
- in_quotes = 1;
+ obstack_grow_wstr (&wchar_buf, L"\",");
+ in_quotes = 0;
}
- LA_EMIT_CHAR (current_char, stream, '"');
- ++things_printed;
+ obstack_grow_wstr (&wchar_buf, L" <incomplete sequence ");
+ print_wchar (WEOF, buf, buflen, width, &wchar_buf, 0, &need_escape);
+ obstack_grow_wstr (&wchar_buf, L">");
+ finished = 1;
+ break;
}
}
@@ -173,13 +548,27 @@ c_printstr (struct ui_file *stream, const gdb_byte *string,
if (in_quotes)
{
if (options->inspect_it)
- fputs_filtered ("\\\"", stream);
+ obstack_grow_wstr (&wchar_buf, L"\\\"");
else
- fputs_filtered ("\"", stream);
+ obstack_grow_wstr (&wchar_buf, L"\"");
}
- if (force_ellipses || i < length)
- fputs_filtered ("...", stream);
+ if (force_ellipses || !finished)
+ obstack_grow_wstr (&wchar_buf, L"...");
+
+ /* OUTPUT is where we collect `char's for printing. */
+ obstack_init (&output);
+ make_cleanup_obstack_free (&output);
+
+ convert_between_encodings ("wchar_t", host_charset (),
+ obstack_base (&wchar_buf),
+ obstack_object_size (&wchar_buf),
+ 1, &output, translit_char);
+ obstack_1grow (&output, '\0');
+
+ fputs_filtered (obstack_base (&output), stream);
+
+ do_cleanups (cleanup);
}
/* Obtain a C string from the inferior storing it in a newly allocated
@@ -298,7 +687,285 @@ c_get_string (struct value *value, gdb_byte **buffer, int *length,
}
-/* Preprocessing and parsing C and C++ expressions. */
+/* Evaluating C and C++ expressions. */
+
+/* Convert a UCN. The digits of the UCN start at P and extend no
+ farther than LIMIT. DEST_CHARSET is the name of the character set
+ into which the UCN should be converted. The results are written to
+ OUTPUT. LENGTH is the maximum length of the UCN, either 4 or 8.
+ Returns a pointer to just after the final digit of the UCN. */
+
+static char *
+convert_ucn (char *p, char *limit, const char *dest_charset,
+ struct obstack *output, int length)
+{
+ unsigned long result = 0;
+ gdb_byte data[4];
+ int i;
+
+ for (i = 0; i < length && p < limit && isxdigit (*p); ++i, ++p)
+ result = (result << 4) + host_hex_value (*p);
+
+ for (i = 3; i >= 0; --i)
+ {
+ data[i] = result & 0xff;
+ result >>= 8;
+ }
+
+ convert_between_encodings ("UCS-4BE", dest_charset, data, 4, 4, output,
+ translit_none);
+
+ return p;
+}
+
+/* Emit a character, VALUE, which was specified numerically, to
+ OUTPUT. TYPE is the target character type. */
+
+static void
+emit_numeric_character (struct type *type, unsigned long value,
+ struct obstack *output)
+{
+ gdb_byte *buffer;
+
+ buffer = alloca (TYPE_LENGTH (type));
+ pack_long (buffer, type, value);
+ obstack_grow (output, buffer, TYPE_LENGTH (type));
+}
+
+/* Convert an octal escape sequence. TYPE is the target character
+ type. The digits of the escape sequence begin at P and extend no
+ farther than LIMIT. The result is written to OUTPUT. Returns a
+ pointer to just after the final digit of the escape sequence. */
+
+static char *
+convert_octal (struct type *type, char *p, char *limit, struct obstack *output)
+{
+ unsigned long value = 0;
+
+ while (p < limit && isdigit (*p) && *p != '8' && *p != '9')
+ {
+ value = 8 * value + host_hex_value (*p);
+ ++p;
+ }
+
+ emit_numeric_character (type, value, output);
+
+ return p;
+}
+
+/* Convert a hex escape sequence. TYPE is the target character type.
+ The digits of the escape sequence begin at P and extend no farther
+ than LIMIT. The result is written to OUTPUT. Returns a pointer to
+ just after the final digit of the escape sequence. */
+
+static char *
+convert_hex (struct type *type, char *p, char *limit, struct obstack *output)
+{
+ unsigned long value = 0;
+
+ while (p < limit && isxdigit (*p))
+ {
+ value = 16 * value + host_hex_value (*p);
+ ++p;
+ }
+
+ emit_numeric_character (type, value, output);
+
+ return p;
+}
+
+#define ADVANCE \
+ do { \
+ ++p; \
+ if (p == limit) \
+ error (_("Malformed escape sequence")); \
+ } while (0)
+
+/* Convert an escape sequence to a target format. TYPE is the target
+ character type to use, and DEST_CHARSET is the name of the target
+ character set. The backslash of the escape sequence is at *P, and
+ the escape sequence will not extend past LIMIT. The results are
+ written to OUTPUT. Returns a pointer to just past the final
+ character of the escape sequence. */
+
+static char *
+convert_escape (struct type *type, const char *dest_charset,
+ char *p, char *limit, struct obstack *output)
+{
+ /* Skip the backslash. */
+ ADVANCE;
+
+ switch (*p)
+ {
+ case '\\':
+ obstack_1grow (output, '\\');
+ ++p;
+ break;
+
+ case 'x':
+ ADVANCE;
+ if (!isxdigit (*p))
+ error (_("\\x used with no following hex digits."));
+ p = convert_hex (type, p, limit, output);
+ break;
+
+ case '0':
+ case '1':
+ case '2':
+ case '3':
+ case '4':
+ case '5':
+ case '6':
+ case '7':
+ p = convert_octal (type, p, limit, output);
+ break;
+
+ case 'u':
+ case 'U':
+ {
+ int length = *p == 'u' ? 4 : 8;
+ ADVANCE;
+ if (!isxdigit (*p))
+ error (_("\\u used with no following hex digits"));
+ p = convert_ucn (p, limit, dest_charset, output, length);
+ }
+ }
+
+ return p;
+}
+
+/* Given a single string from a (C-specific) OP_STRING list, convert
+ it to a target string, handling escape sequences specially. The
+ output is written to OUTPUT. DATA is the input string, which has
+ length LEN. DEST_CHARSET is the name of the target character set,
+ and TYPE is the type of target character to use. */
+
+static void
+parse_one_string (struct obstack *output, char *data, int len,
+ const char *dest_charset, struct type *type)
+{
+ char *limit;
+
+ limit = data + len;
+
+ while (data < limit)
+ {
+ char *p = data;
+ /* Look for next escape, or the end of the input. */
+ while (p < limit && *p != '\\')
+ ++p;
+ /* If we saw a run of characters, convert them all. */
+ if (p > data)
+ convert_between_encodings (host_charset (), dest_charset,
+ data, p - data, 1, output, translit_none);
+ /* If we saw an escape, convert it. */
+ if (p < limit)
+ p = convert_escape (type, dest_charset, p, limit, output);
+ data = p;
+ }
+}
+
+/* Expression evaluator for the C language family. Most operations
+ are delegated to evaluate_subexp_standard; see that function for a
+ description of the arguments. */
+
+static struct value *
+evaluate_subexp_c (struct type *expect_type, struct expression *exp,
+ int *pos, enum noside noside)
+{
+ enum exp_opcode op = exp->elts[*pos].opcode;
+
+ switch (op)
+ {
+ case OP_STRING:
+ {
+ int oplen, limit;
+ struct type *type;
+ struct obstack output;
+ struct cleanup *cleanup;
+ struct value *result;
+ enum c_string_type dest_type;
+ const char *dest_charset;
+
+ obstack_init (&output);
+ cleanup = make_cleanup_obstack_free (&output);
+
+ ++*pos;
+ oplen = longest_to_int (exp->elts[*pos].longconst);
+
+ ++*pos;
+ limit = *pos + BYTES_TO_EXP_ELEM (oplen + 1);
+ dest_type
+ = (enum c_string_type) longest_to_int (exp->elts[*pos].longconst);
+ switch (dest_type & ~C_CHAR)
+ {
+ case C_STRING:
+ type = language_string_char_type (current_language,
+ current_gdbarch);
+ break;
+ case C_WIDE_STRING:
+ type = lookup_typename ("wchar_t", NULL, 0);
+ break;
+ case C_STRING_16:
+ type = lookup_typename ("char16_t", NULL, 0);
+ break;
+ case C_STRING_32:
+ type = lookup_typename ("char32_t", NULL, 0);
+ break;
+ default:
+ internal_error (__FILE__, __LINE__, "unhandled c_string_type");
+ }
+ dest_charset = charset_for_string_type (dest_type);
+
+ ++*pos;
+ while (*pos < limit)
+ {
+ int len;
+
+ len = longest_to_int (exp->elts[*pos].longconst);
+
+ ++*pos;
+ if (noside != EVAL_SKIP)
+ parse_one_string (&output, &exp->elts[*pos].string, len,
+ dest_charset, type);
+ *pos += BYTES_TO_EXP_ELEM (len);
+ }
+
+ /* Skip the trailing length and opcode. */
+ *pos += 2;
+
+ if (noside == EVAL_SKIP)
+ return NULL;
+
+ if ((dest_type & C_CHAR) != 0)
+ {
+ LONGEST value;
+
+ if (obstack_object_size (&output) != TYPE_LENGTH (type))
+ error (_("Could not convert character constant to target character set"));
+ value = unpack_long (type, obstack_base (&output));
+ result = value_from_longest (type, value);
+ }
+ else
+ {
+ int i;
+ /* Write the terminating character. */
+ for (i = 0; i < TYPE_LENGTH (type); ++i)
+ obstack_1grow (&output, 0);
+ result = value_typed_string (obstack_base (&output),
+ obstack_object_size (&output),
+ type);
+ }
+ do_cleanups (cleanup);
+ return result;
+ }
+ break;
+
+ default:
+ break;
+ }
+ return evaluate_subexp_standard (expect_type, exp, pos, noside);
+}
@@ -396,6 +1063,15 @@ c_language_arch_info (struct gdbarch *gdbarch,
lai->bool_type_default = builtin->builtin_int;
}
+static const struct exp_descriptor exp_descriptor_c =
+{
+ print_subexp_standard,
+ operator_length_standard,
+ op_name_standard,
+ dump_subexp_body_standard,
+ evaluate_subexp_c
+};
+
const struct language_defn c_language_defn =
{
"c", /* Language name */
@@ -405,7 +1081,7 @@ const struct language_defn c_language_defn =
case_sensitive_on,
array_row_major,
macro_expansion_c,
- &exp_descriptor_standard,
+ &exp_descriptor_c,
c_parse,
c_error,
null_post_parser,
@@ -524,7 +1200,7 @@ const struct language_defn cplus_language_defn =
case_sensitive_on,
array_row_major,
macro_expansion_c,
- &exp_descriptor_standard,
+ &exp_descriptor_c,
c_parse,
c_error,
null_post_parser,
@@ -562,7 +1238,7 @@ const struct language_defn asm_language_defn =
case_sensitive_on,
array_row_major,
macro_expansion_c,
- &exp_descriptor_standard,
+ &exp_descriptor_c,
c_parse,
c_error,
null_post_parser,
@@ -605,7 +1281,7 @@ const struct language_defn minimal_language_defn =
case_sensitive_on,
array_row_major,
macro_expansion_c,
- &exp_descriptor_standard,
+ &exp_descriptor_c,
c_parse,
c_error,
null_post_parser,
diff --git a/gdb/c-lang.h b/gdb/c-lang.h
index 06c5767..ba9d996 100644
--- a/gdb/c-lang.h
+++ b/gdb/c-lang.h
@@ -29,9 +29,38 @@ struct language_arch_info;
#include "macroexp.h"
-extern int c_parse (void); /* Defined in c-exp.y */
-
-extern void c_error (char *); /* Defined in c-exp.y */
+/* The various kinds of C string and character. Note that these
+ values are chosen so that they may be or'd together in certain
+ ways. */
+enum c_string_type
+ {
+ /* An ordinary string: "value". */
+ C_STRING = 0,
+ /* A wide string: L"value". */
+ C_WIDE_STRING = 1,
+ /* A 16-bit Unicode string: u"value". */
+ C_STRING_16 = 2,
+ /* A 32-bit Unicode string: U"value". */
+ C_STRING_32 = 3,
+ /* An ordinary char: 'v'. This can also be or'd with one of the
+ above to form the corresponding CHAR value from a STRING
+ value. */
+ C_CHAR = 4,
+ /* A wide char: L'v'. */
+ C_WIDE_CHAR = 5,
+ /* A 16-bit Unicode char: u'v'. */
+ C_CHAR_16 = 6,
+ /* A 32-bit Unicode char: U'v'. */
+ C_CHAR_32 = 7
+ };
+
+/* Defined in c-exp.y. */
+
+extern int c_parse (void);
+
+extern void c_error (char *);
+
+extern int c_parse_escape (char **, struct obstack *);
/* Defined in c-typeprint.c */
extern void c_print_type (struct type *, char *, struct ui_file *, int,
@@ -48,10 +77,10 @@ extern int c_value_print (struct value *, struct ui_file *,
/* These are in c-lang.c: */
-extern void c_printchar (int, struct ui_file *);
+extern void c_printchar (int, struct type *, struct ui_file *);
-extern void c_printstr (struct ui_file * stream, const gdb_byte *string,
- unsigned int length, int width,
+extern void c_printstr (struct ui_file * stream, struct type *elttype,
+ const gdb_byte *string, unsigned int length,
int force_ellipses,
const struct value_print_options *options);
diff --git a/gdb/c-typeprint.c b/gdb/c-typeprint.c
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
index 0929516..c005fe4 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/c-typeprint.c
+++ b/gdb/c-typeprint.c
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -40,8 +40,6 @@ static void cp_type_print_method_args (struct type *mtype, char *prefix,
char *varstring, int staticp,
struct ui_file *stream);
-static void c_type_print_args (struct type *, struct ui_file *);
-
static void cp_type_print_derivation_info (struct ui_file *, struct type *);
static void c_type_print_varspec_prefix (struct type *, struct ui_file *, int,
@@ -199,6 +197,23 @@ cp_type_print_method_args (struct type *mtype, char *prefix, char *varstring,
fprintf_filtered (stream, "void");
fprintf_filtered (stream, ")");
+
+ /* For non-static methods, read qualifiers from the type of
+ THIS. */
+ if (!staticp)
+ {
+ struct type *domain;
+
+ gdb_assert (nargs > 0);
+ gdb_assert (TYPE_CODE (args[0].type) == TYPE_CODE_PTR);
+ domain = TYPE_TARGET_TYPE (args[0].type);
+
+ if (TYPE_CONST (domain))
+ fprintf_filtered (stream, " const");
+
+ if (TYPE_VOLATILE (domain))
+ fprintf_filtered (stream, " volatile");
+ }
}
@@ -354,10 +369,12 @@ c_type_print_modifier (struct type *type, struct ui_file *stream,
/* Print out the arguments of TYPE, which should have TYPE_CODE_METHOD
or TYPE_CODE_FUNC, to STREAM. Artificial arguments, such as "this"
- in non-static methods, are displayed. */
+ in non-static methods, are displayed if SHOW_ARTIFICIAL is
+ non-zero. */
-static void
-c_type_print_args (struct type *type, struct ui_file *stream)
+void
+c_type_print_args (struct type *type, struct ui_file *stream,
+ int show_artificial)
{
int i, len;
struct field *args;
@@ -369,6 +386,9 @@ c_type_print_args (struct type *type, struct ui_file *stream)
for (i = 0; i < TYPE_NFIELDS (type); i++)
{
+ if (TYPE_FIELD_ARTIFICIAL (type, i) && !show_artificial)
+ continue;
+
if (printed_any)
{
fprintf_filtered (stream, ", ");
@@ -559,7 +579,12 @@ c_type_print_varspec_suffix (struct type *type, struct ui_file *stream,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
fprintf_filtered (stream, ")");
fprintf_filtered (stream, "[");
- if (TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0
+ if (TYPE_ARRAY_BOUND_IS_DWARF_BLOCK (type, 1))
+ {
+ /* No _() - printed sources should not be locale dependent. */
+ fprintf_filtered (stream, "variable");
+ }
+ else if (TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0
&& !TYPE_ARRAY_UPPER_BOUND_IS_UNDEFINED (type))
fprintf_filtered (stream, "%d",
(TYPE_LENGTH (type)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -592,7 +617,7 @@ c_type_print_varspec_suffix (struct type *type, struct ui_file *stream,
if (passed_a_ptr)
fprintf_filtered (stream, ")");
if (!demangled_args)
- c_type_print_args (type, stream);
+ c_type_print_args (type, stream, 1);
c_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, show,
passed_a_ptr, 0);
break;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/c-valprint.c b/gdb/c-valprint.c
index 0b616f7..3433da2 100644
--- a/gdb/c-valprint.c
+++ b/gdb/c-valprint.c
@@ -55,6 +55,18 @@ print_function_pointer_address (CORE_ADDR address, struct ui_file *stream,
}
+/* A helper for textual_element_type. This checks the name of the
+ typedef. This is bogus but it isn't apparent that the compiler
+ provides us the help we may need. */
+
+static int
+textual_name (const char *name)
+{
+ return (!strcmp (name, "wchar_t")
+ || !strcmp (name, "char16_t")
+ || !strcmp (name, "char32_t"));
+}
+
/* Apply a heuristic to decide whether an array of TYPE or a pointer
to TYPE should be printed as a textual string. Return non-zero if
it should, or zero if it should be treated as an array of integers
@@ -77,6 +89,15 @@ textual_element_type (struct type *type, char format)
/* TYPE_CODE_CHAR is always textual. */
if (TYPE_CODE (true_type) == TYPE_CODE_CHAR)
return 1;
+ /* Any other character-like types must be integral. */
+ if (TYPE_CODE (true_type) != TYPE_CODE_INT)
+ return 0;
+
+ /* Check the names of the type and the typedef. */
+ if (TYPE_NAME (type) && textual_name (TYPE_NAME (type)))
+ return 1;
+ if (TYPE_NAME (true_type) && textual_name (TYPE_NAME (true_type)))
+ return 1;
if (format == 's')
{
@@ -115,7 +136,8 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
{
unsigned int i = 0; /* Number of characters printed */
unsigned len;
- struct type *elttype;
+ struct type *elttype, *unresolved_elttype;
+ struct type *unresolved_type = type;
unsigned eltlen;
LONGEST val;
CORE_ADDR addr;
@@ -124,8 +146,9 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
switch (TYPE_CODE (type))
{
case TYPE_CODE_ARRAY:
- elttype = check_typedef (TYPE_TARGET_TYPE (type));
- if (TYPE_LENGTH (type) > 0 && TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0)
+ unresolved_elttype = TYPE_TARGET_TYPE (type);
+ elttype = check_typedef (unresolved_elttype);
+ if (TYPE_LENGTH (type) > 0 && TYPE_LENGTH (unresolved_elttype) > 0)
{
eltlen = TYPE_LENGTH (elttype);
len = TYPE_LENGTH (type) / eltlen;
@@ -135,7 +158,7 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
}
/* Print arrays of textual chars with a string syntax. */
- if (textual_element_type (elttype, options->format))
+ if (textual_element_type (unresolved_elttype, options->format))
{
/* If requested, look for the first null char and only print
elements up to it. */
@@ -143,15 +166,19 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
{
unsigned int temp_len;
- /* Look for a NULL char. */
for (temp_len = 0;
- (valaddr + embedded_offset)[temp_len]
- && temp_len < len && temp_len < options->print_max;
- temp_len++);
+ (temp_len < len
+ && temp_len < options->print_max
+ && extract_unsigned_integer (valaddr + embedded_offset
+ + temp_len * eltlen,
+ eltlen) == 0);
+ ++temp_len)
+ ;
len = temp_len;
}
- LA_PRINT_STRING (stream, valaddr + embedded_offset, len, eltlen, 0, options);
+ LA_PRINT_STRING (stream, unresolved_elttype,
+ valaddr + embedded_offset, len, 0, options);
i = len;
}
else
@@ -209,7 +236,8 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
print_function_pointer_address (addr, stream, options->addressprint);
break;
}
- elttype = check_typedef (TYPE_TARGET_TYPE (type));
+ unresolved_elttype = TYPE_TARGET_TYPE (type);
+ elttype = check_typedef (unresolved_elttype);
{
addr = unpack_pointer (type, valaddr + embedded_offset);
print_unpacked_pointer:
@@ -228,12 +256,11 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
/* For a pointer to a textual type, also print the string
pointed to, unless pointer is null. */
- /* FIXME: need to handle wchar_t here... */
- if (textual_element_type (elttype, options->format)
+ if (textual_element_type (unresolved_elttype, options->format)
&& addr != 0)
{
- i = val_print_string (addr, -1, TYPE_LENGTH (elttype), stream,
+ i = val_print_string (unresolved_elttype, addr, -1, stream,
options);
}
else if (cp_is_vtbl_member (type))
@@ -268,7 +295,7 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
}
else
{
- wtype = TYPE_TARGET_TYPE (type);
+ wtype = unresolved_elttype;
}
vt_val = value_at (wtype, vt_address);
common_val_print (vt_val, stream, recurse + 1, options,
@@ -442,11 +469,11 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
Since we don't know whether the value is really intended to
be used as an integer or a character, print the character
equivalent as well. */
- if (textual_element_type (type, options->format))
+ if (textual_element_type (unresolved_type, options->format))
{
fputs_filtered (" ", stream);
LA_PRINT_CHAR ((unsigned char) unpack_long (type, valaddr + embedded_offset),
- stream);
+ unresolved_type, stream);
}
}
break;
@@ -468,7 +495,7 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
else
fprintf_filtered (stream, "%d", (int) val);
fputs_filtered (" ", stream);
- LA_PRINT_CHAR ((unsigned char) val, stream);
+ LA_PRINT_CHAR ((unsigned char) val, unresolved_type, stream);
}
break;
@@ -540,7 +567,7 @@ int
c_value_print (struct value *val, struct ui_file *stream,
const struct value_print_options *options)
{
- struct type *type, *real_type;
+ struct type *type, *real_type, *val_type;
int full, top, using_enc;
struct value_print_options opts = *options;
@@ -553,7 +580,11 @@ c_value_print (struct value *val, struct ui_file *stream,
C++: if it is a member pointer, we will take care
of that when we print it. */
- type = check_typedef (value_type (val));
+ /* Preserve the original type before stripping typedefs. We prefer
+ to pass down the original type when possible, but for local
+ checks it is better to look past the typedefs. */
+ val_type = value_type (val);
+ type = check_typedef (val_type);
if (TYPE_CODE (type) == TYPE_CODE_PTR
|| TYPE_CODE (type) == TYPE_CODE_REF)
@@ -561,11 +592,12 @@ c_value_print (struct value *val, struct ui_file *stream,
/* Hack: remove (char *) for char strings. Their
type is indicated by the quoted string anyway.
(Don't use textual_element_type here; quoted strings
- are always exactly (char *). */
- if (TYPE_CODE (type) == TYPE_CODE_PTR
- && TYPE_NAME (type) == NULL
- && TYPE_NAME (TYPE_TARGET_TYPE (type)) != NULL
- && strcmp (TYPE_NAME (TYPE_TARGET_TYPE (type)), "char") == 0)
+ are always exactly (char *), (wchar_t *), or the like. */
+ if (TYPE_CODE (val_type) == TYPE_CODE_PTR
+ && TYPE_NAME (val_type) == NULL
+ && TYPE_NAME (TYPE_TARGET_TYPE (val_type)) != NULL
+ && (strcmp (TYPE_NAME (TYPE_TARGET_TYPE (val_type)), "char") == 0
+ || textual_name (TYPE_NAME (TYPE_TARGET_TYPE (val_type)))))
{
/* Print nothing */
}
@@ -608,6 +640,7 @@ c_value_print (struct value *val, struct ui_file *stream,
}
type_print (type, "", stream, -1);
fprintf_filtered (stream, ") ");
+ val_type = type;
}
else
{
@@ -635,7 +668,7 @@ c_value_print (struct value *val, struct ui_file *stream,
/* Print out object: enclosing type is same as real_type if full */
return val_print (value_enclosing_type (val),
value_contents_all (val), 0,
- VALUE_ADDRESS (val), stream, 0,
+ value_address (val), stream, 0,
&opts, current_language);
/* Note: When we look up RTTI entries, we don't get any information on
const or volatile attributes */
@@ -647,14 +680,14 @@ c_value_print (struct value *val, struct ui_file *stream,
TYPE_NAME (value_enclosing_type (val)));
return val_print (value_enclosing_type (val),
value_contents_all (val), 0,
- VALUE_ADDRESS (val), stream, 0,
+ value_address (val), stream, 0,
&opts, current_language);
}
/* Otherwise, we end up at the return outside this "if" */
}
- return val_print (type, value_contents_all (val),
+ return val_print (val_type, value_contents_all (val),
value_embedded_offset (val),
- VALUE_ADDRESS (val) + value_offset (val),
+ value_address (val),
stream, 0, &opts, current_language);
}
diff --git a/gdb/charset-list.h b/gdb/charset-list.h
new file mode 100644
index 0000000..59c64c5
--- /dev/null
+++ b/gdb/charset-list.h
@@ -0,0 +1,1190 @@
+/* List of character set names for GDB.
+
+ Copyright (C) 2009 Free Software Foundation, Inc.
+
+ This file is part of GDB.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+/* Note that the first entry must always be "auto".
+ The remaining entries were created by running this script:
+
+ iconv -l | sed -e '/[/]...*$/d' -e 's@^\(.*\)//$@"\1", \\@'
+
+ .. and then removing the final backslash. It would be nice to
+ separate narrow and wide character sets, but there is no good way
+ to do that. */
+#define DEFAULT_CHARSET_NAMES \
+"auto", \
+"437", \
+"500", \
+"500V1", \
+"850", \
+"851", \
+"852", \
+"855", \
+"856", \
+"857", \
+"860", \
+"861", \
+"862", \
+"863", \
+"864", \
+"865", \
+"866", \
+"866NAV", \
+"869", \
+"874", \
+"904", \
+"1026", \
+"1046", \
+"1047", \
+"8859_1", \
+"8859_2", \
+"8859_3", \
+"8859_4", \
+"8859_5", \
+"8859_6", \
+"8859_7", \
+"8859_8", \
+"8859_9", \
+"10646-1:1993", \
+"ANSI_X3.4-1968", \
+"ANSI_X3.4-1986", \
+"ANSI_X3.4", \
+"ANSI_X3.110-1983", \
+"ANSI_X3.110", \
+"ARABIC", \
+"ARABIC7", \
+"ARMSCII-8", \
+"ASCII", \
+"ASMO-708", \
+"ASMO_449", \
+"BALTIC", \
+"BIG-5", \
+"BIG-FIVE", \
+"BIG5-HKSCS", \
+"BIG5", \
+"BIG5HKSCS", \
+"BIGFIVE", \
+"BRF", \
+"BS_4730", \
+"CA", \
+"CN-BIG5", \
+"CN-GB", \
+"CN", \
+"CP-AR", \
+"CP-GR", \
+"CP-HU", \
+"CP037", \
+"CP038", \
+"CP273", \
+"CP274", \
+"CP275", \
+"CP278", \
+"CP280", \
+"CP281", \
+"CP282", \
+"CP284", \
+"CP285", \
+"CP290", \
+"CP297", \
+"CP367", \
+"CP420", \
+"CP423", \
+"CP424", \
+"CP437", \
+"CP500", \
+"CP737", \
+"CP775", \
+"CP803", \
+"CP813", \
+"CP819", \
+"CP850", \
+"CP851", \
+"CP852", \
+"CP855", \
+"CP856", \
+"CP857", \
+"CP860", \
+"CP861", \
+"CP862", \
+"CP863", \
+"CP864", \
+"CP865", \
+"CP866", \
+"CP866NAV", \
+"CP868", \
+"CP869", \
+"CP870", \
+"CP871", \
+"CP874", \
+"CP875", \
+"CP880", \
+"CP891", \
+"CP901", \
+"CP902", \
+"CP903", \
+"CP904", \
+"CP905", \
+"CP912", \
+"CP915", \
+"CP916", \
+"CP918", \
+"CP920", \
+"CP921", \
+"CP922", \
+"CP930", \
+"CP932", \
+"CP933", \
+"CP935", \
+"CP936", \
+"CP937", \
+"CP939", \
+"CP949", \
+"CP950", \
+"CP1004", \
+"CP1008", \
+"CP1025", \
+"CP1026", \
+"CP1046", \
+"CP1047", \
+"CP1070", \
+"CP1079", \
+"CP1081", \
+"CP1084", \
+"CP1089", \
+"CP1097", \
+"CP1112", \
+"CP1122", \
+"CP1123", \
+"CP1124", \
+"CP1125", \
+"CP1129", \
+"CP1130", \
+"CP1132", \
+"CP1133", \
+"CP1137", \
+"CP1140", \
+"CP1141", \
+"CP1142", \
+"CP1143", \
+"CP1144", \
+"CP1145", \
+"CP1146", \
+"CP1147", \
+"CP1148", \
+"CP1149", \
+"CP1153", \
+"CP1154", \
+"CP1155", \
+"CP1156", \
+"CP1157", \
+"CP1158", \
+"CP1160", \
+"CP1161", \
+"CP1162", \
+"CP1163", \
+"CP1164", \
+"CP1166", \
+"CP1167", \
+"CP1250", \
+"CP1251", \
+"CP1252", \
+"CP1253", \
+"CP1254", \
+"CP1255", \
+"CP1256", \
+"CP1257", \
+"CP1258", \
+"CP1282", \
+"CP1361", \
+"CP1364", \
+"CP1371", \
+"CP1388", \
+"CP1390", \
+"CP1399", \
+"CP4517", \
+"CP4899", \
+"CP4909", \
+"CP4971", \
+"CP5347", \
+"CP9030", \
+"CP9066", \
+"CP9448", \
+"CP10007", \
+"CP12712", \
+"CP16804", \
+"CPIBM861", \
+"CSA7-1", \
+"CSA7-2", \
+"CSASCII", \
+"CSA_T500-1983", \
+"CSA_T500", \
+"CSA_Z243.4-1985-1", \
+"CSA_Z243.4-1985-2", \
+"CSA_Z243.419851", \
+"CSA_Z243.419852", \
+"CSDECMCS", \
+"CSEBCDICATDE", \
+"CSEBCDICATDEA", \
+"CSEBCDICCAFR", \
+"CSEBCDICDKNO", \
+"CSEBCDICDKNOA", \
+"CSEBCDICES", \
+"CSEBCDICESA", \
+"CSEBCDICESS", \
+"CSEBCDICFISE", \
+"CSEBCDICFISEA", \
+"CSEBCDICFR", \
+"CSEBCDICIT", \
+"CSEBCDICPT", \
+"CSEBCDICUK", \
+"CSEBCDICUS", \
+"CSEUCKR", \
+"CSEUCPKDFMTJAPANESE", \
+"CSGB2312", \
+"CSHPROMAN8", \
+"CSIBM037", \
+"CSIBM038", \
+"CSIBM273", \
+"CSIBM274", \
+"CSIBM275", \
+"CSIBM277", \
+"CSIBM278", \
+"CSIBM280", \
+"CSIBM281", \
+"CSIBM284", \
+"CSIBM285", \
+"CSIBM290", \
+"CSIBM297", \
+"CSIBM420", \
+"CSIBM423", \
+"CSIBM424", \
+"CSIBM500", \
+"CSIBM803", \
+"CSIBM851", \
+"CSIBM855", \
+"CSIBM856", \
+"CSIBM857", \
+"CSIBM860", \
+"CSIBM863", \
+"CSIBM864", \
+"CSIBM865", \
+"CSIBM866", \
+"CSIBM868", \
+"CSIBM869", \
+"CSIBM870", \
+"CSIBM871", \
+"CSIBM880", \
+"CSIBM891", \
+"CSIBM901", \
+"CSIBM902", \
+"CSIBM903", \
+"CSIBM904", \
+"CSIBM905", \
+"CSIBM918", \
+"CSIBM921", \
+"CSIBM922", \
+"CSIBM930", \
+"CSIBM932", \
+"CSIBM933", \
+"CSIBM935", \
+"CSIBM937", \
+"CSIBM939", \
+"CSIBM943", \
+"CSIBM1008", \
+"CSIBM1025", \
+"CSIBM1026", \
+"CSIBM1097", \
+"CSIBM1112", \
+"CSIBM1122", \
+"CSIBM1123", \
+"CSIBM1124", \
+"CSIBM1129", \
+"CSIBM1130", \
+"CSIBM1132", \
+"CSIBM1133", \
+"CSIBM1137", \
+"CSIBM1140", \
+"CSIBM1141", \
+"CSIBM1142", \
+"CSIBM1143", \
+"CSIBM1144", \
+"CSIBM1145", \
+"CSIBM1146", \
+"CSIBM1147", \
+"CSIBM1148", \
+"CSIBM1149", \
+"CSIBM1153", \
+"CSIBM1154", \
+"CSIBM1155", \
+"CSIBM1156", \
+"CSIBM1157", \
+"CSIBM1158", \
+"CSIBM1160", \
+"CSIBM1161", \
+"CSIBM1163", \
+"CSIBM1164", \
+"CSIBM1166", \
+"CSIBM1167", \
+"CSIBM1364", \
+"CSIBM1371", \
+"CSIBM1388", \
+"CSIBM1390", \
+"CSIBM1399", \
+"CSIBM4517", \
+"CSIBM4899", \
+"CSIBM4909", \
+"CSIBM4971", \
+"CSIBM5347", \
+"CSIBM9030", \
+"CSIBM9066", \
+"CSIBM9448", \
+"CSIBM12712", \
+"CSIBM16804", \
+"CSIBM11621162", \
+"CSISO4UNITEDKINGDOM", \
+"CSISO10SWEDISH", \
+"CSISO11SWEDISHFORNAMES", \
+"CSISO14JISC6220RO", \
+"CSISO15ITALIAN", \
+"CSISO16PORTUGESE", \
+"CSISO17SPANISH", \
+"CSISO18GREEK7OLD", \
+"CSISO19LATINGREEK", \
+"CSISO21GERMAN", \
+"CSISO25FRENCH", \
+"CSISO27LATINGREEK1", \
+"CSISO49INIS", \
+"CSISO50INIS8", \
+"CSISO51INISCYRILLIC", \
+"CSISO58GB1988", \
+"CSISO60DANISHNORWEGIAN", \
+"CSISO60NORWEGIAN1", \
+"CSISO61NORWEGIAN2", \
+"CSISO69FRENCH", \
+"CSISO84PORTUGUESE2", \
+"CSISO85SPANISH2", \
+"CSISO86HUNGARIAN", \
+"CSISO88GREEK7", \
+"CSISO89ASMO449", \
+"CSISO90", \
+"CSISO92JISC62991984B", \
+"CSISO99NAPLPS", \
+"CSISO103T618BIT", \
+"CSISO111ECMACYRILLIC", \
+"CSISO121CANADIAN1", \
+"CSISO122CANADIAN2", \
+"CSISO139CSN369103", \
+"CSISO141JUSIB1002", \
+"CSISO143IECP271", \
+"CSISO150", \
+"CSISO150GREEKCCITT", \
+"CSISO151CUBA", \
+"CSISO153GOST1976874", \
+"CSISO646DANISH", \
+"CSISO2022CN", \
+"CSISO2022JP", \
+"CSISO2022JP2", \
+"CSISO2022KR", \
+"CSISO2033", \
+"CSISO5427CYRILLIC", \
+"CSISO5427CYRILLIC1981", \
+"CSISO5428GREEK", \
+"CSISO10367BOX", \
+"CSISOLATIN1", \
+"CSISOLATIN2", \
+"CSISOLATIN3", \
+"CSISOLATIN4", \
+"CSISOLATIN5", \
+"CSISOLATIN6", \
+"CSISOLATINARABIC", \
+"CSISOLATINCYRILLIC", \
+"CSISOLATINGREEK", \
+"CSISOLATINHEBREW", \
+"CSKOI8R", \
+"CSKSC5636", \
+"CSMACINTOSH", \
+"CSNATSDANO", \
+"CSNATSSEFI", \
+"CSN_369103", \
+"CSPC8CODEPAGE437", \
+"CSPC775BALTIC", \
+"CSPC850MULTILINGUAL", \
+"CSPC862LATINHEBREW", \
+"CSPCP852", \
+"CSSHIFTJIS", \
+"CSUCS4", \
+"CSUNICODE", \
+"CSWINDOWS31J", \
+"CUBA", \
+"CWI-2", \
+"CWI", \
+"CYRILLIC", \
+"DE", \
+"DEC-MCS", \
+"DEC", \
+"DECMCS", \
+"DIN_66003", \
+"DK", \
+"DS2089", \
+"DS_2089", \
+"E13B", \
+"EBCDIC-AT-DE-A", \
+"EBCDIC-AT-DE", \
+"EBCDIC-BE", \
+"EBCDIC-BR", \
+"EBCDIC-CA-FR", \
+"EBCDIC-CP-AR1", \
+"EBCDIC-CP-AR2", \
+"EBCDIC-CP-BE", \
+"EBCDIC-CP-CA", \
+"EBCDIC-CP-CH", \
+"EBCDIC-CP-DK", \
+"EBCDIC-CP-ES", \
+"EBCDIC-CP-FI", \
+"EBCDIC-CP-FR", \
+"EBCDIC-CP-GB", \
+"EBCDIC-CP-GR", \
+"EBCDIC-CP-HE", \
+"EBCDIC-CP-IS", \
+"EBCDIC-CP-IT", \
+"EBCDIC-CP-NL", \
+"EBCDIC-CP-NO", \
+"EBCDIC-CP-ROECE", \
+"EBCDIC-CP-SE", \
+"EBCDIC-CP-TR", \
+"EBCDIC-CP-US", \
+"EBCDIC-CP-WT", \
+"EBCDIC-CP-YU", \
+"EBCDIC-CYRILLIC", \
+"EBCDIC-DK-NO-A", \
+"EBCDIC-DK-NO", \
+"EBCDIC-ES-A", \
+"EBCDIC-ES-S", \
+"EBCDIC-ES", \
+"EBCDIC-FI-SE-A", \
+"EBCDIC-FI-SE", \
+"EBCDIC-FR", \
+"EBCDIC-GREEK", \
+"EBCDIC-INT", \
+"EBCDIC-INT1", \
+"EBCDIC-IS-FRISS", \
+"EBCDIC-IT", \
+"EBCDIC-JP-E", \
+"EBCDIC-JP-KANA", \
+"EBCDIC-PT", \
+"EBCDIC-UK", \
+"EBCDIC-US", \
+"EBCDICATDE", \
+"EBCDICATDEA", \
+"EBCDICCAFR", \
+"EBCDICDKNO", \
+"EBCDICDKNOA", \
+"EBCDICES", \
+"EBCDICESA", \
+"EBCDICESS", \
+"EBCDICFISE", \
+"EBCDICFISEA", \
+"EBCDICFR", \
+"EBCDICISFRISS", \
+"EBCDICIT", \
+"EBCDICPT", \
+"EBCDICUK", \
+"EBCDICUS", \
+"ECMA-114", \
+"ECMA-118", \
+"ECMA-128", \
+"ECMA-CYRILLIC", \
+"ECMACYRILLIC", \
+"ELOT_928", \
+"ES", \
+"ES2", \
+"EUC-CN", \
+"EUC-JISX0213", \
+"EUC-JP-MS", \
+"EUC-JP", \
+"EUC-KR", \
+"EUC-TW", \
+"EUCCN", \
+"EUCJP-MS", \
+"EUCJP-OPEN", \
+"EUCJP-WIN", \
+"EUCJP", \
+"EUCKR", \
+"EUCTW", \
+"FI", \
+"FR", \
+"GB", \
+"GB2312", \
+"GB13000", \
+"GB18030", \
+"GBK", \
+"GB_1988-80", \
+"GB_198880", \
+"GEORGIAN-ACADEMY", \
+"GEORGIAN-PS", \
+"GOST_19768-74", \
+"GOST_19768", \
+"GOST_1976874", \
+"GREEK-CCITT", \
+"GREEK", \
+"GREEK7-OLD", \
+"GREEK7", \
+"GREEK7OLD", \
+"GREEK8", \
+"GREEKCCITT", \
+"HEBREW", \
+"HP-GREEK8", \
+"HP-ROMAN8", \
+"HP-ROMAN9", \
+"HP-THAI8", \
+"HP-TURKISH8", \
+"HPGREEK8", \
+"HPROMAN8", \
+"HPROMAN9", \
+"HPTHAI8", \
+"HPTURKISH8", \
+"HU", \
+"IBM-803", \
+"IBM-856", \
+"IBM-901", \
+"IBM-902", \
+"IBM-921", \
+"IBM-922", \
+"IBM-930", \
+"IBM-932", \
+"IBM-933", \
+"IBM-935", \
+"IBM-937", \
+"IBM-939", \
+"IBM-943", \
+"IBM-1008", \
+"IBM-1025", \
+"IBM-1046", \
+"IBM-1047", \
+"IBM-1097", \
+"IBM-1112", \
+"IBM-1122", \
+"IBM-1123", \
+"IBM-1124", \
+"IBM-1129", \
+"IBM-1130", \
+"IBM-1132", \
+"IBM-1133", \
+"IBM-1137", \
+"IBM-1140", \
+"IBM-1141", \
+"IBM-1142", \
+"IBM-1143", \
+"IBM-1144", \
+"IBM-1145", \
+"IBM-1146", \
+"IBM-1147", \
+"IBM-1148", \
+"IBM-1149", \
+"IBM-1153", \
+"IBM-1154", \
+"IBM-1155", \
+"IBM-1156", \
+"IBM-1157", \
+"IBM-1158", \
+"IBM-1160", \
+"IBM-1161", \
+"IBM-1162", \
+"IBM-1163", \
+"IBM-1164", \
+"IBM-1166", \
+"IBM-1167", \
+"IBM-1364", \
+"IBM-1371", \
+"IBM-1388", \
+"IBM-1390", \
+"IBM-1399", \
+"IBM-4517", \
+"IBM-4899", \
+"IBM-4909", \
+"IBM-4971", \
+"IBM-5347", \
+"IBM-9030", \
+"IBM-9066", \
+"IBM-9448", \
+"IBM-12712", \
+"IBM-16804", \
+"IBM037", \
+"IBM038", \
+"IBM256", \
+"IBM273", \
+"IBM274", \
+"IBM275", \
+"IBM277", \
+"IBM278", \
+"IBM280", \
+"IBM281", \
+"IBM284", \
+"IBM285", \
+"IBM290", \
+"IBM297", \
+"IBM367", \
+"IBM420", \
+"IBM423", \
+"IBM424", \
+"IBM437", \
+"IBM500", \
+"IBM775", \
+"IBM803", \
+"IBM813", \
+"IBM819", \
+"IBM848", \
+"IBM850", \
+"IBM851", \
+"IBM852", \
+"IBM855", \
+"IBM856", \
+"IBM857", \
+"IBM860", \
+"IBM861", \
+"IBM862", \
+"IBM863", \
+"IBM864", \
+"IBM865", \
+"IBM866", \
+"IBM866NAV", \
+"IBM868", \
+"IBM869", \
+"IBM870", \
+"IBM871", \
+"IBM874", \
+"IBM875", \
+"IBM880", \
+"IBM891", \
+"IBM901", \
+"IBM902", \
+"IBM903", \
+"IBM904", \
+"IBM905", \
+"IBM912", \
+"IBM915", \
+"IBM916", \
+"IBM918", \
+"IBM920", \
+"IBM921", \
+"IBM922", \
+"IBM930", \
+"IBM932", \
+"IBM933", \
+"IBM935", \
+"IBM937", \
+"IBM939", \
+"IBM943", \
+"IBM1004", \
+"IBM1008", \
+"IBM1025", \
+"IBM1026", \
+"IBM1046", \
+"IBM1047", \
+"IBM1089", \
+"IBM1097", \
+"IBM1112", \
+"IBM1122", \
+"IBM1123", \
+"IBM1124", \
+"IBM1129", \
+"IBM1130", \
+"IBM1132", \
+"IBM1133", \
+"IBM1137", \
+"IBM1140", \
+"IBM1141", \
+"IBM1142", \
+"IBM1143", \
+"IBM1144", \
+"IBM1145", \
+"IBM1146", \
+"IBM1147", \
+"IBM1148", \
+"IBM1149", \
+"IBM1153", \
+"IBM1154", \
+"IBM1155", \
+"IBM1156", \
+"IBM1157", \
+"IBM1158", \
+"IBM1160", \
+"IBM1161", \
+"IBM1162", \
+"IBM1163", \
+"IBM1164", \
+"IBM1166", \
+"IBM1167", \
+"IBM1364", \
+"IBM1371", \
+"IBM1388", \
+"IBM1390", \
+"IBM1399", \
+"IBM4517", \
+"IBM4899", \
+"IBM4909", \
+"IBM4971", \
+"IBM5347", \
+"IBM9030", \
+"IBM9066", \
+"IBM9448", \
+"IBM12712", \
+"IBM16804", \
+"IEC_P27-1", \
+"IEC_P271", \
+"INIS-8", \
+"INIS-CYRILLIC", \
+"INIS", \
+"INIS8", \
+"INISCYRILLIC", \
+"ISIRI-3342", \
+"ISIRI3342", \
+"ISO-2022-CN-EXT", \
+"ISO-2022-CN", \
+"ISO-2022-JP-2", \
+"ISO-2022-JP-3", \
+"ISO-2022-JP", \
+"ISO-2022-KR", \
+"ISO-8859-1", \
+"ISO-8859-2", \
+"ISO-8859-3", \
+"ISO-8859-4", \
+"ISO-8859-5", \
+"ISO-8859-6", \
+"ISO-8859-7", \
+"ISO-8859-8", \
+"ISO-8859-9", \
+"ISO-8859-9E", \
+"ISO-8859-10", \
+"ISO-8859-11", \
+"ISO-8859-13", \
+"ISO-8859-14", \
+"ISO-8859-15", \
+"ISO-8859-16", \
+"ISO-10646", \
+"ISO-CELTIC", \
+"ISO-IR-4", \
+"ISO-IR-6", \
+"ISO-IR-8-1", \
+"ISO-IR-9-1", \
+"ISO-IR-10", \
+"ISO-IR-11", \
+"ISO-IR-14", \
+"ISO-IR-15", \
+"ISO-IR-16", \
+"ISO-IR-17", \
+"ISO-IR-18", \
+"ISO-IR-19", \
+"ISO-IR-21", \
+"ISO-IR-25", \
+"ISO-IR-27", \
+"ISO-IR-37", \
+"ISO-IR-49", \
+"ISO-IR-50", \
+"ISO-IR-51", \
+"ISO-IR-54", \
+"ISO-IR-55", \
+"ISO-IR-57", \
+"ISO-IR-60", \
+"ISO-IR-61", \
+"ISO-IR-69", \
+"ISO-IR-84", \
+"ISO-IR-85", \
+"ISO-IR-86", \
+"ISO-IR-88", \
+"ISO-IR-89", \
+"ISO-IR-90", \
+"ISO-IR-92", \
+"ISO-IR-98", \
+"ISO-IR-99", \
+"ISO-IR-100", \
+"ISO-IR-101", \
+"ISO-IR-103", \
+"ISO-IR-109", \
+"ISO-IR-110", \
+"ISO-IR-111", \
+"ISO-IR-121", \
+"ISO-IR-122", \
+"ISO-IR-126", \
+"ISO-IR-127", \
+"ISO-IR-138", \
+"ISO-IR-139", \
+"ISO-IR-141", \
+"ISO-IR-143", \
+"ISO-IR-144", \
+"ISO-IR-148", \
+"ISO-IR-150", \
+"ISO-IR-151", \
+"ISO-IR-153", \
+"ISO-IR-155", \
+"ISO-IR-156", \
+"ISO-IR-157", \
+"ISO-IR-166", \
+"ISO-IR-179", \
+"ISO-IR-193", \
+"ISO-IR-197", \
+"ISO-IR-199", \
+"ISO-IR-203", \
+"ISO-IR-209", \
+"ISO-IR-226", \
+"ISO646-CA", \
+"ISO646-CA2", \
+"ISO646-CN", \
+"ISO646-CU", \
+"ISO646-DE", \
+"ISO646-DK", \
+"ISO646-ES", \
+"ISO646-ES2", \
+"ISO646-FI", \
+"ISO646-FR", \
+"ISO646-FR1", \
+"ISO646-GB", \
+"ISO646-HU", \
+"ISO646-IT", \
+"ISO646-JP-OCR-B", \
+"ISO646-JP", \
+"ISO646-KR", \
+"ISO646-NO", \
+"ISO646-NO2", \
+"ISO646-PT", \
+"ISO646-PT2", \
+"ISO646-SE", \
+"ISO646-SE2", \
+"ISO646-US", \
+"ISO646-YU", \
+"ISO2022CN", \
+"ISO2022CNEXT", \
+"ISO2022JP", \
+"ISO2022JP2", \
+"ISO2022KR", \
+"ISO6937", \
+"ISO8859-1", \
+"ISO8859-2", \
+"ISO8859-3", \
+"ISO8859-4", \
+"ISO8859-5", \
+"ISO8859-6", \
+"ISO8859-7", \
+"ISO8859-8", \
+"ISO8859-9", \
+"ISO8859-9E", \
+"ISO8859-10", \
+"ISO8859-11", \
+"ISO8859-13", \
+"ISO8859-14", \
+"ISO8859-15", \
+"ISO8859-16", \
+"ISO11548-1", \
+"ISO88591", \
+"ISO88592", \
+"ISO88593", \
+"ISO88594", \
+"ISO88595", \
+"ISO88596", \
+"ISO88597", \
+"ISO88598", \
+"ISO88599", \
+"ISO88599E", \
+"ISO885910", \
+"ISO885911", \
+"ISO885913", \
+"ISO885914", \
+"ISO885915", \
+"ISO885916", \
+"ISO_646.IRV:1991", \
+"ISO_2033-1983", \
+"ISO_2033", \
+"ISO_5427-EXT", \
+"ISO_5427", \
+"ISO_5427:1981", \
+"ISO_5427EXT", \
+"ISO_5428", \
+"ISO_5428:1980", \
+"ISO_6937-2", \
+"ISO_6937-2:1983", \
+"ISO_6937", \
+"ISO_6937:1992", \
+"ISO_8859-1", \
+"ISO_8859-1:1987", \
+"ISO_8859-2", \
+"ISO_8859-2:1987", \
+"ISO_8859-3", \
+"ISO_8859-3:1988", \
+"ISO_8859-4", \
+"ISO_8859-4:1988", \
+"ISO_8859-5", \
+"ISO_8859-5:1988", \
+"ISO_8859-6", \
+"ISO_8859-6:1987", \
+"ISO_8859-7", \
+"ISO_8859-7:1987", \
+"ISO_8859-7:2003", \
+"ISO_8859-8", \
+"ISO_8859-8:1988", \
+"ISO_8859-9", \
+"ISO_8859-9:1989", \
+"ISO_8859-9E", \
+"ISO_8859-10", \
+"ISO_8859-10:1992", \
+"ISO_8859-14", \
+"ISO_8859-14:1998", \
+"ISO_8859-15", \
+"ISO_8859-15:1998", \
+"ISO_8859-16", \
+"ISO_8859-16:2001", \
+"ISO_9036", \
+"ISO_10367-BOX", \
+"ISO_10367BOX", \
+"ISO_11548-1", \
+"ISO_69372", \
+"IT", \
+"JIS_C6220-1969-RO", \
+"JIS_C6229-1984-B", \
+"JIS_C62201969RO", \
+"JIS_C62291984B", \
+"JOHAB", \
+"JP-OCR-B", \
+"JP", \
+"JS", \
+"JUS_I.B1.002", \
+"KOI-7", \
+"KOI-8", \
+"KOI8-R", \
+"KOI8-RU", \
+"KOI8-T", \
+"KOI8-U", \
+"KOI8", \
+"KOI8R", \
+"KOI8U", \
+"KSC5636", \
+"L1", \
+"L2", \
+"L3", \
+"L4", \
+"L5", \
+"L6", \
+"L7", \
+"L8", \
+"L10", \
+"LATIN-9", \
+"LATIN-GREEK-1", \
+"LATIN-GREEK", \
+"LATIN1", \
+"LATIN2", \
+"LATIN3", \
+"LATIN4", \
+"LATIN5", \
+"LATIN6", \
+"LATIN7", \
+"LATIN8", \
+"LATIN10", \
+"LATINGREEK", \
+"LATINGREEK1", \
+"MAC-CENTRALEUROPE", \
+"MAC-CYRILLIC", \
+"MAC-IS", \
+"MAC-SAMI", \
+"MAC-UK", \
+"MAC", \
+"MACCYRILLIC", \
+"MACINTOSH", \
+"MACIS", \
+"MACUK", \
+"MACUKRAINIAN", \
+"MIK", \
+"MS-ANSI", \
+"MS-ARAB", \
+"MS-CYRL", \
+"MS-EE", \
+"MS-GREEK", \
+"MS-HEBR", \
+"MS-MAC-CYRILLIC", \
+"MS-TURK", \
+"MS932", \
+"MS936", \
+"MSCP949", \
+"MSCP1361", \
+"MSMACCYRILLIC", \
+"MSZ_7795.3", \
+"MS_KANJI", \
+"NAPLPS", \
+"NATS-DANO", \
+"NATS-SEFI", \
+"NATSDANO", \
+"NATSSEFI", \
+"NC_NC0010", \
+"NC_NC00-10", \
+"NC_NC00-10:81", \
+"NF_Z_62-010", \
+"NF_Z_62-010_(1973)", \
+"NF_Z_62-010_1973", \
+"NF_Z_62010", \
+"NF_Z_62010_1973", \
+"NO", \
+"NO2", \
+"NS_4551-1", \
+"NS_4551-2", \
+"NS_45511", \
+"NS_45512", \
+"OS2LATIN1", \
+"OSF00010001", \
+"OSF00010002", \
+"OSF00010003", \
+"OSF00010004", \
+"OSF00010005", \
+"OSF00010006", \
+"OSF00010007", \
+"OSF00010008", \
+"OSF00010009", \
+"OSF0001000A", \
+"OSF00010020", \
+"OSF00010100", \
+"OSF00010101", \
+"OSF00010102", \
+"OSF00010104", \
+"OSF00010105", \
+"OSF00010106", \
+"OSF00030010", \
+"OSF0004000A", \
+"OSF0005000A", \
+"OSF05010001", \
+"OSF100201A4", \
+"OSF100201A8", \
+"OSF100201B5", \
+"OSF100201F4", \
+"OSF100203B5", \
+"OSF1002011C", \
+"OSF1002011D", \
+"OSF1002035D", \
+"OSF1002035E", \
+"OSF1002035F", \
+"OSF1002036B", \
+"OSF1002037B", \
+"OSF10010001", \
+"OSF10010004", \
+"OSF10010006", \
+"OSF10020025", \
+"OSF10020111", \
+"OSF10020115", \
+"OSF10020116", \
+"OSF10020118", \
+"OSF10020122", \
+"OSF10020129", \
+"OSF10020352", \
+"OSF10020354", \
+"OSF10020357", \
+"OSF10020359", \
+"OSF10020360", \
+"OSF10020364", \
+"OSF10020365", \
+"OSF10020366", \
+"OSF10020367", \
+"OSF10020370", \
+"OSF10020387", \
+"OSF10020388", \
+"OSF10020396", \
+"OSF10020402", \
+"OSF10020417", \
+"PT", \
+"PT2", \
+"PT154", \
+"R8", \
+"R9", \
+"RK1048", \
+"ROMAN8", \
+"ROMAN9", \
+"RUSCII", \
+"SE", \
+"SE2", \
+"SEN_850200_B", \
+"SEN_850200_C", \
+"SHIFT-JIS", \
+"SHIFT_JIS", \
+"SHIFT_JISX0213", \
+"SJIS-OPEN", \
+"SJIS-WIN", \
+"SJIS", \
+"SS636127", \
+"STRK1048-2002", \
+"ST_SEV_358-88", \
+"T.61-8BIT", \
+"T.61", \
+"T.618BIT", \
+"TCVN-5712", \
+"TCVN", \
+"TCVN5712-1", \
+"TCVN5712-1:1993", \
+"THAI8", \
+"TIS-620", \
+"TIS620-0", \
+"TIS620.2529-1", \
+"TIS620.2533-0", \
+"TIS620", \
+"TS-5881", \
+"TSCII", \
+"TURKISH8", \
+"UCS-2", \
+"UCS-2BE", \
+"UCS-2LE", \
+"UCS-4", \
+"UCS-4BE", \
+"UCS-4LE", \
+"UCS2", \
+"UCS4", \
+"UHC", \
+"UJIS", \
+"UK", \
+"UNICODE", \
+"UNICODEBIG", \
+"UNICODELITTLE", \
+"US-ASCII", \
+"US", \
+"UTF-7", \
+"UTF-8", \
+"UTF-16", \
+"UTF-16BE", \
+"UTF-16LE", \
+"UTF-32", \
+"UTF-32BE", \
+"UTF-32LE", \
+"UTF7", \
+"UTF8", \
+"UTF16", \
+"UTF16BE", \
+"UTF16LE", \
+"UTF32", \
+"UTF32BE", \
+"UTF32LE", \
+"VISCII", \
+"WCHAR_T", \
+"WIN-SAMI-2", \
+"WINBALTRIM", \
+"WINDOWS-31J", \
+"WINDOWS-874", \
+"WINDOWS-936", \
+"WINDOWS-1250", \
+"WINDOWS-1251", \
+"WINDOWS-1252", \
+"WINDOWS-1253", \
+"WINDOWS-1254", \
+"WINDOWS-1255", \
+"WINDOWS-1256", \
+"WINDOWS-1257", \
+"WINDOWS-1258", \
+"WINSAMI2", \
+"WS2", \
+"YU",
diff --git a/gdb/charset.c b/gdb/charset.c
index 32eb9c3..4850fbf 100644
--- a/gdb/charset.c
+++ b/gdb/charset.c
@@ -21,6 +21,9 @@
#include "charset.h"
#include "gdbcmd.h"
#include "gdb_assert.h"
+#include "gdb_obstack.h"
+#include "charset-list.h"
+#include "vec.h"
#include <stddef.h>
#include "gdb_string.h"
@@ -33,15 +36,20 @@
/* How GDB's character set support works
- GDB has two global settings:
+ GDB has three global settings:
- The `current host character set' is the character set GDB should
use in talking to the user, and which (hopefully) the user's
- terminal knows how to display properly.
+ terminal knows how to display properly. Most users should not
+ change this.
- The `current target character set' is the character set the
program being debugged uses.
+ - The `current target wide character set' is the wide character set
+ the program being debugged uses, that is, the encoding used for
+ wchar_t.
+
There are commands to set each of these, and mechanisms for
choosing reasonable default values. GDB has a global list of
character sets that it can use as its host or target character
@@ -57,118 +65,37 @@
characters the user enters in expressions (mostly host->target
conversions),
- and so on.
-
- Now, many of these operations are specific to a particular
- host/target character set pair. If GDB supports N character sets,
- there are N^2 possible pairs. This means that, the larger GDB's
- repertoire of character sets gets, the more expensive it gets to add
- new character sets.
-
- To make sure that GDB can do the right thing for every possible
- pairing of host and target character set, while still allowing
- GDB's repertoire to scale, we use a two-tiered approach:
-
- - We maintain a global table of "translations" --- groups of
- functions specific to a particular pair of character sets.
-
- - However, a translation can be incomplete: some functions can be
- omitted. Where there is not a translation to specify exactly
- what function to use, we provide reasonable defaults. The
- default behaviors try to use the "iconv" library functions, which
- support a wide range of character sets. However, even if iconv
- is not available, there are fallbacks to support trivial
- translations: when the host and target character sets are the
- same. */
-
-
-/* The character set and translation structures. */
-
-
-/* A character set GDB knows about. GDB only supports character sets
- with stateless encodings, in which every character is one byte
- long. */
-struct charset {
-
- /* A singly-linked list of all known charsets. */
- struct charset *next;
-
- /* The name of the character set. Comparisons on character set
- names are case-sensitive. */
- const char *name;
-
- /* Non-zero iff this character set can be used as a host character
- set. At present, GDB basically assumes that the host character
- set is a superset of ASCII. */
- int valid_host_charset;
-
- /* Pointers to charset-specific functions that depend only on a
- single character set, and data pointers to pass to them. */
- int (*host_char_print_literally) (void *baton,
- int host_char);
- void *host_char_print_literally_baton;
-
- int (*target_char_to_control_char) (void *baton,
- int target_char,
- int *target_ctrl_char);
- void *target_char_to_control_char_baton;
-};
-
-
-/* A translation from one character set to another. */
-struct translation {
-
- /* A singly-linked list of all known translations. */
- struct translation *next;
-
- /* This structure describes functions going from the FROM character
- set to the TO character set. Comparisons on character set names
- are case-sensitive. */
- const char *from, *to;
-
- /* Pointers to translation-specific functions, and data pointers to
- pass to them. These pointers can be zero, indicating that GDB
- should fall back on the default behavior. We hope the default
- behavior will be correct for many from/to pairs, reducing the
- number of translations that need to be registered explicitly. */
-
- /* TARGET_CHAR is in the `from' charset.
- Returns a string in the `to' charset. */
- const char *(*c_target_char_has_backslash_escape) (void *baton,
- int target_char);
- void *c_target_char_has_backslash_escape_baton;
-
- /* HOST_CHAR is in the `from' charset.
- TARGET_CHAR points to a char in the `to' charset. */
- int (*c_parse_backslash) (void *baton, int host_char, int *target_char);
- void *c_parse_backslash_baton;
-
- /* This is used for the host_char_to_target and target_char_to_host
- functions. */
- int (*convert_char) (void *baton, int from, int *to);
- void *convert_char_baton;
-};
-
+ and so on.
+
+ To avoid excessive code duplication and maintenance efforts,
+ GDB simply requires a capable iconv function. Users on platforms
+ without a suitable iconv can use the GNU iconv library. */
/* The global lists of character sets and translations. */
-#ifndef GDB_DEFAULT_HOST_CHARSET
-#define GDB_DEFAULT_HOST_CHARSET "ISO-8859-1"
-#endif
-
#ifndef GDB_DEFAULT_TARGET_CHARSET
#define GDB_DEFAULT_TARGET_CHARSET "ISO-8859-1"
#endif
-static const char *host_charset_name = GDB_DEFAULT_HOST_CHARSET;
+#ifndef GDB_DEFAULT_TARGET_WIDE_CHARSET
+#define GDB_DEFAULT_TARGET_WIDE_CHARSET "UCS-4"
+#endif
+
+static const char *auto_host_charset_name = GDB_DEFAULT_HOST_CHARSET;
+static const char *host_charset_name = "auto";
static void
show_host_charset_name (struct ui_file *file, int from_tty,
struct cmd_list_element *c,
const char *value)
{
- fprintf_filtered (file, _("The host character set is \"%s\".\n"), value);
+ if (!strcmp (value, "auto"))
+ fprintf_filtered (file,
+ _("The host character set is \"auto; currently %s\".\n"),
+ auto_host_charset_name);
+ else
+ fprintf_filtered (file, _("The host character set is \"%s\".\n"), value);
}
static const char *target_charset_name = GDB_DEFAULT_TARGET_CHARSET;
@@ -180,1060 +107,534 @@ show_target_charset_name (struct ui_file *file, int from_tty,
value);
}
-
-static const char *host_charset_enum[] =
+static const char *target_wide_charset_name = GDB_DEFAULT_TARGET_WIDE_CHARSET;
+static void
+show_target_wide_charset_name (struct ui_file *file, int from_tty,
+ struct cmd_list_element *c, const char *value)
{
- "ASCII",
- "ISO-8859-1",
- 0
-};
+ fprintf_filtered (file, _("The target wide character set is \"%s\".\n"),
+ value);
+}
-static const char *target_charset_enum[] =
+static const char *default_charset_names[] =
{
- "ASCII",
- "ISO-8859-1",
- "EBCDIC-US",
- "IBM1047",
+ DEFAULT_CHARSET_NAMES
0
};
-/* The global list of all the charsets GDB knows about. */
-static struct charset *all_charsets;
+static const char **charset_enum;
+
+/* If the target wide character set has big- or little-endian
+ variants, these are the corresponding names. */
+static const char *target_wide_charset_be_name;
+static const char *target_wide_charset_le_name;
-static void
-register_charset (struct charset *cs)
-{
- struct charset **ptr;
-
- /* Put the new charset on the end, so that the list ends up in the
- same order as the registrations in the _initialize function. */
- for (ptr = &all_charsets; *ptr; ptr = &(*ptr)->next)
- ;
-
- cs->next = 0;
- *ptr = cs;
-}
-
+/* A helper function for validate which sets the target wide big- and
+ little-endian character set names, if possible. */
-static struct charset *
-lookup_charset (const char *name)
+static void
+set_be_le_names (void)
{
- struct charset *cs;
+ int i, len;
- for (cs = all_charsets; cs; cs = cs->next)
- if (! strcmp (name, cs->name))
- return cs;
+ target_wide_charset_le_name = NULL;
+ target_wide_charset_be_name = NULL;
- return NULL;
+ len = strlen (target_wide_charset_name);
+ for (i = 0; charset_enum[i]; ++i)
+ {
+ if (strncmp (target_wide_charset_name, charset_enum[i], len))
+ continue;
+ if ((charset_enum[i][len] == 'B'
+ || charset_enum[i][len] == 'L')
+ && charset_enum[i][len + 1] == 'E'
+ && charset_enum[i][len + 2] == '\0')
+ {
+ if (charset_enum[i][len] == 'B')
+ target_wide_charset_be_name = charset_enum[i];
+ else
+ target_wide_charset_le_name = charset_enum[i];
+ }
+ }
}
-
-/* The global list of translations. */
-static struct translation *all_translations;
-
+/* 'Set charset', 'set host-charset', 'set target-charset', 'set
+ target-wide-charset', 'set charset' sfunc's. */
static void
-register_translation (struct translation *t)
+validate (void)
{
- t->next = all_translations;
- all_translations = t;
-}
-
-
-static struct translation *
-lookup_translation (const char *from, const char *to)
-{
- struct translation *t;
-
- for (t = all_translations; t; t = t->next)
- if (! strcmp (from, t->from)
- && ! strcmp (to, t->to))
- return t;
+ iconv_t desc;
+ const char *host_cset = host_charset ();
- return 0;
-}
-
-
-
-/* Constructing charsets. */
-
-/* Allocate, initialize and return a straightforward charset.
- Use this function, rather than creating the structures yourself,
- so that we can add new fields to the structure in the future without
- having to tweak all the old charset descriptions. */
-static struct charset *
-simple_charset (const char *name,
- int valid_host_charset,
- int (*host_char_print_literally) (void *baton, int host_char),
- void *host_char_print_literally_baton,
- int (*target_char_to_control_char) (void *baton,
- int target_char,
- int *target_ctrl_char),
- void *target_char_to_control_char_baton)
-{
- struct charset *cs = xmalloc (sizeof (*cs));
+ desc = iconv_open (target_wide_charset_name, host_cset);
+ if (desc == (iconv_t) -1)
+ error ("Cannot convert between character sets `%s' and `%s'",
+ target_wide_charset_name, host_cset);
+ iconv_close (desc);
- memset (cs, 0, sizeof (*cs));
- cs->name = name;
- cs->valid_host_charset = valid_host_charset;
- cs->host_char_print_literally = host_char_print_literally;
- cs->host_char_print_literally_baton = host_char_print_literally_baton;
- cs->target_char_to_control_char = target_char_to_control_char;
- cs->target_char_to_control_char_baton = target_char_to_control_char_baton;
+ desc = iconv_open (target_charset_name, host_cset);
+ if (desc == (iconv_t) -1)
+ error ("Cannot convert between character sets `%s' and `%s'",
+ target_charset_name, host_cset);
+ iconv_close (desc);
- return cs;
+ set_be_le_names ();
}
-
-
-/* ASCII functions. */
-
-static int
-ascii_print_literally (void *baton, int c)
+/* This is the sfunc for the 'set charset' command. */
+static void
+set_charset_sfunc (char *charset, int from_tty, struct cmd_list_element *c)
{
- c &= 0xff;
-
- return (0x20 <= c && c <= 0x7e);
+ /* CAREFUL: set the target charset here as well. */
+ target_charset_name = host_charset_name;
+ validate ();
}
-
-static int
-ascii_to_control (void *baton, int c, int *ctrl_char)
+/* 'set host-charset' command sfunc. We need a wrapper here because
+ the function needs to have a specific signature. */
+static void
+set_host_charset_sfunc (char *charset, int from_tty,
+ struct cmd_list_element *c)
{
- *ctrl_char = (c & 037);
- return 1;
+ validate ();
}
-
-/* ISO-8859 family functions. */
-
-
-static int
-iso_8859_print_literally (void *baton, int c)
+/* Wrapper for the 'set target-charset' command. */
+static void
+set_target_charset_sfunc (char *charset, int from_tty,
+ struct cmd_list_element *c)
{
- c &= 0xff;
-
- return ((0x20 <= c && c <= 0x7e) /* ascii printables */
- || (! sevenbit_strings && 0xA0 <= c)); /* iso 8859 printables */
+ validate ();
}
-
-static int
-iso_8859_to_control (void *baton, int c, int *ctrl_char)
+/* Wrapper for the 'set target-wide-charset' command. */
+static void
+set_target_wide_charset_sfunc (char *charset, int from_tty,
+ struct cmd_list_element *c)
{
- *ctrl_char = (c & 0200) | (c & 037);
- return 1;
+ validate ();
}
-
-/* Construct an ISO-8859-like character set. */
-static struct charset *
-iso_8859_family_charset (const char *name)
+/* sfunc for the 'show charset' command. */
+static void
+show_charset (struct ui_file *file, int from_tty, struct cmd_list_element *c,
+ const char *name)
{
- return simple_charset (name, 1,
- iso_8859_print_literally, 0,
- iso_8859_to_control, 0);
+ show_host_charset_name (file, from_tty, c, host_charset_name);
+ show_target_charset_name (file, from_tty, c, target_charset_name);
+ show_target_wide_charset_name (file, from_tty, c, target_wide_charset_name);
}
-
-/* EBCDIC family functions. */
-
-
-static int
-ebcdic_print_literally (void *baton, int c)
-{
- c &= 0xff;
-
- return (64 <= c && c <= 254);
-}
-
+/* Accessor functions. */
-static int
-ebcdic_to_control (void *baton, int c, int *ctrl_char)
+const char *
+host_charset (void)
{
- /* There are no control character equivalents in EBCDIC. Use
- numeric escapes. */
- return 0;
+ if (!strcmp (host_charset_name, "auto"))
+ return auto_host_charset_name;
+ return host_charset_name;
}
-
-/* Construct an EBCDIC-like character set. */
-static struct charset *
-ebcdic_family_charset (const char *name)
+const char *
+target_charset (void)
{
- return simple_charset (name, 0,
- ebcdic_print_literally, 0,
- ebcdic_to_control, 0);
+ return target_charset_name;
}
-
-
-
-
-
-/* Fallback functions using iconv. */
-
-#if defined(HAVE_ICONV)
-struct cached_iconv {
- struct charset *from, *to;
- iconv_t i;
-};
-
-
-/* Make sure the iconv cache *CI contains an iconv descriptor
- translating from FROM to TO. If it already does, fine; otherwise,
- close any existing descriptor, and open up a new one. On success,
- return zero; on failure, return -1 and set errno. */
-static int
-check_iconv_cache (struct cached_iconv *ci,
- struct charset *from,
- struct charset *to)
+const char *
+target_wide_charset (void)
{
- iconv_t i;
-
- /* Does the cached iconv descriptor match the conversion we're trying
- to do now? */
- if (ci->from == from
- && ci->to == to
- && ci->i != (iconv_t) 0)
- return 0;
-
- /* It doesn't. If we actually had any iconv descriptor open at
- all, close it now. */
- if (ci->i != (iconv_t) 0)
+ if (gdbarch_byte_order (current_gdbarch) == BFD_ENDIAN_BIG)
{
- i = ci->i;
- ci->i = (iconv_t) 0;
-
- if (iconv_close (i) == -1)
- error (_("Error closing `iconv' descriptor for "
- "`%s'-to-`%s' character conversion: %s"),
- ci->from->name, ci->to->name, safe_strerror (errno));
+ if (target_wide_charset_be_name)
+ return target_wide_charset_be_name;
}
-
- /* Open a new iconv descriptor for the required conversion. */
- i = iconv_open (to->name, from->name);
- if (i == (iconv_t) -1)
- return -1;
-
- ci->i = i;
- ci->from = from;
- ci->to = to;
-
- return 0;
-}
-
-
-/* Convert FROM_CHAR using the cached iconv conversion *CI. Return
- non-zero if the conversion was successful, zero otherwise. */
-static int
-cached_iconv_convert (struct cached_iconv *ci, int from_char, int *to_char)
-{
- char from;
- ICONV_CONST char *from_ptr = &from;
- char to, *to_ptr = &to;
- size_t from_left = sizeof (from), to_left = sizeof (to);
-
- gdb_assert (ci->i != (iconv_t) 0);
-
- from = from_char;
- if (iconv (ci->i, &from_ptr, &from_left, &to_ptr, &to_left)
- == (size_t) -1)
+ else
{
- /* These all suggest that the input or output character sets
- have multi-byte encodings of some characters, which means
- it's unsuitable for use as a GDB character set. We should
- never have selected it. */
- gdb_assert (errno != E2BIG && errno != EINVAL);
-
- /* This suggests a bug in the code managing *CI. */
- gdb_assert (errno != EBADF);
-
- /* This seems to mean that there is no equivalent character in
- the `to' character set. */
- if (errno == EILSEQ)
- return 0;
-
- /* Anything else is mysterious. */
- internal_error (__FILE__, __LINE__,
- _("Error converting character `%d' from `%s' to `%s' "
- "character set: %s"),
- from_char, ci->from->name, ci->to->name,
- safe_strerror (errno));
+ if (target_wide_charset_le_name)
+ return target_wide_charset_le_name;
}
- /* If the pointers weren't advanced across the input, that also
- suggests something was wrong. */
- gdb_assert (from_left == 0 && to_left == 0);
-
- *to_char = (unsigned char) to;
- return 1;
+ return target_wide_charset_name;
}
-
-static void
-register_iconv_charsets (void)
-{
- /* Here we should check whether various character sets were
- recognized by the local iconv implementation.
-
- The first implementation registered a bunch of character sets
- recognized by iconv, but then we discovered that iconv on Solaris
- and iconv on GNU/Linux had no character sets in common. So we
- replaced them with the hard-coded tables that appear later in the
- file. */
-}
-
-#endif /* defined (HAVE_ICONV) */
-
-/* Fallback routines for systems without iconv. */
+/* Host character set management. For the time being, we assume that
+ the host character set is some superset of ASCII. */
-#if ! defined (HAVE_ICONV)
-struct cached_iconv { char nothing; };
-
-static int
-check_iconv_cache (struct cached_iconv *ci,
- struct charset *from,
- struct charset *to)
+char
+host_letter_to_control_character (char c)
{
- errno = EINVAL;
- return -1;
+ if (c == '?')
+ return 0177;
+ return c & 0237;
}
-static int
-cached_iconv_convert (struct cached_iconv *ci, int from_char, int *to_char)
-{
- /* This function should never be called. */
- gdb_assert (0);
-}
+/* Convert a host character, C, to its hex value. C must already have
+ been validated using isxdigit. */
-static void
-register_iconv_charsets (void)
-{
-}
-
-#endif /* ! defined(HAVE_ICONV) */
-
-
-/* Default trivial conversion functions. */
-
-static int
-identity_either_char_to_other (void *baton, int either_char, int *other_char)
+int
+host_hex_value (char c)
{
- *other_char = either_char;
- return 1;
+ if (isdigit (c))
+ return c - '0';
+ if (c >= 'a' && c <= 'f')
+ return 10 + c - 'a';
+ gdb_assert (c >= 'A' && c <= 'F');
+ return 10 + c - 'A';
}
-
-/* Default non-trivial conversion functions. */
-
-
-static char backslashable[] = "abfnrtv";
-static char *backslashed[] = {"a", "b", "f", "n", "r", "t", "v", "0"};
-static char represented[] = "\a\b\f\n\r\t\v";
-
-
-/* Translate TARGET_CHAR into the host character set, and see if it
- matches any of our standard escape sequences. */
-static const char *
-default_c_target_char_has_backslash_escape (void *baton, int target_char)
-{
- int host_char;
- const char *ix;
-
- /* If target_char has no equivalent in the host character set,
- assume it doesn't have a backslashed form. */
- if (! target_char_to_host (target_char, &host_char))
- return NULL;
-
- ix = strchr (represented, host_char);
- if (ix)
- return backslashed[ix - represented];
- else
- return NULL;
-}
-
-
-/* Translate the backslash the way we would in the host character set,
- and then try to translate that into the target character set. */
-static int
-default_c_parse_backslash (void *baton, int host_char, int *target_char)
-{
- const char *ix;
-
- ix = strchr (backslashable, host_char);
-
- if (! ix)
- return 0;
- else
- return host_char_to_target (represented[ix - backslashable],
- target_char);
-}
+/* Public character management functions. */
+/* A cleanup function which is run to close an iconv descriptor. */
-/* Convert using a cached iconv descriptor. */
-static int
-iconv_convert (void *baton, int from_char, int *to_char)
+static void
+cleanup_iconv (void *p)
{
- struct cached_iconv *ci = baton;
- return cached_iconv_convert (ci, from_char, to_char);
+ iconv_t *descp = p;
+ iconv_close (*descp);
}
+void
+convert_between_encodings (const char *from, const char *to,
+ const gdb_byte *bytes, unsigned int num_bytes,
+ int width, struct obstack *output,
+ enum transliterations translit)
+{
+ iconv_t desc;
+ struct cleanup *cleanups;
+ size_t inleft;
+ char *inp;
+ unsigned int space_request;
+
+ /* Often, the host and target charsets will be the same. */
+ if (!strcmp (from, to))
+ {
+ obstack_grow (output, bytes, num_bytes);
+ return;
+ }
-
-/* Conversion tables. */
-
-
-/* I'd much rather fall back on iconv whenever possible. But the
- character set names you use with iconv aren't standardized at all,
- a lot of platforms have really meager character set coverage, etc.
- I wanted to have at least something we could use to exercise the
- test suite on all platforms.
-
- In the long run, we should have a configure-time process explore
- somehow which character sets the host platform supports, and some
- arrangement that allows GDB users to use platform-indepedent names
- for character sets. */
-
-
-/* We generated these tables using iconv on a GNU/Linux machine. */
-
-
-static int ascii_to_iso_8859_1_table[] = {
- 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, /* 16 */
- 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, /* 32 */
- 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, /* 48 */
- 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, /* 64 */
- 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, /* 80 */
- 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, /* 96 */
- 96, 97, 98, 99,100,101,102,103,104,105,106,107,108,109,110,111, /* 112 */
- 112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127, /* 128 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 144 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 160 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 176 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 192 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 208 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 224 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 240 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1 /* 256 */
-};
-
-
-static int ascii_to_ebcdic_us_table[] = {
- 0, 1, 2, 3, 55, 45, 46, 47, 22, 5, 37, 11, 12, 13, 14, 15, /* 16 */
- 16, 17, 18, 19, 60, 61, 50, 38, 24, 25, 63, 39, 28, 29, 30, 31, /* 32 */
- 64, 90,127,123, 91,108, 80,125, 77, 93, 92, 78,107, 96, 75, 97, /* 48 */
- 240,241,242,243,244,245,246,247,248,249,122, 94, 76,126,110,111, /* 64 */
- 124,193,194,195,196,197,198,199,200,201,209,210,211,212,213,214, /* 80 */
- 215,216,217,226,227,228,229,230,231,232,233, -1,224, -1, -1,109, /* 96 */
- 121,129,130,131,132,133,134,135,136,137,145,146,147,148,149,150, /* 112 */
- 151,152,153,162,163,164,165,166,167,168,169,192, 79,208,161, 7, /* 128 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 144 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 160 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 176 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 192 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 208 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 224 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 240 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1 /* 256 */
-};
-
-
-static int ascii_to_ibm1047_table[] = {
- 0, 1, 2, 3, 55, 45, 46, 47, 22, 5, 37, 11, 12, 13, 14, 15, /* 16 */
- 16, 17, 18, 19, 60, 61, 50, 38, 24, 25, 63, 39, 28, 29, 30, 31, /* 32 */
- 64, 90,127,123, 91,108, 80,125, 77, 93, 92, 78,107, 96, 75, 97, /* 48 */
- 240,241,242,243,244,245,246,247,248,249,122, 94, 76,126,110,111, /* 64 */
- 124,193,194,195,196,197,198,199,200,201,209,210,211,212,213,214, /* 80 */
- 215,216,217,226,227,228,229,230,231,232,233,173,224,189, 95,109, /* 96 */
- 121,129,130,131,132,133,134,135,136,137,145,146,147,148,149,150, /* 112 */
- 151,152,153,162,163,164,165,166,167,168,169,192, 79,208,161, 7, /* 128 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 144 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 160 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 176 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 192 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 208 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 224 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 240 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1 /* 256 */
-};
-
-
-static int iso_8859_1_to_ascii_table[] = {
- 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, /* 16 */
- 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, /* 32 */
- 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, /* 48 */
- 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, /* 64 */
- 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, /* 80 */
- 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, /* 96 */
- 96, 97, 98, 99,100,101,102,103,104,105,106,107,108,109,110,111, /* 112 */
- 112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127, /* 128 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 144 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 160 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 176 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 192 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 208 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 224 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 240 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1 /* 256 */
-};
-
-
-static int iso_8859_1_to_ebcdic_us_table[] = {
- 0, 1, 2, 3, 55, 45, 46, 47, 22, 5, 37, 11, 12, 13, 14, 15, /* 16 */
- 16, 17, 18, 19, 60, 61, 50, 38, 24, 25, 63, 39, 28, 29, 30, 31, /* 32 */
- 64, 90,127,123, 91,108, 80,125, 77, 93, 92, 78,107, 96, 75, 97, /* 48 */
- 240,241,242,243,244,245,246,247,248,249,122, 94, 76,126,110,111, /* 64 */
- 124,193,194,195,196,197,198,199,200,201,209,210,211,212,213,214, /* 80 */
- 215,216,217,226,227,228,229,230,231,232,233, -1,224, -1, -1,109, /* 96 */
- 121,129,130,131,132,133,134,135,136,137,145,146,147,148,149,150, /* 112 */
- 151,152,153,162,163,164,165,166,167,168,169,192, 79,208,161, 7, /* 128 */
- 32, 33, 34, 35, 36, 21, 6, 23, 40, 41, 42, 43, 44, 9, 10, 27, /* 144 */
- 48, 49, 26, 51, 52, 53, 54, 8, 56, 57, 58, 59, 4, 20, 62,255, /* 160 */
- -1, -1, 74, -1, -1, -1,106, -1, -1, -1, -1, -1, 95, -1, -1, -1, /* 176 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 192 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 208 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 224 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 240 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1 /* 256 */
-};
-
-
-static int iso_8859_1_to_ibm1047_table[] = {
- 0, 1, 2, 3, 55, 45, 46, 47, 22, 5, 37, 11, 12, 13, 14, 15, /* 16 */
- 16, 17, 18, 19, 60, 61, 50, 38, 24, 25, 63, 39, 28, 29, 30, 31, /* 32 */
- 64, 90,127,123, 91,108, 80,125, 77, 93, 92, 78,107, 96, 75, 97, /* 48 */
- 240,241,242,243,244,245,246,247,248,249,122, 94, 76,126,110,111, /* 64 */
- 124,193,194,195,196,197,198,199,200,201,209,210,211,212,213,214, /* 80 */
- 215,216,217,226,227,228,229,230,231,232,233,173,224,189, 95,109, /* 96 */
- 121,129,130,131,132,133,134,135,136,137,145,146,147,148,149,150, /* 112 */
- 151,152,153,162,163,164,165,166,167,168,169,192, 79,208,161, 7, /* 128 */
- 32, 33, 34, 35, 36, 21, 6, 23, 40, 41, 42, 43, 44, 9, 10, 27, /* 144 */
- 48, 49, 26, 51, 52, 53, 54, 8, 56, 57, 58, 59, 4, 20, 62,255, /* 160 */
- 65,170, 74,177,159,178,106,181,187,180,154,138,176,202,175,188, /* 176 */
- 144,143,234,250,190,160,182,179,157,218,155,139,183,184,185,171, /* 192 */
- 100,101, 98,102, 99,103,158,104,116,113,114,115,120,117,118,119, /* 208 */
- 172,105,237,238,235,239,236,191,128,253,254,251,252,186,174, 89, /* 224 */
- 68, 69, 66, 70, 67, 71,156, 72, 84, 81, 82, 83, 88, 85, 86, 87, /* 240 */
- 140, 73,205,206,203,207,204,225,112,221,222,219,220,141,142,223 /* 256 */
-};
-
-
-static int ebcdic_us_to_ascii_table[] = {
- 0, 1, 2, 3, -1, 9, -1,127, -1, -1, -1, 11, 12, 13, 14, 15, /* 16 */
- 16, 17, 18, 19, -1, -1, 8, -1, 24, 25, -1, -1, 28, 29, 30, 31, /* 32 */
- -1, -1, -1, -1, -1, 10, 23, 27, -1, -1, -1, -1, -1, 5, 6, 7, /* 48 */
- -1, -1, 22, -1, -1, -1, -1, 4, -1, -1, -1, -1, 20, 21, -1, 26, /* 64 */
- 32, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 46, 60, 40, 43,124, /* 80 */
- 38, -1, -1, -1, -1, -1, -1, -1, -1, -1, 33, 36, 42, 41, 59, -1, /* 96 */
- 45, 47, -1, -1, -1, -1, -1, -1, -1, -1, -1, 44, 37, 95, 62, 63, /* 112 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 96, 58, 35, 64, 39, 61, 34, /* 128 */
- -1, 97, 98, 99,100,101,102,103,104,105, -1, -1, -1, -1, -1, -1, /* 144 */
- -1,106,107,108,109,110,111,112,113,114, -1, -1, -1, -1, -1, -1, /* 160 */
- -1,126,115,116,117,118,119,120,121,122, -1, -1, -1, -1, -1, -1, /* 176 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 192 */
- 123, 65, 66, 67, 68, 69, 70, 71, 72, 73, -1, -1, -1, -1, -1, -1, /* 208 */
- 125, 74, 75, 76, 77, 78, 79, 80, 81, 82, -1, -1, -1, -1, -1, -1, /* 224 */
- 92, -1, 83, 84, 85, 86, 87, 88, 89, 90, -1, -1, -1, -1, -1, -1, /* 240 */
- 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, -1, -1, -1, -1, -1, -1 /* 256 */
-};
-
-
-static int ebcdic_us_to_iso_8859_1_table[] = {
- 0, 1, 2, 3,156, 9,134,127,151,141,142, 11, 12, 13, 14, 15, /* 16 */
- 16, 17, 18, 19,157,133, 8,135, 24, 25,146,143, 28, 29, 30, 31, /* 32 */
- 128,129,130,131,132, 10, 23, 27,136,137,138,139,140, 5, 6, 7, /* 48 */
- 144,145, 22,147,148,149,150, 4,152,153,154,155, 20, 21,158, 26, /* 64 */
- 32, -1, -1, -1, -1, -1, -1, -1, -1, -1,162, 46, 60, 40, 43,124, /* 80 */
- 38, -1, -1, -1, -1, -1, -1, -1, -1, -1, 33, 36, 42, 41, 59,172, /* 96 */
- 45, 47, -1, -1, -1, -1, -1, -1, -1, -1,166, 44, 37, 95, 62, 63, /* 112 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 96, 58, 35, 64, 39, 61, 34, /* 128 */
- -1, 97, 98, 99,100,101,102,103,104,105, -1, -1, -1, -1, -1, -1, /* 144 */
- -1,106,107,108,109,110,111,112,113,114, -1, -1, -1, -1, -1, -1, /* 160 */
- -1,126,115,116,117,118,119,120,121,122, -1, -1, -1, -1, -1, -1, /* 176 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 192 */
- 123, 65, 66, 67, 68, 69, 70, 71, 72, 73, -1, -1, -1, -1, -1, -1, /* 208 */
- 125, 74, 75, 76, 77, 78, 79, 80, 81, 82, -1, -1, -1, -1, -1, -1, /* 224 */
- 92, -1, 83, 84, 85, 86, 87, 88, 89, 90, -1, -1, -1, -1, -1, -1, /* 240 */
- 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, -1, -1, -1, -1, -1,159 /* 256 */
-};
-
-
-static int ebcdic_us_to_ibm1047_table[] = {
- 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, /* 16 */
- 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, /* 32 */
- 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, /* 48 */
- 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, /* 64 */
- 64, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, 75, 76, 77, 78, 79, /* 80 */
- 80, -1, -1, -1, -1, -1, -1, -1, -1, -1, 90, 91, 92, 93, 94,176, /* 96 */
- 96, 97, -1, -1, -1, -1, -1, -1, -1, -1,106,107,108,109,110,111, /* 112 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1,121,122,123,124,125,126,127, /* 128 */
- -1,129,130,131,132,133,134,135,136,137, -1, -1, -1, -1, -1, -1, /* 144 */
- -1,145,146,147,148,149,150,151,152,153, -1, -1, -1, -1, -1, -1, /* 160 */
- -1,161,162,163,164,165,166,167,168,169, -1, -1, -1, -1, -1, -1, /* 176 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 192 */
- 192,193,194,195,196,197,198,199,200,201, -1, -1, -1, -1, -1, -1, /* 208 */
- 208,209,210,211,212,213,214,215,216,217, -1, -1, -1, -1, -1, -1, /* 224 */
- 224, -1,226,227,228,229,230,231,232,233, -1, -1, -1, -1, -1, -1, /* 240 */
- 240,241,242,243,244,245,246,247,248,249, -1, -1, -1, -1, -1,255 /* 256 */
-};
-
-
-static int ibm1047_to_ascii_table[] = {
- 0, 1, 2, 3, -1, 9, -1,127, -1, -1, -1, 11, 12, 13, 14, 15, /* 16 */
- 16, 17, 18, 19, -1, -1, 8, -1, 24, 25, -1, -1, 28, 29, 30, 31, /* 32 */
- -1, -1, -1, -1, -1, 10, 23, 27, -1, -1, -1, -1, -1, 5, 6, 7, /* 48 */
- -1, -1, 22, -1, -1, -1, -1, 4, -1, -1, -1, -1, 20, 21, -1, 26, /* 64 */
- 32, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 46, 60, 40, 43,124, /* 80 */
- 38, -1, -1, -1, -1, -1, -1, -1, -1, -1, 33, 36, 42, 41, 59, 94, /* 96 */
- 45, 47, -1, -1, -1, -1, -1, -1, -1, -1, -1, 44, 37, 95, 62, 63, /* 112 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 96, 58, 35, 64, 39, 61, 34, /* 128 */
- -1, 97, 98, 99,100,101,102,103,104,105, -1, -1, -1, -1, -1, -1, /* 144 */
- -1,106,107,108,109,110,111,112,113,114, -1, -1, -1, -1, -1, -1, /* 160 */
- -1,126,115,116,117,118,119,120,121,122, -1, -1, -1, 91, -1, -1, /* 176 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 93, -1, -1, /* 192 */
- 123, 65, 66, 67, 68, 69, 70, 71, 72, 73, -1, -1, -1, -1, -1, -1, /* 208 */
- 125, 74, 75, 76, 77, 78, 79, 80, 81, 82, -1, -1, -1, -1, -1, -1, /* 224 */
- 92, -1, 83, 84, 85, 86, 87, 88, 89, 90, -1, -1, -1, -1, -1, -1, /* 240 */
- 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, -1, -1, -1, -1, -1, -1 /* 256 */
-};
-
-
-static int ibm1047_to_iso_8859_1_table[] = {
- 0, 1, 2, 3,156, 9,134,127,151,141,142, 11, 12, 13, 14, 15, /* 16 */
- 16, 17, 18, 19,157,133, 8,135, 24, 25,146,143, 28, 29, 30, 31, /* 32 */
- 128,129,130,131,132, 10, 23, 27,136,137,138,139,140, 5, 6, 7, /* 48 */
- 144,145, 22,147,148,149,150, 4,152,153,154,155, 20, 21,158, 26, /* 64 */
- 32,160,226,228,224,225,227,229,231,241,162, 46, 60, 40, 43,124, /* 80 */
- 38,233,234,235,232,237,238,239,236,223, 33, 36, 42, 41, 59, 94, /* 96 */
- 45, 47,194,196,192,193,195,197,199,209,166, 44, 37, 95, 62, 63, /* 112 */
- 248,201,202,203,200,205,206,207,204, 96, 58, 35, 64, 39, 61, 34, /* 128 */
- 216, 97, 98, 99,100,101,102,103,104,105,171,187,240,253,254,177, /* 144 */
- 176,106,107,108,109,110,111,112,113,114,170,186,230,184,198,164, /* 160 */
- 181,126,115,116,117,118,119,120,121,122,161,191,208, 91,222,174, /* 176 */
- 172,163,165,183,169,167,182,188,189,190,221,168,175, 93,180,215, /* 192 */
- 123, 65, 66, 67, 68, 69, 70, 71, 72, 73,173,244,246,242,243,245, /* 208 */
- 125, 74, 75, 76, 77, 78, 79, 80, 81, 82,185,251,252,249,250,255, /* 224 */
- 92,247, 83, 84, 85, 86, 87, 88, 89, 90,178,212,214,210,211,213, /* 240 */
- 48, 49, 50, 51, 52, 53, 54, 55, 56, 57,179,219,220,217,218,159 /* 256 */
-};
-
-
-static int ibm1047_to_ebcdic_us_table[] = {
- 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, /* 16 */
- 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, /* 32 */
- 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, /* 48 */
- 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, /* 64 */
- 64, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, 75, 76, 77, 78, 79, /* 80 */
- 80, -1, -1, -1, -1, -1, -1, -1, -1, -1, 90, 91, 92, 93, 94, -1, /* 96 */
- 96, 97, -1, -1, -1, -1, -1, -1, -1, -1,106,107,108,109,110,111, /* 112 */
- -1, -1, -1, -1, -1, -1, -1, -1, -1,121,122,123,124,125,126,127, /* 128 */
- -1,129,130,131,132,133,134,135,136,137, -1, -1, -1, -1, -1, -1, /* 144 */
- -1,145,146,147,148,149,150,151,152,153, -1, -1, -1, -1, -1, -1, /* 160 */
- -1,161,162,163,164,165,166,167,168,169, -1, -1, -1, -1, -1, -1, /* 176 */
- 95, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 192 */
- 192,193,194,195,196,197,198,199,200,201, -1, -1, -1, -1, -1, -1, /* 208 */
- 208,209,210,211,212,213,214,215,216,217, -1, -1, -1, -1, -1, -1, /* 224 */
- 224, -1,226,227,228,229,230,231,232,233, -1, -1, -1, -1, -1, -1, /* 240 */
- 240,241,242,243,244,245,246,247,248,249, -1, -1, -1, -1, -1,255 /* 256 */
-};
+ desc = iconv_open (to, from);
+ if (desc == (iconv_t) -1)
+ perror_with_name ("Converting character sets");
+ cleanups = make_cleanup (cleanup_iconv, &desc);
+ inleft = num_bytes;
+ inp = (char *) bytes;
-static int
-table_convert_char (void *baton, int from, int *to)
-{
- int *table = (int *) baton;
+ space_request = num_bytes;
- if (0 <= from && from <= 255
- && table[from] != -1)
+ while (inleft > 0)
{
- *to = table[from];
- return 1;
+ char *outp;
+ size_t outleft, r;
+ int old_size;
+
+ old_size = obstack_object_size (output);
+ obstack_blank (output, space_request);
+
+ outp = obstack_base (output) + old_size;
+ outleft = space_request;
+
+ r = iconv (desc, &inp, &inleft, &outp, &outleft);
+
+ /* Now make sure that the object on the obstack only includes
+ bytes we have converted. */
+ obstack_blank (output, - (int) outleft);
+
+ if (r == (size_t) -1)
+ {
+ switch (errno)
+ {
+ case EILSEQ:
+ {
+ int i;
+
+ /* Invalid input sequence. */
+ if (translit == translit_none)
+ error (_("Could not convert character to `%s' character set"),
+ to);
+
+ /* We emit escape sequence for the bytes, skip them,
+ and try again. */
+ for (i = 0; i < width; ++i)
+ {
+ char octal[5];
+
+ sprintf (octal, "\\%.3o", *inp & 0xff);
+ obstack_grow_str (output, octal);
+
+ ++inp;
+ --inleft;
+ }
+ }
+ break;
+
+ case E2BIG:
+ /* We ran out of space in the output buffer. Make it
+ bigger next time around. */
+ space_request *= 2;
+ break;
+
+ case EINVAL:
+ /* Incomplete input sequence. FIXME: ought to report this
+ to the caller somehow. */
+ inleft = 0;
+ break;
+
+ default:
+ perror_with_name ("Internal error while converting character sets");
+ }
+ }
}
- else
- return 0;
-}
-
-static struct translation *
-table_translation (const char *from, const char *to, int *table,
- const char *(*c_target_char_has_backslash_escape)
- (void *baton, int target_char),
- void *c_target_char_has_backslash_escape_baton,
- int (*c_parse_backslash) (void *baton,
- int host_char,
- int *target_char),
- void *c_parse_backslash_baton)
-{
- struct translation *t = xmalloc (sizeof (*t));
-
- memset (t, 0, sizeof (*t));
- t->from = from;
- t->to = to;
- t->c_target_char_has_backslash_escape = c_target_char_has_backslash_escape;
- t->c_target_char_has_backslash_escape_baton
- = c_target_char_has_backslash_escape_baton;
- t->c_parse_backslash = c_parse_backslash;
- t->c_parse_backslash_baton = c_parse_backslash_baton;
- t->convert_char = table_convert_char;
- t->convert_char_baton = (void *) table;
-
- return t;
+ do_cleanups (cleanups);
}
-
-static struct translation *
-simple_table_translation (const char *from, const char *to, int *table)
-{
- return table_translation (from, to, table, 0, 0, 0, 0);
-}
-
-
-/* Setting and retrieving the host and target charsets. */
-
-
-/* The current host and target character sets. */
-static struct charset *current_host_charset, *current_target_charset;
-
-/* The current functions and batons we should use for the functions in
- charset.h. */
-
-static const char *(*c_target_char_has_backslash_escape_func)
- (void *baton, int target_char);
-static void *c_target_char_has_backslash_escape_baton;
-
-static int (*c_parse_backslash_func) (void *baton,
- int host_char,
- int *target_char);
-static void *c_parse_backslash_baton;
-
-static int (*host_char_to_target_func) (void *baton,
- int host_char,
- int *target_char);
-static void *host_char_to_target_baton;
-
-static int (*target_char_to_host_func) (void *baton,
- int target_char,
- int *host_char);
-static void *target_char_to_host_baton;
-
-/* Cached iconv conversions, that might be useful to fallback
- routines. */
-static struct cached_iconv cached_iconv_host_to_target;
-static struct cached_iconv cached_iconv_target_to_host;
-
-
-/* Charset structures manipulation functions. */
-
-static struct charset *
-lookup_charset_or_error (const char *name)
+/* An iterator that returns host wchar_t's from a target string. */
+struct wchar_iterator
{
- struct charset *cs = lookup_charset (name);
+ /* The underlying iconv descriptor. */
+ iconv_t desc;
- if (! cs)
- error (_("GDB doesn't know of any character set named `%s'."), name);
+ /* The input string. This is updated as convert characters. */
+ char *input;
+ /* The number of bytes remaining in the input. */
+ size_t bytes;
- return cs;
-}
+ /* The width of an input character. */
+ size_t width;
-static void
-check_valid_host_charset (struct charset *cs)
-{
- if (! cs->valid_host_charset)
- error (_("GDB can't use `%s' as its host character set."), cs->name);
-}
+ /* The output buffer and its size. */
+ wchar_t *out;
+ size_t out_size;
+};
-/* Set the host and target character sets to HOST and TARGET. */
-static void
-set_host_and_target_charsets (struct charset *host, struct charset *target)
+/* Create a new iterator. */
+struct wchar_iterator *
+make_wchar_iterator (const gdb_byte *input, size_t bytes, const char *charset,
+ size_t width)
{
- struct translation *h2t, *t2h;
-
- /* If they're not both initialized yet, then just do nothing for
- now. As soon as we're done running our initialize function,
- everything will be initialized. */
- if (! host || ! target)
- {
- current_host_charset = host;
- current_target_charset = target;
- return;
- }
-
- h2t = lookup_translation (host->name, target->name);
- t2h = lookup_translation (target->name, host->name);
-
- /* If the translations don't provide conversion functions, make sure
- iconv can back them up. Do this *before* modifying any state. */
- if (host != target)
- {
- if (! h2t || ! h2t->convert_char)
- {
- if (check_iconv_cache (&cached_iconv_host_to_target, host, target)
- < 0)
- error (_("GDB can't convert from the `%s' character set to `%s'."),
- host->name, target->name);
- }
- if (! t2h || ! t2h->convert_char)
- {
- if (check_iconv_cache (&cached_iconv_target_to_host, target, host)
- < 0)
- error (_("GDB can't convert from the `%s' character set to `%s'."),
- target->name, host->name);
- }
- }
-
- if (t2h && t2h->c_target_char_has_backslash_escape)
- {
- c_target_char_has_backslash_escape_func
- = t2h->c_target_char_has_backslash_escape;
- c_target_char_has_backslash_escape_baton
- = t2h->c_target_char_has_backslash_escape_baton;
- }
- else
- c_target_char_has_backslash_escape_func
- = default_c_target_char_has_backslash_escape;
-
- if (h2t && h2t->c_parse_backslash)
- {
- c_parse_backslash_func = h2t->c_parse_backslash;
- c_parse_backslash_baton = h2t->c_parse_backslash_baton;
- }
- else
- c_parse_backslash_func = default_c_parse_backslash;
-
- if (h2t && h2t->convert_char)
- {
- host_char_to_target_func = h2t->convert_char;
- host_char_to_target_baton = h2t->convert_char_baton;
- }
- else if (host == target)
- host_char_to_target_func = identity_either_char_to_other;
- else
- {
- host_char_to_target_func = iconv_convert;
- host_char_to_target_baton = &cached_iconv_host_to_target;
- }
+ struct wchar_iterator *result;
+ iconv_t desc;
- if (t2h && t2h->convert_char)
- {
- target_char_to_host_func = t2h->convert_char;
- target_char_to_host_baton = t2h->convert_char_baton;
- }
- else if (host == target)
- target_char_to_host_func = identity_either_char_to_other;
- else
- {
- target_char_to_host_func = iconv_convert;
- target_char_to_host_baton = &cached_iconv_target_to_host;
- }
+ desc = iconv_open ("wchar_t", charset);
+ if (desc == (iconv_t) -1)
+ perror_with_name ("Converting character sets");
- current_host_charset = host;
- current_target_charset = target;
-}
-
-/* Do the real work of setting the host charset. */
-static void
-set_host_charset (const char *charset)
-{
- struct charset *cs = lookup_charset_or_error (charset);
- check_valid_host_charset (cs);
- set_host_and_target_charsets (cs, current_target_charset);
-}
+ result = XNEW (struct wchar_iterator);
+ result->desc = desc;
+ result->input = (char *) input;
+ result->bytes = bytes;
+ result->width = width;
-/* Do the real work of setting the target charset. */
-static void
-set_target_charset (const char *charset)
-{
- struct charset *cs = lookup_charset_or_error (charset);
+ result->out = XNEW (wchar_t);
+ result->out_size = 1;
- set_host_and_target_charsets (current_host_charset, cs);
+ return result;
}
-
-/* 'Set charset', 'set host-charset', 'set target-charset', 'show
- charset' sfunc's. */
-
-/* This is the sfunc for the 'set charset' command. */
static void
-set_charset_sfunc (char *charset, int from_tty, struct cmd_list_element *c)
+do_cleanup_iterator (void *p)
{
- struct charset *cs = lookup_charset_or_error (host_charset_name);
- check_valid_host_charset (cs);
- /* CAREFUL: set the target charset here as well. */
- target_charset_name = host_charset_name;
- set_host_and_target_charsets (cs, cs);
-}
+ struct wchar_iterator *iter = p;
-/* 'set host-charset' command sfunc. We need a wrapper here because
- the function needs to have a specific signature. */
-static void
-set_host_charset_sfunc (char *charset, int from_tty,
- struct cmd_list_element *c)
-{
- set_host_charset (host_charset_name);
+ iconv_close (iter->desc);
+ xfree (iter->out);
+ xfree (iter);
}
-/* Wrapper for the 'set target-charset' command. */
-static void
-set_target_charset_sfunc (char *charset, int from_tty,
- struct cmd_list_element *c)
+struct cleanup *
+make_cleanup_wchar_iterator (struct wchar_iterator *iter)
{
- set_target_charset (target_charset_name);
+ return make_cleanup (do_cleanup_iterator, iter);
}
-/* sfunc for the 'show charset' command. */
-static void
-show_charset (struct ui_file *file, int from_tty, struct cmd_list_element *c,
- const char *name)
-{
- if (current_host_charset == current_target_charset)
- fprintf_filtered (file,
- _("The current host and target character set is `%s'.\n"),
- host_charset ());
- else
+int
+wchar_iterate (struct wchar_iterator *iter,
+ enum wchar_iterate_result *out_result,
+ wchar_t **out_chars,
+ const gdb_byte **ptr,
+ size_t *len)
+{
+ size_t out_request;
+
+ /* Try to convert some characters. At first we try to convert just
+ a single character. The reason for this is that iconv does not
+ necessarily update its outgoing arguments when it encounters an
+ invalid input sequence -- but we want to reliably report this to
+ our caller so it can emit an escape sequence. */
+ out_request = 1;
+ while (iter->bytes > 0)
{
- fprintf_filtered (file, _("The current host character set is `%s'.\n"),
- host_charset ());
- fprintf_filtered (file, _("The current target character set is `%s'.\n"),
- target_charset ());
+ char *outptr = (char *) &iter->out[0];
+ char *orig_inptr = iter->input;
+ size_t orig_in = iter->bytes;
+ size_t out_avail = out_request * sizeof (wchar_t);
+ size_t num;
+ wchar_t result;
+
+ size_t r = iconv (iter->desc, (char **) &iter->input, &iter->bytes,
+ &outptr, &out_avail);
+ if (r == (size_t) -1)
+ {
+ switch (errno)
+ {
+ case EILSEQ:
+ /* Invalid input sequence. Skip it, and let the caller
+ know about it. */
+ *out_result = wchar_iterate_invalid;
+ *ptr = iter->input;
+ *len = iter->width;
+ iter->input += iter->width;
+ iter->bytes -= iter->width;
+ return 0;
+
+ case E2BIG:
+ /* We ran out of space. We still might have converted a
+ character; if so, return it. Otherwise, grow the
+ buffer and try again. */
+ if (out_avail < out_request * sizeof (wchar_t))
+ break;
+
+ ++out_request;
+ if (out_request > iter->out_size)
+ {
+ iter->out_size = out_request;
+ iter->out = xrealloc (iter->out,
+ out_request * sizeof (wchar_t));
+ }
+ continue;
+
+ case EINVAL:
+ /* Incomplete input sequence. Let the caller know, and
+ arrange for future calls to see EOF. */
+ *out_result = wchar_iterate_incomplete;
+ *ptr = iter->input;
+ *len = iter->bytes;
+ iter->bytes = 0;
+ return 0;
+
+ default:
+ perror_with_name ("Internal error while converting character sets");
+ }
+ }
+
+ /* We converted something. */
+ num = out_request - out_avail / sizeof (wchar_t);
+ *out_result = wchar_iterate_ok;
+ *out_chars = iter->out;
+ *ptr = orig_inptr;
+ *len = orig_in - iter->bytes;
+ return num;
}
+
+ /* Really done. */
+ *out_result = wchar_iterate_eof;
+ return -1;
}
-/* Accessor functions. */
+/* The charset.c module initialization function. */
-const char *
-host_charset (void)
-{
- return current_host_charset->name;
-}
+extern initialize_file_ftype _initialize_charset; /* -Wmissing-prototype */
-const char *
-target_charset (void)
-{
- return current_target_charset->name;
-}
+typedef char *char_ptr;
+DEF_VEC_P (char_ptr);
+static VEC (char_ptr) *charsets;
-
-/* Public character management functions. */
+#ifdef HAVE_ICONVLIST
+/* A helper function that adds some character sets to the vector of
+ all character sets. This is a callback function for iconvlist. */
-const char *
-c_target_char_has_backslash_escape (int target_char)
+static int
+add_one (unsigned int count, const char *const *names, void *data)
{
- return ((*c_target_char_has_backslash_escape_func)
- (c_target_char_has_backslash_escape_baton, target_char));
-}
+ unsigned int i;
+ for (i = 0; i < count; ++i)
+ VEC_safe_push (char_ptr, charsets, xstrdup (names[i]));
-int
-c_parse_backslash (int host_char, int *target_char)
-{
- return (*c_parse_backslash_func) (c_parse_backslash_baton,
- host_char, target_char);
+ return 0;
}
-
-int
-host_char_print_literally (int host_char)
+static void
+find_charset_names (void)
{
- return ((*current_host_charset->host_char_print_literally)
- (current_host_charset->host_char_print_literally_baton,
- host_char));
+ iconvlist (add_one, NULL);
+ VEC_safe_push (char_ptr, charsets, NULL);
}
+#else
-int
-target_char_to_control_char (int target_char, int *target_ctrl_char)
+static void
+find_charset_names (void)
{
- return ((*current_target_charset->target_char_to_control_char)
- (current_target_charset->target_char_to_control_char_baton,
- target_char, target_ctrl_char));
-}
+ FILE *in;
+ in = popen ("iconv -l", "r");
+ /* It is ok to ignore errors; we'll fall back on a default. */
+ if (!in)
+ return;
-int
-host_char_to_target (int host_char, int *target_char)
-{
- return ((*host_char_to_target_func)
- (host_char_to_target_baton, host_char, target_char));
-}
+ /* POSIX says that iconv -l uses an unspecified format. We parse
+ the glibc format; feel free to add others as needed. */
+ while (!feof (in))
+ {
+ /* The size of buf is chosen arbitrarily. A character set name
+ longer than this would not be very nice. */
+ char buf[80];
+ int len;
+ char *r = fgets (buf, sizeof (buf), in);
+ if (!r)
+ break;
+ len = strlen (r);
+ if (len <= 3)
+ continue;
+ if (buf[len - 2] == '/' && buf[len - 3] == '/')
+ buf[len - 3] = '\0';
+ VEC_safe_push (char_ptr, charsets, xstrdup (buf));
+ }
+ pclose (in);
-int
-target_char_to_host (int target_char, int *host_char)
-{
- return ((*target_char_to_host_func)
- (target_char_to_host_baton, target_char, host_char));
+ VEC_safe_push (char_ptr, charsets, NULL);
}
-
-
-/* The charset.c module initialization function. */
-
-extern initialize_file_ftype _initialize_charset; /* -Wmissing-prototype */
+#endif /* HAVE_ICONVLIST */
void
_initialize_charset (void)
{
struct cmd_list_element *new_cmd;
- /* Register all the character set GDB knows about.
-
- You should use the same names that iconv does, where possible, to
- take advantage of the iconv-based default behaviors.
-
- CAUTION: if you register a character set, you must also register
- as many translations as are necessary to make that character set
- interoperate correctly with all the other character sets. We do
- provide default behaviors when no translation is available, or
- when a translation's function pointer for a particular operation
- is zero. Hopefully, these defaults will be correct often enough
- that we won't need to provide too many translations. */
- register_charset (simple_charset ("ASCII", 1,
- ascii_print_literally, 0,
- ascii_to_control, 0));
- register_charset (iso_8859_family_charset ("ISO-8859-1"));
- register_charset (ebcdic_family_charset ("EBCDIC-US"));
- register_charset (ebcdic_family_charset ("IBM1047"));
- register_iconv_charsets ();
-
- {
- struct { char *from; char *to; int *table; } tlist[] = {
- { "ASCII", "ISO-8859-1", ascii_to_iso_8859_1_table },
- { "ASCII", "EBCDIC-US", ascii_to_ebcdic_us_table },
- { "ASCII", "IBM1047", ascii_to_ibm1047_table },
- { "ISO-8859-1", "ASCII", iso_8859_1_to_ascii_table },
- { "ISO-8859-1", "EBCDIC-US", iso_8859_1_to_ebcdic_us_table },
- { "ISO-8859-1", "IBM1047", iso_8859_1_to_ibm1047_table },
- { "EBCDIC-US", "ASCII", ebcdic_us_to_ascii_table },
- { "EBCDIC-US", "ISO-8859-1", ebcdic_us_to_iso_8859_1_table },
- { "EBCDIC-US", "IBM1047", ebcdic_us_to_ibm1047_table },
- { "IBM1047", "ASCII", ibm1047_to_ascii_table },
- { "IBM1047", "ISO-8859-1", ibm1047_to_iso_8859_1_table },
- { "IBM1047", "EBCDIC-US", ibm1047_to_ebcdic_us_table }
- };
-
- int i;
-
- for (i = 0; i < (sizeof (tlist) / sizeof (tlist[0])); i++)
- register_translation (simple_table_translation (tlist[i].from,
- tlist[i].to,
- tlist[i].table));
- }
-
- set_host_charset (host_charset_name);
- set_target_charset (target_charset_name);
+ /* The first element is always "auto"; then we skip it for the
+ commands where it is not allowed. */
+ VEC_safe_push (char_ptr, charsets, "auto");
+ find_charset_names ();
+
+ if (VEC_length (char_ptr, charsets) > 1)
+ charset_enum = default_charset_names;
+ else
+ charset_enum = (const char **) VEC_address (char_ptr, charsets);
+
+#ifdef HAVE_LANGINFO_CODESET
+ auto_host_charset_name = nl_langinfo (CODESET);
+ target_charset_name = auto_host_charset_name;
+
+ set_be_le_names ();
+#endif
add_setshow_enum_cmd ("charset", class_support,
- host_charset_enum, &host_charset_name, _("\
+ &charset_enum[1], &host_charset_name, _("\
Set the host and target character sets."), _("\
Show the host and target character sets."), _("\
The `host character set' is the one used by the system GDB is running on.\n\
@@ -1249,7 +650,7 @@ To see a list of the character sets GDB supports, type `set charset <TAB>'."),
&setlist, &showlist);
add_setshow_enum_cmd ("host-charset", class_support,
- host_charset_enum, &host_charset_name, _("\
+ charset_enum, &host_charset_name, _("\
Set the host character set."), _("\
Show the host character set."), _("\
The `host character set' is the one used by the system GDB is running on.\n\
@@ -1261,7 +662,7 @@ To see a list of the character sets GDB supports, type `set host-charset <TAB>'.
&setlist, &showlist);
add_setshow_enum_cmd ("target-charset", class_support,
- target_charset_enum, &target_charset_name, _("\
+ &charset_enum[1], &target_charset_name, _("\
Set the target character set."), _("\
Show the target character set."), _("\
The `target character set' is the one used by the program being debugged.\n\
@@ -1271,4 +672,19 @@ To see a list of the character sets GDB supports, type `set target-charset'<TAB>
set_target_charset_sfunc,
show_target_charset_name,
&setlist, &showlist);
+
+ add_setshow_enum_cmd ("target-wide-charset", class_support,
+ &charset_enum[1], &target_wide_charset_name,
+ _("\
+Set the target wide character set."), _("\
+Show the target wide character set."), _("\
+The `target wide character set' is the one used by the program being debugged.\n\
+In particular it is the encoding used by `wchar_t'.\n\
+GDB translates characters and strings between the host and target\n\
+character sets as needed.\n\
+To see a list of the character sets GDB supports, type\n\
+`set target-wide-charset'<TAB>"),
+ set_target_wide_charset_sfunc,
+ show_target_wide_charset_name,
+ &setlist, &showlist);
}
diff --git a/gdb/charset.h b/gdb/charset.h
index 21780b6..2455355 100644
--- a/gdb/charset.h
+++ b/gdb/charset.h
@@ -19,6 +19,7 @@
#ifndef CHARSET_H
#define CHARSET_H
+#include <wchar.h>
/* If the target program uses a different character set than the host,
GDB has some support for translating between the two; GDB converts
@@ -26,82 +27,123 @@
them, and converts characters and strings appearing in expressions
entered by the user to the target character set.
- At the moment, GDB only supports single-byte, stateless character
- sets. This includes the ISO-8859 family (ASCII extended with
- accented characters, and (I think) Cyrillic, for European
- languages), and the EBCDIC family (used on IBM's mainframes).
- Unfortunately, it excludes many Asian scripts, the fixed- and
- variable-width Unicode encodings, and other desireable things.
- Patches are welcome! (For example, it would be nice if the Java
- string support could simply get absorbed into some more general
- multi-byte encoding support.)
-
- Furthermore, GDB's code pretty much assumes that the host character
- set is some superset of ASCII; there are plenty if ('0' + n)
- expressions and the like.
-
- When the `iconv' library routine supports a character set meeting
- the requirements above, it's easy to plug an entry into GDB's table
- that uses iconv to handle the details. */
+ GDB's code pretty much assumes that the host character set is some
+ superset of ASCII; there are plenty if ('0' + n) expressions and
+ the like. */
/* Return the name of the current host/target character set. The
result is owned by the charset module; the caller should not free
it. */
const char *host_charset (void);
const char *target_charset (void);
-
-/* In general, the set of C backslash escapes (\n, \f) is specific to
- the character set. Not all character sets will have form feed
- characters, for example.
-
- The following functions allow GDB to parse and print control
- characters in a character-set-independent way. They are both
- language-specific (to C and C++) and character-set-specific.
- Putting them here is a compromise. */
-
-
-/* If the target character TARGET_CHAR have a backslash escape in the
- C language (i.e., a character like 'n' or 't'), return the host
- character string that should follow the backslash. Otherwise,
- return zero.
-
- When this function returns non-zero, the string it returns is
- statically allocated; the caller is not responsible for freeing it. */
-const char *c_target_char_has_backslash_escape (int target_char);
-
-
-/* If the host character HOST_CHAR is a valid backslash escape in the
- C language for the target character set, return non-zero, and set
- *TARGET_CHAR to the target character the backslash escape represents.
- Otherwise, return zero. */
-int c_parse_backslash (int host_char, int *target_char);
-
-
-/* Return non-zero if the host character HOST_CHAR can be printed
- literally --- that is, if it can be readably printed as itself in a
- character or string constant. Return zero if it should be printed
- using some kind of numeric escape, like '\031' in C, '^(25)' in
- Chill, or #25 in Pascal. */
-int host_char_print_literally (int host_char);
-
-
-/* If the host character HOST_CHAR has an equivalent in the target
- character set, set *TARGET_CHAR to that equivalent, and return
- non-zero. Otherwise, return zero. */
-int host_char_to_target (int host_char, int *target_char);
-
-
-/* If the target character TARGET_CHAR has an equivalent in the host
- character set, set *HOST_CHAR to that equivalent, and return
- non-zero. Otherwise, return zero. */
-int target_char_to_host (int target_char, int *host_char);
-
-
-/* If the target character TARGET_CHAR has a corresponding control
- character (also in the target character set), set *TARGET_CTRL_CHAR
- to the control character, and return non-zero. Otherwise, return
- zero. */
-int target_char_to_control_char (int target_char, int *target_ctrl_char);
-
+const char *target_wide_charset (void);
+
+/* These values are used to specify the type of transliteration done
+ by convert_between_encodings. */
+enum transliterations
+ {
+ /* Error on failure to convert. */
+ translit_none,
+ /* Transliterate to host char. */
+ translit_char
+ };
+
+/* Convert between two encodings.
+
+ FROM is the name of the source encoding.
+ TO is the name of the target encoding.
+ BYTES holds the bytes to convert; this is assumed to be characters
+ in the target encoding.
+ NUM_BYTES is the number of bytes.
+ WIDTH is the width of a character from the FROM charset, in bytes.
+ For a variable width encoding, WIDTH should be the size of a "base
+ character".
+ OUTPUT is an obstack where the converted data is written. The
+ caller is responsible for initializing the obstack, and for
+ destroying the obstack should an error occur.
+ TRANSLIT specifies how invalid conversions should be handled. */
+void convert_between_encodings (const char *from, const char *to,
+ const gdb_byte *bytes, unsigned int num_bytes,
+ int width, struct obstack *output,
+ enum transliterations translit);
+
+
+/* These values are used by wchar_iterate to report errors. */
+enum wchar_iterate_result
+ {
+ /* Ordinary return. */
+ wchar_iterate_ok,
+ /* Invalid input sequence. */
+ wchar_iterate_invalid,
+ /* Incomplete input sequence at the end of the input. */
+ wchar_iterate_incomplete,
+ /* EOF. */
+ wchar_iterate_eof
+ };
+
+/* Declaration of the opaque wchar iterator type. */
+struct wchar_iterator;
+
+/* Create a new character iterator which returns wchar_t's. INPUT is
+ the input buffer. BYTES is the number of bytes in the input
+ buffer. CHARSET is the name of the character set in which INPUT is
+ encoded. WIDTH is the number of bytes in a base character of
+ CHARSET.
+
+ This function either returns a new character set iterator, or calls
+ error. The result can be freed using a cleanup; see
+ make_cleanup_wchar_iterator. */
+struct wchar_iterator *make_wchar_iterator (const gdb_byte *input, size_t bytes,
+ const char *charset,
+ size_t width);
+
+/* Return a new cleanup suitable for destroying the wchar iterator
+ ITER. */
+struct cleanup *make_cleanup_wchar_iterator (struct wchar_iterator *iter);
+
+/* Perform a single iteration of a wchar_t iterator.
+
+ Returns the number of characters converted. A negative result
+ means that EOF has been reached. A positive result indicates the
+ number of valid wchar_ts in the result; *OUT_CHARS is updated to
+ point to the first valid character.
+
+ In all cases aside from EOF, *PTR is set to point to the first
+ converted target byte. *LEN is set to the number of bytes
+ converted.
+
+ A zero result means one of several unusual results. *OUT_RESULT is
+ set to indicate the type of un-ordinary return.
+
+ wchar_iterate_invalid means that an invalid input character was
+ seen. The iterator is advanced by WIDTH (the argument to
+ make_wchar_iterator) bytes.
+
+ wchar_iterate_incomplete means that an incomplete character was
+ seen at the end of the input sequence.
+
+ wchar_iterate_eof means that all bytes were successfully
+ converted. The other output arguments are not set. */
+int wchar_iterate (struct wchar_iterator *iter,
+ enum wchar_iterate_result *out_result,
+ wchar_t **out_chars,
+ const gdb_byte **ptr, size_t *len);
+
+
+
+/* GDB needs to know a few details of its execution character set.
+ This knowledge is isolated here and in charset.c. */
+
+/* The escape character. */
+#define HOST_ESCAPE_CHAR 27
+
+/* Convert a letter, like 'c', to its corresponding control
+ character. */
+char host_letter_to_control_character (char c);
+
+/* Convert a hex digit character to its numeric value. E.g., 'f' is
+ converted to 15. This function assumes that C is a valid hex
+ digit. Both upper- and lower-case letters are recognized. */
+int host_hex_value (char c);
#endif /* CHARSET_H */
diff --git a/gdb/cli/cli-cmds.c b/gdb/cli/cli-cmds.c
index 4d9c4f3..5fbe398 100644
--- a/gdb/cli/cli-cmds.c
+++ b/gdb/cli/cli-cmds.c
@@ -45,6 +45,8 @@
#include "cli/cli-setshow.h"
#include "cli/cli-cmds.h"
+#include "python/python.h"
+
#ifdef TUI
#include "tui/tui.h" /* For tui_active et.al. */
#endif
@@ -178,6 +180,7 @@ struct cmd_list_element *showchecklist;
/* Command tracing state. */
+static int source_python = 0;
int source_verbose = 0;
int trace_commands = 0;
@@ -439,6 +442,7 @@ source_script (char *file, int from_tty)
struct cleanup *old_cleanups;
char *full_pathname = NULL;
int fd;
+ int is_python;
if (file == NULL || *file == 0)
{
@@ -471,8 +475,16 @@ source_script (char *file, int from_tty)
}
}
+ is_python = source_python;
+ if (strlen (file) > 3 && !strcmp (&file[strlen (file) - 3], ".py"))
+ is_python = 1;
+
stream = fdopen (fd, FOPEN_RT);
- script_from_file (stream, file);
+
+ if (is_python)
+ source_python_script (stream, file);
+ else
+ script_from_file (stream, file);
do_cleanups (old_cleanups);
}
@@ -486,15 +498,30 @@ source_verbose_cleanup (void *old_value)
xfree (old_value);
}
+/* A helper for source_command. Look for an argument in *ARGS.
+ Update *ARGS by stripping leading whitespace. If an argument is
+ found, return it (a character). Otherwise, return 0. */
+static int
+find_argument (char **args)
+{
+ int result = 0;
+ while (isspace ((*args)[0]))
+ ++*args;
+ if ((*args)[0] == '-' && isalpha ((*args)[1]))
+ {
+ result = (*args)[1];
+ *args += 3;
+ }
+ return result;
+}
+
static void
source_command (char *args, int from_tty)
{
struct cleanup *old_cleanups;
- char *file = args;
- int *old_source_verbose = xmalloc (sizeof(int));
- *old_source_verbose = source_verbose;
- old_cleanups = make_cleanup (source_verbose_cleanup, old_source_verbose);
+ old_cleanups = make_cleanup_restore_integer (&source_verbose);
+ make_cleanup_restore_integer (&source_python);
/* -v causes the source command to run in verbose mode.
We still have to be able to handle filenames with spaces in a
@@ -502,23 +529,28 @@ source_command (char *args, int from_tty)
if (args)
{
- /* Make sure leading white space does not break the comparisons. */
- while (isspace(args[0]))
- args++;
-
- /* Is -v the first thing in the string? */
- if (args[0] == '-' && args[1] == 'v' && isspace (args[2]))
+ while (1)
{
- source_verbose = 1;
-
- /* Trim -v and whitespace from the filename. */
- file = &args[3];
- while (isspace (file[0]))
- file++;
+ int arg = find_argument (&args);
+ if (!arg)
+ break;
+ switch (arg)
+ {
+ case 'v':
+ source_verbose = 1;
+ break;
+ case 'p':
+ source_python = 1;
+ break;
+ default:
+ error (_("unrecognized option -%c"), arg);
+ }
}
}
- source_script (file, from_tty);
+ source_script (args, from_tty);
+
+ do_cleanups (old_cleanups);
}
@@ -1282,7 +1314,9 @@ Read commands from a file named FILE.\n\
Optional -v switch (before the filename) causes each command in\n\
FILE to be echoed as it is executed.\n\
Note that the file \"%s\" is read automatically in this way\n\
-when GDB is started."), gdbinit);
+when GDB is started.\n\
+Optional -p switch (before the filename) causes FILE to be evaluated\n\
+as Python code."), gdbinit);
c = add_cmd ("source", class_support, source_command,
source_help_text, &cmdlist);
set_cmd_completer (c, filename_completer);
diff --git a/gdb/cli/cli-dump.c b/gdb/cli/cli-dump.c
index ee29f2a..96e6111 100644
--- a/gdb/cli/cli-dump.c
+++ b/gdb/cli/cli-dump.c
@@ -296,7 +296,7 @@ dump_value_to_file (char *cmd, char *mode, char *file_format)
if (VALUE_LVAL (val))
{
- vaddr = VALUE_ADDRESS (val);
+ vaddr = value_address (val);
}
else
{
diff --git a/gdb/coffread.c b/gdb/coffread.c
index 6059d68..47ee601 100644
--- a/gdb/coffread.c
+++ b/gdb/coffread.c
@@ -346,7 +346,7 @@ coff_alloc_type (int index)
We will fill it in later if we find out how. */
if (type == NULL)
{
- type = alloc_type (current_objfile);
+ type = alloc_type (current_objfile, NULL);
*type_addr = type;
}
return type;
@@ -2101,6 +2101,7 @@ static struct sym_fns coff_sym_fns =
coff_new_init, /* sym_new_init: init anything gbl to entire symtab */
coff_symfile_init, /* sym_init: read initial info, setup for sym_read() */
coff_symfile_read, /* sym_read: read a symbol file into symtab */
+ NULL, /* sym_read_psymbols */
coff_symfile_finish, /* sym_finish: finished with file, cleanup */
default_symfile_offsets, /* sym_offsets: xlate external to internal form */
default_symfile_segments, /* sym_segments: Get segment information from
diff --git a/gdb/config.in b/gdb/config.in
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
index 6aaf77a..0c8ccab 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/config.in
+++ b/gdb/config.in
@@ -42,6 +42,12 @@
language is requested. */
#undef ENABLE_NLS
+/* Global directory for GDB data files. */
+#undef GDB_DATADIR
+
+/* Define if GDB datadir should be relocated when GDB is moved. */
+#undef GDB_DATADIR_RELOCATABLE
+
/* Define to be a string naming the default host character set. */
#undef GDB_DEFAULT_HOST_CHARSET
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -169,12 +175,18 @@
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
/* Define if you have the iconv() function. */
#undef HAVE_ICONV
+/* Define to 1 if you have the `iconvlist' function. */
+#undef HAVE_ICONVLIST
+
/* Define if your compiler supports the #include_next directive. */
#undef HAVE_INCLUDE_NEXT
/* Define to 1 if you have the <inttypes.h> header file. */
#undef HAVE_INTTYPES_H
+/* Define if you have <langinfo.h> and nl_langinfo(CODESET). */
+#undef HAVE_LANGINFO_CODESET
+
/* Define if your <locale.h> file defines LC_MESSAGES. */
#undef HAVE_LC_MESSAGES
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -618,6 +630,9 @@
'ptrdiff_t'. */
#undef PTRDIFF_T_SUFFIX
+/* Define to install path for Python sources */
+#undef PYTHONDIR
+
/* Bug reporting address */
#undef REPORT_BUGS_TO
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/configure b/gdb/configure
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
index 7579c84..3a5b582 100755
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/configure
+++ b/gdb/configure
@@ -314,7 +314,7 @@ ac_subdirs_all="$ac_subdirs_all doc testsuite"
ac_subdirs_all="$ac_subdirs_all gdbtk"
ac_subdirs_all="$ac_subdirs_all multi-ice"
ac_subdirs_all="$ac_subdirs_all gdbserver"
-ac_subst_vars='SHELL PATH_SEPARATOR PACKAGE_NAME PACKAGE_TARNAME PACKAGE_VERSION PACKAGE_STRING PACKAGE_BUGREPORT exec_prefix prefix program_transform_name bindir sbindir libexecdir datadir sysconfdir sharedstatedir localstatedir libdir includedir oldincludedir infodir mandir build_alias host_alias target_alias DEFS ECHO_C ECHO_N ECHO_T LIBS MAINTAINER_MODE_TRUE MAINTAINER_MODE_FALSE MAINT CC CFLAGS LDFLAGS CPPFLAGS ac_ct_CC EXEEXT OBJEXT CPP EGREP RANLIB ac_ct_RANLIB build build_cpu build_vendor build_os host host_cpu host_vendor host_os target target_cpu target_vendor target_os am__leading_dot DEPDIR CCDEPMODE MAKE GMAKE_TRUE GMAKE_FALSE SET_MAKE USE_NLS LIBINTL LIBINTL_DEP INCINTL XGETTEXT GMSGFMT POSUB CATALOGS DATADIRNAME INSTOBJEXT GENCAT CATOBJEXT localedir GL_COND_LIBTOOL_TRUE GL_COND_LIBTOOL_FALSE GNULIB_MEMMEM GNULIB_MEMPCPY GNULIB_MEMRCHR GNULIB_STPCPY GNULIB_STPNCPY GNULIB_STRCHRNUL GNULIB_STRDUP GNULIB_STRNDUP GNULIB_STRNLEN GNULIB_STRPBRK GNULIB_STRSEP GNULIB_STRSTR GNULIB_STRCASESTR GNULIB_STRTOK_R GNULIB_MBSLEN GNULIB_MBSNLEN GNULIB_MBSCHR GNULIB_MBSRCHR GNULIB_MBSSTR GNULIB_MBSCASECMP GNULIB_MBSNCASECMP GNULIB_MBSPCASECMP GNULIB_MBSCASESTR GNULIB_MBSCSPN GNULIB_MBSPBRK GNULIB_MBSSPN GNULIB_MBSSEP GNULIB_MBSTOK_R GNULIB_STRERROR GNULIB_STRSIGNAL HAVE_DECL_MEMMEM HAVE_MEMPCPY HAVE_DECL_MEMRCHR HAVE_STPCPY HAVE_STPNCPY HAVE_STRCHRNUL HAVE_DECL_STRDUP HAVE_STRNDUP HAVE_DECL_STRNDUP HAVE_DECL_STRNLEN HAVE_STRPBRK HAVE_STRSEP HAVE_STRCASESTR HAVE_DECL_STRTOK_R HAVE_DECL_STRERROR HAVE_DECL_STRSIGNAL REPLACE_STRERROR REPLACE_STRSIGNAL REPLACE_MEMMEM REPLACE_STRCASESTR REPLACE_STRSTR HAVE_LONG_LONG_INT HAVE_UNSIGNED_LONG_LONG_INT HAVE_INTTYPES_H HAVE_SYS_TYPES_H INCLUDE_NEXT NEXT_STDINT_H HAVE_STDINT_H HAVE_SYS_INTTYPES_H HAVE_SYS_BITYPES_H BITSIZEOF_PTRDIFF_T BITSIZEOF_SIG_ATOMIC_T BITSIZEOF_SIZE_T BITSIZEOF_WCHAR_T BITSIZEOF_WINT_T HAVE_SIGNED_SIG_ATOMIC_T HAVE_SIGNED_WCHAR_T HAVE_SIGNED_WINT_T PTRDIFF_T_SUFFIX SIG_ATOMIC_T_SUFFIX SIZE_T_SUFFIX WCHAR_T_SUFFIX WINT_T_SUFFIX STDINT_H NEXT_STRING_H GNULIB_WCWIDTH HAVE_DECL_WCWIDTH REPLACE_WCWIDTH WCHAR_H HAVE_WCHAR_H NEXT_WCHAR_H LIBGNU_LIBDEPS LIBGNU_LTLIBDEPS GNULIB_STDINT_H PACKAGE INSTALL_PROGRAM INSTALL_SCRIPT INSTALL_DATA CYGPATH_W VERSION ACLOCAL AUTOCONF AUTOMAKE AUTOHEADER MAKEINFO install_sh STRIP ac_ct_STRIP INSTALL_STRIP_PROGRAM mkdir_p AWK AMTAR am__tar am__untar am__include am__quote AMDEP_TRUE AMDEP_FALSE AMDEPBACKSLASH am__fastdepCC_TRUE am__fastdepCC_FALSE subdirs TARGET_OBS PKGVERSION REPORT_BUGS_TO REPORT_BUGS_TEXI LN_S YACC AR ac_ct_AR DLLTOOL ac_ct_DLLTOOL WINDRES ac_ct_WINDRES MIG ac_ct_MIG READLINE READLINE_DEPS READLINE_CFLAGS HAVE_LIBEXPAT LIBEXPAT LTLIBEXPAT PYTHON_CFLAGS ALLOCA CONFIG_LDFLAGS TARGET_SYSTEM_ROOT TARGET_SYSTEM_ROOT_DEFINE WARN_CFLAGS WERROR_CFLAGS SER_HARDWIRE WIN32LIBS LIBGUI GUI_CFLAGS_X WIN32LDAPP TCL_VERSION TCL_PATCH_LEVEL TCL_BIN_DIR TCL_SRC_DIR TCL_LIB_FILE TCL_LIB_FLAG TCL_LIB_SPEC TCL_STUB_LIB_FILE TCL_STUB_LIB_FLAG TCL_STUB_LIB_SPEC TCL_INCLUDE TCL_LIBRARY TCL_DEPS TK_VERSION TK_BIN_DIR TK_SRC_DIR TK_LIB_FILE TK_LIB_FLAG TK_LIB_SPEC TK_STUB_LIB_FILE TK_STUB_LIB_FLAG TK_STUB_LIB_SPEC TK_INCLUDE TK_LIBRARY TK_DEPS TK_XINCLUDES X_CFLAGS X_LDFLAGS X_LIBS GDBTKLIBS GDBTK_CFLAGS GDBTK_SRC_DIR SIM SIM_OBS ENABLE_CFLAGS PROFILE_CFLAGS CONFIG_OBS CONFIG_DEPS CONFIG_SRCS CONFIG_ALL CONFIG_CLEAN CONFIG_INSTALL CONFIG_UNINSTALL target_subdir frags nm_h LIBICONV LIBOBJS LTLIBOBJS gl_LIBOBJS gl_LTLIBOBJS gltests_LIBOBJS gltests_LTLIBOBJS'
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ac_subst_vars='SHELL PATH_SEPARATOR PACKAGE_NAME PACKAGE_TARNAME PACKAGE_VERSION PACKAGE_STRING PACKAGE_BUGREPORT exec_prefix prefix program_transform_name bindir sbindir libexecdir datadir sysconfdir sharedstatedir localstatedir libdir includedir oldincludedir infodir mandir build_alias host_alias target_alias DEFS ECHO_C ECHO_N ECHO_T LIBS MAINTAINER_MODE_TRUE MAINTAINER_MODE_FALSE MAINT CC CFLAGS LDFLAGS CPPFLAGS ac_ct_CC EXEEXT OBJEXT CPP EGREP RANLIB ac_ct_RANLIB build build_cpu build_vendor build_os host host_cpu host_vendor host_os target target_cpu target_vendor target_os am__leading_dot DEPDIR CCDEPMODE MAKE GMAKE_TRUE GMAKE_FALSE SET_MAKE USE_NLS LIBINTL LIBINTL_DEP INCINTL XGETTEXT GMSGFMT POSUB CATALOGS DATADIRNAME INSTOBJEXT GENCAT CATOBJEXT localedir GL_COND_LIBTOOL_TRUE GL_COND_LIBTOOL_FALSE GNULIB_MEMMEM GNULIB_MEMPCPY GNULIB_MEMRCHR GNULIB_STPCPY GNULIB_STPNCPY GNULIB_STRCHRNUL GNULIB_STRDUP GNULIB_STRNDUP GNULIB_STRNLEN GNULIB_STRPBRK GNULIB_STRSEP GNULIB_STRSTR GNULIB_STRCASESTR GNULIB_STRTOK_R GNULIB_MBSLEN GNULIB_MBSNLEN GNULIB_MBSCHR GNULIB_MBSRCHR GNULIB_MBSSTR GNULIB_MBSCASECMP GNULIB_MBSNCASECMP GNULIB_MBSPCASECMP GNULIB_MBSCASESTR GNULIB_MBSCSPN GNULIB_MBSPBRK GNULIB_MBSSPN GNULIB_MBSSEP GNULIB_MBSTOK_R GNULIB_STRERROR GNULIB_STRSIGNAL HAVE_DECL_MEMMEM HAVE_MEMPCPY HAVE_DECL_MEMRCHR HAVE_STPCPY HAVE_STPNCPY HAVE_STRCHRNUL HAVE_DECL_STRDUP HAVE_STRNDUP HAVE_DECL_STRNDUP HAVE_DECL_STRNLEN HAVE_STRPBRK HAVE_STRSEP HAVE_STRCASESTR HAVE_DECL_STRTOK_R HAVE_DECL_STRERROR HAVE_DECL_STRSIGNAL REPLACE_STRERROR REPLACE_STRSIGNAL REPLACE_MEMMEM REPLACE_STRCASESTR REPLACE_STRSTR HAVE_LONG_LONG_INT HAVE_UNSIGNED_LONG_LONG_INT HAVE_INTTYPES_H HAVE_SYS_TYPES_H INCLUDE_NEXT NEXT_STDINT_H HAVE_STDINT_H HAVE_SYS_INTTYPES_H HAVE_SYS_BITYPES_H BITSIZEOF_PTRDIFF_T BITSIZEOF_SIG_ATOMIC_T BITSIZEOF_SIZE_T BITSIZEOF_WCHAR_T BITSIZEOF_WINT_T HAVE_SIGNED_SIG_ATOMIC_T HAVE_SIGNED_WCHAR_T HAVE_SIGNED_WINT_T PTRDIFF_T_SUFFIX SIG_ATOMIC_T_SUFFIX SIZE_T_SUFFIX WCHAR_T_SUFFIX WINT_T_SUFFIX STDINT_H NEXT_STRING_H GNULIB_WCWIDTH HAVE_DECL_WCWIDTH REPLACE_WCWIDTH WCHAR_H HAVE_WCHAR_H NEXT_WCHAR_H LIBGNU_LIBDEPS LIBGNU_LTLIBDEPS GNULIB_STDINT_H PACKAGE INSTALL_PROGRAM INSTALL_SCRIPT INSTALL_DATA CYGPATH_W VERSION ACLOCAL AUTOCONF AUTOMAKE AUTOHEADER MAKEINFO install_sh STRIP ac_ct_STRIP INSTALL_STRIP_PROGRAM mkdir_p AWK AMTAR am__tar am__untar am__include am__quote AMDEP_TRUE AMDEP_FALSE AMDEPBACKSLASH am__fastdepCC_TRUE am__fastdepCC_FALSE GDB_DATADIR_PATH pythondir subdirs TARGET_OBS PKGVERSION REPORT_BUGS_TO REPORT_BUGS_TEXI LN_S YACC AR ac_ct_AR DLLTOOL ac_ct_DLLTOOL WINDRES ac_ct_WINDRES MIG ac_ct_MIG LIBICONV LIBICONV_INCLUDE LIBICONV_LIBDIR READLINE READLINE_DEPS READLINE_CFLAGS HAVE_LIBEXPAT LIBEXPAT LTLIBEXPAT PYTHON_CFLAGS ALLOCA CONFIG_LDFLAGS TARGET_SYSTEM_ROOT TARGET_SYSTEM_ROOT_DEFINE WARN_CFLAGS WERROR_CFLAGS SER_HARDWIRE WIN32LIBS LIBGUI GUI_CFLAGS_X WIN32LDAPP TCL_VERSION TCL_PATCH_LEVEL TCL_BIN_DIR TCL_SRC_DIR TCL_LIB_FILE TCL_LIB_FLAG TCL_LIB_SPEC TCL_STUB_LIB_FILE TCL_STUB_LIB_FLAG TCL_STUB_LIB_SPEC TCL_INCLUDE TCL_LIBRARY TCL_DEPS TK_VERSION TK_BIN_DIR TK_SRC_DIR TK_LIB_FILE TK_LIB_FLAG TK_LIB_SPEC TK_STUB_LIB_FILE TK_STUB_LIB_FLAG TK_STUB_LIB_SPEC TK_INCLUDE TK_LIBRARY TK_DEPS TK_XINCLUDES X_CFLAGS X_LDFLAGS X_LIBS GDBTKLIBS GDBTK_CFLAGS GDBTK_SRC_DIR SIM SIM_OBS ENABLE_CFLAGS PROFILE_CFLAGS CONFIG_OBS CONFIG_DEPS CONFIG_SRCS CONFIG_ALL CONFIG_CLEAN CONFIG_INSTALL CONFIG_UNINSTALL target_subdir frags nm_h LIBOBJS LTLIBOBJS gl_LIBOBJS gl_LTLIBOBJS gltests_LIBOBJS gltests_LTLIBOBJS'
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
ac_subst_files='host_makefile_frag'
ac_pwd=`pwd`
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -882,9 +882,14 @@ Optional Packages:
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--with-PACKAGE[=ARG] use PACKAGE [ARG=yes]
--without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no)
--with-separate-debug-dir=path Look for global separate debug info in this path LIBDIR/debug
+ --with-gdb-datadir look for global separate data files in this path
+ [DATADIR/gdb]
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ --with-pythondir install Python data files in this path
+ [DATADIR/gdb/python]
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--with-libunwind Use libunwind frame unwinding support
--with-pkgversion=PKG Use PKG in the version string in place of "GDB"
--with-bugurl=URL Direct users to URL to report a bug
+ --with-libiconv-prefix=DIR search for libiconv in DIR/include and DIR/lib
--with-system-readline use installed readline library
--with-expat include expat support (auto/yes/no)
--with-gnu-ld assume the C compiler uses GNU ld default=no
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -899,7 +904,6 @@ Optional Packages:
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--with-tcl directory containing tcl configuration (tclConfig.sh)
--with-tk directory containing tk configuration (tkConfig.sh)
--with-x use the X Window System
- --with-libiconv-prefix=DIR search for libiconv in DIR/include and DIR/lib
Some influential environment variables:
CC C compiler command
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -7130,6 +7134,75 @@ _ACEOF
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
;;
esac
+# GDB's datadir relocation
+
+gdbdatadir=${datadir}/gdb
+
+
+# Check whether --with-gdb-datadir or --without-gdb-datadir was given.
+if test "${with_gdb_datadir+set}" = set; then
+ withval="$with_gdb_datadir"
+ gdbdatadir="${withval}"
+fi;
+
+
+ test "x$prefix" = xNONE && prefix="$ac_default_prefix"
+ test "x$exec_prefix" = xNONE && exec_prefix='${prefix}'
+ ac_define_dir=`eval echo $gdbdatadir`
+ ac_define_dir=`eval echo $ac_define_dir`
+
+cat >>confdefs.h <<_ACEOF
+#define GDB_DATADIR "$ac_define_dir"
+_ACEOF
+
+
+
+if test "x$exec_prefix" = xNONE || test "x$exec_prefix" = 'x${prefix}'; then
+ if test "x$prefix" = xNONE; then
+ test_prefix=/usr/local
+ else
+ test_prefix=$prefix
+ fi
+else
+ test_prefix=$exec_prefix
+fi
+
+case ${gdbdatadir} in
+ "${test_prefix}"|"${test_prefix}/"*|\
+ '${exec_prefix}'|'${exec_prefix}/'*)
+
+cat >>confdefs.h <<\_ACEOF
+#define GDB_DATADIR_RELOCATABLE 1
+_ACEOF
+
+ ;;
+esac
+GDB_DATADIR_PATH=${gdbdatadir}
+
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+
+
+# Check whether --with-pythondir or --without-pythondir was given.
+if test "${with_pythondir+set}" = set; then
+ withval="$with_pythondir"
+ pythondir="${withval}"
+else
+ pythondir=no
+fi;
+
+# If the user passed in a path, define it. Otherwise, compute it at
+# runtime based on the possibly-relocatable datadir.
+if test "$pythondir" = "no"; then
+ pythondir='$(GDB_DATADIR_PATH)/python'
+else
+
+cat >>confdefs.h <<_ACEOF
+#define PYTHONDIR "$pythondir"
+_ACEOF
+
+fi
+
+
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
subdirs="$subdirs doc testsuite"
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -9989,6 +10062,226 @@ if test "$ac_cv_search_dlgetmodinfo" != no; then
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
fi
+
+
+
+# Check whether --with-libiconv-prefix or --without-libiconv-prefix was given.
+if test "${with_libiconv_prefix+set}" = set; then
+ withval="$with_libiconv_prefix"
+
+ for dir in `echo "$withval" | tr : ' '`; do
+ if test -d $dir/include; then LIBICONV_INCLUDE="-I$dir/include"; CPPFLAGS="$CPPFLAGS -I$dir/include"; fi
+ if test -d $dir/lib; then LIBICONV_LIBDIR="-L$dir/lib"; LDFLAGS="$LDFLAGS -L$dir/lib"; fi
+ done
+
+fi;
+
+ echo "$as_me:$LINENO: checking for iconv" >&5
+echo $ECHO_N "checking for iconv... $ECHO_C" >&6
+if test "${am_cv_func_iconv+set}" = set; then
+ echo $ECHO_N "(cached) $ECHO_C" >&6
+else
+
+ am_cv_func_iconv="no, consider installing GNU libiconv"
+ am_cv_lib_iconv=no
+ cat >conftest.$ac_ext <<_ACEOF
+/* confdefs.h. */
+_ACEOF
+cat confdefs.h >>conftest.$ac_ext
+cat >>conftest.$ac_ext <<_ACEOF
+/* end confdefs.h. */
+#include <stdlib.h>
+#include <iconv.h>
+int
+main ()
+{
+iconv_t cd = iconv_open("","");
+ iconv(cd,NULL,NULL,NULL,NULL);
+ iconv_close(cd);
+ ;
+ return 0;
+}
+_ACEOF
+rm -f conftest.$ac_objext conftest$ac_exeext
+if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
+ (eval $ac_link) 2>conftest.er1
+ ac_status=$?
+ grep -v '^ *+' conftest.er1 >conftest.err
+ rm -f conftest.er1
+ cat conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); } &&
+ { ac_try='test -z "$ac_c_werror_flag"
+ || test ! -s conftest.err'
+ { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
+ (eval $ac_try) 2>&5
+ ac_status=$?
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); }; } &&
+ { ac_try='test -s conftest$ac_exeext'
+ { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
+ (eval $ac_try) 2>&5
+ ac_status=$?
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); }; }; then
+ am_cv_func_iconv=yes
+else
+ echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+fi
+rm -f conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ if test "$am_cv_func_iconv" != yes; then
+ am_save_LIBS="$LIBS"
+ LIBS="$LIBS -liconv"
+ cat >conftest.$ac_ext <<_ACEOF
+/* confdefs.h. */
+_ACEOF
+cat confdefs.h >>conftest.$ac_ext
+cat >>conftest.$ac_ext <<_ACEOF
+/* end confdefs.h. */
+#include <stdlib.h>
+#include <iconv.h>
+int
+main ()
+{
+iconv_t cd = iconv_open("","");
+ iconv(cd,NULL,NULL,NULL,NULL);
+ iconv_close(cd);
+ ;
+ return 0;
+}
+_ACEOF
+rm -f conftest.$ac_objext conftest$ac_exeext
+if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
+ (eval $ac_link) 2>conftest.er1
+ ac_status=$?
+ grep -v '^ *+' conftest.er1 >conftest.err
+ rm -f conftest.er1
+ cat conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); } &&
+ { ac_try='test -z "$ac_c_werror_flag"
+ || test ! -s conftest.err'
+ { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
+ (eval $ac_try) 2>&5
+ ac_status=$?
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); }; } &&
+ { ac_try='test -s conftest$ac_exeext'
+ { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
+ (eval $ac_try) 2>&5
+ ac_status=$?
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); }; }; then
+ am_cv_lib_iconv=yes
+ am_cv_func_iconv=yes
+else
+ echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+fi
+rm -f conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+ LIBS="$am_save_LIBS"
+ fi
+
+fi
+echo "$as_me:$LINENO: result: $am_cv_func_iconv" >&5
+echo "${ECHO_T}$am_cv_func_iconv" >&6
+ if test "$am_cv_func_iconv" = yes; then
+
+cat >>confdefs.h <<\_ACEOF
+#define HAVE_ICONV 1
+_ACEOF
+
+ echo "$as_me:$LINENO: checking for iconv declaration" >&5
+echo $ECHO_N "checking for iconv declaration... $ECHO_C" >&6
+ if test "${am_cv_proto_iconv+set}" = set; then
+ echo $ECHO_N "(cached) $ECHO_C" >&6
+else
+
+ cat >conftest.$ac_ext <<_ACEOF
+/* confdefs.h. */
+_ACEOF
+cat confdefs.h >>conftest.$ac_ext
+cat >>conftest.$ac_ext <<_ACEOF
+/* end confdefs.h. */
+
+#include <stdlib.h>
+#include <iconv.h>
+extern
+#ifdef __cplusplus
+"C"
+#endif
+#if defined(__STDC__) || defined(__cplusplus)
+size_t iconv (iconv_t cd, char * *inbuf, size_t *inbytesleft, char * *outbuf, size_t *outbytesleft);
+#else
+size_t iconv();
+#endif
+
+int
+main ()
+{
+
+ ;
+ return 0;
+}
+_ACEOF
+rm -f conftest.$ac_objext
+if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
+ (eval $ac_compile) 2>conftest.er1
+ ac_status=$?
+ grep -v '^ *+' conftest.er1 >conftest.err
+ rm -f conftest.er1
+ cat conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); } &&
+ { ac_try='test -z "$ac_c_werror_flag"
+ || test ! -s conftest.err'
+ { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
+ (eval $ac_try) 2>&5
+ ac_status=$?
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); }; } &&
+ { ac_try='test -s conftest.$ac_objext'
+ { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
+ (eval $ac_try) 2>&5
+ ac_status=$?
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); }; }; then
+ am_cv_proto_iconv_arg1=""
+else
+ echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+am_cv_proto_iconv_arg1="const"
+fi
+rm -f conftest.err conftest.$ac_objext conftest.$ac_ext
+ am_cv_proto_iconv="extern size_t iconv (iconv_t cd, $am_cv_proto_iconv_arg1 char * *inbuf, size_t *inbytesleft, char * *outbuf, size_t *outbytesleft);"
+fi
+
+ am_cv_proto_iconv=`echo "$am_cv_proto_iconv" | tr -s ' ' | sed -e 's/( /(/'`
+ echo "$as_me:$LINENO: result: ${ac_t:-
+ }$am_cv_proto_iconv" >&5
+echo "${ECHO_T}${ac_t:-
+ }$am_cv_proto_iconv" >&6
+
+cat >>confdefs.h <<_ACEOF
+#define ICONV_CONST $am_cv_proto_iconv_arg1
+_ACEOF
+
+ fi
+ LIBICONV=
+ if test "$am_cv_lib_iconv" = yes; then
+ LIBICONV="-liconv"
+ fi
+
+
+
+
+
# On alpha-osf, it appears that libtermcap and libcurses are not compatible.
# There is a very specific comment in /usr/include/curses.h explaining that
# termcap routines built into libcurses must not be used.
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -11418,6 +11711,8 @@ _ACEOF
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
CONFIG_OBS="$CONFIG_OBS \$(SUBDIR_PYTHON_OBS)"
CONFIG_DEPS="$CONFIG_DEPS \$(SUBDIR_PYTHON_DEPS)"
CONFIG_SRCS="$CONFIG_SRCS \$(SUBDIR_PYTHON_SRCS)"
+ CONFIG_INSTALL="$CONFIG_INSTALL install-python"
+ CONFIG_UNINSTALL="$CONFIG_UNINSTALL uninstall-python"
ENABLE_CFLAGS="$ENABLE_CFLAGS \$(SUBDIR_PYTHON_CFLAGS)"
# Flags needed to compile Python code (taken from python-config --cflags).
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -15445,10 +15740,11 @@ fi
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
for ac_func in canonicalize_file_name realpath getrusage getuid \
getgid poll pread64 sbrk setpgid setpgrp setsid \
sigaction sigprocmask sigsetmask socketpair syscall \
- ttrace wborder setlocale
+ ttrace wborder setlocale iconvlist
do
as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh`
echo "$as_me:$LINENO: checking for $ac_func" >&5
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -15550,6 +15846,70 @@ fi
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
done
+ echo "$as_me:$LINENO: checking for nl_langinfo and CODESET" >&5
+echo $ECHO_N "checking for nl_langinfo and CODESET... $ECHO_C" >&6
+if test "${am_cv_langinfo_codeset+set}" = set; then
+ echo $ECHO_N "(cached) $ECHO_C" >&6
+else
+ cat >conftest.$ac_ext <<_ACEOF
+/* confdefs.h. */
+_ACEOF
+cat confdefs.h >>conftest.$ac_ext
+cat >>conftest.$ac_ext <<_ACEOF
+/* end confdefs.h. */
+#include <langinfo.h>
+int
+main ()
+{
+char* cs = nl_langinfo(CODESET);
+ ;
+ return 0;
+}
+_ACEOF
+rm -f conftest.$ac_objext conftest$ac_exeext
+if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
+ (eval $ac_link) 2>conftest.er1
+ ac_status=$?
+ grep -v '^ *+' conftest.er1 >conftest.err
+ rm -f conftest.er1
+ cat conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); } &&
+ { ac_try='test -z "$ac_c_werror_flag"
+ || test ! -s conftest.err'
+ { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
+ (eval $ac_try) 2>&5
+ ac_status=$?
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); }; } &&
+ { ac_try='test -s conftest$ac_exeext'
+ { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
+ (eval $ac_try) 2>&5
+ ac_status=$?
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); }; }; then
+ am_cv_langinfo_codeset=yes
+else
+ echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+am_cv_langinfo_codeset=no
+fi
+rm -f conftest.err conftest.$ac_objext \
+ conftest$ac_exeext conftest.$ac_ext
+
+fi
+echo "$as_me:$LINENO: result: $am_cv_langinfo_codeset" >&5
+echo "${ECHO_T}$am_cv_langinfo_codeset" >&6
+ if test $am_cv_langinfo_codeset = yes; then
+
+cat >>confdefs.h <<\_ACEOF
+#define HAVE_LANGINFO_CODESET 1
+_ACEOF
+
+ fi
+
+
# Check the return and argument types of ptrace. No canned test for
# this, so roll our own.
gdb_ptrace_headers='
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -20776,230 +21136,11 @@ done
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
-
cat >>confdefs.h <<\_ACEOF
-#define GDB_DEFAULT_HOST_CHARSET "ISO-8859-1"
+#define GDB_DEFAULT_HOST_CHARSET "UTF-8"
_ACEOF
-
-
-
-# Check whether --with-libiconv-prefix or --without-libiconv-prefix was given.
-if test "${with_libiconv_prefix+set}" = set; then
- withval="$with_libiconv_prefix"
-
- for dir in `echo "$withval" | tr : ' '`; do
- if test -d $dir/include; then CPPFLAGS="$CPPFLAGS -I$dir/include"; fi
- if test -d $dir/lib; then LDFLAGS="$LDFLAGS -L$dir/lib"; fi
- done
-
-fi;
-
- echo "$as_me:$LINENO: checking for iconv" >&5
-echo $ECHO_N "checking for iconv... $ECHO_C" >&6
-if test "${am_cv_func_iconv+set}" = set; then
- echo $ECHO_N "(cached) $ECHO_C" >&6
-else
-
- am_cv_func_iconv="no, consider installing GNU libiconv"
- am_cv_lib_iconv=no
- cat >conftest.$ac_ext <<_ACEOF
-/* confdefs.h. */
-_ACEOF
-cat confdefs.h >>conftest.$ac_ext
-cat >>conftest.$ac_ext <<_ACEOF
-/* end confdefs.h. */
-#include <stdlib.h>
-#include <iconv.h>
-int
-main ()
-{
-iconv_t cd = iconv_open("","");
- iconv(cd,NULL,NULL,NULL,NULL);
- iconv_close(cd);
- ;
- return 0;
-}
-_ACEOF
-rm -f conftest.$ac_objext conftest$ac_exeext
-if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
- (eval $ac_link) 2>conftest.er1
- ac_status=$?
- grep -v '^ *+' conftest.er1 >conftest.err
- rm -f conftest.er1
- cat conftest.err >&5
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); } &&
- { ac_try='test -z "$ac_c_werror_flag"
- || test ! -s conftest.err'
- { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
- (eval $ac_try) 2>&5
- ac_status=$?
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); }; } &&
- { ac_try='test -s conftest$ac_exeext'
- { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
- (eval $ac_try) 2>&5
- ac_status=$?
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); }; }; then
- am_cv_func_iconv=yes
-else
- echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-fi
-rm -f conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- if test "$am_cv_func_iconv" != yes; then
- am_save_LIBS="$LIBS"
- LIBS="$LIBS -liconv"
- cat >conftest.$ac_ext <<_ACEOF
-/* confdefs.h. */
-_ACEOF
-cat confdefs.h >>conftest.$ac_ext
-cat >>conftest.$ac_ext <<_ACEOF
-/* end confdefs.h. */
-#include <stdlib.h>
-#include <iconv.h>
-int
-main ()
-{
-iconv_t cd = iconv_open("","");
- iconv(cd,NULL,NULL,NULL,NULL);
- iconv_close(cd);
- ;
- return 0;
-}
-_ACEOF
-rm -f conftest.$ac_objext conftest$ac_exeext
-if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
- (eval $ac_link) 2>conftest.er1
- ac_status=$?
- grep -v '^ *+' conftest.er1 >conftest.err
- rm -f conftest.er1
- cat conftest.err >&5
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); } &&
- { ac_try='test -z "$ac_c_werror_flag"
- || test ! -s conftest.err'
- { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
- (eval $ac_try) 2>&5
- ac_status=$?
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); }; } &&
- { ac_try='test -s conftest$ac_exeext'
- { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
- (eval $ac_try) 2>&5
- ac_status=$?
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); }; }; then
- am_cv_lib_iconv=yes
- am_cv_func_iconv=yes
-else
- echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-fi
-rm -f conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- LIBS="$am_save_LIBS"
- fi
-
-fi
-echo "$as_me:$LINENO: result: $am_cv_func_iconv" >&5
-echo "${ECHO_T}$am_cv_func_iconv" >&6
- if test "$am_cv_func_iconv" = yes; then
-
-cat >>confdefs.h <<\_ACEOF
-#define HAVE_ICONV 1
-_ACEOF
-
- echo "$as_me:$LINENO: checking for iconv declaration" >&5
-echo $ECHO_N "checking for iconv declaration... $ECHO_C" >&6
- if test "${am_cv_proto_iconv+set}" = set; then
- echo $ECHO_N "(cached) $ECHO_C" >&6
-else
-
- cat >conftest.$ac_ext <<_ACEOF
-/* confdefs.h. */
-_ACEOF
-cat confdefs.h >>conftest.$ac_ext
-cat >>conftest.$ac_ext <<_ACEOF
-/* end confdefs.h. */
-
-#include <stdlib.h>
-#include <iconv.h>
-extern
-#ifdef __cplusplus
-"C"
-#endif
-#if defined(__STDC__) || defined(__cplusplus)
-size_t iconv (iconv_t cd, char * *inbuf, size_t *inbytesleft, char * *outbuf, size_t *outbytesleft);
-#else
-size_t iconv();
-#endif
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-rm -f conftest.$ac_objext
-if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
- (eval $ac_compile) 2>conftest.er1
- ac_status=$?
- grep -v '^ *+' conftest.er1 >conftest.err
- rm -f conftest.er1
- cat conftest.err >&5
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); } &&
- { ac_try='test -z "$ac_c_werror_flag"
- || test ! -s conftest.err'
- { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
- (eval $ac_try) 2>&5
- ac_status=$?
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); }; } &&
- { ac_try='test -s conftest.$ac_objext'
- { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
- (eval $ac_try) 2>&5
- ac_status=$?
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); }; }; then
- am_cv_proto_iconv_arg1=""
-else
- echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-am_cv_proto_iconv_arg1="const"
-fi
-rm -f conftest.err conftest.$ac_objext conftest.$ac_ext
- am_cv_proto_iconv="extern size_t iconv (iconv_t cd, $am_cv_proto_iconv_arg1 char * *inbuf, size_t *inbytesleft, char * *outbuf, size_t *outbytesleft);"
-fi
-
- am_cv_proto_iconv=`echo "$am_cv_proto_iconv" | tr -s ' ' | sed -e 's/( /(/'`
- echo "$as_me:$LINENO: result: ${ac_t:-
- }$am_cv_proto_iconv" >&5
-echo "${ECHO_T}${ac_t:-
- }$am_cv_proto_iconv" >&6
-
-cat >>confdefs.h <<_ACEOF
-#define ICONV_CONST $am_cv_proto_iconv_arg1
-_ACEOF
-
- fi
- LIBICONV=
- if test "$am_cv_lib_iconv" = yes; then
- LIBICONV="-liconv"
- fi
-
-
-
ac_config_files="$ac_config_files Makefile .gdbinit:gdbinit.in gnulib/Makefile"
ac_config_commands="$ac_config_commands default"
cat >confcache <<\_ACEOF
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -21865,6 +22006,8 @@ s,@AMDEP_FALSE@,$AMDEP_FALSE,;t t
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
s,@AMDEPBACKSLASH@,$AMDEPBACKSLASH,;t t
s,@am__fastdepCC_TRUE@,$am__fastdepCC_TRUE,;t t
s,@am__fastdepCC_FALSE@,$am__fastdepCC_FALSE,;t t
+s,@GDB_DATADIR_PATH@,$GDB_DATADIR_PATH,;t t
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+s,@pythondir@,$pythondir,;t t
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
s,@subdirs@,$subdirs,;t t
s,@TARGET_OBS@,$TARGET_OBS,;t t
s,@PKGVERSION@,$PKGVERSION,;t t
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -21880,6 +22023,9 @@ s,@WINDRES@,$WINDRES,;t t
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
s,@ac_ct_WINDRES@,$ac_ct_WINDRES,;t t
s,@MIG@,$MIG,;t t
s,@ac_ct_MIG@,$ac_ct_MIG,;t t
+s,@LIBICONV@,$LIBICONV,;t t
+s,@LIBICONV_INCLUDE@,$LIBICONV_INCLUDE,;t t
+s,@LIBICONV_LIBDIR@,$LIBICONV_LIBDIR,;t t
s,@READLINE@,$READLINE,;t t
s,@READLINE_DEPS@,$READLINE_DEPS,;t t
s,@READLINE_CFLAGS@,$READLINE_CFLAGS,;t t
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -21944,7 +22090,6 @@ s,@CONFIG_UNINSTALL@,$CONFIG_UNINSTALL,;t t
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
s,@target_subdir@,$target_subdir,;t t
s,@frags@,$frags,;t t
s,@nm_h@,$nm_h,;t t
-s,@LIBICONV@,$LIBICONV,;t t
s,@LIBOBJS@,$LIBOBJS,;t t
s,@LTLIBOBJS@,$LTLIBOBJS,;t t
s,@gl_LIBOBJS@,$gl_LIBOBJS,;t t
diff --git a/gdb/configure.ac b/gdb/configure.ac
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
index 3f81ff2..ff76053 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/configure.ac
+++ b/gdb/configure.ac
@@ -1,6 +1,6 @@
dnl Autoconf configure script for GDB, the GNU debugger.
dnl Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-dnl 2005, 2006, 2007, 2008
+dnl 2005, 2006, 2007, 2008, 2009
dnl Free Software Foundation, Inc.
dnl
dnl This file is part of GDB.
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -118,6 +118,51 @@ case ${debugdir} in
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
;;
esac
+# GDB's datadir relocation
+
+gdbdatadir=${datadir}/gdb
+
+AC_ARG_WITH([gdb-datadir],
+ [AS_HELP_STRING([--with-gdb-datadir],
+ [look for global separate data files in this path [DATADIR/gdb]])], [gdbdatadir="${withval}"])
+
+AC_DEFINE_DIR(GDB_DATADIR, gdbdatadir,
+ [Global directory for GDB data files. ])
+
+if test "x$exec_prefix" = xNONE || test "x$exec_prefix" = 'x${prefix}'; then
+ if test "x$prefix" = xNONE; then
+ test_prefix=/usr/local
+ else
+ test_prefix=$prefix
+ fi
+else
+ test_prefix=$exec_prefix
+fi
+
+case ${gdbdatadir} in
+ "${test_prefix}"|"${test_prefix}/"*|\
+ '${exec_prefix}'|'${exec_prefix}/'*)
+ AC_DEFINE(GDB_DATADIR_RELOCATABLE, 1, [Define if GDB datadir should be relocated when GDB is moved.])
+ ;;
+esac
+GDB_DATADIR_PATH=${gdbdatadir}
+AC_SUBST(GDB_DATADIR_PATH)
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+
+AC_ARG_WITH([pythondir],
+ [AS_HELP_STRING([--with-pythondir],
+ [install Python data files in this path [DATADIR/gdb/python]])], [pythondir="${withval}"], [pythondir=no])
+
+# If the user passed in a path, define it. Otherwise, compute it at
+# runtime based on the possibly-relocatable datadir.
+if test "$pythondir" = "no"; then
+ pythondir='$(GDB_DATADIR_PATH)/python'
+else
+ AC_DEFINE_UNQUOTED(PYTHONDIR, "$pythondir",
+ [Define to install path for Python sources])
+fi
+AC_SUBST(pythondir)
+
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
AC_CONFIG_SUBDIRS(doc testsuite)
# Check whether to support alternative target configurations
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -430,6 +475,8 @@ AC_SEARCH_LIBS(zlibVersion, z, [AC_CHECK_HEADERS(zlib.h)])
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
# On HP/UX we may need libxpdl for dlgetmodinfo (used by solib-pa64.c).
AC_SEARCH_LIBS(dlgetmodinfo, [dl xpdl])
+AM_ICONV
+
# On alpha-osf, it appears that libtermcap and libcurses are not compatible.
# There is a very specific comment in /usr/include/curses.h explaining that
# termcap routines built into libcurses must not be used.
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -649,6 +696,8 @@ if test "${have_libpython}" = yes; then
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
CONFIG_OBS="$CONFIG_OBS \$(SUBDIR_PYTHON_OBS)"
CONFIG_DEPS="$CONFIG_DEPS \$(SUBDIR_PYTHON_DEPS)"
CONFIG_SRCS="$CONFIG_SRCS \$(SUBDIR_PYTHON_SRCS)"
+ CONFIG_INSTALL="$CONFIG_INSTALL install-python"
+ CONFIG_UNINSTALL="$CONFIG_UNINSTALL uninstall-python"
ENABLE_CFLAGS="$ENABLE_CFLAGS \$(SUBDIR_PYTHON_CFLAGS)"
# Flags needed to compile Python code (taken from python-config --cflags).
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -776,7 +825,8 @@ AC_FUNC_VFORK
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
AC_CHECK_FUNCS([canonicalize_file_name realpath getrusage getuid \
getgid poll pread64 sbrk setpgid setpgrp setsid \
sigaction sigprocmask sigsetmask socketpair syscall \
- ttrace wborder setlocale])
+ ttrace wborder setlocale iconvlist])
+AM_LANGINFO_CODESET
# Check the return and argument types of ptrace. No canned test for
# this, so roll our own.
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1930,17 +1980,10 @@ dnl Check for exe extension set on certain hosts (e.g. Win32)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
AC_EXEEXT
dnl Detect the character set used by this host.
-
-dnl At the moment, we just assume it's ISO-8859-1 (which is a
-dnl superset of ASCII containing the characters needed for French,
-dnl German, Spanish, Italian, and possibly others), but if were
-dnl *were* to support any host character sets other than ISO-8859-1,
-dnl here's where we'd detect it.
-AC_DEFINE(GDB_DEFAULT_HOST_CHARSET, "ISO-8859-1",
+dnl At the moment, we just assume it's UTF-8.
+AC_DEFINE(GDB_DEFAULT_HOST_CHARSET, "UTF-8",
[Define to be a string naming the default host character set.])
-AM_ICONV
-
AC_OUTPUT(Makefile .gdbinit:gdbinit.in gnulib/Makefile,
[
dnl Autoconf doesn't provide a mechanism for modifying definitions
diff --git a/gdb/configure.tgt b/gdb/configure.tgt
index 65c3e25..f0cca7d 100644
--- a/gdb/configure.tgt
+++ b/gdb/configure.tgt
@@ -36,7 +36,7 @@ alpha*-*-osf*)
alpha*-*-linux*)
# Target: Little-endian Alpha running Linux
gdb_target_obs="alpha-tdep.o alpha-mdebug-tdep.o alpha-linux-tdep.o \
- solib.o solib-svr4.o"
+ solib.o solib-svr4.o linux-tdep.o"
;;
alpha*-*-freebsd* | alpha*-*-kfreebsd*-gnu)
# Target: FreeBSD/alpha
@@ -63,7 +63,7 @@ alpha*-*-*)
am33_2.0*-*-linux*)
# Target: Matsushita mn10300 (AM33) running Linux
gdb_target_obs="mn10300-tdep.o mn10300-linux-tdep.o corelow.o \
- solib.o solib-svr4.o"
+ solib.o solib-svr4.o linux-tdep.o"
;;
arm*-wince-pe | arm*-*-mingw32ce*)
@@ -128,7 +128,7 @@ hppa*-*-hpux*)
hppa*-*-linux*)
# Target: HP PA-RISC running Linux
gdb_target_obs="hppa-tdep.o hppa-linux-tdep.o glibc-tdep.o \
- solib.o solib-svr4.o symfile-mem.o"
+ solib.o solib-svr4.o symfile-mem.o linux-tdep.o"
;;
hppa*-*-netbsd*)
# Target: NetBSD/hppa
@@ -218,7 +218,7 @@ i[34567]86-*-*)
ia64-*-linux*)
# Target: Intel IA-64 running GNU/Linux
gdb_target_obs="ia64-tdep.o ia64-linux-tdep.o \
- solib.o solib-svr4.o symfile-mem.o"
+ solib.o solib-svr4.o symfile-mem.o linux-tdep.o"
build_gdbserver=yes
;;
ia64*-*-*)
@@ -242,7 +242,8 @@ m32c-*-*)
m32r*-*-linux*)
# Target: Renesas M32R running GNU/Linux
gdb_target_obs="m32r-tdep.o m32r-linux-tdep.o remote-m32r-sdi.o \
- glibc-tdep.o solib.o solib-svr4.o symfile-mem.o"
+ glibc-tdep.o solib.o solib-svr4.o symfile-mem.o \
+ linux-tdep.o"
gdb_sim=../sim/m32r/libsim.a
build_gdbserver=yes
;;
@@ -267,7 +268,7 @@ fido-*-elf*)
m68*-*-linux*)
# Target: Motorola m68k with a.out and ELF
gdb_target_obs="m68k-tdep.o m68klinux-tdep.o solib.o solib-svr4.o \
- glibc-tdep.o symfile-mem.o"
+ glibc-tdep.o symfile-mem.o linux-tdep.o"
build_gdbserver=yes
;;
m68*-*-netbsd* | m68*-*-knetbsd*-gnu)
@@ -303,7 +304,8 @@ mips*-sgi-irix6*)
mips*-*-linux*)
# Target: Linux/MIPS
gdb_target_obs="mips-tdep.o mips-linux-tdep.o glibc-tdep.o \
- corelow.o solib.o solib-svr4.o symfile-mem.o"
+ corelow.o solib.o solib-svr4.o symfile-mem.o \
+ linux-tdep.o"
gdb_sim=../sim/mips/libsim.a
build_gdbserver=yes
;;
@@ -354,7 +356,8 @@ powerpc-*-aix* | rs6000-*-*)
powerpc-*-linux* | powerpc64-*-linux*)
# Target: PowerPC running Linux
gdb_target_obs="rs6000-tdep.o ppc-linux-tdep.o ppc-sysv-tdep.o \
- solib.o solib-svr4.o corelow.o symfile-mem.o"
+ solib.o solib-svr4.o corelow.o symfile-mem.o \
+ linux-tdep.o"
gdb_sim=../sim/ppc/libsim.a
build_gdbserver=yes
;;
@@ -381,7 +384,8 @@ score-*-*)
sh*-*-linux*)
# Target: GNU/Linux Super-H
gdb_target_obs="sh-tdep.o sh64-tdep.o sh-linux-tdep.o monitor.o \
- dsrec.o solib.o solib-svr4.o symfile-mem.o glibc-tdep.o"
+ dsrec.o solib.o solib-svr4.o symfile-mem.o glibc-tdep.o \
+ linux-tdep.o"
gdb_sim=../sim/sh/libsim.a
build_gdbserver=yes
;;
@@ -409,13 +413,14 @@ sh*)
sparc-*-linux*)
# Target: GNU/Linux SPARC
gdb_target_obs="sparc-tdep.o sparc-sol2-tdep.o sol2-tdep.o \
- sparc-linux-tdep.o solib.o solib-svr4.o symfile-mem.o"
+ sparc-linux-tdep.o solib.o solib-svr4.o symfile-mem.o \
+ linux-tdep.o"
;;
sparc64-*-linux*)
# Target: GNU/Linux UltraSPARC
gdb_target_obs="sparc64-tdep.o sparc64-sol2-tdep.o sol2-tdep.o \
sparc64-linux-tdep.o sparc-tdep.o sparc-sol2-tdep.o \
- sparc-linux-tdep.o solib.o solib-svr4.o"
+ sparc-linux-tdep.o solib.o solib-svr4.o linux-tdep.o"
build_gdbserver=yes
;;
sparc*-*-freebsd* | sparc*-*-kfreebsd*-gnu)
@@ -542,7 +547,8 @@ x86_64-*-openbsd*)
xtensa*-*-linux*) gdb_target=linux
# Target: GNU/Linux Xtensa
gdb_target_obs="xtensa-tdep.o xtensa-config.o xtensa-linux-tdep.o \
- solib.o solib-svr4.o corelow.o symfile-mem.o"
+ solib.o solib-svr4.o corelow.o symfile-mem.o \
+ linux-tdep.o"
build_gdbserver=yes
;;
xtensa*)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
diff --git a/gdb/cp-name-parser.y b/gdb/cp-name-parser.y
index 5f5ee3a..a8f8f30 100644
--- a/gdb/cp-name-parser.y
+++ b/gdb/cp-name-parser.y
@@ -1,7 +1,6 @@
/* YACC parser for C++ names, for GDB.
- Copyright (C) 2003, 2004, 2005, 2007, 2008, 2009
- Free Software Foundation, Inc.
+ Copyright (C) 2003, 2004, 2005, 2007, 2008, 2009 Free Software Foundation, Inc.
Parts of the lexer are based on c-exp.y from GDB.
@@ -501,7 +500,7 @@ operator : OPERATOR NEW
| OPERATOR ARROW
{ $$ = make_operator ("->", 2); }
| OPERATOR '(' ')'
- { $$ = make_operator ("()", 0); }
+ { $$ = make_operator ("()", 2); }
| OPERATOR '[' ']'
{ $$ = make_operator ("[]", 2); }
;
diff --git a/gdb/cp-namespace.c b/gdb/cp-namespace.c
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
index c6c5617..eace9c4 100644
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
--- a/gdb/cp-namespace.c
+++ b/gdb/cp-namespace.c
@@ -30,26 +30,13 @@
#include "dictionary.h"
#include "command.h"
#include "frame.h"
+#include "buildsym.h"
/* List of using directives that are active in the current file. */
-static struct using_direct *using_list;
-
-static struct using_direct *cp_add_using (const char *name,
- unsigned int inner_len,
- unsigned int outer_len,
- struct using_direct *next);
-
static struct using_direct *cp_copy_usings (struct using_direct *using,
struct obstack *obstack);
-static struct symbol *lookup_namespace_scope (const char *name,
- const char *linkage_name,
- const struct block *block,
- const domain_enum domain,
- const char *scope,
- int scope_len);
-
static struct symbol *lookup_symbol_file (const char *name,
const char *linkage_name,
const struct block *block,
@@ -78,31 +65,6 @@ static struct symbol *lookup_possible_namespace_symbol (const char *name);
static void maintenance_cplus_namespace (char *args, int from_tty);
-/* Set up support for dealing with C++ namespace info in the current
- symtab. */
-
-void cp_initialize_namespace ()
-{
- using_list = NULL;
-}
-
-/* Add all the using directives we've gathered to the current symtab.
- STATIC_BLOCK should be the symtab's static block; OBSTACK is used
- for allocation. */
-
-void
-cp_finalize_namespace (struct block *static_block,
- struct obstack *obstack)
-{
- if (using_list != NULL)
- {
- block_set_using (static_block,
- cp_copy_usings (using_list, obstack),
- obstack);
- using_list = NULL;
- }
-}
-
/* Check to see if SYMBOL refers to an object contained within an
anonymous namespace; if so, add an appropriate using directive. */
@@ -136,14 +98,17 @@ cp_scan_for_anonymous_namespaces (const struct symbol *symbol)
"(anonymous namespace)",
ANONYMOUS_NAMESPACE_LEN) == 0)
{
+ int outer_len = (previous_component == 0 ? 0 : previous_component - 2);
+ char outer[outer_len+1];
+
+ strncpy(outer, name, outer_len);
+
+ outer[outer_len] = '\0';
/* We've found a component of the name that's an
anonymous namespace. So add symbols in it to the
namespace given by the previous component if there is
one, or to the global namespace if there isn't. */
- cp_add_using_directive (name,
- previous_component == 0
- ? 0 : previous_component - 2,
- next_component);
+ cp_add_using_directive (outer, name, "", "", 0);
}
/* The "+ 2" is for the "::". */
previous_component = next_component + 2;
@@ -154,32 +119,27 @@ cp_scan_for_anonymous_namespaces (const struct symbol *symbol)
}
}
-/* Add a using directive to using_list. NAME is the start of a string
- that should contain the namespaces we want to add as initial
- substrings, OUTER_LENGTH is the end of the outer namespace, and
- INNER_LENGTH is the end of the inner namespace. If the using
- directive in question has already been added, don't add it
- twice. */
+/* Add a using directive to using_list. If the using directive in question
+ has already been added, don't add it twice. */
void
-cp_add_using_directive (const char *name, unsigned int outer_length,
- unsigned int inner_length)
+cp_add_using_directive (const char *outer, const char *inner, const char* alias,
+ const char *declaration, const int line_number)
{
struct using_direct *current;
struct using_direct *new;
/* Has it already been added? */
- for (current = using_list; current != NULL; current = current->next)
+ for (current = using_directives; current != NULL; current = current->next)
{
- if ((strncmp (current->inner, name, inner_length) == 0)
- && (strlen (current->inner) == inner_length)
- && (strlen (current->outer) == outer_length))
+ if (strcmp (current->inner, inner) == 0
+ && strcmp (current->outer, outer) == 0)
return;
}
- using_list = cp_add_using (name, inner_length, outer_length,
- using_list);
+ using_directives = cp_add_using (outer, inner, alias, declaration,
+ line_number,using_directives);
}
/* Record the namespace that the function defined by SYMBOL was
@@ -230,26 +190,31 @@ cp_is_anonymous (const char *namespace)
!= NULL);
}
-/* Create a new struct using direct whose inner namespace is the
- initial substring of NAME of leng INNER_LEN and whose outer
- namespace is the initial substring of NAME of length OUTER_LENGTH.
+/* Create a new struct using direct whose inner namespace is INNER
+ and whose outer namespace is OUTER. ALIAS is the name of the imported
+ namespace in the current scope. If ALIAS is an empty string then the
+ namespace is known by its original name.
Set its next member in the linked list to NEXT; allocate all memory
using xmalloc. It copies the strings, so NAME can be a temporary
string. */
-static struct using_direct *
-cp_add_using (const char *name,
- unsigned int inner_len,
- unsigned int outer_len,
+struct using_direct *
+cp_add_using (const char *outer,
+ const char *inner,
+ const char *alias,
+ const char *declaration,
+ const int line_number,
struct using_direct *next)
{
struct using_direct *retval;
- gdb_assert (outer_len < inner_len);
-
retval = xmalloc (sizeof (struct using_direct));
- retval->inner = savestring (name, inner_len);
- retval->outer = savestring (name, outer_len);
+ retval->inner = savestring (inner, strlen(inner));
+ retval->outer = savestring (outer, strlen(outer));
+ retval->alias = savestring (alias, strlen(alias));
+ retval->declaration = savestring (declaration, strlen(declaration));
+ retval->line_number = line_number;
+
retval->next = next;
return retval;
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -274,11 +239,17 @@ cp_copy_usings (struct using_direct *using,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
retval->inner = obsavestring (using->inner, strlen (using->inner),
obstack);
retval->outer = obsavestring (using->outer, strlen (using->outer),
- obstack);
+ obstack);
+ retval->alias = obsavestring (using->alias, strlen (using->alias),
+ obstack);
+ retval->declaration = obsavestring (using->declaration, strlen (using->declaration),
+ obstack);
retval->next = cp_copy_usings (using->next, obstack);
xfree (using->inner);
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
xfree (using->outer);
+ xfree (using->alias);
+ xfree (using->declaration);
xfree (using);
return retval;
@@ -299,8 +270,14 @@ cp_lookup_symbol_nonlocal (const char *name,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
const struct block *block,
const domain_enum domain)
{
- return lookup_namespace_scope (name, linkage_name, block, domain,
- block_scope (block), 0);
+
+ struct symbol* sym = lookup_namespace_scope(name, linkage_name, block,
+ domain, block_scope(block), 0);
+
+ if (sym != NULL)
+ return sym;
+
+ return lookup_symbol_file(name, linkage_name, block, domain, 0);
}
/* Lookup NAME at namespace scope (or, in C terms, in static and
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -318,7 +295,7 @@ cp_lookup_symbol_nonlocal (const char *name,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
"A::x", and if that call fails, then the first call looks for
"x". */
-static struct symbol *
+struct symbol *
lookup_namespace_scope (const char *name,
const char *linkage_name,
const struct block *block,
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -354,10 +331,43 @@ lookup_namespace_scope (const char *name,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
namespace = alloca (scope_len + 1);
strncpy (namespace, scope, scope_len);
namespace[scope_len] = '\0';
- return cp_lookup_symbol_namespace (namespace, name, linkage_name,
+ return cp_lookup_symbol_namespace_incremental (namespace, name, linkage_name,
block, domain);
}
+/* Searches the for the given NAME in the given NAMESPACE, using import
+ statements implied by the given BLOCK, *and its' parents*. */
+struct symbol *
+cp_lookup_symbol_namespace_incremental (const char *namespace,
+ const char *name,
+ const char *linkage_name,
+ const struct block *block,
+ const domain_enum domain)
+{
+ struct symbol *sym;
+ const struct block *global_block = block_global_block (block);
+
+ /* Check if either no block is specified or it's a global block. */
+
+ if (global_block == NULL)
+ return NULL;
+
+ while (block != global_block)
+ {
+ sym = cp_lookup_symbol_namespace (namespace, name, linkage_name, block, domain);
+
+ if (sym != NULL)
+ return sym;
+
+ block = BLOCK_SUPERBLOCK (block);
+ }
+
+ /* We've reached the global block without finding a result. */
+
+ return NULL;
+}
+
+
/* Look up NAME in the C++ namespace NAMESPACE, applying the using
directives that are active in BLOCK. Other arguments are as in
cp_lookup_symbol_nonlocal. */
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -370,7 +380,7 @@ cp_lookup_symbol_namespace (const char *namespace,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
const domain_enum domain)
{
const struct using_direct *current;
- struct symbol *sym;
+ struct symbol *sym = NULL;
/* First, go through the using directives. If any of them add new
names to the namespace we're searching in, see if we can find a
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -380,15 +390,50 @@ cp_lookup_symbol_namespace (const char *namespace,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
current != NULL;
current = current->next)
{
- if (strcmp (namespace, current->outer) == 0)
+
+ int current_line = find_pc_line (get_frame_pc (get_current_frame ()), 0).line;
+
+ if (strcmp (namespace, current->outer) == 0 && current->line_number < current_line)
{
- sym = cp_lookup_symbol_namespace (current->inner,
- name,
- linkage_name,
- block,
- domain);
- if (sym != NULL)
+
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
+ /* If there is an import of a single declaration, compare the imported
+ declaration with the sought out name. If there is a match pass
+ current->inner as NAMESPACE to direct the search towards the
+ imported namespace. */
+ if (strcmp ("", current->declaration) != 0)
+ {
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ if(strcmp (name, current->declaration) == 0){
+ sym = cp_lookup_symbol_namespace (current->inner,
+ name,
+ linkage_name,
+ block,
+ domain);
+ }
+
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
+ }
+ else if(strcmp (name, current->alias) == 0)
+ /* If the import is creating an alias and the alias matches the
+ sought name. Pass current->inner as the NAME to direct the
+ search towards the aliased namespace */
+ {
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ sym = cp_lookup_symbol_namespace (namespace,
+ current->inner,
+ linkage_name,
+ block,
+ domain);
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
+ }else if(strcmp ("", current->alias) == 0){
+ /* If this import statement creates no alias, pass current->inner as
+ NAMESPACE to direct the search towards the imported namespace. */
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ sym = cp_lookup_symbol_namespace (current->inner,
+ name,
+ linkage_name,
+ block,
+ domain);
+ }
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
+
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ if (sym != NULL){
return sym;
+ }
}
}
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -398,8 +443,10 @@ cp_lookup_symbol_namespace (const char *namespace,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
if (namespace[0] == '\0')
{
- return lookup_symbol_file (name, linkage_name, block,
- domain, 0);
+ sym = lookup_symbol_file (name, linkage_name,
+ block, domain,
+ cp_is_anonymous (namespace));
+ return sym;
}
else
{
diff --git a/gdb/cp-support.c b/gdb/cp-support.c
index bf42636..9f04c86 100644
--- a/gdb/cp-support.c
+++ b/gdb/cp-support.c
@@ -175,7 +175,8 @@ mangled_name_to_comp (const char *mangled_name, int options,
return ret;
}
-/* Return the name of the class containing method PHYSNAME. */
+/* Return the name of the class or namespace containing
+ function, method, or variable PHYSNAME. */
char *
cp_class_name_from_physname (const char *physname)
diff --git a/gdb/cp-support.h b/gdb/cp-support.h
index 837ca6c..23f8d5b 100644
--- a/gdb/cp-support.h
+++ b/gdb/cp-support.h
@@ -38,14 +38,28 @@ struct demangle_component;
/* This struct is designed to store data from using directives. It
says that names from namespace INNER should be visible within
- namespace OUTER. OUTER should always be a strict initial substring
- of INNER. These form a linked list; NEXT is the next element of
- the list. */
+ namespace OUTER These form a linked list; NEXT is the next element of
+ the list. ALIAS is set to a non empty string if the imported namespace
+ has been aliased.Eg:
+ namespace C=A::B;
+ ALIAS = "C"
+ DECLARATION is the name of the imported declaration, if this import
+ statement represents one. Eg:
+ using A::x;
+ Where x is variable in namespace A. declaration is set to x.
+*/
struct using_direct
{
char *inner;
char *outer;
+
+ char *alias;
+
+ char *declaration;
+
+ int line_number;
+
struct using_direct *next;
};
@@ -54,6 +68,7 @@ struct using_direct
extern char *cp_canonicalize_string (const char *string);
+
extern char *cp_class_name_from_physname (const char *physname);
extern char *method_name_from_physname (const char *physname);
@@ -76,9 +91,18 @@ extern struct type *cp_lookup_rtti_type (const char *name,
extern int cp_is_anonymous (const char *namespace);
-extern void cp_add_using_directive (const char *name,
- unsigned int outer_length,
- unsigned int inner_length);
+extern void cp_add_using_directive (const char *outer,
+ const char *inner,
+ const char *alias,
+ const char *declaration,
+ const int line_number);
+
+extern struct using_direct *cp_add_using (const char *outer,
+ const char *inner,
+ const char *alias,
+ const char *declaration,
+ const int line_number,
+ struct using_direct *next);
extern void cp_initialize_namespace (void);
@@ -98,6 +122,19 @@ extern struct symbol *cp_lookup_symbol_nonlocal (const char *name,
const struct block *block,
const domain_enum domain);
+extern struct symbol *lookup_namespace_scope (const char *name,
+ const char *linkage_name,
+ const struct block *block,
+ const domain_enum domain,
+ const char *scope,
+ int scope_len);
+
+extern struct symbol *cp_lookup_symbol_namespace_incremental (const char *namespace,
+ const char *name,
+ const char *linkage_name,
+ const struct block *block,
+ const domain_enum domain);
+
extern struct symbol *cp_lookup_symbol_namespace (const char *namespace,
const char *name,
const char *linkage_name,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/cp-valprint.c b/gdb/cp-valprint.c
- Archer update to the snapshot: f6273d446ff87e50976600ba3f71b88d61043e20 - Archer backport: f6273d446ff87e50976600ba3f71b88d61043e20 - Use pretty-printers to print base classes inside a derived class.
2009-04-05 20:34:21 +00:00
index 8b7d868..4e33fa0 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/cp-valprint.c
+++ b/gdb/cp-valprint.c
- Archer update to the snapshot: f6273d446ff87e50976600ba3f71b88d61043e20 - Archer backport: f6273d446ff87e50976600ba3f71b88d61043e20 - Use pretty-printers to print base classes inside a derived class.
2009-04-05 20:34:21 +00:00
@@ -36,6 +36,7 @@
#include "valprint.h"
#include "cp-support.h"
#include "language.h"
+#include "python/python.h"
/* Controls printing of vtbl's */
static void
@@ -418,12 +419,27 @@ cp_print_value (struct type *type, struct type *real_type,
if (skip >= 1)
fprintf_filtered (stream, "<invalid address>");
else
- cp_print_value_fields (baseclass, thistype, base_valaddr,
- thisoffset + boffset, address + boffset,
- stream, recurse, options,
- ((struct type **)
- obstack_base (&dont_print_vb_obstack)),
- 0);
+ {
+ int result = 0;
+
+ /* Attempt to run the Python pretty-printers on the
+ baseclass if possible. */
+ if (!options->raw)
+ result = apply_val_pretty_printer (baseclass, base_valaddr,
+ thisoffset + boffset,
+ address + boffset,
+ stream, recurse,
+ options,
+ current_language);
+
+ if (!result)
+ cp_print_value_fields (baseclass, thistype, base_valaddr,
+ thisoffset + boffset, address + boffset,
+ stream, recurse, options,
+ ((struct type **)
+ obstack_base (&dont_print_vb_obstack)),
+ 0);
+ }
fputs_filtered (", ", stream);
flush_it:
@@ -461,6 +477,7 @@ cp_print_static_field (struct type *type,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
if (TYPE_CODE (type) == TYPE_CODE_STRUCT)
{
CORE_ADDR *first_dont_print;
+ CORE_ADDR addr;
int i;
first_dont_print
- Archer update to the snapshot: f6273d446ff87e50976600ba3f71b88d61043e20 - Archer backport: f6273d446ff87e50976600ba3f71b88d61043e20 - Use pretty-printers to print base classes inside a derived class.
2009-04-05 20:34:21 +00:00
@@ -470,7 +487,7 @@ cp_print_static_field (struct type *type,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
while (--i >= 0)
{
- if (VALUE_ADDRESS (val) == first_dont_print[i])
+ if (value_address (val) == first_dont_print[i])
{
fputs_filtered ("<same as static member of an already"
" seen type>",
- Archer update to the snapshot: f6273d446ff87e50976600ba3f71b88d61043e20 - Archer backport: f6273d446ff87e50976600ba3f71b88d61043e20 - Use pretty-printers to print base classes inside a derived class.
2009-04-05 20:34:21 +00:00
@@ -479,12 +496,13 @@ cp_print_static_field (struct type *type,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
}
- obstack_grow (&dont_print_statmem_obstack, (char *) &VALUE_ADDRESS (val),
+ addr = value_address (val);
+ obstack_grow (&dont_print_statmem_obstack, (char *) &addr,
sizeof (CORE_ADDR));
CHECK_TYPEDEF (type);
cp_print_value_fields (type, type, value_contents_all (val),
- value_embedded_offset (val), VALUE_ADDRESS (val),
+ value_embedded_offset (val), value_address (val),
stream, recurse, options, NULL, 1);
return;
}
- Archer update to the snapshot: f6273d446ff87e50976600ba3f71b88d61043e20 - Archer backport: f6273d446ff87e50976600ba3f71b88d61043e20 - Use pretty-printers to print base classes inside a derived class.
2009-04-05 20:34:21 +00:00
@@ -492,7 +510,7 @@ cp_print_static_field (struct type *type,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
opts = *options;
opts.deref_ref = 0;
val_print (type, value_contents_all (val),
- value_embedded_offset (val), VALUE_ADDRESS (val),
+ value_embedded_offset (val), value_address (val),
stream, recurse, &opts, current_language);
}
diff --git a/gdb/dbxread.c b/gdb/dbxread.c
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
index 115bdef..23ea50c 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/dbxread.c
+++ b/gdb/dbxread.c
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -1,6 +1,6 @@
/* Read dbx symbol tables and convert to internal format, for GDB.
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995,
- 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2008.
+ 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2008, 2009.
Free Software Foundation, Inc.
This file is part of GDB.
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -1198,6 +1198,8 @@ read_dbx_symtab (struct objfile *objfile)
bfd *abfd;
int textlow_not_set;
int data_sect_index;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ char *sym_name;
+ int sym_len;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
/* Current partial symtab */
struct partial_symtab *pst;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
@@ -1681,6 +1683,28 @@ pos %d"),
if (!p)
continue; /* Not a debugging symbol. */
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ sym_len = 0;
+ if (psymtab_language == language_cplus)
+ {
+ char *new_name, *name = alloca (p - namestring + 1);
+ memcpy (name, namestring, p - namestring);
+ name[p - namestring] = '\0';
+ new_name = cp_canonicalize_string (name);
+ if (new_name != NULL)
+ {
+ sym_len = strlen (new_name);
+ sym_name = obsavestring (new_name, sym_len,
+ &objfile->objfile_obstack);
+ xfree (new_name);
+ }
+ }
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ if (sym_len == 0)
+ {
+ sym_name = namestring;
+ sym_len = p - namestring;
+ }
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
/* Main processing section for debugging symbols which
the initial read through the symbol tables needs to worry
about. If we reach this point, the symbol which we are
@@ -1698,7 +1722,7 @@ pos %d"),
namestring = gdbarch_static_transform_name (gdbarch,
namestring);
- add_psymbol_to_list (namestring, p - namestring,
+ add_psymbol_to_list (sym_name, sym_len,
VAR_DOMAIN, LOC_STATIC,
&objfile->static_psymbols,
0, nlist.n_value,
@@ -1710,7 +1734,7 @@ pos %d"),
data_sect_index);
/* The addresses in these entries are reported to be
wrong. See the code that reads 'G's for symtabs. */
- add_psymbol_to_list (namestring, p - namestring,
+ add_psymbol_to_list (sym_name, sym_len,
VAR_DOMAIN, LOC_STATIC,
&objfile->global_psymbols,
0, nlist.n_value,
@@ -1728,7 +1752,7 @@ pos %d"),
|| (p == namestring + 1
&& namestring[0] != ' '))
{
- add_psymbol_to_list (namestring, p - namestring,
+ add_psymbol_to_list (sym_name, sym_len,
STRUCT_DOMAIN, LOC_TYPEDEF,
&objfile->static_psymbols,
nlist.n_value, 0,
@@ -1736,7 +1760,7 @@ pos %d"),
if (p[2] == 't')
{
/* Also a typedef with the same name. */
- add_psymbol_to_list (namestring, p - namestring,
+ add_psymbol_to_list (sym_name, sym_len,
VAR_DOMAIN, LOC_TYPEDEF,
&objfile->static_psymbols,
nlist.n_value, 0,
@@ -1749,7 +1773,7 @@ pos %d"),
case 't':
if (p != namestring) /* a name is there, not just :T... */
{
- add_psymbol_to_list (namestring, p - namestring,
+ add_psymbol_to_list (sym_name, sym_len,
VAR_DOMAIN, LOC_TYPEDEF,
&objfile->static_psymbols,
nlist.n_value, 0,
@@ -1829,7 +1853,7 @@ pos %d"),
case 'c':
/* Constant, e.g. from "const" in Pascal. */
- add_psymbol_to_list (namestring, p - namestring,
+ add_psymbol_to_list (sym_name, sym_len,
VAR_DOMAIN, LOC_CONST,
&objfile->static_psymbols, nlist.n_value,
0, psymtab_language, objfile);
@@ -1893,7 +1917,7 @@ pos %d"),
pst->textlow = nlist.n_value;
textlow_not_set = 0;
}
- add_psymbol_to_list (namestring, p - namestring,
+ add_psymbol_to_list (sym_name, sym_len,
VAR_DOMAIN, LOC_BLOCK,
&objfile->static_psymbols,
0, nlist.n_value,
@@ -1961,7 +1985,7 @@ pos %d"),
pst->textlow = nlist.n_value;
textlow_not_set = 0;
}
- add_psymbol_to_list (namestring, p - namestring,
+ add_psymbol_to_list (sym_name, sym_len,
VAR_DOMAIN, LOC_BLOCK,
&objfile->global_psymbols,
0, nlist.n_value,
@@ -3547,6 +3571,7 @@ static struct sym_fns aout_sym_fns =
dbx_new_init, /* sym_new_init: init anything gbl to entire symtab */
dbx_symfile_init, /* sym_init: read initial info, setup for sym_read() */
dbx_symfile_read, /* sym_read: read a symbol file into symtab */
+ NULL, /* sym_read_psymbols */
dbx_symfile_finish, /* sym_finish: finished with file, cleanup */
default_symfile_offsets, /* sym_offsets: parse user's offsets to
internal form */
diff --git a/gdb/defs.h b/gdb/defs.h
index 845b320..ad6e7d7 100644
--- a/gdb/defs.h
+++ b/gdb/defs.h
@@ -151,6 +151,9 @@ extern int dbx_commands;
/* System root path, used to find libraries etc. */
extern char *gdb_sysroot;
+/* GDB datadir, used to store data files. */
+extern char *gdb_datadir;
+
/* Search path for separate debug files. */
extern char *debug_file_directory;
@@ -366,6 +369,9 @@ extern struct cleanup *make_cleanup_fclose (FILE *file);
extern struct cleanup *make_cleanup_bfd_close (bfd *abfd);
+struct obstack;
+extern struct cleanup *make_cleanup_obstack_free (struct obstack *obstack);
+
extern struct cleanup *make_cleanup_restore_integer (int *variable);
extern struct cleanup *make_final_cleanup (make_cleanup_ftype *, void *);
diff --git a/gdb/doc/gdb.texinfo b/gdb/doc/gdb.texinfo
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
index 10e7388..c4ab391 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/doc/gdb.texinfo
+++ b/gdb/doc/gdb.texinfo
@@ -955,8 +955,10 @@ Connect to process ID @var{number}, as with the @code{attach} command.
@itemx -x @var{file}
@cindex @code{--command}
@cindex @code{-x}
-Execute @value{GDBN} commands from file @var{file}. @xref{Command
-Files,, Command files}.
+Execute commands from file @var{file}. If @var{file} ends in
+@samp{.py}, then the file is evaluated as Python code. If Python
+support is not enabled in this @value{GDBN}, then an error occurs.
+@xref{Command Files,, Command files}.
@item -eval-command @var{command}
@itemx -ex @var{command}
@@ -1148,6 +1150,16 @@ for remote debugging.
Run using @var{device} for your program's standard input and output.
@c FIXME: kingdon thinks there is more to -tty. Investigate.
+@item -P
+@cindex @code{-P}
+@itemx --python
+@cindex @code{--python}
+Change interpretation of command line so that the argument immediately
+following this switch is taken to be the name of a Python script file.
+This option stops option processing; subsequent options are passed to
+Python as @code{sys.argv}. This option is only available if Python
+scripting support was enabled when @value{GDBN} was configured.
+
@c resolve the situation of these eventually
@item -tui
@cindex @code{--tui}
@@ -3636,6 +3648,98 @@ A failed Ada assertion.
A call to @code{exec}. This is currently only available for HP-UX
and @sc{gnu}/Linux.
+@item syscall
+@itemx syscall @r{[}@var{name} @r{|} @var{number}@r{]} @r{...}
+@cindex break on a system call.
+A call to or return from a @code{syscall}. If no argument is specified,
+then it catches a call to or return from any system call.
+
+@var{name} can be any valid system call name in the system. You can
+use the @value{GDBN} command-line completion facilities to list the
+available choices. @xref{Completion,, Command Completion}, for
+details on how to do this.
+
+You may also specify the system call numerically. This may be useful
+if @value{GDBN} does not fully support your system's list of system
+calls.
+
+The example below illustrates how this command works if you don't provide
+arguments to it:
+
+@smallexample
+(@value{GDBP}) catch syscall
+Catchpoint 1 (syscall)
+(@value{GDBP}) r
+Starting program: /tmp/catch-syscall
+
+Catchpoint 1 (call to syscall 'close'), 0xffffe424 in __kernel_vsyscall ()
+(@value{GDBP}) c
+Continuing.
+
+Catchpoint 1 (returned from syscall 'close'), 0xffffe424 in __kernel_vsyscall ()
+(@value{GDBP})
+@end smallexample
+
+Here is an example of catching a system call by name:
+
+@smallexample
+(@value{GDBP}) catch syscall chroot
+Catchpoint 1 (syscall(s) 'chroot')
+(@value{GDBP}) r
+Starting program: /tmp/catch-syscall
+
+Catchpoint 1 (call to syscall 'chroot'), 0xffffe424 in __kernel_vsyscall ()
+(@value{GDBP}) c
+Continuing.
+
+Catchpoint 1 (returned from syscall 'chroot'), 0xffffe424 in __kernel_vsyscall ()
+(@value{GDBP})
+@end smallexample
+
+And last but not least, an example of specifying a system call
+numerically:
+
+@smallexample
+(@value{GDBP}) catch syscall 252
+Catchpoint 1 (syscall(s) 'exit_group')
+(@value{GDBP}) r
+Starting program: /tmp/catch-syscall
+
+Catchpoint 1 (call to syscall 'exit_group'), 0xffffe424 in __kernel_vsyscall ()
+(@value{GDBP}) c
+Continuing.
+
+Program exited normally.
+(@value{GDBP})
+@end smallexample
+
+If you configure @value{GDBN} using the @samp{--without-expat} option,
+it will not be able to display syscall names. Also, if your
+architecture does not have an XML file describing its system calls,
+you will not be able to see the syscall names. In either case, you
+will see a warning like this:
+
+@smallexample
+(@value{GDBP}) catch syscall
+warning: Could not open "syscalls/i386-linux.xml"
+warning: Could not load the syscall XML file 'syscalls/i386-linux.xml'.
+GDB will not be able to display syscall names.
+Catchpoint 1 (syscall)
+(@value{GDBP})
+@end smallexample
+
+Of course, the file name will change depending on your architecture and system.
+
+Still using the example above, you can also try to catch a syscall by its
+number. In this case, you would see something like:
+
+@smallexample
+(@value{GDBP}) catch syscall 252
+Catchpoint 1 (syscall(s) 252)
+@end smallexample
+
+Again, in this case @value{GDBN} would not be able to display syscall's names.
+
@item fork
A call to @code{fork}. This is currently only available for HP-UX
and @sc{gnu}/Linux.
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
@@ -4711,6 +4815,24 @@ the program to report that some thread has stopped before prompting for
another command. In background execution, @value{GDBN} immediately gives
a command prompt so that you can issue other commands while your program runs.
+You need to explicitly enable asynchronous mode before you can use
+background execution commands. You can use these commands to
+manipulate the asynchronous mode setting:
+
+@table @code
+@kindex set target-async
+@item set target-async on
+Enable asynchronous mode.
+@item set target-async off
+Disable asynchronous mode.
+@kindex show target-async
+@item show target-async
+Show the current target-async setting.
+@end table
+
+If the target doesn't support async mode, @value{GDBN} issues an error
+message if you attempt to use the background execution commands.
+
To specify background execution, add a @code{&} to the command. For example,
the background form of the @code{continue} command is @code{continue&}, or
just @code{c&}. The execution commands that accept background execution
@@ -4776,11 +4898,6 @@ only the current thread. To stop the whole program in non-stop mode,
use @code{interrupt -a}.
@end table
-You may need to explicitly enable async mode before you can use background
-execution commands, with the @code{set target-async 1} command. If the
-target doesn't support async mode, @value{GDBN} issues an error message
-if you attempt to use the background execution commands.
-
@node Thread-Specific Breakpoints
@subsection Thread-Specific Breakpoints
@@ -6536,6 +6653,12 @@ Without this format, @value{GDBN} displays pointers to and arrays of
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
@code{char}, @w{@code{unsigned char}}, and @w{@code{signed char}} as
strings. Single-byte members of a vector are displayed as an integer
array.
+
+@item r
+@cindex raw printing
+Print using the @samp{raw} formatting. By default, @value{GDBN} will
+use a type-specific pretty-printer. The @samp{r} format bypasses any
+pretty-printer which might exist for the value's type.
@end table
For example, to print the program counter in hex (@pxref{Registers}), type
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
@@ -7408,6 +7531,20 @@ On HP-UX systems, if you refer to a function or variable name that
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
begins with a dollar sign, @value{GDBN} searches for a user or system
name first, before it searches for a convenience variable.
+@cindex convenience functions
+@value{GDBN} also supplies some @dfn{convenience functions}. These
+have a syntax similar to convenience variables. A convenience
+function can be used in an expression just like an ordinary function;
+however, a convenience function is implemented internally to
+@value{GDBN}.
+
+@table @code
+@item help function
+@kindex help function
+@cindex show all convenience functions
+Print a list of all convenience functions.
+@end table
+
@node Registers
@section Registers
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
@@ -7931,13 +8068,17 @@ support:
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
@table @code
@item set target-charset @var{charset}
@kindex set target-charset
-Set the current target character set to @var{charset}. We list the
-character set names @value{GDBN} recognizes below, but if you type
-@code{set target-charset} followed by @key{TAB}@key{TAB}, @value{GDBN} will
-list the target character sets it supports.
-@end table
+Set the current target character set to @var{charset}. If you type
+@code{set target-charset} followed by @key{TAB}@key{TAB}, @value{GDBN}
+will list the target character sets it supports.
+
+@item set target-wide-charset @var{charset}
+@kindex set target-wide-charset
+Set the current target wide character set to @var{charset}. The
+target wide character set is the character set used by @code{wchar_t}.
+If you type @code{set target-charset} followed by @key{TAB}@key{TAB},
+@value{GDBN} will list the target character sets it supports.
-@table @code
@item set host-charset @var{charset}
@kindex set host-charset
Set the current host character set to @var{charset}.
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
@@ -7947,10 +8088,9 @@ system it is running on; you can override that default using the
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
@code{set host-charset} command.
@value{GDBN} can only use certain character sets as its host character
-set. We list the character set names @value{GDBN} recognizes below, and
-indicate which can be host character sets, but if you type
-@code{set target-charset} followed by @key{TAB}@key{TAB}, @value{GDBN} will
-list the host character sets it supports.
+set. If you type @code{set target-charset} followed by
+@key{TAB}@key{TAB}, @value{GDBN} will list the host character sets it
+supports.
@item set charset @var{charset}
@kindex set charset
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
@@ -7974,37 +8114,6 @@ Show the name of the current target charset.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
@end table
-@value{GDBN} currently includes support for the following character
-sets:
-
-@table @code
-
-@item ASCII
-@cindex ASCII character set
-Seven-bit U.S. @sc{ascii}. @value{GDBN} can use this as its host
-character set.
-
-@item ISO-8859-1
-@cindex ISO 8859-1 character set
-@cindex ISO Latin 1 character set
-The ISO Latin 1 character set. This extends @sc{ascii} with accented
-characters needed for French, German, and Spanish. @value{GDBN} can use
-this as its host character set.
-
-@item EBCDIC-US
-@itemx IBM1047
-@cindex EBCDIC character set
-@cindex IBM1047 character set
-Variants of the @sc{ebcdic} character set, used on some of IBM's
-mainframe operating systems. (@sc{gnu}/Linux on the S/390 uses U.S. @sc{ascii}.)
-@value{GDBN} cannot use these as its host character set.
-
-@end table
-
-Note that these are all single-byte character sets. More work inside
-@value{GDBN} is needed to support multi-byte or variable-width character
-encodings, like the UTF-8 and UCS-2 encodings of Unicode.
-
Here is an example of @value{GDBN}'s character set support in action.
Assume that the following source code has been placed in the file
@file{charset-test.c}:
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -12481,6 +12590,53 @@ returned. In contrast, the @code{finish} command (@pxref{Continuing
and Stepping, ,Continuing and Stepping}) resumes execution until the
selected stack frame returns naturally.
+@value{GDBN} needs to know how the @var{expression} argument should be set for
+the inferior. The concrete registers assignment depends on the OS ABI and the
+type being returned by the selected stack frame. For example it is common for
+OS ABI to return floating point values in FPU registers while integer values in
+CPU registers. Still some ABIs return even floating point values in CPU
+registers. Larger integer widths (such as @code{long long int}) also have
+specific placement rules. @value{GDBN} already knows the OS ABI from its
+current target so it needs to find out also the type being returned to make the
+assignment into the right register(s).
+
+Normally, the selected stack frame has debug info. @value{GDBN} will always
+use the debug info instead of the implicit type of @var{expression} when the
+debug info is available. For example, if you type @kbd{return -1}, and the
+function in the current stack frame is declared to return a @code{long long
+int}, @value{GDBN} transparently converts the implicit @code{int} value of -1
+into a @code{long long int}:
+
+@smallexample
+Breakpoint 1, func () at gdb.base/return-nodebug.c:29
+29 return 31;
+(@value{GDBP}) return -1
+Make func return now? (y or n) y
+#0 0x004004f6 in main () at gdb.base/return-nodebug.c:43
+43 printf ("result=%lld\n", func ());
+(@value{GDBP})
+@end smallexample
+
+However, if the selected stack frame does not have a debug info, e.g., if the
+function was compiled without debug info, @value{GDBN} has to find out the type
+to return from user. Specifying a different type by mistake may set the value
+in different inferior registers than the caller code expects. For example,
+typing @kbd{return -1} with its implicit type @code{int} would set only a part
+of a @code{long long int} result for a debug info less function (on 32-bit
+architectures). Therefore the user is required to specify the return type by
+an appropriate cast explicitly:
+
+@smallexample
+Breakpoint 2, 0x0040050b in func ()
+(@value{GDBP}) return -1
+Return value type not available for selected stack frame.
+Please use an explicit cast of the value to return.
+(@value{GDBP}) return (long long int) -1
+Make selected stack frame return now? (y or n) y
+#0 0x00400526 in main ()
+(@value{GDBP})
+@end smallexample
+
@node Calling
@section Calling Program Functions
@@ -12510,6 +12666,12 @@ It is possible for the function you call via the @code{print} or
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
the function, or if you passed it incorrect arguments). What happens
in that case is controlled by the @code{set unwindonsignal} command.
+Similarly, with a C++ program it is possible for the function you
+call via the @code{print} or @code{call} command to generate an
+exception that is not handled due to the constraints of the dummy
+frame. What happens in that case is controlled by the
+@code{set unwind-on-terminating-exception} command.
+
@table @code
@item set unwindonsignal
@kindex set unwindonsignal
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -12526,6 +12688,23 @@ received.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
@kindex show unwindonsignal
Show the current setting of stack unwinding in the functions called by
@value{GDBN}.
+
+@item set unwind-on-terminating-exception
+@kindex set unwind-on-terminating-exception
+@cindex unwind stack in called functions
+@cindex call dummy stack unwinding on unhandled exception.
+Set unwinding of the stack if a C++ exception is raised but unhandled
+while in a function that @value{GDBN} called in the program being
+debugged. If set to on (the default), @value{GDBN} unwinds the stack
+it created for the call and restores the context to what it was before
+the call. If set to off, @value{GDBN} the exception is delivered to
+the default C++ exception handler.
+
+@item show unwind-on-terminating-exception
+@kindex show unwind-on-terminating-exception
+Show the current setting of stack unwinding in the functions called by
+@value{GDBN}.
+
@end table
@cindex weak alias functions
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -17815,7 +17994,7 @@ command:
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
@table @code
@kindex source
@cindex execute commands from a file
-@item source [@code{-v}] @var{filename}
+@item source [@code{-v}] [@code{-p}] @var{filename}
Execute the command file @var{filename}.
@end table
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -17832,6 +18011,11 @@ If @code{-v}, for verbose mode, is given then @value{GDBN} displays
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
each command as it is executed. The option must be given before
@var{filename}, and is interpreted as part of the filename anywhere else.
+If @var{filename} ends in @samp{.py}, or if @code{-p}, for Python, is
+given then @value{GDBN} evaluates the contents of the file as Python
+code. If Python support is not compiled in to @value{GDBN}, then an
+error occurs.
+
Commands that would ask for confirmation if used interactively proceed
without asking when used in a command file. Many @value{GDBN} commands that
normally print messages to say what they are doing omit the messages
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -18093,8 +18277,6 @@ containing @code{end}. For example:
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
@smallexample
(@value{GDBP}) python
-Type python script
-End with a line saying just "end".
>print 23
>end
23
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -18107,6 +18289,14 @@ in a Python script. This can be controlled using @code{maint set
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
python print-stack}: if @code{on}, the default, then Python stack
printing is enabled; if @code{off}, then Python stack printing is
disabled.
+
+@kindex maint set python auto-load
+@item maint set python auto-load
+By default, @value{GDBN} will attempt to automatically load Python
+code when an object file is opened. This can be controlled using
+@code{maint set python auto-load}: if @code{on}, the default, then
+Python auto-loading is enabled; if @code{off}, then Python
+auto-loading is disabled.
@end table
@node Python API
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -18114,6 +18304,14 @@ disabled.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
@cindex python api
@cindex programming in python
+You can get quick online help for @value{GDBN}'s Python API by issuing
+the command @w{@kbd{python help (gdb)}}.
+
+Functions and methods which have two or more optional arguments allow
+them to be specified using keyword syntax. This allows passing some
+optional arguments while skipping others. Example:
+@w{@code{gdb.some_function ('foo', bar = 1, baz = 2)}}.
+
@cindex python stdout
@cindex python pagination
At startup, @value{GDBN} overrides Python's @code{sys.stdout} and
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -18125,8 +18323,17 @@ situation, a Python @code{KeyboardInterrupt} exception is thrown.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
@menu
* Basic Python:: Basic Python Functions.
* Exception Handling::
-* Values From Inferior::
+* Auto-loading:: Automatically loading Python code.
+* Values From Inferior:: Python representation of values.
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+* Types In Python:: Python representation of types.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+* Pretty Printing:: Pretty-printing values.
+* Threads In Python:: Accessing inferior threads from Python.
* Commands In Python:: Implementing new commands in Python.
+* Parameters In Python:: Adding new @value{GDBN} parameters.
+* Functions In Python:: Writing new convenience functions.
+* Objfiles In Python:: Object files.
+* Breakpoints In Python:: Manipulating breakpoints using Python.
+* Frames In Python:: Acessing inferior stack frames from Python.
@end menu
@node Basic Python
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -18152,10 +18359,30 @@ command as having originated from the user invoking it interactively.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
It must be a boolean value. If omitted, it defaults to @code{False}.
@end defun
-@findex gdb.get_parameter
-@defun get_parameter parameter
-Return the value of a @value{GDBN} parameter. @var{parameter} is a
-string naming the parameter to look up; @var{parameter} may contain
+@findex gdb.current_objfile
+@defun current_objfile
+When auto-loading a Python script (@pxref{Auto-loading}), @value{GDBN}
+sets the ``current objfile'' to the corresponding objfile. This
+function returns the current objfile. If there is no current objfile,
+this function returns @code{None}.
+@end defun
+
+@findex gdb.breakpoints
+@defun breakpoints
+Return a sequence holding all of @value{GDBN}'s breakpoints.
+@xref{Breakpoints In Python}, for more information.
+@end defun
+
+@findex gdb.objfiles
+@defun objfiles
+Return a sequence of all the objfiles current known to @value{GDBN}.
+@xref{Objfiles In Python}.
+@end defun
+
+@findex gdb.parameter
+@defun parameter name
+Return the value of the named @value{GDBN} parameter. @var{name} is a
+string naming the parameter to look up; @var{name} may contain
spaces if the parameter has a multi-part name. For example,
@samp{print object} is a valid parameter name.
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -18179,6 +18406,28 @@ If no exception is raised, the return value is always an instance of
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
@code{gdb.Value} (@pxref{Values From Inferior}).
@end defun
+@findex gdb.parse_and_eval
+@defun parse_and_eval expression
+Parse @var{expression} as an expression in the current language,
+evaluate it, and return the result as a @code{gdb.Value}.
+@var{expression} must be a string.
+@end defun
+
+@findex gdb.post_event
+@defun post_event event
+Put @var{event}, a callable object taking no arguments, into
+@value{GDBN}'s internal event queue. This callable will be invoked at
+some later point, during @value{GDBN}'s event processing. Events
+posted using @code{post_event} will be run in the order in which they
+were posted; however, there is no way to know when they will be
+processed relative to other events inside @value{GDBN}.
+
+@value{GDBN} is not thread-safe. If your Python program uses multiple
+threads, you must be careful to only call @value{GDBN}-specific
+functions in the main @value{GDBN} thread. @code{post_event} ensures
+this.
+@end defun
+
@findex gdb.write
@defun write string
Print a string to @value{GDBN}'s paginated standard output stream.
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -18193,6 +18442,66 @@ Flush @value{GDBN}'s paginated standard output stream. Flushing
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
function.
@end defun
+@findex gdb.frames
+@defun frames
+Return a tuple of all frame objects.
+@end defun
+
+@findex gdb.newest_frame
+@defun newest_frame
+Return the newest frame object.
+@end defun
+
+@findex gdb.selected_frame
+@defun selected_frame
+Return the selected frame object.
+@end defun
+
+@findex gdb.frame_stop_reason_string
+@defun frame_stop_reason_string @var{reason}
+Return a string explaining the reason why @value{GDBN} stopped unwinding
+frames, as expressed by the given @var{reason} code (an integer, see the
+@code{unwind_stop_reason} method in
+@xref{Frames In Python,,Accessing inferior stack frames from Python}.)
+@end defun
+
+@findex gdb.read_memory
+@defun read_memory @var{address} @var{length}
+Read @var{length} bytes of memory from the inferior, starting at @var{address}.
+Returns a buffer object, which behaves much like an array or a string. It
+can be modified and given to the @code{gdb.write_memory} function.
+@end defun
+
+@findex gdb.write_memory
+@defun write_memory @var{address} @var{buffer} @r{[}@var{length}@r{]}
+Write the contents of @var{buffer} (a Python object which supports the buffer
+protocol, i.e., a string, an array or the object returned from
+@code{gdb.read_memory}) to the inferior, starting at @var{address}. If given,
+@var{length} determines the number of bytes from @var{buffer} to be written.
+@end defun
+
+@findex gdb.search_memory
+@defun search_memory @var{address} @var{length} @var{pattern} @r{[}@var{size}@r{]} @r{[}@var{max_count}@r{]}
+Search a region of the inferior memory starting at @var{address} with the given
+@var{length}. @var{pattern} can be a string, a byte array, a buffer object,
+a number, a @code{gdb.Value} object (@pxref{Values From Inferior}) or a list
+or tuple with elements in any combination of those types. If @var{size} is
+given and is non-zero, it specifies the size in bytes of a Python scalar or
+@code{gdb.Value} in the search pattern. If @var{size} is zero or not specified,
+ it is taken from the value's type in the current language.
+This is useful when one wants to specify the search
+pattern as a mixture of types.
+Note that this means, for example, that in the case of C-like languages
+a search for an untyped 0x42 will search for @samp{(int) 0x42}
+which is typically four bytes. @var{max_count} is the highest number of matches
+to search for.
+@end defun
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+
+@findex gdb.solib_address
+@defun solib_address @var{address}
+Return the name of the shared library holding the given address, or None.
+@end defun
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
@node Exception Handling
@subsubsection Exception Handling
@cindex python exceptions
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -18224,6 +18533,44 @@ message as its value, and the Python call stack backtrace at the
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
Python statement closest to where the @value{GDBN} error occured as the
traceback.
+@node Auto-loading
+@subsubsection Auto-loading
+
+When a new object file (@pxref{Objfiles In Python}) is read (for
+example, due to the @code{file} command, or because the inferior has
+loaded a shared library), @value{GDBN} will look for a file named by
+adding @samp{-gdb.py} to the object file's real name (the name formed
+after following all symlinks and resolving @code{.} and @code{..}
+components). If this file exists and is readable, @value{GDBN} will
+evaluate it as a Python script.
+
+If this file does not exist, and if the parameter
+@code{debug-file-directory} is set, then @value{GDBN} will append the
+object file's real name to the value of this parameter, and try again.
+
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+Finally, if this file does not exist, then @value{GDBN} will look in
+subdirectory of @code{gdb_datadir} (whose value is available from
+@code{maint show gdb_datadir}). Specifically, @value{GDBN} will take
+the value of @code{gdb_datadir}, append @samp{python/auto-load}, and
+then append the object file's real name.
+
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+Also, if a separate debug file is used, @value{GDBN} will look for the
+@samp{-gdb.py} file both in the directory associated with the
+application and the directory associated with the separate debug file.
+
+When reading a @samp{-gdb.py} file, @value{GDBN} sets the ``current
+objfile''. This is available via the @code{gdb.current_objfile}
+function. This can be useful for registering objfile-specific
+pretty-printers.
+
+This feature is useful for supplying application-specific debugging
+commands and scripts. It can be disabled using @code{maint set python
+auto-load}.
+
+@value{GDBN} does not track which files it has already auto-loaded.
+So, your @samp{-gdb.py} file should take care to ensure that it may be
+evaluated multiple times without error.
+
@node Values From Inferior
@subsubsection Values From Inferior
@cindex values from inferior, with Python
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -18258,8 +18605,36 @@ bar = some_val['foo']
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
Again, @code{bar} will also be a @code{gdb.Value} object.
-For pointer data types, @code{gdb.Value} provides a method for
-dereferencing the pointer to obtain the object it points to.
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+The following attributes are provided:
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+@table @code
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+@defivar Value address
+If this object is addressable, this read-only attribute holds a
+@code{gdb.Value} object representing the address. Otherwise,
+this attribute holds @code{None}.
+@end defivar
+
+@cindex optimized out value in Python
+@defivar Value is_optimized_out
+This read-only boolean attribute is true if the compiler optimized out
+this value, thus it is not available for fetching from the inferior.
+@end defivar
+
+@defivar Value type
+The type of this @code{gdb.Value}. The result is a @code{gdb.Type}
+object.
+@end defivar
+@end table
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+The following methods are provided:
+
+@table @code
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+@defmethod Value cast type
+Cast the @code{gdb.Value} to the type represented by @var{type}, and
+return a new @code{gdb.Value}. @var{type} must be a @code{gdb.Type}
+object. If the cast cannot be performed for some reason, an exception
+is thrown.
+@end defmethod
@defmethod Value dereference
This method returns a new @code{gdb.Value} object whose contents is
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -18282,7 +18657,7 @@ The result @code{bar} will be a @code{gdb.Value} object holding the
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
value pointed to by @code{foo}.
@end defmethod
-@defmethod Value string @r{[}encoding @r{[}errors@r{]}@r{]}
+@defmethod Value string @r{[}encoding@r{]} @r{[}errors@r{]}
If this @code{gdb.Value} represents a string, then this method
converts the contents to a Python string. Otherwise, this method will
throw an exception.
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -18308,6 +18683,465 @@ will be used, if the current language is able to supply one.
The optional @var{errors} argument is the same as the corresponding
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
argument to Python's @code{string.decode} method.
@end defmethod
+@end table
+
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+@node Types In Python
+@subsubsection Types In Python
+@cindex types in Python
+@cindex Python, working with types
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+@tindex gdb.Type
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+@value{GDBN} represents types from the inferior using the class
+@code{gdb.Type}.
+
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+The following type-related functions are available in the @code{gdb}
+module:
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+@findex gdb.lookup_type
+@defun lookup_type name [block]
+This function looks up a type by name. @var{name} is the name of the
+type to look up. It must be a string.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+If @var{block} is given, then @var{name} is looked up in that scope.
+Otherwise, it is searched for globally.
+
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+Ordinarily, this function will return an instance of @code{gdb.Type}.
+If the named type cannot be found, it will throw an exception.
+@end defun
+
+An instance of @code{Type} has the following attributes:
+
+@table @code
+@defivar Type code
+The type code for this type. The type code will be one of the
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+@code{TYPE_CODE_} constants defined below.
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+@end defivar
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+@defivar Type sizeof
+The size of this type, in target @code{char} units. Usually, a
+target's @code{char} type will be an 8-bit byte. However, on some
+unusual platforms, this type may have a different size.
+@end defivar
+
+@defivar Type tag
+The tag name for this type. The tag name is the name after
+@code{struct}, @code{union}, or @code{enum} in C and C@t{++}; not all
+languages have this concept. If this type has no tag name, then
+@code{None} is returned.
+@end defivar
+@end table
+
+The following methods are provided:
+
+@table @code
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+@defmethod Type fields
+For structure and union types, this method returns the fields. Range
+types have two fields, the minimum and maximum values. Enum types
+have one field per enum constant. Function and method types have one
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+field per parameter. The base types of C@t{++} classes are also
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+represented as fields. If the type has no fields, or does not fit
+into one of these categories, an empty sequence will be returned.
+
+Each field is an object, with some pre-defined attributes:
+@table @code
+@item bitpos
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+This attribute is not available for @code{static} fields (as in
+C@t{++} or Java). For non-@code{static} fields, the value is the bit
+position of the field.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+@item name
+The name of the field, or @code{None} for anonymous fields.
+
+@item artificial
+This is @code{True} if the field is artificial, usually meaning that
+it was provided by the compiler and not the user. This attribute is
+always provided, and is @code{False} if the field is not artificial.
+
+@item bitsize
+If the field is packed, or is a bitfield, then this will have a
+non-zero value, which is the size of the field in bits. Otherwise,
+this will be zero; in this case the field's size is given by its type.
+
+@item type
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
+The type of the field. This is usually an instance of @code{Type},
+but it can be @code{None} in some situations.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+@end table
+@end defmethod
+
+@defmethod Type const
+Return a new @code{gdb.Type} object which represents a
+@code{const}-qualified variant of this type.
+@end defmethod
+
+@defmethod Type volatile
+Return a new @code{gdb.Type} object which represents a
+@code{volatile}-qualified variant of this type.
+@end defmethod
+
+@defmethod Type unqualified
+Return a new @code{gdb.Type} object which represents an unqualified
+variant of this type. That is, the result is neither @code{const} nor
+@code{volatile}.
+@end defmethod
+
+@defmethod Type reference
+Return a new @code{gdb.Type} object which represents a reference to this
+type.
+@end defmethod
+
+@defmethod Type strip_typedefs
+Return a new @code{gdb.Type} that represents the real type,
+after removing all layers of typedefs.
+@end defmethod
+
+@defmethod Type target
+Return a new @code{gdb.Type} object which represents the target type
+of this type.
+
+For a pointer type, the target type is the type of the pointed-to
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+object. For an array type (meaning C-like arrays), the target type is
+the type of the elements of the array. For a function or method type,
+the target type is the type of the return value. For a complex type,
+the target type is the type of the elements. For a typedef, the
+target type is the aliased type.
+
+If the type does not have a target, this method will throw an
+exception.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+@end defmethod
+
+@defmethod Type template_argument n [block]
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+If this @code{gdb.Type} is an instantiation of a template, this will
+return a new @code{gdb.Type} which represents the type of the
+@var{n}th template argument.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+If this @code{gdb.Type} is not a template type, this will throw an
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+exception. Ordinarily, only C@t{++} code will have template types.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+If @var{block} is given, then @var{name} is looked up in that scope.
+Otherwise, it is searched for globally.
+@end defmethod
+@end table
+
+
+Each type has a code, which indicates what category this type falls
+into. The available type categories are represented by constants
+defined in the @code{gdb} module:
+
+@table @code
+@findex TYPE_CODE_PTR
+@findex gdb.TYPE_CODE_PTR
+@item TYPE_CODE_PTR
+The type is a pointer.
+
+@findex TYPE_CODE_ARRAY
+@findex gdb.TYPE_CODE_ARRAY
+@item TYPE_CODE_ARRAY
+The type is an array.
+
+@findex TYPE_CODE_STRUCT
+@findex gdb.TYPE_CODE_STRUCT
+@item TYPE_CODE_STRUCT
+The type is a structure.
+
+@findex TYPE_CODE_UNION
+@findex gdb.TYPE_CODE_UNION
+@item TYPE_CODE_UNION
+The type is a union.
+
+@findex TYPE_CODE_ENUM
+@findex gdb.TYPE_CODE_ENUM
+@item TYPE_CODE_ENUM
+The type is an enum.
+
+@findex TYPE_CODE_FLAGS
+@findex gdb.TYPE_CODE_FLAGS
+@item TYPE_CODE_FLAGS
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+A bit flags type, used for things such as status registers.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+@findex TYPE_CODE_FUNC
+@findex gdb.TYPE_CODE_FUNC
+@item TYPE_CODE_FUNC
+The type is a function.
+
+@findex TYPE_CODE_INT
+@findex gdb.TYPE_CODE_INT
+@item TYPE_CODE_INT
+The type is an integer type.
+
+@findex TYPE_CODE_FLT
+@findex gdb.TYPE_CODE_FLT
+@item TYPE_CODE_FLT
+A floating point type.
+
+@findex TYPE_CODE_VOID
+@findex gdb.TYPE_CODE_VOID
+@item TYPE_CODE_VOID
+The special type @code{void}.
+
+@findex TYPE_CODE_SET
+@findex gdb.TYPE_CODE_SET
+@item TYPE_CODE_SET
+A Pascal set type.
+
+@findex TYPE_CODE_RANGE
+@findex gdb.TYPE_CODE_RANGE
+@item TYPE_CODE_RANGE
+A range type, that is, an integer type with bounds.
+
+@findex TYPE_CODE_STRING
+@findex gdb.TYPE_CODE_STRING
+@item TYPE_CODE_STRING
+A string type. Note that this is only used for certain languages with
+language-defined string types; C strings are not represented this way.
+
+@findex TYPE_CODE_BITSTRING
+@findex gdb.TYPE_CODE_BITSTRING
+@item TYPE_CODE_BITSTRING
+A string of bits.
+
+@findex TYPE_CODE_ERROR
+@findex gdb.TYPE_CODE_ERROR
+@item TYPE_CODE_ERROR
+An unknown or erroneous type.
+
+@findex TYPE_CODE_METHOD
+@findex gdb.TYPE_CODE_METHOD
+@item TYPE_CODE_METHOD
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+A method type, as found in C++ or Java.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+@findex TYPE_CODE_METHODPTR
+@findex gdb.TYPE_CODE_METHODPTR
+@item TYPE_CODE_METHODPTR
+A pointer-to-member-function.
+
+@findex TYPE_CODE_MEMBERPTR
+@findex gdb.TYPE_CODE_MEMBERPTR
+@item TYPE_CODE_MEMBERPTR
+A pointer-to-member.
+
+@findex TYPE_CODE_REF
+@findex gdb.TYPE_CODE_REF
+@item TYPE_CODE_REF
+A reference type.
+
+@findex TYPE_CODE_CHAR
+@findex gdb.TYPE_CODE_CHAR
+@item TYPE_CODE_CHAR
+A character type.
+
+@findex TYPE_CODE_BOOL
+@findex gdb.TYPE_CODE_BOOL
+@item TYPE_CODE_BOOL
+A boolean type.
+
+@findex TYPE_CODE_COMPLEX
+@findex gdb.TYPE_CODE_COMPLEX
+@item TYPE_CODE_COMPLEX
+A complex float type.
+
+@findex TYPE_CODE_TYPEDEF
+@findex gdb.TYPE_CODE_TYPEDEF
+@item TYPE_CODE_TYPEDEF
+A typedef to some other type.
+
+@findex TYPE_CODE_NAMESPACE
+@findex gdb.TYPE_CODE_NAMESPACE
+@item TYPE_CODE_NAMESPACE
+A C++ namespace.
+
+@findex TYPE_CODE_DECFLOAT
+@findex gdb.TYPE_CODE_DECFLOAT
+@item TYPE_CODE_DECFLOAT
+A decimal floating point type.
+
+@findex TYPE_CODE_INTERNAL_FUNCTION
+@findex gdb.TYPE_CODE_INTERNAL_FUNCTION
+@item TYPE_CODE_INTERNAL_FUNCTION
+A function internal to @value{GDBN}. This is the type used to represent
+convenience functions.
+@end table
+
+@node Pretty Printing
+@subsubsection Pretty Printing
+
+@value{GDBN} provides a mechanism to allow pretty-printing of values
+using Python code. This mechanism works for both MI and the CLI.
+
+A pretty-printer is an object that implements a specific interface.
+There is no predefined base class for pretty-printers.
+
+@defop Operation {pretty printer} __init__ (self, val)
+When printing a value, @value{GDBN} constructs an instance of the
+pretty-printer. @var{val} is the value to be printed, an instance of
+@code{gdb.Value}.
+@end defop
+
+@defop Operation {pretty printer} children (self)
+When printing a value, @value{GDBN} will call this method to compute
+the children of the value passed to the object's constructor.
+
+This method must return an object conforming to the Python iterator
+protocol. Each element returned by the iterator must be a tuple
+holding two elements. The first element is the ``name'' of the child;
+the second element is the child's value. The value can be any Python
+object which is convertible to a @value{GDBN} value.
+
+This method is optional. If it does not exist, @value{GDBN} will act
+as though the value has no children.
+@end defop
+
+@defop Operation {pretty printer} display_hint (self)
+This method must return a string. The CLI may use this to change the
+formatting of children of a value. The result will also be supplied
+to an MI consumer as a @samp{displayhint} attribute of the variable
+being printed.
+
+Some display hints are predefined by @value{GDBN}:
+
+@table @samp
+@item array
+Indicate that the object being printed is ``array-like''. The CLI
+uses this to respect parameters such as @code{set print elements} and
+@code{set print array}.
+
+@item map
+Indicate that the object being printed is ``map-like'', and that the
+children of this value can be assumed to alternate between keys and
+values.
+
+@item string
+Indicate that the object being printed is ``string-like''. If the
+printer's @code{to_string} method returns a Python string of some
+kind, then @value{GDBN} will call its internal language-specific
+string-printing function to format the string. For the CLI this means
+adding quotation marks, possibly escaping some characters, respecting
+@code{set print elements}, and the like.
+@end table
+@end defop
+
+@defop Operation {pretty printer} to_string (self)
+@value{GDBN} will call this method to display the string
+representation of the value passed to the object's constructor.
+
+When printing from the CLI, if the @code{to_string} method exists,
+then @value{GDBN} will prepend its result to the values returned by
+@code{children}.
+
+If this method returns a string, it is printed verbatim. Otherwise,
+the result is converted to a @code{gdb.Value}, following the usual
+algorithm. Then @value{GDBN} prints this value; this may possibly
+result in a call to another pretty-printer. If the result is not
+convertible to @code{gdb.Value}, an exception is raised.
+@end defop
+
+@subsubsection Selecting Pretty-Printers
+
+The Python list @code{gdb.pretty_printers} contains an array of
+functions that have been registered via addition as a pretty-printer.
+Each function will be called with a @code{gdb.Value} to be
+pretty-printed. Each @code{gdb.Objfile} also contains a
+@code{pretty_printers} attribute. A function on one of these lists
+takes a single @code{gdb.Value} argument and returns a pretty-printer
+object conforming to the interface definition above. If this function
+cannot create a pretty-printer for the value, it should return
+@code{None}.
+
+@value{GDBN} first checks the @code{pretty_printers} attribute of each
+@code{gdb.Objfile} and iteratively calls each function in the list for
+that @code{gdb.Objfile} until it receives a pretty-printer object.
+After these @code{gdb.Objfile} have been exhausted, it tries the
+global @code{gdb.pretty-printers} list, again calling each function
+until an object is returned.
+
+The order in which the objfiles are searched is not specified.
+Functions are always invoked from the head of the
+@code{gdb.pretty-printers} list, and iterated over sequentially until
+the end of the list, or a printer object is returned.
+
+Here is an example showing how a @code{std::string} printer might be
+written:
+
+@smallexample
+class StdStringPrinter:
+ "Print a std::string"
+
+ def __init__ (self, val):
+ self.val = val
+
+ def to_string (self):
+ return self.val['_M_dataplus']['_M_p']
+@end smallexample
+
+And here is an example showing how a lookup function for
+the printer example above might be written.
+
+@smallexample
+def str_lookup_function (val):
+
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ lookup_tag = val.type.tag
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ regex = re.compile ("^std::basic_string<char,.*>$")
+ if lookup_tag == None:
+ return None
+ if regex.match (lookup_tag):
+ return StdStringPrinter (val)
+
+ return None
+@end smallexample
+
+The example lookup function extracts the value's type, and attempts to
+match it to a type that it can pretty-print. If it is a type the
+printer can pretty-print, it will return a printer object. If not, it
+returns: @code{None}.
+
+We recommend that you put your core pretty-printers into a versioned
+python package, and then restrict your auto-loaded code to idempotent
+behavior -- for example, just @code{import}s of your printer modules,
+followed by a call to a register pretty-printers with the current
+objfile. This approach will scale more nicely to multiple inferiors,
+potentially using different library versions.
+
+For example, in addition to the above, this code might appear in
+@code{gdb.libstdcxx.v6}:
+
+@smallexample
+def register_printers (objfile):
+ objfile.pretty_printers.add (str_lookup_function)
+@end smallexample
+
+And then the corresponding contents of the auto-load file would be:
+
+@smallexample
+import gdb.libstdcxx.v6
+gdb.libstdcxx.v6.register_printers (gdb.current_objfile ())
+@end smallexample
+
+@node Threads In Python
+@subsubsection Threads In Python
+
+Python scripts can access information about the inferior's threads
+using some functions provided by @value{GDBN}. Like all of
+@value{GDBN}'s Python additions, these are in the @code{gdb} module:
+
+@findex gdb.threads
+@defun threads
+This function returns a tuple holding all the thread IDs which are
+valid when the function is called. If there are no valid threads,
+this will return @code{None}.
+@end defun
+
+@findex gdb.current_thread
+@defun current_thread
+This function returns the thread ID of the selected thread. If there
+is no selected thread, this will return @code{None}.
+@end defun
+
+@findex gdb.switch_to_thread
+@defun switch_to_thread id
+This changes @value{GDBN}'s currently selected thread to the thread
+given by @var{id}. @var{id} must be a valid thread ID as returned by
+@code{threads}. If @var{id} is invalid, this function throws an
+exception.
+@end defun
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
@node Commands In Python
@subsubsection Commands In Python
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -18320,7 +19154,7 @@ You can implement new @value{GDBN} CLI commands in Python. A CLI
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
command is implemented using an instance of the @code{gdb.Command}
class, most commonly using a subclass.
-@defmethod Command __init__ name @var{command-class} @r{[}@var{completer-class} @var{prefix}@r{]}
+@defmethod Command __init__ name @var{command_class} @r{[}@var{completer_class}@r{]} @r{[}@var{prefix}@r{]}
The object initializer for @code{Command} registers the new command
with @value{GDBN}. This initializer is normally invoked from the
subclass' own @code{__init__} method.
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -18332,11 +19166,11 @@ an exception is raised.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
There is no support for multi-line commands.
-@var{command-class} should be one of the @samp{COMMAND_} constants
+@var{command_class} should be one of the @samp{COMMAND_} constants
defined below. This argument tells @value{GDBN} how to categorize the
new command in the help system.
-@var{completer-class} is an optional argument. If given, it should be
+@var{completer_class} is an optional argument. If given, it should be
one of the @samp{COMPLETE_} constants defined below. This argument
tells @value{GDBN} how to perform completion for this command. If not
given, @value{GDBN} will attempt to complete using the object's
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -18563,6 +19397,374 @@ registration of the command with @value{GDBN}. Depending on how the
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
Python code is read into @value{GDBN}, you may need to import the
@code{gdb} module explicitly.
+
+@node Parameters In Python
+@subsubsection Parameters In Python
+
+@cindex parameters in python
+@cindex python parameters
+@tindex gdb.Parameter
+@tindex Parameter
+You can implement new @value{GDBN} parameters using Python. A new
+parameter is implemented as an instance of the @code{gdb.Parameter}
+class. Parameters are exposed to the user via the @code{set} and
+@code{show} commands.
+
+@defmethod Parameter __init__ name @var{command-class} @var{parameter-class} @r{[}@var{enum-sequence}@r{]}
+The object initializer for @code{Parameter} registers the new
+parameter with @value{GDBN}. This initializer is normally invoked
+from the subclass' own @code{__init__} method.
+
+@var{name} is the name of the new parameter. If @var{name} consists
+of multiple words, then the initial words are looked for as prefix
+commands. In this case, if one of the prefix commands does not exist,
+an exception is raised.
+
+@var{command-class} should be one of the @samp{COMMAND_} constants
+(@pxref{Commands In Python}). This argument tells @value{GDBN} how to
+categorize the new parameter in the help system.
+
+@var{parameter-class} should be one of the @samp{PARAM_} constants
+defined below. This argument tells @value{GDBN} the type of the new
+parameter; this information is used for input validation and
+completion.
+
+If @var{parameter-class} is @code{PARAM_ENUM}, then
+@var{enum-sequence} must be a sequence of strings. These strings
+represent the possible values for the parameter.
+
+If @var{parameter-class} is not @code{PARAM_ENUM}, then the presence
+of a fourth argument will cause an exception to be thrown.
+
+The help text for the new parameter is taken from the Python
+documentation string for the parameter's class, if there is one. If
+there is no documentation string, a default value is used.
+@end defmethod
+
+@defivar Parameter set_doc
+If this attribute exists, and is a string, then its value is used as
+the help text for this parameter's @code{set} command. The value is
+examined when @code{Parameter.__init__} is invoked; subsequent changes
+have no effect.
+@end defivar
+
+@defivar Parameter show_doc
+If this attribute exists, and is a string, then its value is used as
+the help text for this parameter's @code{show} command. The value is
+examined when @code{Parameter.__init__} is invoked; subsequent changes
+have no effect.
+@end defivar
+
+@defivar Parameter value
+The @code{value} attribute holds the underlying value of the
+parameter. It can be read and assigned to just as any other
+attribute. @value{GDBN} does validation when assignments are made.
+@end defivar
+
+
+When a new parameter is defined, its type must be specified. The
+available types are represented by constants defined in the @code{gdb}
+module:
+
+@table @code
+@findex PARAM_BOOLEAN
+@findex gdb.PARAM_BOOLEAN
+@item PARAM_BOOLEAN
+The value is a plain boolean. The Python boolean values, @code{True}
+and @code{False} are the only valid values.
+
+@findex PARAM_AUTO_BOOLEAN
+@findex gdb.PARAM_AUTO_BOOLEAN
+@item PARAM_AUTO_BOOLEAN
+The value has three possible states: true, false, and @samp{auto}. In
+Python, true and false are represented using boolean constants, and
+@samp{auto} is represented using @code{None}.
+
+@findex PARAM_UINTEGER
+@findex gdb.PARAM_UINTEGER
+@item PARAM_UINTEGER
+The value is an unsigned integer. The value of 0 should be
+interpreted to mean ``unlimited''.
+
+@findex PARAM_INTEGER
+@findex gdb.PARAM_INTEGER
+@item PARAM_INTEGER
+The value is a signed integer. The value of 0 should be interpreted
+to mean ``unlimited''.
+
+@findex PARAM_STRING
+@findex gdb.PARAM_STRING
+@item PARAM_STRING
+The value is a string. When the user modifies the string, escapes are
+translated.
+
+@findex PARAM_STRING_NOESCAPE
+@findex gdb.PARAM_STRING_NOESCAPE
+@item PARAM_STRING_NOESCAPE
+The value is a string. When the user modifies the string, escapes are
+passed through untranslated.
+
+@findex PARAM_OPTIONAL_FILENAME
+@findex gdb.PARAM_OPTIONAL_FILENAME
+@item PARAM_OPTIONAL_FILENAME
+The value is a either a filename (a string), or @code{None}.
+
+@findex PARAM_FILENAME
+@findex gdb.PARAM_FILENAME
+@item PARAM_FILENAME
+The value is a filename (a string).
+
+@findex PARAM_ZINTEGER
+@findex gdb.PARAM_ZINTEGER
+@item PARAM_ZINTEGER
+The value is an integer. This is like @code{PARAM_INTEGER}, except 0
+is interpreted as itself.
+
+@findex PARAM_ENUM
+@findex gdb.PARAM_ENUM
+@item PARAM_ENUM
+The value is a string, which must be one of a collection string
+constants provided when the parameter is created.
+@end table
+
+@node Functions In Python
+@subsubsection Writing new convenience functions
+
+@cindex writing convenience functions
+@cindex convenience functions in python
+@cindex python convenience functions
+@tindex gdb.Function
+@tindex Function
+You can implement new convenience functions (@pxref{Convenience Vars})
+in Python. A convenience function is an instance of a subclass of the
+class @code{gdb.Function}.
+
+@defmethod Function __init__ name
+The initializer for @code{Function} registers the new function with
+@value{GDBN}. The argument @var{name} is the name of the function,
+a string. The function will be visible to the user as a convenience
+variable of type @code{internal function}, whose name is the same as
+the given @var{name}.
+
+The documentation for the new function is taken from the documentation
+string for the new class.
+@end defmethod
+
+@defmethod Function invoke @var{*args}
+When a convenience function is evaluated, its arguments are converted
+to instances of @code{gdb.Value}, and then the function's
+@code{invoke} method is called. Note that @value{GDBN} does not
+predetermine the arity of convenience functions. Instead, all
+available arguments are passed to @code{invoke}, following the
+standard Python calling convention. In particular, a convenience
+function can have default values for parameters without ill effect.
+
+The return value of this method is used as its value in the enclosing
+expression. If an ordinary Python value is returned, it is converted
+to a @code{gdb.Value} following the usual rules.
+@end defmethod
+
+The following code snippet shows how a trivial convenience function can
+be implemented in Python:
+
+@smallexample
+class Greet (gdb.Function):
+ """Return string to greet someone.
+Takes a name as argument."""
+
+ def __init__ (self):
+ super (Greet, self).__init__ ("greet")
+
+ def invoke (self, name):
+ return "Hello, %s!" % name.string ()
+
+Greet ()
+@end smallexample
+
+The last line instantiates the class, and is necessary to trigger the
+registration of the function with @value{GDBN}. Depending on how the
+Python code is read into @value{GDBN}, you may need to import the
+@code{gdb} module explicitly.
+
+@node Objfiles In Python
+@subsubsection Objfiles In Python
+
+@cindex objfiles in python
+@cindex python objfiles
+@tindex gdb.Objfile
+@tindex Objfile
+@value{GDBN} loads symbols for an inferior from various
+symbol-containing files. These include the primary executable file,
+any shared libraries used by the inferior, and any separate debug info
+files. @value{GDBN} calls these symbol-containing files
+@dfn{objfiles}.
+
+Each objfile is represented by an instance of the @code{gdb.Objfile}
+class.
+
+@defivar Objfile filename
+The file name of the objfile as a string.
+@end defivar
+
+@defivar Objfile pretty_printers
+The @code{pretty_printers} attribute is used to look up
+pretty-printers by type. This is a dictionary which maps regular
+expressions (strings) to pretty-printing objects. @xref{Pretty
+Printing}, for more information.
+@end defivar
+
+@node Breakpoints In Python
+@subsubsection Manipulating breakpoints using Python
+
+@cindex breakpoints in python
+@cindex python breakpoints
+@tindex gdb.Breakpoint
+@tindex Breakpoint
+Python code can manipulate breakpoints via the @code{gdb.Breakpoint}
+class.
+
+@defmethod Breakpoint __init__ location
+Create a new breakpoint. @var{location} is a string naming the
+location of the breakpoint. The contents can be any location
+recognized by the @code{break} command.
+@end defmethod
+
+@defmethod Breakpoint is_valid
+Return @code{True} if this @code{Breakpoint} object is valid,
+@code{False} otherwise. A @code{Breakpoint} object can become invalid
+if the user deletes the breakpoint. In this case, the object still
+exists, but the underlying breakpoint does not.
+@end defmethod
+
+@defivar Breakpoint enabled
+This attribute is @code{True} if the breakpoint is enabled, and
+@code{False} otherwise. This attribute is writable.
+@end defivar
+
+@defivar Breakpoint silent
+This attribute is @code{True} if the breakpoint is silent, and
+@code{False} otherwise. This attribute is writable.
+
+Note that a breakpoint can also be silent if it has commands and the
+first command is @code{silent}. This is not reported by the
+@code{silent} attribute.
+@end defivar
+
+@defivar Breakpoint thread
+If the breakpoint is thread-specific, this attribute holds the thread
+id. If the breakpoint is not thread-specific, this attribute is
+@code{None}. This attribute is writable.
+@end defivar
+
+@defivar Breakpoint ignore_count
+This attribute holds the ignore count for the breakpoint, an integer.
+This attribute is writable.
+@end defivar
+
+@defivar Breakpoint number
+This attribute holds the breakpoint's number -- the identifier used by
+the user to manipulate the breakpoint. This attribute is not writable.
+@end defivar
+
+@defivar Breakpoint hit_count
+This attribute holds the hit count for the breakpoint, an integer.
+This attribute is writable, but currently it can only be set to zero.
+@end defivar
+
+@defivar Breakpoint location
+This attribute holds the location of the breakpoint, as specified by
+the user. It is a string. This attribute is not writable.
+@end defivar
+
+@defivar Breakpoint condition
+This attribute holds the condition of the breakpoint, as specified by
+the user. It is a string. If there is no condition, this attribute's
+value is @code{None}. This attribute is writable.
+@end defivar
+
+@defivar Breakpoint commands
+This attribute holds the commands attached to the breakpoint. If
+there are commands, this returns a string holding all the commands,
+separated by newlines. If there are no commands, this attribute is
+@code{None}. This attribute is not writable.
+@end defivar
+
+@node Frames In Python
+@subsubsection Accessing inferior stack frames from Python.
+
+@cindex frames in python
+@tindex gdb.Frame
+@tindex Frame
+When the debugged program stops, @value{GDBN} is able to analyse its call
+stack (@pxref{Frames,,Stack frames}). The @code{gdb.Frame} class
+represents a frame in the stack. You can get a tuple containing all the
+frames in the stack with the @code{gdb.frames} function, the newest
+frame with the @code{gdb.newest_frame} function, and the selected frame
+with the @code{gdb.selected_frame} function
+(see @xref{Selection,,Selecting a Frame}.) See
+@xref{Basic Python,,Basic Python}.
+
+A @code{gdb.Frame} object has the following methods:
+
+@table @code
+@defmethod Frame equals @code{frame}
+Compare frames.
+@end defmethod
+
+@defmethod Frame is_valid
+Returns true if the @code{gdb.Frame} object is valid, false if not.
+A frame object can become invalid if the frame it refers to doesn't
+exist anymore in the inferior. All @code{gdb.Frame} methods will throw
+an exception if it is invalid at the time the method call is made.
+@end defmethod
+
+@defmethod Frame name
+Returns the function name of the frame, or @code{None} if it can't be
+obtained.
+@end defmethod
+
+@defmethod Frame type
+Returns the type of the frame. The value can be one of
+@code{gdb.NORMAL_FRAME}, @code{gdb.DUMMY_FRAME}, @code{gdb.SIGTRAMP_FRAME}
+or @code{gdb.SENTINEL_FRAME}.
+@end defmethod
+
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+@defmethod Frame unwind_stop_reason
+Return an integer representing the reason why it's not possible to find
+frames older than this. Use @code{gdb.frame_stop_reason_string} to convert
+the value returned by this function to a string.
+@end defmethod
+
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+@defmethod Frame pc
+Returns the frame's resume address.
+@end defmethod
+
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+@defmethod Frame block
+Returns the frame's code block. @c (see @xref{Block,,Code Blocks and Scopes}).
+@end defmethod
+
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+@defmethod Frame address_in_block
+Returns an address which falls within the frame's code block.
+@end defmethod
+
+@defmethod Frame older
+Return the frame immediately older (outer) to this frame.
+@end defmethod
+
+@defmethod Frame newer
+Return the frame immediately newer (inner) to this frame.
+@end defmethod
+
+@defmethod Frame find_sal
+Return the frame's symtab and line object. @c (see @xref{Symtab_and_line,, Symtab and line}).
+@end defmethod
+
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+@defmethod Frame read_var @var{variable}
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+Return the value of the given variable in this frame. @code{variable} can be
+either a string or a @code{gdb.Symbol} object. @c (@pxref{Symbols In Python}).
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+@end defmethod
+@end table
+
@node Interpreters
@chapter Command Interpreters
@cindex command interpreters
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -22273,6 +23475,103 @@ Unfreezing a variable does not update it, only subsequent
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
(gdb)
@end smallexample
+@subheading The @code{-var-set-visualizer} command
+@findex -var-set-visualizer
+@anchor{-var-set-visualizer}
+
+@subsubheading Synopsis
+
+@smallexample
+ -var-set-visualizer @var{name} @var{visualizer}
+@end smallexample
+
+@subheading The @code{-var-set-child-range} command
+@findex -var-set-child-range
+@anchor{-var-set-child-range}
+
+Set a visualizer for the variable object @var{name}.
+
+@var{visualizer} is the visualizer to use. The special value
+@samp{None} means to disable any visualizer in use.
+
+If not @samp{None}, @var{visualizer} must be a Python expression.
+This expression must evaluate to a callable object which accepts a
+single argument. @value{GDBN} will call this object with the value of
+the varobj @var{name} as an argument. This function must return an
+object which conforms to the pretty-printing interface (@pxref{Pretty
+Printing}).
+
+The pre-defined function @code{gdb.default_visualizer} may be used
+to select a visualizer according to the type of the varobj. This is
+called when a varobj is created, and so ordinarily is not needed.
+
+@code{gdb.default_visualizer} looks in the global dictionary named
+@code{gdb.pretty_printers}.
+
+This feature is only available if Python support is enabled.
+
+@subsubheading Example
+
+Resetting the visualizer:
+
+@smallexample
+(gdb)
+-var-set-visualizer V None
+^done
+@end smallexample
+
+Reselecting the default (type-based) visualizer:
+
+@smallexample
+(gdb)
+-var-set-visualizer V gdb.default_visualizer
+^done
+@end smallexample
+
+Suppose @code{SomeClass} is a visualizer class. A lambda expression
+can be used to instantiate this class for a varobj:
+
+@smallexample
+(gdb)
+-var-set-visualizer V "lambda val: SomeClass()"
+^done
+@end smallexample
+
+@subsubheading Synopsis
+
+@smallexample
+ -var-set-child-range @var{name} @var{from} @var{to}
+@end smallexample
+
+Select a sub-range of the children of the variable object @var{name};
+future calls to @code{-var-list-children} will only report the
+selected range of children. This allows an MI consumer to avoid
+inefficiencies if the varobj has very many children.
+
+If either @var{from} or @var{to} is less than zero, then sub-range
+selection is disabled, and @code{-var-list-children} will report all
+children.
+
+Otherwise, @var{from} and @var{to} are indexes into the array of
+children. Children starting at @var{from} and stopping jsut before
+@var{to} will be reported.
+
+@subsubheading Example
+
+@smallexample
+(gdb)
+ -var-list-children n
+ ^done,numchild=3,children=[@{name="a",numchild=0,type="int"@},
+ @{name="b",numchild=0,type="int"@},
+ @{name="c",numchild=0,type="int"@}]
+(gdb)
+ -var-set-child-range n 1 2
+(gdb)
+ -var-list-children n
+ ^done,numchild=3,children=[@{name="b",numchild=0,type="int"@},
+ @{name="c",numchild=0,type="int"@}]
+@end smallexample
+
@c %%%%%%%%%%%%%%%%%%%%%%%%%%%% SECTION %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@node GDB/MI Data Manipulation
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -23832,6 +25131,10 @@ as possible presense of the @code{frozen} field in the output
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
of @code{-varobj-create}.
@item pending-breakpoints
Indicates presence of the @option{-f} option to the @code{-break-insert} command.
+@item python
+Indicates presence of Python scripting support, Python-based
+pretty-printing commands, and possible presence of the
+@samp{display_hint} field in the output of @code{-var-list-children}
@item thread-info
Indicates presence of the @code{-thread-info} command.
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -25402,28 +26705,6 @@ data in a @file{gmon.out} file, be sure to move it to a safe location.
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
Configuring with @samp{--enable-profiling} arranges for @value{GDBN} to be
compiled with the @samp{-pg} compiler option.
-@kindex maint set linux-async
-@kindex maint show linux-async
-@cindex asynchronous support
-@item maint set linux-async
-@itemx maint show linux-async
-Control the GNU/Linux native asynchronous support
-(@pxref{Background Execution}) of @value{GDBN}.
-
-GNU/Linux native asynchronous support will be disabled until you use
-the @samp{maint set linux-async} command to enable it.
-
-@kindex maint set remote-async
-@kindex maint show remote-async
-@cindex asynchronous support
-@item maint set remote-async
-@itemx maint show remote-async
-Control the remote asynchronous support
-(@pxref{Background Execution}) of @value{GDBN}.
-
-Remote asynchronous support will be disabled until you use
-the @samp{maint set remote-async} command to enable it.
-
@kindex maint show-debug-regs
@cindex x86 hardware debug registers
@item maint show-debug-regs
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/dwarf2-frame.c b/gdb/dwarf2-frame.c
index ce11d89..eaa6a13 100644
--- a/gdb/dwarf2-frame.c
+++ b/gdb/dwarf2-frame.c
@@ -38,6 +38,7 @@
#include "complaints.h"
#include "dwarf2-frame.h"
+#include "addrmap.h"
struct comp_unit;
@@ -1499,6 +1500,14 @@ dwarf2_frame_find_fde (CORE_ADDR *pc)
struct dwarf2_fde *fde;
CORE_ADDR offset;
+ if (objfile->quick_addrmap)
+ {
+ if (!addrmap_find (objfile->quick_addrmap, *pc))
+ continue;
+ }
+ /* FIXME: Read-in only .debug_frame/.eh_frame without .debug_info? */
+ require_partial_symbols (objfile);
+
fde = objfile_data (objfile, dwarf2_frame_objfile_data);
if (fde == NULL)
continue;
diff --git a/gdb/dwarf2expr.c b/gdb/dwarf2expr.c
index 75a4ec7..aa8ab33 100644
--- a/gdb/dwarf2expr.c
+++ b/gdb/dwarf2expr.c
@@ -752,6 +752,13 @@ execute_stack_op (struct dwarf_expr_context *ctx,
ctx->initialized = 0;
goto no_push;
+ case DW_OP_push_object_address:
+ if (ctx->get_object_address == NULL)
+ error (_("DWARF-2 expression error: DW_OP_push_object_address must "
+ "have a value to push."));
+ result = (ctx->get_object_address) (ctx->baton);
+ break;
+
default:
error (_("Unhandled dwarf expression opcode 0x%x"), op);
}
diff --git a/gdb/dwarf2expr.h b/gdb/dwarf2expr.h
index 7047922..a287b6f 100644
--- a/gdb/dwarf2expr.h
+++ b/gdb/dwarf2expr.h
@@ -67,10 +67,10 @@ struct dwarf_expr_context
The result must be live until the current expression evaluation
is complete. */
unsigned char *(*get_subr) (void *baton, off_t offset, size_t *length);
+#endif
/* Return the `object address' for DW_OP_push_object_address. */
CORE_ADDR (*get_object_address) (void *baton);
-#endif
/* The current depth of dwarf expression recursion, via DW_OP_call*,
DW_OP_fbreg, DW_OP_push_object_address, etc., and the maximum
diff --git a/gdb/dwarf2loc.c b/gdb/dwarf2loc.c
index cad3db8..2251e48 100644
--- a/gdb/dwarf2loc.c
+++ b/gdb/dwarf2loc.c
@@ -107,6 +107,9 @@ struct dwarf_expr_baton
{
struct frame_info *frame;
struct objfile *objfile;
+ /* From DW_TAG_variable's DW_AT_location (not DW_TAG_type's
+ DW_AT_data_location) for DW_OP_push_object_address. */
+ CORE_ADDR object_address;
};
/* Helper functions for dwarf2_evaluate_loc_desc. */
@@ -163,22 +166,32 @@ dwarf_expr_frame_base (void *baton, gdb_byte **start, size_t * length)
*start = find_location_expression (symbaton, length,
get_frame_address_in_block (frame));
}
- else
+ else if (SYMBOL_OPS (framefunc) == &dwarf2_locexpr_funcs)
{
struct dwarf2_locexpr_baton *symbaton;
+
symbaton = SYMBOL_LOCATION_BATON (framefunc);
- if (symbaton != NULL)
- {
- *length = symbaton->size;
- *start = symbaton->data;
- }
- else
- *start = NULL;
+ gdb_assert (symbaton != NULL);
+ *start = symbaton->data;
+ *length = symbaton->size;
+ }
+ else if (SYMBOL_OPS (framefunc) == &dwarf2_missing_funcs)
+ {
+ struct dwarf2_locexpr_baton *symbaton;
+
+ symbaton = SYMBOL_LOCATION_BATON (framefunc);
+ gdb_assert (symbaton == NULL);
+ *start = NULL;
+ *length = 0; /* unused */
}
+ else
+ internal_error (__FILE__, __LINE__,
+ _("Unsupported SYMBOL_OPS %p for \"%s\""),
+ SYMBOL_OPS (framefunc), SYMBOL_PRINT_NAME (framefunc));
if (*start == NULL)
error (_("Could not find the frame base for \"%s\"."),
- SYMBOL_NATURAL_NAME (framefunc));
+ SYMBOL_PRINT_NAME (framefunc));
}
/* Using the objfile specified in BATON, find the address for the
@@ -191,6 +204,119 @@ dwarf_expr_tls_address (void *baton, CORE_ADDR offset)
return target_translate_tls_address (debaton->objfile, offset);
}
+static CORE_ADDR
+dwarf_expr_object_address (void *baton)
+{
+ struct dwarf_expr_baton *debaton = baton;
+
+ /* The message is suppressed in DWARF_BLOCK_EXEC. */
+ if (debaton->object_address == 0)
+ error (_("Cannot resolve DW_OP_push_object_address for a missing object"));
+
+ return debaton->object_address;
+}
+
+/* Address of the variable we are currently referring to. It is set from
+ DW_TAG_variable's DW_AT_location (not DW_TAG_type's DW_AT_data_location) for
+ DW_OP_push_object_address. */
+
+static CORE_ADDR object_address;
+
+/* Callers use object_address_set while their callers use the result set so we
+ cannot run the cleanup at the local block of our direct caller. Still we
+ should reset OBJECT_ADDRESS at least for the next GDB command. */
+
+static void
+object_address_cleanup (void *prev_save_voidp)
+{
+ CORE_ADDR *prev_save = prev_save_voidp;
+
+ object_address = *prev_save;
+ xfree (prev_save);
+}
+
+/* Set the base address - DW_AT_location - of a variable. It is being later
+ used to derive other object addresses by DW_OP_push_object_address.
+
+ It would be useful to sanity check ADDRESS - such as for some objects with
+ unset VALUE_ADDRESS - but some valid addresses may be zero (such as first
+ objects in relocatable .o files). */
+
+void
+object_address_set (CORE_ADDR address)
+{
+ CORE_ADDR *prev_save;
+
+ prev_save = xmalloc (sizeof *prev_save);
+ *prev_save = object_address;
+ make_cleanup (object_address_cleanup, prev_save);
+
+ object_address = address;
+}
+
+/* Evaluate DWARF expression at DATA ... DATA + SIZE with its result readable
+ by dwarf_expr_fetch (RETVAL, 0). FRAME parameter can be NULL to call
+ get_selected_frame to find it. Returned dwarf_expr_context freeing is
+ pushed on the cleanup chain. */
+
+static struct dwarf_expr_context *
+dwarf_expr_prep_ctx (struct frame_info *frame, gdb_byte *data,
+ unsigned short size, struct dwarf2_per_cu_data *per_cu)
+{
+ struct dwarf_expr_context *ctx;
+ struct dwarf_expr_baton baton;
+
+ if (!frame)
+ frame = get_selected_frame (NULL);
+
+ baton.frame = frame;
+ baton.objfile = dwarf2_per_cu_objfile (per_cu);
+ baton.object_address = object_address;
+
+ ctx = new_dwarf_expr_context ();
+ ctx->gdbarch = get_objfile_arch (baton.objfile);
+ ctx->addr_size = dwarf2_per_cu_addr_size (per_cu);
+ ctx->baton = &baton;
+ ctx->read_reg = dwarf_expr_read_reg;
+ ctx->read_mem = dwarf_expr_read_mem;
+ ctx->get_frame_base = dwarf_expr_frame_base;
+ ctx->get_tls_address = dwarf_expr_tls_address;
+ ctx->get_object_address = dwarf_expr_object_address;
+
+ make_cleanup ((make_cleanup_ftype *) free_dwarf_expr_context, ctx);
+
+ dwarf_expr_eval (ctx, data, size);
+
+ /* It was used only during dwarf_expr_eval. */
+ ctx->baton = NULL;
+
+ return ctx;
+}
+
+/* Evaluate DWARF expression at DLBATON expecting it produces exactly one
+ CORE_ADDR result on the DWARF stack stack. */
+
+CORE_ADDR
+dwarf_locexpr_baton_eval (struct dwarf2_locexpr_baton *dlbaton)
+{
+ struct dwarf_expr_context *ctx;
+ CORE_ADDR retval;
+ struct cleanup *back_to = make_cleanup (null_cleanup, 0);
+
+ ctx = dwarf_expr_prep_ctx (NULL, dlbaton->data, dlbaton->size,
+ dlbaton->per_cu);
+ if (ctx->num_pieces > 0)
+ error (_("DW_OP_*piece is unsupported for DW_FORM_block"));
+ else if (ctx->in_reg)
+ error (_("Register result is unsupported for DW_FORM_block"));
+
+ retval = dwarf_expr_fetch (ctx, 0);
+
+ do_cleanups (back_to);
+
+ return retval;
+}
+
/* Evaluate a location description, starting at DATA and with length
SIZE, to find the current location of variable VAR in the context
of FRAME. */
@@ -200,8 +326,8 @@ dwarf2_evaluate_loc_desc (struct symbol *var, struct frame_info *frame,
struct dwarf2_per_cu_data *per_cu)
{
struct value *retval;
- struct dwarf_expr_baton baton;
struct dwarf_expr_context *ctx;
+ struct cleanup *back_to = make_cleanup (null_cleanup, 0);
if (size == 0)
{
@@ -211,19 +337,8 @@ dwarf2_evaluate_loc_desc (struct symbol *var, struct frame_info *frame,
return retval;
}
- baton.frame = frame;
- baton.objfile = dwarf2_per_cu_objfile (per_cu);
+ ctx = dwarf_expr_prep_ctx (frame, data, size, per_cu);
- ctx = new_dwarf_expr_context ();
- ctx->gdbarch = get_objfile_arch (baton.objfile);
- ctx->addr_size = dwarf2_per_cu_addr_size (per_cu);
- ctx->baton = &baton;
- ctx->read_reg = dwarf_expr_read_reg;
- ctx->read_mem = dwarf_expr_read_mem;
- ctx->get_frame_base = dwarf_expr_frame_base;
- ctx->get_tls_address = dwarf_expr_tls_address;
-
- dwarf_expr_eval (ctx, data, size);
if (ctx->num_pieces > 0)
{
int i;
@@ -261,15 +376,19 @@ dwarf2_evaluate_loc_desc (struct symbol *var, struct frame_info *frame,
{
CORE_ADDR address = dwarf_expr_fetch (ctx, 0);
+ /* object_address_set called here is required in ALLOCATE_VALUE's
+ CHECK_TYPEDEF for the object's possible DW_OP_push_object_address. */
+ object_address_set (address);
+
retval = allocate_value (SYMBOL_TYPE (var));
VALUE_LVAL (retval) = lval_memory;
set_value_lazy (retval, 1);
- VALUE_ADDRESS (retval) = address;
+ set_value_address (retval, address);
}
set_value_initialized (retval, ctx->initialized);
- free_dwarf_expr_context (ctx);
+ do_cleanups (back_to);
return retval;
}
@@ -587,7 +706,7 @@ static int
loclist_describe_location (struct symbol *symbol, struct ui_file *stream)
{
/* FIXME: Could print the entire list of locations. */
- fprintf_filtered (stream, "a variable with multiple locations");
+ fprintf_filtered (stream, _("a variable with multiple locations"));
return 1;
}
@@ -603,16 +722,56 @@ loclist_tracepoint_var_ref (struct symbol * symbol, struct agent_expr * ax,
data = find_location_expression (dlbaton, &size, ax->scope);
if (data == NULL)
- error (_("Variable \"%s\" is not available."), SYMBOL_NATURAL_NAME (symbol));
+ error (_("Variable \"%s\" is not available."), SYMBOL_PRINT_NAME (symbol));
dwarf2_tracepoint_var_ref (symbol, ax, value, data, size);
}
-/* The set of location functions used with the DWARF-2 expression
- evaluator and location lists. */
+/* The set of location functions used with the DWARF-2 location lists. */
const struct symbol_ops dwarf2_loclist_funcs = {
loclist_read_variable,
loclist_read_needs_frame,
loclist_describe_location,
loclist_tracepoint_var_ref
};
+
+static struct value *
+missing_read_variable (struct symbol *symbol, struct frame_info *frame)
+{
+ struct dwarf2_loclist_baton *dlbaton = SYMBOL_LOCATION_BATON (symbol);
+
+ gdb_assert (dlbaton == NULL);
+ error (_("Unable to resolve variable \"%s\""), SYMBOL_PRINT_NAME (symbol));
+}
+
+static int
+missing_read_needs_frame (struct symbol *symbol)
+{
+ return 0;
+}
+
+static int
+missing_describe_location (struct symbol *symbol, struct ui_file *stream)
+{
+ fprintf_filtered (stream, _("a variable we are unable to resolve"));
+ return 1;
+}
+
+static void
+missing_tracepoint_var_ref (struct symbol *symbol, struct agent_expr *ax,
+ struct axs_value *value)
+{
+ struct dwarf2_loclist_baton *dlbaton = SYMBOL_LOCATION_BATON (symbol);
+
+ gdb_assert (dlbaton == NULL);
+ error (_("Unable to resolve variable \"%s\""), SYMBOL_PRINT_NAME (symbol));
+}
+
+/* The set of location functions used with the DWARF-2 evaluator when we are
+ unable to resolve the symbols. */
+const struct symbol_ops dwarf2_missing_funcs = {
+ missing_read_variable,
+ missing_read_needs_frame,
+ missing_describe_location,
+ missing_tracepoint_var_ref
+};
diff --git a/gdb/dwarf2loc.h b/gdb/dwarf2loc.h
index 76577f1..bf46761 100644
--- a/gdb/dwarf2loc.h
+++ b/gdb/dwarf2loc.h
@@ -71,5 +71,11 @@ struct dwarf2_loclist_baton
extern const struct symbol_ops dwarf2_locexpr_funcs;
extern const struct symbol_ops dwarf2_loclist_funcs;
+extern const struct symbol_ops dwarf2_missing_funcs;
+
+extern void object_address_set (CORE_ADDR address);
+
+extern CORE_ADDR dwarf_locexpr_baton_eval
+ (struct dwarf2_locexpr_baton *dlbaton);
#endif /* dwarf2loc.h */
diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c
- Archer update to the snapshot: d144a3633454046aaeae3e2c369c271834431d36 - Archer backport: a2c49b7640ebe7ce1376902d48d5bbbee600996b - Fixup compilation older GCCs. - Archer backport: fe48224ce1bd22f37a7fa6d111d54c1a340392bf - KFAIL 4 cases of: gdb.arch/powerpc-power7.exp - Archer backport: d144a3633454046aaeae3e2c369c271834431d36 - Fix C local extern variables (requires gcc-4.4.0-0.30).
2009-03-30 17:32:01 +00:00
index 55868da..9c1b90d 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/dwarf2read.c
+++ b/gdb/dwarf2read.c
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -1,8 +1,7 @@
/* DWARF 2 debugging format support for GDB.
Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
- 2004, 2005, 2006, 2007, 2008, 2009
- Free Software Foundation, Inc.
+ 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
Adapted by Gary Funck (gary@intrepid.com), Intrepid Technology,
Inc. with support from Florida State University (under contract
@@ -47,6 +46,9 @@
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
#include "command.h"
#include "gdbcmd.h"
#include "addrmap.h"
+#include "f-lang.h"
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+#include "c-lang.h"
+#include "typeprint.h"
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
#include <fcntl.h>
#include "gdb_string.h"
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -103,7 +105,7 @@ typedef struct pubnames_header
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
_PUBNAMES_HEADER;
#define _ACTUAL_PUBNAMES_HEADER_SIZE 13
-/* .debug_pubnames header
+/* .debug_aranges header
Because of alignment constraints, this structure has padding and cannot
be mapped directly onto the beginning of the .debug_info section. */
typedef struct aranges_header
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -299,9 +301,6 @@ struct dwarf2_cu
/* Hash table holding all the loaded partial DIEs. */
htab_t partial_dies;
- /* `.debug_ranges' offset for this `DW_TAG_compile_unit' DIE. */
- unsigned int ranges_offset;
-
/* Storage for things with the same lifetime as this read-in compilation
unit, including partial DIEs. */
struct obstack comp_unit_obstack;
@@ -349,9 +348,6 @@ struct dwarf2_cu
DIEs for namespaces, we don't need to try to infer them
from mangled names. */
unsigned int has_namespace_info : 1;
-
- /* Field `ranges_offset' is filled in; flag as the value may be zero. */
- unsigned int has_ranges_offset : 1;
};
/* Persistent data held for a compilation unit, even when not
@@ -451,17 +447,12 @@ struct partial_die_info
/* DWARF-2 tag for this DIE. */
ENUM_BITFIELD(dwarf_tag) tag : 16;
- /* Language code associated with this DIE. This is only used
- for the compilation unit DIE. */
- unsigned int language : 8;
-
/* Assorted flags describing the data found in this DIE. */
unsigned int has_children : 1;
unsigned int is_external : 1;
unsigned int is_declaration : 1;
unsigned int has_type : 1;
unsigned int has_specification : 1;
- unsigned int has_stmt_list : 1;
unsigned int has_pc_info : 1;
/* Flag set if the SCOPE field of this structure has been
@@ -472,10 +463,12 @@ struct partial_die_info
unsigned int has_byte_size : 1;
/* The name of this DIE. Normally the value of DW_AT_name, but
- sometimes DW_TAG_MIPS_linkage_name or a string computed in some
- other fashion. */
+ sometimes a default name for unnamed DIEs. */
char *name;
- char *dirname;
+
+ /* The linkage name of this DIE, from DW_AT_MIPS_linkage_name, or
+ NULL if no linkage name was present. */
+ char *linkage_name;
/* The scope to prepend to our children. This is generally
allocated on the comp_unit_obstack, so will disappear
@@ -498,9 +491,6 @@ struct partial_die_info
DW_AT_extension). */
unsigned int spec_offset;
- /* If HAS_STMT_LIST, the offset of the Line Number Information data. */
- unsigned int line_offset;
-
/* Pointers to this DIE's parent, first child, and next sibling,
if any. */
struct partial_die_info *die_parent, *die_child, *die_sibling;
@@ -523,6 +513,15 @@ struct attr_abbrev
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
ENUM_BITFIELD(dwarf_form) form : 16;
};
+/* Additional GDB-specific attribute forms. */
+enum
+ {
+ /* A string which has been updated to GDB's internal
+ representation (e.g. converted to canonical form) and does not
+ need to be updated again. */
+ GDB_FORM_cached_string = 0xff
+ };
+
/* Attributes have a name and a value */
struct attribute
{
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -756,7 +755,7 @@ static void dwarf2_create_include_psymtab (char *, struct partial_symtab *,
struct objfile *);
static void dwarf2_build_include_psymtabs (struct dwarf2_cu *,
- struct partial_die_info *,
+ struct die_info *,
struct partial_symtab *);
static void dwarf2_build_psymtabs_hard (struct objfile *, int);
@@ -768,6 +767,9 @@ static void scan_partial_symbols (struct partial_die_info *,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
static void add_partial_symbol (struct partial_die_info *,
struct dwarf2_cu *);
+static gdb_byte *read_comp_unit_head (struct comp_unit_head *, gdb_byte *,
+ bfd *);
+
static int pdi_needs_namespace (enum dwarf_tag tag);
static void add_partial_namespace (struct partial_die_info *pdi,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -794,6 +796,10 @@ static void dwarf2_psymtab_to_symtab (struct partial_symtab *);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
static void psymtab_to_symtab_1 (struct partial_symtab *);
+static gdb_byte *dwarf2_read_section_1 (struct objfile *objfile,
+ struct obstack *obstack,
+ asection *sectp);
+
gdb_byte *dwarf2_read_section (struct objfile *, asection *);
static void dwarf2_read_abbrevs (bfd *abfd, struct dwarf2_cu *cu);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -929,7 +935,8 @@ static int dwarf2_ranges_read (unsigned, CORE_ADDR *, CORE_ADDR *,
struct dwarf2_cu *, struct partial_symtab *);
static int dwarf2_get_pc_bounds (struct die_info *,
- CORE_ADDR *, CORE_ADDR *, struct dwarf2_cu *);
+ CORE_ADDR *, CORE_ADDR *, struct dwarf2_cu *,
+ struct partial_symtab *pst);
static void get_scope_pc_bounds (struct die_info *,
CORE_ADDR *, CORE_ADDR *,
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -960,6 +967,8 @@ static void read_common_block (struct die_info *, struct dwarf2_cu *);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
static void read_namespace (struct die_info *die, struct dwarf2_cu *);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+static void read_import_statement (struct die_info *die, struct dwarf2_cu *);
+
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
static void read_module (struct die_info *die, struct dwarf2_cu *cu);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
static const char *namespace_name (struct die_info *die,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -993,6 +1002,9 @@ static void process_die (struct die_info *, struct dwarf2_cu *);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
static char *dwarf2_linkage_name (struct die_info *, struct dwarf2_cu *);
+static char *dwarf2_canonicalize_name (char *, struct dwarf2_cu *,
+ struct obstack *);
+
static char *dwarf2_name (struct die_info *die, struct dwarf2_cu *);
static struct die_info *dwarf2_extension (struct die_info *die,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -1030,7 +1042,14 @@ static void store_in_ref_table (struct die_info *,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
static unsigned int dwarf2_get_ref_die_offset (struct attribute *);
-static int dwarf2_get_attr_constant_value (struct attribute *, int);
+enum dwarf2_get_attr_constant_value
+ {
+ dwarf2_attr_unknown,
+ dwarf2_attr_const,
+ dwarf2_attr_block
+ };
+static enum dwarf2_get_attr_constant_value dwarf2_get_attr_constant_value
+ (struct attribute *attr, int *val_return);
static struct die_info *follow_die_ref (struct die_info *,
struct attribute *,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -1085,6 +1104,9 @@ static void age_cached_comp_units (void);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
static void free_one_cached_comp_unit (void *);
+static void fetch_die_type_attrs (struct die_info *die, struct type *type,
+ struct dwarf2_cu *cu);
+
static struct type *set_die_type (struct die_info *, struct type *,
struct dwarf2_cu *);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -1104,19 +1126,28 @@ static void dwarf2_clear_marks (struct dwarf2_per_cu_data *);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
static struct type *get_die_type (struct die_info *die, struct dwarf2_cu *cu);
+static struct dwarf2_locexpr_baton *dwarf2_attr_to_locexpr_baton
+ (struct attribute *attr, struct dwarf2_cu *cu);
+
/* Try to locate the sections we need for DWARF 2 debugging
information and return true if we have enough to do something. */
int
dwarf2_has_info (struct objfile *objfile)
{
- struct dwarf2_per_objfile *data;
+ int update_sizes = 0;
/* Initialize per-objfile state. */
- data = obstack_alloc (&objfile->objfile_obstack, sizeof (*data));
- memset (data, 0, sizeof (*data));
- set_objfile_data (objfile, dwarf2_objfile_data_key, data);
- dwarf2_per_objfile = data;
+ dwarf2_per_objfile = objfile_data (objfile, dwarf2_objfile_data_key);
+ if (!dwarf2_per_objfile)
+ {
+ struct dwarf2_per_objfile *data
+ = obstack_alloc (&objfile->objfile_obstack, sizeof (*data));
+ memset (data, 0, sizeof (*data));
+ set_objfile_data (objfile, dwarf2_objfile_data_key, data);
+ dwarf2_per_objfile = data;
+ update_sizes = 1;
+ }
dwarf_info_section = 0;
dwarf_abbrev_section = 0;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -1127,8 +1158,9 @@ dwarf2_has_info (struct objfile *objfile)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
dwarf_eh_frame_section = 0;
dwarf_ranges_section = 0;
dwarf_loc_section = 0;
+ dwarf_aranges_section = 0;
- bfd_map_over_sections (objfile->obfd, dwarf2_locate_sections, NULL);
+ bfd_map_over_sections (objfile->obfd, dwarf2_locate_sections, &update_sizes);
return (dwarf_info_section != NULL && dwarf_abbrev_section != NULL);
}
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -1149,51 +1181,61 @@ section_is_p (asection *sectp, const char *name)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
in. */
static void
-dwarf2_locate_sections (bfd *abfd, asection *sectp, void *ignore_ptr)
+dwarf2_locate_sections (bfd *abfd, asection *sectp, void *user_data)
{
+ int update_sizes = * (int *) user_data;
if (section_is_p (sectp, INFO_SECTION))
{
- dwarf2_per_objfile->info_size = bfd_get_section_size (sectp);
+ if (update_sizes)
+ dwarf2_per_objfile->info_size = bfd_get_section_size (sectp);
dwarf_info_section = sectp;
}
else if (section_is_p (sectp, ABBREV_SECTION))
{
- dwarf2_per_objfile->abbrev_size = bfd_get_section_size (sectp);
+ if (update_sizes)
+ dwarf2_per_objfile->abbrev_size = bfd_get_section_size (sectp);
dwarf_abbrev_section = sectp;
}
else if (section_is_p (sectp, LINE_SECTION))
{
- dwarf2_per_objfile->line_size = bfd_get_section_size (sectp);
+ if (update_sizes)
+ dwarf2_per_objfile->line_size = bfd_get_section_size (sectp);
dwarf_line_section = sectp;
}
else if (section_is_p (sectp, PUBNAMES_SECTION))
{
- dwarf2_per_objfile->pubnames_size = bfd_get_section_size (sectp);
+ if (update_sizes)
+ dwarf2_per_objfile->pubnames_size = bfd_get_section_size (sectp);
dwarf_pubnames_section = sectp;
}
else if (section_is_p (sectp, ARANGES_SECTION))
{
- dwarf2_per_objfile->aranges_size = bfd_get_section_size (sectp);
+ if (update_sizes)
+ dwarf2_per_objfile->aranges_size = bfd_get_section_size (sectp);
dwarf_aranges_section = sectp;
}
else if (section_is_p (sectp, LOC_SECTION))
{
- dwarf2_per_objfile->loc_size = bfd_get_section_size (sectp);
+ if (update_sizes)
+ dwarf2_per_objfile->loc_size = bfd_get_section_size (sectp);
dwarf_loc_section = sectp;
}
else if (section_is_p (sectp, MACINFO_SECTION))
{
- dwarf2_per_objfile->macinfo_size = bfd_get_section_size (sectp);
+ if (update_sizes)
+ dwarf2_per_objfile->macinfo_size = bfd_get_section_size (sectp);
dwarf_macinfo_section = sectp;
}
else if (section_is_p (sectp, STR_SECTION))
{
- dwarf2_per_objfile->str_size = bfd_get_section_size (sectp);
+ if (update_sizes)
+ dwarf2_per_objfile->str_size = bfd_get_section_size (sectp);
dwarf_str_section = sectp;
}
else if (section_is_p (sectp, FRAME_SECTION))
{
- dwarf2_per_objfile->frame_size = bfd_get_section_size (sectp);
+ if (update_sizes)
+ dwarf2_per_objfile->frame_size = bfd_get_section_size (sectp);
dwarf_frame_section = sectp;
}
else if (section_is_p (sectp, EH_FRAME_SECTION))
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -1201,13 +1243,15 @@ dwarf2_locate_sections (bfd *abfd, asection *sectp, void *ignore_ptr)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
flagword aflag = bfd_get_section_flags (ignore_abfd, sectp);
if (aflag & SEC_HAS_CONTENTS)
{
- dwarf2_per_objfile->eh_frame_size = bfd_get_section_size (sectp);
+ if (update_sizes)
+ dwarf2_per_objfile->eh_frame_size = bfd_get_section_size (sectp);
dwarf_eh_frame_section = sectp;
}
}
else if (section_is_p (sectp, RANGES_SECTION))
{
- dwarf2_per_objfile->ranges_size = bfd_get_section_size (sectp);
+ if (update_sizes)
+ dwarf2_per_objfile->ranges_size = bfd_get_section_size (sectp);
dwarf_ranges_section = sectp;
}
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -1250,6 +1294,86 @@ dwarf2_resize_section (asection *sectp, bfd_size_type new_size)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
sectp->name);
}
+/* A cleanup that frees an obstack. */
+static void
+finalize_obstack (void *o)
+{
+ struct obstack *ob = o;
+ obstack_free (o, 0);
+}
+
+/* Read the .debug_aranges section and construct an address map. */
+
+void
+dwarf2_create_quick_addrmap (struct objfile *objfile)
+{
+ char *aranges_buffer, *aranges_ptr;
+ bfd *abfd = objfile->obfd;
+ CORE_ADDR baseaddr;
+ struct cleanup *old;
+ struct obstack temp_obstack;
+ struct addrmap *mutable_map;
+
+ if (!dwarf_aranges_section)
+ return;
+
+ baseaddr = ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
+
+ aranges_buffer = dwarf2_read_section_1 (objfile, NULL, dwarf_aranges_section);
+ aranges_ptr = aranges_buffer;
+ old = make_cleanup (xfree, aranges_buffer);
+
+ obstack_init (&temp_obstack);
+ make_cleanup (finalize_obstack, &temp_obstack);
+ mutable_map = addrmap_create_mutable (&temp_obstack);
+
+ while ((aranges_ptr - aranges_buffer) < dwarf2_per_objfile->aranges_size)
+ {
+ struct comp_unit_head cu_header;
+ unsigned int bytes_read, segment_size, delta;
+ LONGEST info_offset;
+ struct dwarf2_cu cu;
+
+ cu_header.initial_length_size = 0;
+ aranges_ptr = read_comp_unit_head (&cu_header, aranges_ptr, abfd);
+
+ segment_size = read_1_byte (abfd, aranges_ptr);
+ aranges_ptr += 1;
+
+ /* Align the pointer to twice the pointer size. I didn't see
+ this in the spec but it appears to be required. */
+ delta = (aranges_ptr - aranges_buffer) % (2 * cu_header.addr_size);
+ delta = (2 * cu_header.addr_size - delta) % (2 * cu_header.addr_size);
+ aranges_ptr += delta;
+
+ memset (&cu, 0, sizeof (cu));
+ cu.header.addr_size = cu_header.addr_size;
+
+ while (1)
+ {
+ CORE_ADDR address, length;
+
+ address = read_address (abfd, aranges_ptr, &cu, &bytes_read);
+ aranges_ptr += bytes_read;
+
+ length = read_address (abfd, aranges_ptr, &cu, &bytes_read);
+ aranges_ptr += bytes_read;
+
+ if (address == 0 && length == 0)
+ break;
+
+ address += baseaddr;
+
+ addrmap_set_empty (mutable_map, address, address + length, objfile);
+ }
+ }
+
+ objfile->quick_addrmap = addrmap_create_fixed (mutable_map,
+ &objfile->objfile_obstack);
+ do_cleanups (old);
+}
+
+
/* Build a partial symbol table. */
void
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -1453,22 +1577,24 @@ dwarf2_create_include_psymtab (char *name, struct partial_symtab *pst,
/* Read the Line Number Program data and extract the list of files
included by the source file represented by PST. Build an include
- partial symtab for each of these included files.
-
- This procedure assumes that there *is* a Line Number Program in
- the given CU. Callers should check that PDI->HAS_STMT_LIST is set
- before calling this procedure. */
+ partial symtab for each of these included files. */
static void
dwarf2_build_include_psymtabs (struct dwarf2_cu *cu,
- struct partial_die_info *pdi,
+ struct die_info *die,
struct partial_symtab *pst)
{
struct objfile *objfile = cu->objfile;
bfd *abfd = objfile->obfd;
- struct line_header *lh;
+ struct line_header *lh = NULL;
+ struct attribute *attr;
- lh = dwarf_decode_line_header (pdi->line_offset, abfd, cu);
+ attr = dwarf2_attr (die, DW_AT_stmt_list, cu);
+ if (attr)
+ {
+ unsigned int line_offset = DW_UNSND (attr);
+ lh = dwarf_decode_line_header (line_offset, abfd, cu);
+ }
if (lh == NULL)
return; /* No linetable, so no includes. */
@@ -1477,6 +1603,36 @@ dwarf2_build_include_psymtabs (struct dwarf2_cu *cu,
free_line_header (lh);
}
+/* Find the base address of the compilation unit for range lists and
+ location lists. It will normally be specified by DW_AT_low_pc.
+ In DWARF-3 draft 4, the base address could be overridden by
+ DW_AT_entry_pc. It's been removed, but GCC still uses this for
+ compilation units with discontinuous ranges. */
+
+static void
+dwarf2_find_base_address (struct die_info *die, struct dwarf2_cu *cu)
+{
+ struct attribute *attr;
+
+ cu->base_known = 0;
+ cu->base_address = 0;
+
+ attr = dwarf2_attr (die, DW_AT_entry_pc, cu);
+ if (attr)
+ {
+ cu->base_address = DW_ADDR (attr);
+ cu->base_known = 1;
+ }
+ else
+ {
+ attr = dwarf2_attr (die, DW_AT_low_pc, cu);
+ if (attr)
+ {
+ cu->base_address = DW_ADDR (attr);
+ cu->base_known = 1;
+ }
+ }
+}
/* Build the partial symbol table by doing a quick pass through the
.debug_info and .debug_abbrev sections. */
@@ -1489,7 +1645,7 @@ dwarf2_build_psymtabs_hard (struct objfile *objfile, int mainline)
bfd *abfd = objfile->obfd;
gdb_byte *info_ptr;
gdb_byte *beg_of_comp_unit;
- struct partial_die_info comp_unit_die;
+ struct die_info *comp_unit_die;
struct partial_symtab *pst;
struct cleanup *back_to;
CORE_ADDR baseaddr;
@@ -1523,9 +1679,12 @@ dwarf2_build_psymtabs_hard (struct objfile *objfile, int mainline)
{
struct cleanup *back_to_inner;
struct dwarf2_cu cu;
- struct abbrev_info *abbrev;
unsigned int bytes_read;
struct dwarf2_per_cu_data *this_cu;
+ int has_children, has_pc_info;
+ struct attribute *attr;
+ const char *name;
+ CORE_ADDR best_lowpc, best_highpc;
beg_of_comp_unit = info_ptr;
@@ -1551,11 +1710,10 @@ dwarf2_build_psymtabs_hard (struct objfile *objfile, int mainline)
this_cu = dwarf2_find_comp_unit (cu.header.offset, objfile);
/* Read the compilation unit die */
- abbrev = peek_die_abbrev (info_ptr, &bytes_read, &cu);
- info_ptr = read_partial_die (&comp_unit_die, abbrev, bytes_read,
- abfd, info_ptr, &cu);
+ info_ptr = read_full_die (&comp_unit_die, abfd, info_ptr, &cu,
+ &has_children);
- if (comp_unit_die.tag == DW_TAG_partial_unit)
+ if (comp_unit_die->tag == DW_TAG_partial_unit)
{
info_ptr = (beg_of_comp_unit + cu.header.length
+ cu.header.initial_length_size);
@@ -1564,20 +1722,27 @@ dwarf2_build_psymtabs_hard (struct objfile *objfile, int mainline)
}
/* Set the language we're debugging */
- set_cu_language (comp_unit_die.language, &cu);
+ attr = dwarf2_attr (comp_unit_die, DW_AT_language, &cu);
+ if (attr != NULL)
+ set_cu_language (DW_UNSND (attr), &cu);
+ else
+ set_cu_language (language_minimal, &cu);
/* Allocate a new partial symbol table structure */
- pst = start_psymtab_common (objfile, objfile->section_offsets,
- comp_unit_die.name ? comp_unit_die.name : "",
+ attr = dwarf2_attr (comp_unit_die, DW_AT_name, &cu);
+ if (attr != NULL)
+ name = DW_STRING (attr);
+ else
+ name = "";
+ pst = start_psymtab_common (objfile, objfile->section_offsets, name,
/* TEXTLOW and TEXTHIGH are set below. */
0,
objfile->global_psymbols.next,
objfile->static_psymbols.next);
- if (comp_unit_die.dirname)
- pst->dirname = obsavestring (comp_unit_die.dirname,
- strlen (comp_unit_die.dirname),
- &objfile->objfile_obstack);
+ attr = dwarf2_attr (comp_unit_die, DW_AT_comp_dir, &cu);
+ if (attr != NULL)
+ pst->dirname = xstrdup (DW_STRING (attr));
pst->read_symtab_private = (char *) this_cu;
@@ -1607,24 +1772,17 @@ dwarf2_build_psymtabs_hard (struct objfile *objfile, int mainline)
/* Possibly set the default values of LOWPC and HIGHPC from
`DW_AT_ranges'. */
- if (cu.has_ranges_offset)
- {
- if (dwarf2_ranges_read (cu.ranges_offset, &comp_unit_die.lowpc,
- &comp_unit_die.highpc, &cu, pst))
- comp_unit_die.has_pc_info = 1;
- }
- else if (comp_unit_die.has_pc_info
- && comp_unit_die.lowpc < comp_unit_die.highpc)
- /* Store the contiguous range if it is not empty; it can be empty for
- CUs with no code. */
- addrmap_set_empty (objfile->psymtabs_addrmap,
- comp_unit_die.lowpc + baseaddr,
- comp_unit_die.highpc + baseaddr - 1, pst);
+ has_pc_info = 0;
+
+ if (dwarf2_get_pc_bounds (comp_unit_die, &best_lowpc, &best_highpc, &cu,
+ pst))
+ has_pc_info = 1;
+ dwarf2_find_base_address (comp_unit_die, &cu);
/* Check if comp unit has_children.
If so, read the rest of the partial symbols from this comp unit.
If not, there's no more debug_info for this comp unit. */
- if (comp_unit_die.has_children)
+ if (has_children)
{
struct partial_die_info *first_die;
CORE_ADDR lowpc, highpc;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -1635,7 +1793,7 @@ dwarf2_build_psymtabs_hard (struct objfile *objfile, int mainline)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
first_die = load_partial_dies (abfd, info_ptr, 1, &cu);
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
scan_partial_symbols (first_die, &lowpc, &highpc,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
- ! comp_unit_die.has_pc_info, &cu);
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
+ ! has_pc_info, &cu);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
/* If we didn't find a lowpc, set it to highpc to avoid
complaints from `maint check'. */
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -1644,14 +1802,21 @@ dwarf2_build_psymtabs_hard (struct objfile *objfile, int mainline)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
/* If the compilation unit didn't have an explicit address range,
then use the information extracted from its child dies. */
- if (! comp_unit_die.has_pc_info)
+ if (! has_pc_info)
{
- comp_unit_die.lowpc = lowpc;
- comp_unit_die.highpc = highpc;
+ best_lowpc = lowpc;
+ best_highpc = highpc;
}
}
- pst->textlow = comp_unit_die.lowpc + baseaddr;
- pst->texthigh = comp_unit_die.highpc + baseaddr;
+ pst->textlow = best_lowpc + baseaddr;
+ pst->texthigh = best_highpc + baseaddr;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
+
+ /* Store the contiguous range; `DW_AT_ranges' range is stored above. The
+ range can be also empty for CUs with no code. */
+ if (dwarf2_attr (comp_unit_die, DW_AT_ranges, &cu) == NULL
+ && pst->textlow < pst->texthigh)
+ addrmap_set_empty (objfile->psymtabs_addrmap, pst->textlow,
+ pst->texthigh - 1, pst);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
pst->n_global_syms = objfile->global_psymbols.next -
(objfile->global_psymbols.list + pst->globals_offset);
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -1667,12 +1832,9 @@ dwarf2_build_psymtabs_hard (struct objfile *objfile, int mainline)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
info_ptr = beg_of_comp_unit + cu.header.length
+ cu.header.initial_length_size;
- if (comp_unit_die.has_stmt_list)
- {
- /* Get the list of files included in the current compilation unit,
- and build a psymtab for each of them. */
- dwarf2_build_include_psymtabs (&cu, &comp_unit_die, pst);
- }
+ /* Get the list of files included in the current compilation unit,
+ and build a psymtab for each of them. */
+ dwarf2_build_include_psymtabs (&cu, comp_unit_die, pst);
do_cleanups (back_to_inner);
}
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -1690,11 +1852,12 @@ load_comp_unit (struct dwarf2_per_cu_data *this_cu, struct objfile *objfile)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
{
bfd *abfd = objfile->obfd;
gdb_byte *info_ptr, *beg_of_comp_unit;
- struct partial_die_info comp_unit_die;
+ struct die_info *comp_unit_die;
struct dwarf2_cu *cu;
- struct abbrev_info *abbrev;
unsigned int bytes_read;
struct cleanup *back_to;
+ struct attribute *attr;
+ int has_children;
info_ptr = dwarf2_per_objfile->info_buffer + this_cu->offset;
beg_of_comp_unit = info_ptr;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -1716,12 +1879,15 @@ load_comp_unit (struct dwarf2_per_cu_data *this_cu, struct objfile *objfile)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
back_to = make_cleanup (dwarf2_free_abbrev_table, cu);
/* Read the compilation unit die. */
- abbrev = peek_die_abbrev (info_ptr, &bytes_read, cu);
- info_ptr = read_partial_die (&comp_unit_die, abbrev, bytes_read,
- abfd, info_ptr, cu);
+ info_ptr = read_full_die (&comp_unit_die, abfd, info_ptr, cu,
+ &has_children);
/* Set the language we're debugging. */
- set_cu_language (comp_unit_die.language, cu);
+ attr = dwarf2_attr (comp_unit_die, DW_AT_language, cu);
+ if (attr)
+ set_cu_language (DW_UNSND (attr), cu);
+ else
+ set_cu_language (language_minimal, cu);
/* Link this compilation unit into the compilation unit tree. */
this_cu->cu = cu;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -1731,7 +1897,7 @@ load_comp_unit (struct dwarf2_per_cu_data *this_cu, struct objfile *objfile)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
/* Check if comp unit has_children.
If so, read the rest of the partial symbols from this comp unit.
If not, there's no more debug_info for this comp unit. */
- if (comp_unit_die.has_children)
+ if (has_children)
load_partial_dies (abfd, info_ptr, 0, cu);
do_cleanups (back_to);
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -1948,7 +2114,7 @@ partial_die_parent_scope (struct partial_die_info *pdi,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
ignoring them. */
complaint (&symfile_complaints,
_("unhandled containing DIE tag %d for DIE at %d"),
- parent->tag, pdi->offset);
+ parent->tag, real_pdi->offset);
parent->scope = grandparent_scope;
}
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -1963,12 +2129,37 @@ partial_die_full_name (struct partial_die_info *pdi,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
struct dwarf2_cu *cu)
{
char *parent_scope;
+ struct partial_die_info *real_pdi;
- parent_scope = partial_die_parent_scope (pdi, cu);
- if (parent_scope == NULL)
- return NULL;
- else
+ /* We need to look at our parent DIE; if we have a DW_AT_specification,
+ then this means the parent of the specification DIE.
+ partial_die_parent_scope does this loop also, but we do it here
+ since we need to examine real_pdi->parent ourselves. */
+
+ real_pdi = pdi;
+ while (real_pdi->has_specification)
+ real_pdi = find_partial_die (real_pdi->spec_offset, cu);
+
+ parent_scope = partial_die_parent_scope (real_pdi, cu);
+ if (parent_scope != NULL)
return typename_concat (NULL, parent_scope, pdi->name, cu);
+
+ if (!cu->has_namespace_info && pdi->linkage_name
+ && !real_pdi->die_parent)
+ {
+ char *actual_scope
+ = language_class_name_from_physname (cu->language_defn,
+ pdi->linkage_name);
+ if (actual_scope != NULL)
+ {
+ char *actual_name = typename_concat (NULL, actual_scope,
+ pdi->name, cu);
+ xfree (actual_scope);
+ return actual_name;
+ }
+ }
+
+ return NULL;
}
static void
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -1984,7 +2175,9 @@ add_partial_symbol (struct partial_die_info *pdi, struct dwarf2_cu *cu)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
baseaddr = ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
- if (pdi_needs_namespace (pdi->tag))
+ if (pdi->linkage_name != NULL)
+ actual_name = pdi->linkage_name;
+ else if (pdi_needs_namespace (pdi->tag))
{
actual_name = partial_die_full_name (pdi, cu);
if (actual_name)
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -2133,9 +2326,8 @@ add_partial_symbol (struct partial_die_info *pdi, struct dwarf2_cu *cu)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
if (cu->language == language_cplus
&& cu->has_namespace_info == 0
&& psym != NULL
- && SYMBOL_CPLUS_DEMANGLED_NAME (psym) != NULL)
- cp_check_possible_namespace_symbols (SYMBOL_CPLUS_DEMANGLED_NAME (psym),
- objfile);
+ && pdi->linkage_name != NULL)
+ cp_check_possible_namespace_symbols (actual_name, objfile);
if (built_actual_name)
xfree (actual_name);
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -2158,6 +2350,14 @@ pdi_needs_namespace (enum dwarf_tag tag)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
case DW_TAG_union_type:
case DW_TAG_enumeration_type:
case DW_TAG_enumerator:
+ case DW_TAG_subprogram:
+ case DW_TAG_variable:
+ return 1;
+ case DW_TAG_member:
+ /* The only time we will encounter member variables in this
+ function is when we are creating a "linkage" name for them;
+ therefore they must be static members, so they do need a
+ class prefix. */
return 1;
default:
return 0;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -2290,11 +2490,11 @@ guess_structure_name (struct partial_die_info *struct_pdi,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
while (child_pdi != NULL)
{
- if (child_pdi->tag == DW_TAG_subprogram)
+ if (child_pdi->tag == DW_TAG_subprogram && child_pdi->linkage_name)
{
char *actual_class_name
= language_class_name_from_physname (cu->language_defn,
- child_pdi->name);
+ child_pdi->linkage_name);
if (actual_class_name != NULL)
{
struct_pdi->name
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -2741,7 +2941,6 @@ process_full_comp_unit (struct dwarf2_per_cu_data *per_cu)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
CORE_ADDR lowpc, highpc;
struct symtab *symtab;
struct cleanup *back_to;
- struct attribute *attr;
CORE_ADDR baseaddr;
baseaddr = ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -2751,30 +2950,7 @@ process_full_comp_unit (struct dwarf2_per_cu_data *per_cu)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
cu->list_in_scope = &file_symbols;
- /* Find the base address of the compilation unit for range lists and
- location lists. It will normally be specified by DW_AT_low_pc.
- In DWARF-3 draft 4, the base address could be overridden by
- DW_AT_entry_pc. It's been removed, but GCC still uses this for
- compilation units with discontinuous ranges. */
-
- cu->base_known = 0;
- cu->base_address = 0;
-
- attr = dwarf2_attr (cu->dies, DW_AT_entry_pc, cu);
- if (attr)
- {
- cu->base_address = DW_ADDR (attr);
- cu->base_known = 1;
- }
- else
- {
- attr = dwarf2_attr (cu->dies, DW_AT_low_pc, cu);
- if (attr)
- {
- cu->base_address = DW_ADDR (attr);
- cu->base_known = 1;
- }
- }
+ dwarf2_find_base_address (cu->dies, cu);
/* Do line number decoding in read_file_scope () */
process_die (cu->dies, cu);
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -2805,6 +2981,7 @@ process_full_comp_unit (struct dwarf2_per_cu_data *per_cu)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
static void
process_die (struct die_info *die, struct dwarf2_cu *cu)
{
+
switch (die->tag)
{
case DW_TAG_padding:
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -2849,6 +3026,7 @@ process_die (struct die_info *die, struct dwarf2_cu *cu)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
case DW_TAG_base_type:
case DW_TAG_subrange_type:
+ case DW_TAG_typedef:
/* Add a typedef symbol for the type definition, if it has a
DW_AT_name. */
new_symbol (die, read_type_die (die, cu), cu);
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -2867,14 +3045,12 @@ process_die (struct die_info *die, struct dwarf2_cu *cu)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
break;
case DW_TAG_imported_declaration:
case DW_TAG_imported_module:
- /* FIXME: carlton/2002-10-16: Eventually, we should use the
- information contained in these. DW_TAG_imported_declaration
- dies shouldn't have children; DW_TAG_imported_module dies
- shouldn't in the C++ case, but conceivably could in the
- Fortran case. */
processing_has_namespace_info = 1;
- complaint (&symfile_complaints, _("unsupported tag: '%s'"),
- dwarf_tag_name (die->tag));
+ if (die->child != NULL && (die->tag == DW_TAG_imported_declaration
+ || cu->language != language_fortran))
+ complaint (&symfile_complaints, _("Tag '%s' has unexpected children"),
+ dwarf_tag_name (die->tag));
+ read_import_statement (die, cu);
break;
default:
new_symbol (die, NULL, cu);
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -2904,22 +3080,130 @@ dwarf2_full_name (struct die_info *die, struct dwarf2_cu *cu)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
return name;
/* If no prefix is necessary for this type of DIE, return the
- unqualified name. The other three tags listed could be handled
- in pdi_needs_namespace, but that requires broader changes. */
- if (!pdi_needs_namespace (die->tag)
- && die->tag != DW_TAG_subprogram
- && die->tag != DW_TAG_variable
- && die->tag != DW_TAG_member)
+ unqualified name. */
+ if (!pdi_needs_namespace (die->tag))
return name;
prefix = determine_prefix (die, cu);
if (*prefix != '\0')
- name = typename_concat (&cu->objfile->objfile_obstack, prefix,
- name, cu);
+ {
+ char *prefixed_name = typename_concat (NULL, prefix, name, cu);
+ buf = mem_fileopen ();
+ fputs_unfiltered (prefixed_name, buf);
+ xfree (prefixed_name);
+ }
+
+ if (cu->language == language_cplus && die->tag == DW_TAG_subprogram)
+ {
+ struct type *type = read_type_die (die, cu);
+
+ if (buf == NULL)
+ {
+ buf = mem_fileopen ();
+ fputs_unfiltered (name, buf);
+ }
+
+ c_type_print_args (type, buf, 0);
+ }
+
+ if (buf != NULL)
+ {
+ long length;
+ name = ui_file_obsavestring (buf, &cu->objfile->objfile_obstack,
+ &length);
+ ui_file_delete (buf);
+ }
return name;
}
+/* read the given die's decl_line number. Return -1 if in case of an error */
- Archer update to the snapshot: d144a3633454046aaeae3e2c369c271834431d36 - Archer backport: a2c49b7640ebe7ce1376902d48d5bbbee600996b - Fixup compilation older GCCs. - Archer backport: fe48224ce1bd22f37a7fa6d111d54c1a340392bf - KFAIL 4 cases of: gdb.arch/powerpc-power7.exp - Archer backport: d144a3633454046aaeae3e2c369c271834431d36 - Fix C local extern variables (requires gcc-4.4.0-0.30).
2009-03-30 17:32:01 +00:00
+static int dwarf2_read_decl_line (struct die_info *die, struct dwarf2_cu *cu){
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ struct attribute *line_attr;
+
+ line_attr = dwarf2_attr (die, DW_AT_decl_line, cu);
+ if (line_attr){
+ return DW_UNSND (line_attr);
+ }
+
+ return -1;
+}
+
+/* Read the import statement specified by the given die and record it. */
+
+static void
+read_import_statement (struct die_info *die, struct dwarf2_cu *cu)
+{
+ struct attribute *import_attr;
+ struct die_info *imported_die;
+ const char *imported_name;
+ const char *imported_name_prefix;
+ char *canonical_name;
+ const char *import_alias;
+ const char *imported_declaration = "";
+ const char *import_prefix;
+
+ int line_number = -1;
+
+ int is_anonymous = 0;
+
+ import_attr = dwarf2_attr (die, DW_AT_import, cu);
+ if (import_attr == NULL)
+ {
+ complaint (&symfile_complaints, _("Tag '%s' has no DW_AT_import"),
+ dwarf_tag_name (die->tag));
+ return;
+ }
+
+ imported_die = follow_die_ref (die, import_attr, &cu);
+ imported_name = namespace_name (imported_die, &is_anonymous, cu);
+ if (imported_name == NULL)
+ {
+ /* C++ imports from std:: DW_TAG_base_type with no DW_AT_name - why? */
+ return;
+ }
+
+ /* Figure out the local name after import. */
+ import_alias = dwarf2_name(die, cu);
+ if(import_alias == NULL){
+ import_alias = "";
+ }
+
+ /* Determine the line number at which the import was made */
+ line_number = dwarf2_read_decl_line(die, cu);
+
+ /* Figure out where the statement is being imported to */
+ import_prefix = determine_prefix (die, cu);
+
+ /*
+ Figure out what the scope of the imported die is and prepend it
+ to the name of the imported die
+ */
+ imported_name_prefix = determine_prefix (imported_die, cu);
+
+ if(imported_die->tag != DW_TAG_namespace){
+ imported_declaration = imported_name;
+ canonical_name = (char*)imported_name_prefix;
+ }else{
+ if(strlen (imported_name_prefix) > 0){
+ canonical_name = alloca (strlen (imported_name_prefix) + 2 + strlen (imported_name) + 1);
+ strcpy (canonical_name, imported_name_prefix);
+ strcat (canonical_name, "::");
+ strcat (canonical_name, imported_name);
+ }else{
+ canonical_name = alloca (strlen (imported_name) + 1);
+ strcpy (canonical_name, imported_name);
+ }
+ }
+
+ using_directives = cp_add_using (import_prefix,
+ canonical_name,
+ import_alias,
+ imported_declaration,
+ line_number,
+ using_directives);
+}
+
static void
initialize_cu_func_list (struct dwarf2_cu *cu)
{
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -3076,6 +3360,103 @@ add_to_cu_func_list (const char *name, CORE_ADDR lowpc, CORE_ADDR highpc,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
cu->last_fn = thisfn;
}
+static int
+unsigned_int_compar (const void *ap, const void *bp)
+{
+ unsigned int a = *(unsigned int *) ap;
+ unsigned int b = *(unsigned int *) bp;
+
+ return (a > b) - (b > a);
+}
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+
+static void explore_abstract_origin(struct die_info *die, struct dwarf2_cu *cu, unsigned* die_children_p){
+ struct attribute *attr;
+ unsigned die_children = *die_children_p;
+ struct die_info *child_die;
+
+ attr = dwarf2_attr (die, DW_AT_abstract_origin, cu);
+
+ /* GCC currently uses DW_AT_specification to indicate die inheritence
+ in the case of import statements. The following is to accommodate that */
+ if(!attr){
+ attr = dwarf2_attr (die, DW_AT_specification, cu);
+ }
+
+ if (attr)
+ {
+ /* For the list of CHILD_DIEs. */
+ unsigned *offsets;
+ unsigned *offsets_end, *offsetp;
+ struct die_info *origin_die, *origin_child_die;
+ struct cleanup *cleanups;
+
+ origin_die = follow_die_ref (die, attr, &cu);
+ if (die->tag != origin_die->tag)
+ complaint (&symfile_complaints,
+ _("DIE 0x%x and its abstract origin 0x%x have different "
+ "tags"),
+ die->offset, origin_die->offset);
+
+ offsets = xmalloc (sizeof (*offsets) * die_children);
+ cleanups = make_cleanup (xfree, offsets);
+
+ offsets_end = offsets;
+ child_die = die->child;
+ while (child_die && child_die->tag)
+ {
+ attr = dwarf2_attr (child_die, DW_AT_abstract_origin, cu);
+ if (!attr)
+ complaint (&symfile_complaints,
+ _("Child DIE 0x%x of DIE 0x%x has missing "
+ "DW_AT_abstract_origin"),
+ child_die->offset, die->offset);
+ else
+ {
+ struct die_info *child_origin_die;
+
+ child_origin_die = follow_die_ref (child_die, attr, &cu);
+ if (child_die->tag != child_origin_die->tag)
+ complaint (&symfile_complaints,
+ _("Child DIE 0x%x and its abstract origin 0x%x have "
+ "different tags"),
+ child_die->offset, child_origin_die->offset);
+ *offsets_end++ = child_origin_die->offset;
+ }
+ child_die = sibling_die (child_die);
+ }
+ qsort (offsets, offsets_end - offsets, sizeof (*offsets),
+ unsigned_int_compar);
+ /* Disabled as excessively expensive - check if we may ever complain. */
+ if (0)
+ {
+ for (offsetp = offsets + 1; offsetp < offsets_end; offsetp++)
+ if (offsetp[-1] == *offsetp)
+ complaint (&symfile_complaints,
+ _("Child DIEs of DIE 0x%x duplicitly abstract-origin "
+ "referenced DIE 0x%x"),
+ die->offset, *offsetp);
+ }
+
+ offsetp = offsets;
+ origin_child_die = origin_die->child;
+ while (origin_child_die && origin_child_die->tag)
+ {
+ /* Is origin_child_die referenced by any of the DIE children? */
+ while (offsetp < offsets_end && *offsetp < origin_child_die->offset)
+ offsetp++;
+ if (offsetp >= offsets_end || *offsetp > origin_child_die->offset)
+ {
+ /* Found that origin_child_die is really not referenced. */
+ process_die (origin_child_die, cu);
+ }
+ origin_child_die = sibling_die (origin_child_die);
+ }
+
+ do_cleanups (cleanups);
+ }
+
+}
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
static void
read_func_scope (struct die_info *die, struct dwarf2_cu *cu)
{
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -3088,15 +3469,27 @@ read_func_scope (struct die_info *die, struct dwarf2_cu *cu)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
char *name;
CORE_ADDR baseaddr;
struct block *block;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
+ unsigned die_children;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
baseaddr = ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
- name = dwarf2_linkage_name (die, cu);
+ name = dwarf2_name (die, cu);
/* Ignore functions with missing or empty names and functions with
missing or invalid low and high pc attributes. */
- if (name == NULL || !dwarf2_get_pc_bounds (die, &lowpc, &highpc, cu))
+ if (name == NULL || !dwarf2_get_pc_bounds (die, &lowpc, &highpc, cu, NULL)){
+ /* explore abstract origins if present. They might contain useful information
+ such as import statements. */
+ child_die = die->child;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
+ die_children = 0;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ while (child_die && child_die->tag)
+ {
+ child_die = sibling_die (child_die);
+ die_children++;
+ }
+ explore_abstract_origin(die, cu, &die_children);
return;
+ }
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
lowpc += baseaddr;
highpc += baseaddr;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -3124,14 +3517,87 @@ read_func_scope (struct die_info *die, struct dwarf2_cu *cu)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
cu->list_in_scope = &local_symbols;
- if (die->child != NULL)
+ child_die = die->child;
+ die_children = 0;
+ while (child_die && child_die->tag)
- Archer update to the snapshot: 935f217d3367a642374bc56c6b146d376fc3edab - Archer backport: 281278326412f9d6a3fabb8adc1d419fd7ddc7d7 - Fix [expr] crash reading invalid DWARF C++ symbol "" (BZ 490319).
2009-03-15 18:31:43 +00:00
+ {
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ process_die (child_die, cu);
+ child_die = sibling_die (child_die);
+ die_children++;
+ }
+
+ attr = dwarf2_attr (die, DW_AT_abstract_origin, cu);
+ if (attr)
- Archer update to the snapshot: 935f217d3367a642374bc56c6b146d376fc3edab - Archer backport: 281278326412f9d6a3fabb8adc1d419fd7ddc7d7 - Fix [expr] crash reading invalid DWARF C++ symbol "" (BZ 490319).
2009-03-15 18:31:43 +00:00
{
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ /* For the list of CHILD_DIEs. */
+ unsigned *offsets;
+ unsigned *offsets_end, *offsetp;
+ struct die_info *origin_die, *origin_child_die;
+ struct cleanup *cleanups;
+
+ origin_die = follow_die_ref (die, attr, &cu);
+ if (die->tag != origin_die->tag)
+ complaint (&symfile_complaints,
+ _("DIE 0x%x and its abstract origin 0x%x have different "
+ "tags"),
+ die->offset, origin_die->offset);
+
+ offsets = xmalloc (sizeof (*offsets) * die_children);
+ cleanups = make_cleanup (xfree, offsets);
+
+ offsets_end = offsets;
child_die = die->child;
while (child_die && child_die->tag)
{
- process_die (child_die, cu);
+ attr = dwarf2_attr (child_die, DW_AT_abstract_origin, cu);
+ if (!attr)
+ complaint (&symfile_complaints,
+ _("Child DIE 0x%x of DIE 0x%x has missing "
+ "DW_AT_abstract_origin"),
+ child_die->offset, die->offset);
+ else
+ {
+ struct die_info *child_origin_die;
+
+ child_origin_die = follow_die_ref (child_die, attr, &cu);
+ if (child_die->tag != child_origin_die->tag)
+ complaint (&symfile_complaints,
+ _("Child DIE 0x%x and its abstract origin 0x%x have "
+ "different tags"),
+ child_die->offset, child_origin_die->offset);
+ *offsets_end++ = child_origin_die->offset;
+ }
child_die = sibling_die (child_die);
}
+ qsort (offsets, offsets_end - offsets, sizeof (*offsets),
+ unsigned_int_compar);
+ /* Disabled as excessively expensive - check if we may ever complain. */
+ if (0)
+ {
+ for (offsetp = offsets + 1; offsetp < offsets_end; offsetp++)
+ if (offsetp[-1] == *offsetp)
+ complaint (&symfile_complaints,
+ _("Child DIEs of DIE 0x%x duplicitly abstract-origin "
+ "referenced DIE 0x%x"),
+ die->offset, *offsetp);
+ }
+
+ offsetp = offsets;
+ origin_child_die = origin_die->child;
+ while (origin_child_die && origin_child_die->tag)
+ {
+ /* Is origin_child_die referenced by any of the DIE children? */
+ while (offsetp < offsets_end && *offsetp < origin_child_die->offset)
+ offsetp++;
+ if (offsetp >= offsets_end || *offsetp > origin_child_die->offset)
+ {
+ /* Found that origin_child_die is really not referenced. */
+ process_die (origin_child_die, cu);
+ }
+ origin_child_die = sibling_die (origin_child_die);
+ }
+
+ do_cleanups (cleanups);
}
new = pop_context ();
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -3154,6 +3620,7 @@ read_func_scope (struct die_info *die, struct dwarf2_cu *cu)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
back to building a containing block's symbol lists. */
local_symbols = new->locals;
param_symbols = new->params;
+ using_directives = new->using_directives;
/* If we've finished processing a top-level function, subsequent
symbols go in the file symbol list. */
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -3180,7 +3647,7 @@ read_lexical_block_scope (struct die_info *die, struct dwarf2_cu *cu)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
as multiple lexical blocks? Handling children in a sane way would
be nasty. Might be easier to properly extend generic blocks to
describe ranges. */
- if (!dwarf2_get_pc_bounds (die, &lowpc, &highpc, cu))
+ if (!dwarf2_get_pc_bounds (die, &lowpc, &highpc, cu, NULL))
return;
lowpc += baseaddr;
highpc += baseaddr;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -3197,7 +3664,7 @@ read_lexical_block_scope (struct die_info *die, struct dwarf2_cu *cu)
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
}
new = pop_context ();
- if (local_symbols != NULL)
+ if (local_symbols != NULL || using_directives!= NULL )
{
struct block *block
= finish_block (0, &local_symbols, new->old_blocks, new->start_addr,
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -3216,6 +3683,7 @@ read_lexical_block_scope (struct die_info *die, struct dwarf2_cu *cu)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
dwarf2_record_block_ranges (die, block, baseaddr, cu);
}
local_symbols = new->locals;
+ using_directives = new->using_directives;
}
/* Get low and high pc attributes from DW_AT_ranges attribute value OFFSET.
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -3351,7 +3819,8 @@ dwarf2_ranges_read (unsigned offset, CORE_ADDR *low_return,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
discontinuous, i.e. derived from DW_AT_ranges information. */
static int
dwarf2_get_pc_bounds (struct die_info *die, CORE_ADDR *lowpc,
- CORE_ADDR *highpc, struct dwarf2_cu *cu)
+ CORE_ADDR *highpc, struct dwarf2_cu *cu,
+ struct partial_symtab *pst)
{
struct attribute *attr;
CORE_ADDR low = 0;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -3379,7 +3848,7 @@ dwarf2_get_pc_bounds (struct die_info *die, CORE_ADDR *lowpc,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
{
/* Value of the DW_AT_ranges attribute is the offset in the
.debug_ranges section. */
- if (!dwarf2_ranges_read (DW_UNSND (attr), &low, &high, cu, NULL))
+ if (!dwarf2_ranges_read (DW_UNSND (attr), &low, &high, cu, pst))
return 0;
/* Found discontinuous range of addresses. */
ret = -1;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -3418,7 +3887,7 @@ dwarf2_get_subprogram_pc_bounds (struct die_info *die,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
CORE_ADDR low, high;
struct die_info *child = die->child;
- if (dwarf2_get_pc_bounds (die, &low, &high, cu))
+ if (dwarf2_get_pc_bounds (die, &low, &high, cu, NULL))
{
*lowpc = min (*lowpc, low);
*highpc = max (*highpc, high);
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -3455,7 +3924,7 @@ get_scope_pc_bounds (struct die_info *die,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
CORE_ADDR best_high = (CORE_ADDR) 0;
CORE_ADDR current_low, current_high;
- if (dwarf2_get_pc_bounds (die, &current_low, &current_high, cu))
+ if (dwarf2_get_pc_bounds (die, &current_low, &current_high, cu, NULL))
{
best_low = current_low;
best_high = current_high;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -3750,8 +4219,14 @@ dwarf2_add_field (struct field_info *fip, struct die_info *die,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
if (fieldname == NULL)
return;
- /* Get physical name. */
+ /* Get physical name. We prefer the linkage name if one was specified,
+ because this lets GDB find a non-debugging version of the symbol.
+ Otherwise construct the full name from type information. Ideally,
+ when GDB supports canonicalization of C++ symbol names, we will not
+ need the linkage name for anything. */
physname = dwarf2_linkage_name (die, cu);
+ if (physname == NULL)
+ physname = (char *) dwarf2_full_name (die, cu);
/* The name is already allocated along with this objfile, so we don't
need to duplicate it for the type. */
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -3881,8 +4356,14 @@ dwarf2_add_member_fn (struct field_info *fip, struct die_info *die,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
if (fieldname == NULL)
return;
- /* Get the mangled name. */
+ /* Get physical name. We prefer the linkage name if one was specified,
+ because this lets GDB find a non-debugging version of the symbol.
+ Otherwise construct the full name from type information. Ideally,
+ when GDB supports canonicalization of C++ symbol names, we will not
+ need the linkage name for anything. */
physname = dwarf2_linkage_name (die, cu);
+ if (physname == NULL)
+ physname = (char *) dwarf2_full_name (die, cu);
/* Look up member function name in fieldlist. */
for (i = 0; i < fip->nfnfields; i++)
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -3926,7 +4407,7 @@ dwarf2_add_member_fn (struct field_info *fip, struct die_info *die,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
/* The name is already allocated along with this objfile, so we don't
need to duplicate it for the type. */
fnp->physname = physname ? physname : "";
- fnp->type = alloc_type (objfile);
+ fnp->type = alloc_type (objfile, NULL);
this_type = read_type_die (die, cu);
if (this_type && TYPE_CODE (this_type) == TYPE_CODE_FUNC)
{
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -4110,7 +4591,7 @@ quirk_gcc_member_function_pointer (struct die_info *die, struct dwarf2_cu *cu)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return NULL;
domain_type = TYPE_TARGET_TYPE (TYPE_FIELD_TYPE (pfn_type, 0));
- type = alloc_type (objfile);
+ type = alloc_type (objfile, NULL);
smash_to_method_type (type, domain_type, TYPE_TARGET_TYPE (pfn_type),
TYPE_FIELDS (pfn_type), TYPE_NFIELDS (pfn_type),
TYPE_VARARGS (pfn_type));
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -4147,7 +4628,7 @@ read_structure_type (struct die_info *die, struct dwarf2_cu *cu)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
if (type)
return type;
- type = alloc_type (objfile);
+ type = alloc_type (objfile, NULL);
INIT_CPLUS_SPECIFIC (type);
name = dwarf2_name (die, cu);
if (name != NULL)
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -4360,7 +4841,7 @@ read_enumeration_type (struct die_info *die, struct dwarf2_cu *cu)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
struct attribute *attr;
const char *name;
- type = alloc_type (objfile);
+ type = alloc_type (objfile, NULL);
TYPE_CODE (type) = TYPE_CODE_ENUM;
name = dwarf2_full_name (die, cu);
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -4410,10 +4891,15 @@ determine_class_name (struct die_info *die, struct dwarf2_cu *cu)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
{
if (child->tag == DW_TAG_subprogram)
{
- char *phys_prefix
+ char *phys_prefix;
+ char *linkage_name = dwarf2_linkage_name (child, cu);
+
+ if (linkage_name == NULL)
+ continue;
+
+ phys_prefix
= language_class_name_from_physname (cu->language_defn,
- dwarf2_linkage_name
- (child, cu));
+ linkage_name);
if (phys_prefix != NULL)
{
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -4510,6 +4996,29 @@ process_enumeration_scope (struct die_info *die, struct dwarf2_cu *cu)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
new_symbol (die, this_type, cu);
}
+/* Create a new array dimension referencing its target type TYPE.
+
+ Multidimensional arrays are internally represented as a stack of
+ singledimensional arrays being referenced by their TYPE_TARGET_TYPE. */
+
+static struct type *
+create_single_array_dimension (struct type *type, struct type *range_type,
+ struct die_info *die, struct dwarf2_cu *cu)
+{
+ type = create_array_type (NULL, type, range_type);
+
+ /* These generic type attributes need to be fetched by
+ evaluate_subexp_standard <multi_f77_subscript>'s call of
+ value_subscripted_rvalue only for the innermost array type. */
+ fetch_die_type_attrs (die, type, cu);
+
+ /* These generic type attributes are checked for allocated/associated
+ validity while accessing FIELD_LOC_KIND_DWARF_BLOCK. */
+ fetch_die_type_attrs (die, range_type, cu);
+
+ return type;
+}
+
/* Extract all information from a DW_TAG_array_type DIE and put it in
the DIE's type field. For now, this only handles one dimensional
arrays. */
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -4523,7 +5032,7 @@ read_array_type (struct die_info *die, struct dwarf2_cu *cu)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
struct type *element_type, *range_type, *index_type;
struct type **range_types = NULL;
struct attribute *attr;
- int ndim = 0;
+ int ndim = 0, i;
struct cleanup *back_to;
char *name;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -4570,16 +5079,11 @@ read_array_type (struct die_info *die, struct dwarf2_cu *cu)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
type = element_type;
if (read_array_order (die, cu) == DW_ORD_col_major)
- {
- int i = 0;
- while (i < ndim)
- type = create_array_type (NULL, type, range_types[i++]);
- }
- else
- {
- while (ndim-- > 0)
- type = create_array_type (NULL, type, range_types[ndim]);
- }
+ for (i = 0; i < ndim; i++)
+ type = create_single_array_dimension (type, range_types[i], die, cu);
+ else /* (read_array_order (die, cu) == DW_ORD_row_major) */
+ for (i = ndim - 1; i >= 0; i--)
+ type = create_single_array_dimension (type, range_types[i], die, cu);
/* Understand Dwarf2 support for vector types (like they occur on
the PowerPC w/ AltiVec). Gcc just adds another attribute to the
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -4646,12 +5150,14 @@ read_set_type (struct die_info *die, struct dwarf2_cu *cu)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return set_die_type (die, set_type, cu);
}
-/* First cut: install each common block member as a global variable. */
+/* Create appropriate locally-scoped variables for all the DW_TAG_common_block
+ entries. Create also TYPE_CODE_STRUCT listing all such variables to be
+ available for `info common'. COMMON_BLOCK_DOMAIN is used to sepate the
+ common blocks name namespace from regular variable names. */
static void
read_common_block (struct die_info *die, struct dwarf2_cu *cu)
{
- struct die_info *child_die;
struct attribute *attr;
struct symbol *sym;
CORE_ADDR base = (CORE_ADDR) 0;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -4676,10 +5182,40 @@ read_common_block (struct die_info *die, struct dwarf2_cu *cu)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
if (die->child != NULL)
{
+ struct objfile *objfile = cu->objfile;
+ struct die_info *child_die;
+ struct type *type;
+ struct field *field;
+ char *name;
+ struct symbol *sym;
+
+ type = alloc_type (objfile, NULL);
+ TYPE_CODE (type) = TYPE_CODE_STRUCT;
+ /* Artificial type to be used only by `info common'. */
+ TYPE_NAME (type) = "<common>";
+
child_die = die->child;
while (child_die && child_die->tag)
{
+ TYPE_NFIELDS (type)++;
+ child_die = sibling_die (child_die);
+ }
+
+ TYPE_FIELDS (type) = obstack_alloc (&objfile->objfile_obstack,
+ sizeof (*TYPE_FIELDS (type))
+ * TYPE_NFIELDS (type));
+ memset (TYPE_FIELDS (type), 0, sizeof (*TYPE_FIELDS (type))
+ * TYPE_NFIELDS (type));
+
+ field = TYPE_FIELDS (type);
+ child_die = die->child;
+ while (child_die && child_die->tag)
+ {
+ /* Create the symbol in the DW_TAG_common_block block in the current
+ symbol scope. */
sym = new_symbol (child_die, NULL, cu);
+
+ /* Undocumented in DWARF3, when it can be present? */
attr = dwarf2_attr (child_die, DW_AT_data_member_location, cu);
if (attr)
{
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -4687,8 +5223,25 @@ read_common_block (struct die_info *die, struct dwarf2_cu *cu)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
base + decode_locdesc (DW_BLOCK (attr), cu);
add_symbol_to_list (sym, &global_symbols);
}
+
+ if (SYMBOL_CLASS (sym) == LOC_STATIC)
+ SET_FIELD_PHYSADDR (*field, SYMBOL_VALUE_ADDRESS (sym));
+ else
+ SET_FIELD_PHYSNAME (*field, SYMBOL_LINKAGE_NAME (sym));
+ FIELD_TYPE (*field) = SYMBOL_TYPE (sym);
+ FIELD_NAME (*field) = SYMBOL_NATURAL_NAME (sym);
+ field++;
child_die = sibling_die (child_die);
}
+
+ /* TYPE_LENGTH (type) is left 0 - it is only a virtual structure even
+ with no consecutive address space. */
+
+ sym = new_symbol (die, type, cu);
+ /* SYMBOL_VALUE_ADDRESS never gets used as all its fields are static. */
+ SYMBOL_VALUE_ADDRESS (sym) = base;
+
+ set_die_type (die, type, cu);
}
}
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -4756,9 +5309,7 @@ read_namespace (struct die_info *die, struct dwarf2_cu *cu)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
if (is_anonymous)
{
const char *previous_prefix = determine_prefix (die, cu);
- cp_add_using_directive (TYPE_NAME (type),
- strlen (previous_prefix),
- strlen (TYPE_NAME (type)));
+ cp_add_using_directive (previous_prefix, TYPE_NAME (type), "", "", dwarf2_read_decl_line(die, cu));
}
}
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -4951,29 +5502,95 @@ read_tag_string_type (struct die_info *die, struct dwarf2_cu *cu)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
struct objfile *objfile = cu->objfile;
struct type *type, *range_type, *index_type, *char_type;
struct attribute *attr;
- unsigned int length;
+ int length;
+
+ index_type = builtin_type_int32;
+ /* RANGE_TYPE is allocated from OBJFILE, not OBJFILE_INTERNAL. */
+ range_type = alloc_type (objfile, index_type);
+ /* LOW_BOUND and HIGH_BOUND are set for real below. */
+ range_type = create_range_type (range_type, index_type, 0, -1);
+
+ /* C/C++ should probably have the low bound 0 but C/C++ does not use
+ DW_TAG_string_type. */
+ TYPE_LOW_BOUND (range_type) = 1;
attr = dwarf2_attr (die, DW_AT_string_length, cu);
- if (attr)
- {
- length = DW_UNSND (attr);
- }
- else
- {
- /* check for the DW_AT_byte_size attribute */
+ switch (dwarf2_get_attr_constant_value (attr, &length))
+ {
+ case dwarf2_attr_const:
+ /* We currently do not support a constant address where the location
+ should be read from - DWARF2_ATTR_BLOCK is expected instead. See
+ DWARF for the DW_AT_STRING_LENGTH vs. DW_AT_BYTE_SIZE difference. */
+ /* PASSTHRU */
+ case dwarf2_attr_unknown:
attr = dwarf2_attr (die, DW_AT_byte_size, cu);
- if (attr)
- {
- length = DW_UNSND (attr);
- }
- else
- {
- length = 1;
- }
+ switch (dwarf2_get_attr_constant_value (attr, &length))
+ {
+ case dwarf2_attr_unknown:
+ length = 1;
+ /* PASSTHRU */
+ case dwarf2_attr_const:
+ TYPE_HIGH_BOUND (range_type) = length;
+ break;
+ case dwarf2_attr_block:
+ TYPE_RANGE_BOUND_SET_DWARF_BLOCK (range_type, 1);
+ TYPE_FIELD_DWARF_BLOCK (range_type, 1) =
+ dwarf2_attr_to_locexpr_baton (attr, cu);
+ TYPE_DYNAMIC (range_type) = 1;
+ break;
+ }
+ break;
+ case dwarf2_attr_block:
+ /* Security check for a size overflow. */
+ if (DW_BLOCK (attr)->size + 2 < DW_BLOCK (attr)->size)
+ {
+ TYPE_HIGH_BOUND (range_type) = 1;
+ break;
+ }
+ /* Extend the DWARF block by a new DW_OP_deref/DW_OP_deref_size
+ instruction as DW_AT_string_length specifies the length location, not
+ its value. */
+ {
+ struct dwarf2_locexpr_baton *length_baton;
+ struct attribute *size_attr;
+
+ length_baton = obstack_alloc (&cu->comp_unit_obstack,
+ sizeof (*length_baton));
+ length_baton->per_cu = cu->per_cu;
+ length_baton->data = obstack_alloc (&cu->comp_unit_obstack,
+ DW_BLOCK (attr)->size + 2);
+ memcpy (length_baton->data, DW_BLOCK (attr)->data,
+ DW_BLOCK (attr)->size);
+
+ /* DW_AT_BYTE_SIZE existing together with DW_AT_STRING_LENGTH specifies
+ the size of an integer to fetch. */
+
+ size_attr = dwarf2_attr (die, DW_AT_byte_size, cu);
+ if (size_attr)
+ {
+ length_baton->size = DW_BLOCK (attr)->size + 2;
+ length_baton->data[DW_BLOCK (attr)->size] = DW_OP_deref_size;
+ length_baton->data[DW_BLOCK (attr)->size + 1]
+ = DW_UNSND (size_attr);
+ if (length_baton->data[DW_BLOCK (attr)->size + 1]
+ != DW_UNSND (size_attr))
+ complaint (&symfile_complaints,
+ _("DW_AT_string_length's DW_AT_byte_size integer "
+ "exceeds the byte size storage"));
+ }
+ else
+ {
+ length_baton->size = DW_BLOCK (attr)->size + 1;
+ length_baton->data[DW_BLOCK (attr)->size] = DW_OP_deref;
+ }
+
+ TYPE_RANGE_BOUND_SET_DWARF_BLOCK (range_type, 1);
+ TYPE_FIELD_DWARF_BLOCK (range_type, 1) = length_baton;
+ TYPE_DYNAMIC (range_type) = 1;
+ }
+ break;
}
- index_type = builtin_type_int32;
- range_type = create_range_type (NULL, index_type, 1, length);
type = create_string_type (NULL, range_type);
return set_die_type (die, type, cu);
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -5067,7 +5684,6 @@ static struct type *
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
read_typedef (struct die_info *die, struct dwarf2_cu *cu)
{
struct objfile *objfile = cu->objfile;
- struct attribute *attr;
const char *name = NULL;
struct type *this_type;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -5175,8 +5791,8 @@ read_subrange_type (struct die_info *die, struct dwarf2_cu *cu)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
struct type *base_type;
struct type *range_type;
struct attribute *attr;
- int low = 0;
- int high = -1;
+ int low, high, byte_stride_int;
+ enum dwarf2_get_attr_constant_value high_type;
char *name;
base_type = die_type (die, cu);
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -5189,42 +5805,90 @@ read_subrange_type (struct die_info *die, struct dwarf2_cu *cu)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
0, NULL, cu->objfile);
}
- if (cu->language == language_fortran)
- {
- /* FORTRAN implies a lower bound of 1, if not given. */
- low = 1;
- }
+ /* LOW_BOUND and HIGH_BOUND are set for real below. */
+ range_type = create_range_type (NULL, base_type, 0, -1);
- /* FIXME: For variable sized arrays either of these could be
- a variable rather than a constant value. We'll allow it,
- but we don't know how to handle it. */
attr = dwarf2_attr (die, DW_AT_lower_bound, cu);
- if (attr)
- low = dwarf2_get_attr_constant_value (attr, 0);
+ switch (dwarf2_get_attr_constant_value (attr, &low))
+ {
+ case dwarf2_attr_unknown:
+ if (cu->language == language_fortran)
+ {
+ /* FORTRAN implies a lower bound of 1, if not given. */
+ low = 1;
+ }
+ else
+ {
+ /* According to DWARF we should assume the value 0 only for
+ LANGUAGE_C and LANGUAGE_CPLUS. */
+ low = 0;
+ }
+ /* PASSTHRU */
+ case dwarf2_attr_const:
+ TYPE_LOW_BOUND (range_type) = low;
+ if (low >= 0)
+ TYPE_UNSIGNED (range_type) = 1;
+ break;
+ case dwarf2_attr_block:
+ TYPE_RANGE_BOUND_SET_DWARF_BLOCK (range_type, 0);
+ TYPE_FIELD_DWARF_BLOCK (range_type, 0) = dwarf2_attr_to_locexpr_baton
+ (attr, cu);
+ TYPE_DYNAMIC (range_type) = 1;
+ /* For setting a default if DW_AT_UPPER_BOUND would be missing. */
+ low = 0;
+ break;
+ }
attr = dwarf2_attr (die, DW_AT_upper_bound, cu);
- if (attr)
- {
- if (attr->form == DW_FORM_block1)
- {
- /* GCC encodes arrays with unspecified or dynamic length
- with a DW_FORM_block1 attribute.
- FIXME: GDB does not yet know how to handle dynamic
- arrays properly, treat them as arrays with unspecified
- length for now.
-
- FIXME: jimb/2003-09-22: GDB does not really know
- how to handle arrays of unspecified length
- either; we just represent them as zero-length
- arrays. Choose an appropriate upper bound given
- the lower bound we've computed above. */
- high = low - 1;
- }
- else
- high = dwarf2_get_attr_constant_value (attr, 1);
+ high_type = dwarf2_get_attr_constant_value (attr, &high);
+ if (high_type == dwarf2_attr_unknown)
+ {
+ attr = dwarf2_attr (die, DW_AT_count, cu);
+ high_type = dwarf2_get_attr_constant_value (attr, &high);
+ /* It does not hurt but it is needlessly ineffective in check_typedef. */
+ if (high_type != dwarf2_attr_unknown)
+ {
+ TYPE_RANGE_HIGH_BOUND_IS_COUNT (range_type) = 1;
+ TYPE_DYNAMIC (range_type) = 1;
+ }
+ /* Pass it now as the regular DW_AT_upper_bound. */
+ }
+ switch (high_type)
+ {
+ case dwarf2_attr_unknown:
+ TYPE_RANGE_UPPER_BOUND_IS_UNDEFINED (range_type) = 1;
+ high = low - 1;
+ /* PASSTHRU */
+ case dwarf2_attr_const:
+ TYPE_HIGH_BOUND (range_type) = high;
+ break;
+ case dwarf2_attr_block:
+ TYPE_RANGE_BOUND_SET_DWARF_BLOCK (range_type, 1);
+ TYPE_FIELD_DWARF_BLOCK (range_type, 1) = dwarf2_attr_to_locexpr_baton
+ (attr, cu);
+ TYPE_DYNAMIC (range_type) = 1;
+ break;
}
- range_type = create_range_type (NULL, base_type, low, high);
+ /* DW_AT_bit_stride is currently unsupported as we count in bytes. */
+ attr = dwarf2_attr (die, DW_AT_byte_stride, cu);
+ switch (dwarf2_get_attr_constant_value (attr, &byte_stride_int))
+ {
+ case dwarf2_attr_unknown:
+ break;
+ case dwarf2_attr_const:
+ if (byte_stride_int == 0)
+ complaint (&symfile_complaints,
+ _("Found DW_AT_byte_stride with unsupported value 0"));
+ TYPE_BYTE_STRIDE (range_type) = byte_stride_int;
+ break;
+ case dwarf2_attr_block:
+ TYPE_RANGE_BOUND_SET_DWARF_BLOCK (range_type, 2);
+ TYPE_FIELD_DWARF_BLOCK (range_type, 2) = dwarf2_attr_to_locexpr_baton
+ (attr, cu);
+ TYPE_DYNAMIC (range_type) = 1;
+ break;
+ }
name = dwarf2_name (die, cu);
if (name)
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -5386,10 +6050,13 @@ read_die_and_siblings (gdb_byte *info_ptr, bfd *abfd,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
/* Decompress a section that was compressed using zlib. Store the
- decompressed buffer, and its size, in OUTBUF and OUTSIZE. */
+ decompressed buffer, and its size, in OUTBUF and OUTSIZE. The
+ result is allocated on OBSTACK; if OBSTACK is NULL, xmalloc is
+ used. */
static void
-zlib_decompress_section (struct objfile *objfile, asection *sectp,
+zlib_decompress_section (struct objfile *objfile, struct obstack *obstack,
+ asection *sectp,
gdb_byte **outbuf, bfd_size_type *outsize)
{
bfd *abfd = objfile->obfd;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -5405,6 +6072,7 @@ zlib_decompress_section (struct objfile *objfile, asection *sectp,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
z_stream strm;
int rc;
int header_size = 12;
+ struct cleanup *old = NULL;
if (bfd_seek (abfd, sectp->filepos, SEEK_SET) != 0
|| bfd_bread (compressed_buffer, compressed_size, abfd) != compressed_size)
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -5434,8 +6102,13 @@ zlib_decompress_section (struct objfile *objfile, asection *sectp,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
strm.avail_in = compressed_size - header_size;
strm.next_in = (Bytef*) compressed_buffer + header_size;
strm.avail_out = uncompressed_size;
- uncompressed_buffer = obstack_alloc (&objfile->objfile_obstack,
- uncompressed_size);
+ if (obstack)
+ uncompressed_buffer = obstack_alloc (obstack, uncompressed_size);
+ else
+ {
+ uncompressed_buffer = xmalloc (uncompressed_size);
+ old = make_cleanup (xfree, uncompressed_buffer);
+ }
rc = inflateInit (&strm);
while (strm.avail_in > 0)
{
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -5456,6 +6129,8 @@ zlib_decompress_section (struct objfile *objfile, asection *sectp,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
error (_("Dwarf Error: concluding DWARF uncompression in '%s': %d"),
bfd_get_filename (abfd), rc);
+ if (old)
+ discard_cleanups (old);
xfree (compressed_buffer);
*outbuf = uncompressed_buffer;
*outsize = uncompressed_size;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -5463,17 +6138,20 @@ zlib_decompress_section (struct objfile *objfile, asection *sectp,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
-/* Read the contents of the section at OFFSET and of size SIZE from the
- object file specified by OBJFILE into the objfile_obstack and return it.
- If the section is compressed, uncompress it before returning. */
+/* Read the contents of the section at OFFSET and of size SIZE from
+ the object file specified by OBJFILE into OBSTACK and return it.
+ If OBSTACK is NULL, xmalloc is used instead. If the section is
+ compressed, uncompress it before returning. */
-gdb_byte *
-dwarf2_read_section (struct objfile *objfile, asection *sectp)
+static gdb_byte *
+dwarf2_read_section_1 (struct objfile *objfile, struct obstack *obstack,
+ asection *sectp)
{
bfd *abfd = objfile->obfd;
gdb_byte *buf, *retbuf;
bfd_size_type size = bfd_get_section_size (sectp);
unsigned char header[4];
+ struct cleanup *old = NULL;
if (size == 0)
return NULL;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -5486,30 +6164,49 @@ dwarf2_read_section (struct objfile *objfile, asection *sectp)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
/* Upon decompression, update the buffer and its size. */
if (strncmp (header, "ZLIB", sizeof (header)) == 0)
{
- zlib_decompress_section (objfile, sectp, &buf, &size);
+ zlib_decompress_section (objfile, obstack, sectp, &buf, &size);
dwarf2_resize_section (sectp, size);
return buf;
}
}
/* If we get here, we are a normal, not-compressed section. */
- buf = obstack_alloc (&objfile->objfile_obstack, size);
+ if (obstack)
+ buf = obstack_alloc (obstack, size);
+ else
+ {
+ buf = xmalloc (size);
+ old = make_cleanup (xfree, buf);
+ }
/* When debugging .o files, we may need to apply relocations; see
http://sourceware.org/ml/gdb-patches/2002-04/msg00136.html .
We never compress sections in .o files, so we only need to
try this when the section is not compressed. */
retbuf = symfile_relocate_debug_section (abfd, sectp, buf);
if (retbuf != NULL)
- return retbuf;
+ {
+ if (old)
+ discard_cleanups (old);
+ return retbuf;
+ }
if (bfd_seek (abfd, sectp->filepos, SEEK_SET) != 0
|| bfd_bread (buf, size, abfd) != size)
error (_("Dwarf Error: Can't read DWARF data from '%s'"),
bfd_get_filename (abfd));
+ if (old)
+ discard_cleanups (old);
+
return buf;
}
+gdb_byte *
+dwarf2_read_section (struct objfile *objfile, asection *sectp)
+{
+ return dwarf2_read_section_1 (objfile, &objfile->objfile_obstack, sectp);
+}
+
/* In DWARF version 2, the description of the debugging information is
stored in a separate .debug_abbrev section. Before we read any
dies from a section we read in all abbreviations and install them
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -5914,15 +6611,6 @@ read_partial_die (struct partial_die_info *part_die,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
struct attribute attr;
int has_low_pc_attr = 0;
int has_high_pc_attr = 0;
- CORE_ADDR base_address = 0;
- enum
- {
- base_address_none,
- base_address_low_pc,
- /* Overrides BASE_ADDRESS_LOW_PC. */
- base_address_entry_pc
- }
- base_address_type = base_address_none;
memset (part_die, 0, sizeof (struct partial_die_info));
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -5945,47 +6633,35 @@ read_partial_die (struct partial_die_info *part_die,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
switch (attr.name)
{
case DW_AT_name:
-
- /* Prefer DW_AT_MIPS_linkage_name over DW_AT_name. */
- if (part_die->name == NULL)
- part_die->name = DW_STRING (&attr);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
- break;
- case DW_AT_comp_dir:
- if (part_die->dirname == NULL)
- part_die->dirname = DW_STRING (&attr);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ switch (part_die->tag)
+ {
+ case DW_TAG_compile_unit:
+ /* Compilation units have a DW_AT_name that is a filename, not
+ a source language identifier. */
+ case DW_TAG_enumeration_type:
+ case DW_TAG_enumerator:
+ /* These tags always have simple identifiers already; no need
+ to canonicalize them. */
+ part_die->name = DW_STRING (&attr);
+ break;
+ default:
+ part_die->name
+ = dwarf2_canonicalize_name (DW_STRING (&attr), cu,
+ &cu->comp_unit_obstack);
+ break;
+ }
break;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
case DW_AT_MIPS_linkage_name:
- part_die->name = DW_STRING (&attr);
+ part_die->linkage_name = DW_STRING (&attr);
break;
case DW_AT_low_pc:
has_low_pc_attr = 1;
part_die->lowpc = DW_ADDR (&attr);
- if (part_die->tag == DW_TAG_compile_unit
- && base_address_type < base_address_low_pc)
- {
- base_address = DW_ADDR (&attr);
- base_address_type = base_address_low_pc;
- }
break;
case DW_AT_high_pc:
has_high_pc_attr = 1;
part_die->highpc = DW_ADDR (&attr);
break;
- case DW_AT_entry_pc:
- if (part_die->tag == DW_TAG_compile_unit
- && base_address_type < base_address_entry_pc)
- {
- base_address = DW_ADDR (&attr);
- base_address_type = base_address_entry_pc;
- }
- break;
- case DW_AT_ranges:
- if (part_die->tag == DW_TAG_compile_unit)
- {
- cu->ranges_offset = DW_UNSND (&attr);
- cu->has_ranges_offset = 1;
- }
- break;
case DW_AT_location:
/* Support the .debug_loc offsets */
if (attr_form_is_block (&attr))
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -6002,9 +6678,6 @@ read_partial_die (struct partial_die_info *part_die,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
"partial symbol information");
}
break;
- case DW_AT_language:
- part_die->language = DW_UNSND (&attr);
- break;
case DW_AT_external:
part_die->is_external = DW_UNSND (&attr);
break;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -6029,10 +6702,6 @@ read_partial_die (struct partial_die_info *part_die,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
part_die->sibling = dwarf2_per_objfile->info_buffer
+ dwarf2_get_ref_die_offset (&attr);
break;
- case DW_AT_stmt_list:
- part_die->has_stmt_list = 1;
- part_die->line_offset = DW_UNSND (&attr);
- break;
case DW_AT_byte_size:
part_die->has_byte_size = 1;
break;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -6074,13 +6743,6 @@ read_partial_die (struct partial_die_info *part_die,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
|| dwarf2_per_objfile->has_section_at_zero))
part_die->has_pc_info = 1;
- if (base_address_type != base_address_none && !cu->base_known)
- {
- gdb_assert (part_die->tag == DW_TAG_compile_unit);
- cu->base_known = 1;
- cu->base_address = base_address;
- }
-
return info_ptr;
}
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -6173,7 +6835,9 @@ fixup_partial_die (struct partial_die_info *part_die,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
/* If we found a reference attribute and the DIE has no name, try
to find a name in the referred to DIE. */
- if (part_die->name == NULL && part_die->has_specification)
+ if (part_die->has_specification
+ && (part_die->name == NULL || part_die->linkage_name == NULL
+ || !part_die->is_external))
{
struct partial_die_info *spec_die;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -6189,6 +6853,9 @@ fixup_partial_die (struct partial_die_info *part_die,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
if (spec_die->is_external)
part_die->is_external = spec_die->is_external;
}
+
+ if (spec_die->linkage_name)
+ part_die->linkage_name = spec_die->linkage_name;
}
/* Set default names for some unnamed DIEs. */
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -7512,10 +8179,12 @@ var_decode_location (struct attribute *attr, struct symbol *sym,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
(i.e. when the value of a register or memory location is
referenced, or a thread-local block, etc.). Then again, it might
not be worthwhile. I'm assuming that it isn't unless performance
- or memory numbers show me otherwise. */
+ or memory numbers show me otherwise.
+
+ SYMBOL_CLASS may get overriden by dwarf2_symbol_mark_computed. */
- dwarf2_symbol_mark_computed (attr, sym, cu);
SYMBOL_CLASS (sym) = LOC_COMPUTED;
+ dwarf2_symbol_mark_computed (attr, sym, cu);
}
/* Given a pointer to a DWARF information entry, figure out if we need
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -7538,20 +8207,43 @@ new_symbol (struct die_info *die, struct type *type, struct dwarf2_cu *cu)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
baseaddr = ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
if (die->tag != DW_TAG_namespace)
- name = dwarf2_linkage_name (die, cu);
+ name = dwarf2_name (die, cu);
else
name = TYPE_NAME (type);
if (name)
{
+ const char *linkagename;
+
sym = (struct symbol *) obstack_alloc (&objfile->objfile_obstack,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
sizeof (struct symbol));
OBJSTAT (objfile, n_syms++);
memset (sym, 0, sizeof (struct symbol));
+ /* Some methods are called without checking SYMBOL_OPS validity. */
+ SYMBOL_OPS (sym) = &dwarf2_missing_funcs;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
- /* Cache this symbol's name and the name's demangled form (if any). */
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
SYMBOL_LANGUAGE (sym) = cu->language;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
- SYMBOL_SET_NAMES (sym, name, strlen (name), objfile);
+
+ /* Cache this symbol's name and the name's demangled form (if any). */
+
+ linkagename = dwarf2_linkage_name (die, cu);
+ if (linkagename)
+ /* We use the linkage name if available, for the same reason
+ we used it for TYPE_FN_FIELD_PHYSNAME earlier in this file.
+ This usage can be removed someday. */
+ SYMBOL_SET_NAMES (sym, linkagename, strlen (linkagename), objfile);
+ else if (die->tag == DW_TAG_namespace)
+ SYMBOL_SET_LINKAGE_NAME (sym, name);
+ else
+ {
+ linkagename = dwarf2_full_name (die, cu);
+
+ /* Set just the "linkage" name to the fully qualified name.
+ While this is not really a linkage name, it should match
+ the demangled version of the corresponding minimal symbol
+ if there is one. */
+ SYMBOL_SET_LINKAGE_NAME (sym, (char *) linkagename);
+ }
/* Default assumptions.
Use the passed type or decode it from the die. */
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -7637,7 +8329,15 @@ new_symbol (struct die_info *die, struct type *type, struct dwarf2_cu *cu)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
if (attr)
{
var_decode_location (attr, sym, cu);
- attr2 = dwarf2_attr (die, DW_AT_external, cu);
+
+ /* Fortran explicitely imports any global symbols to the local
+ scope by DW_TAG_common_block. DW_AT_external means for
+ Fortran the variable is importable versus it is automatically
+ imported. */
+ if (cu->language == language_fortran)
+ attr2 = NULL;
+ else
+ attr2 = dwarf2_attr (die, DW_AT_external, cu);
if (attr2 && (DW_UNSND (attr2) != 0))
add_symbol_to_list (sym, &global_symbols);
else
- Archer update to the snapshot: d144a3633454046aaeae3e2c369c271834431d36 - Archer backport: a2c49b7640ebe7ce1376902d48d5bbbee600996b - Fixup compilation older GCCs. - Archer backport: fe48224ce1bd22f37a7fa6d111d54c1a340392bf - KFAIL 4 cases of: gdb.arch/powerpc-power7.exp - Archer backport: d144a3633454046aaeae3e2c369c271834431d36 - Fix C local extern variables (requires gcc-4.4.0-0.30).
2009-03-30 17:32:01 +00:00
@@ -7656,7 +8356,7 @@ new_symbol (struct die_info *die, struct type *type, struct dwarf2_cu *cu)
&& dwarf2_attr (die, DW_AT_type, cu) != NULL)
{
SYMBOL_CLASS (sym) = LOC_UNRESOLVED;
- add_symbol_to_list (sym, &global_symbols);
+ add_symbol_to_list (sym, cu->list_in_scope);
}
}
break;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -7780,6 +8480,11 @@ new_symbol (struct die_info *die, struct type *type, struct dwarf2_cu *cu)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
SYMBOL_CLASS (sym) = LOC_TYPEDEF;
add_symbol_to_list (sym, &global_symbols);
break;
+ case DW_TAG_common_block:
+ SYMBOL_CLASS (sym) = LOC_STATIC;
+ SYMBOL_DOMAIN (sym) = COMMON_BLOCK_DOMAIN;
+ add_symbol_to_list (sym, cu->list_in_scope);
+ break;
default:
/* Not a tag we recognize. Hopefully we aren't processing
trash data, but since we must specifically ignore things
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -8048,6 +8753,9 @@ read_type_die (struct die_info *die, struct dwarf2_cu *cu)
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
break;
}
+ if (this_type)
+ finalize_type (this_type);
+
return this_type;
}
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -8128,6 +8836,19 @@ determine_prefix (struct die_info *die, struct dwarf2_cu *cu)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
members; no typedefs, no member functions, et cetera.
So it does not need a prefix. */
return "";
+
+ case DW_TAG_subprogram:
+ /* A class's symbol, or a variable's symbol, will live
+ directly in a function's block, so no prefix is
+ appropriate. However, what about methods of a
+ function-local class? They end up in the global symbol
+ table because they are separate functions... their mangling
+ normally would make them inaccessible. They'll show up
+ wrong in breakpoints too. This is a symptom of the
+ inconsistent way we handle symbol tables. Namespaces and
+ classes should have dictionaries just like blocks do. */
+ return "";
+
default:
return determine_prefix (parent, cu);
}
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -8192,23 +8913,62 @@ dwarf2_linkage_name (struct die_info *die, struct dwarf2_cu *cu)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
attr = dwarf2_attr (die, DW_AT_MIPS_linkage_name, cu);
if (attr && DW_STRING (attr))
return DW_STRING (attr);
- attr = dwarf2_attr (die, DW_AT_name, cu);
- if (attr && DW_STRING (attr))
- return DW_STRING (attr);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
return NULL;
}
/* Get name of a die, return NULL if not found. */
static char *
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+dwarf2_canonicalize_name (char *name, struct dwarf2_cu *cu,
+ struct obstack *obstack)
+{
- Archer update to the snapshot: 935f217d3367a642374bc56c6b146d376fc3edab - Archer backport: 281278326412f9d6a3fabb8adc1d419fd7ddc7d7 - Fix [expr] crash reading invalid DWARF C++ symbol "" (BZ 490319).
2009-03-15 18:31:43 +00:00
+ if (name && cu->language == language_cplus)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ {
+ char *canon_name = cp_canonicalize_string (name);
+
+ if (canon_name != NULL)
+ {
+ if (strcmp (canon_name, name) != 0)
+ name = obsavestring (canon_name, strlen (canon_name),
+ obstack);
+ xfree (canon_name);
+ }
+ }
+
+ return name;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+}
+
+/* Get name of a die, return NULL if not found. */
+
+static char *
dwarf2_name (struct die_info *die, struct dwarf2_cu *cu)
{
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
struct attribute *attr;
attr = dwarf2_attr (die, DW_AT_name, cu);
- if (attr && DW_STRING (attr))
- return DW_STRING (attr);
- return NULL;
+ if (!attr || !DW_STRING (attr))
+ return NULL;
+
+ switch (die->tag)
+ {
+ case DW_TAG_compile_unit:
+ /* Compilation units have a DW_AT_name that is a filename, not
+ a source language identifier. */
+ case DW_TAG_enumeration_type:
+ case DW_TAG_enumerator:
+ /* These tags always have simple identifiers already; no need
+ to canonicalize them. */
+ return DW_STRING (attr);
+ default:
+ if (attr->form != GDB_FORM_cached_string)
+ {
+ DW_STRING (attr)
+ = dwarf2_canonicalize_name (DW_STRING (attr), cu,
+ &cu->objfile->objfile_obstack);
+ attr->form = GDB_FORM_cached_string;
+ }
+ return DW_STRING (attr);
+ }
}
/* Return the die that this die in an extension of, or NULL if there
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -8703,6 +9463,8 @@ dwarf_form_name (unsigned form)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return "DW_FORM_ref_udata";
case DW_FORM_indirect:
return "DW_FORM_indirect";
+ case GDB_FORM_cached_string:
+ return "GDB_FORM_cached_string";
default:
return "DW_FORM_<unknown>";
}
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -9353,26 +10115,35 @@ dwarf2_get_ref_die_offset (struct attribute *attr)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return result;
}
-/* Return the constant value held by the given attribute. Return -1
- if the value held by the attribute is not constant. */
+/* (*val_return) is filled only if returning dwarf2_attr_const. */
-static int
-dwarf2_get_attr_constant_value (struct attribute *attr, int default_value)
+static enum dwarf2_get_attr_constant_value
+dwarf2_get_attr_constant_value (struct attribute *attr, int *val_return)
{
+ if (attr == NULL)
+ return dwarf2_attr_unknown;
if (attr->form == DW_FORM_sdata)
- return DW_SND (attr);
- else if (attr->form == DW_FORM_udata
- || attr->form == DW_FORM_data1
- || attr->form == DW_FORM_data2
- || attr->form == DW_FORM_data4
- || attr->form == DW_FORM_data8)
- return DW_UNSND (attr);
- else
{
- complaint (&symfile_complaints, _("Attribute value is not a constant (%s)"),
- dwarf_form_name (attr->form));
- return default_value;
+ *val_return = DW_SND (attr);
+ return dwarf2_attr_const;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
}
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ if (attr->form == DW_FORM_udata
+ || attr->form == DW_FORM_data1
+ || attr->form == DW_FORM_data2
+ || attr->form == DW_FORM_data4
+ || attr->form == DW_FORM_data8)
+ {
+ *val_return = DW_UNSND (attr);
+ return dwarf2_attr_const;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ }
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ if (attr->form == DW_FORM_block
+ || attr->form == DW_FORM_block1
+ || attr->form == DW_FORM_block2
+ || attr->form == DW_FORM_block4)
+ return dwarf2_attr_block;
+ complaint (&symfile_complaints, _("Attribute value is not a constant (%s)"),
+ dwarf_form_name (attr->form));
+ return dwarf2_attr_unknown;
}
/* THIS_CU has a reference to PER_CU. If necessary, load the new compilation
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -9963,6 +10734,17 @@ dwarf_decode_macros (struct line_header *lh, unsigned int offset,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
{
gdb_byte *mac_ptr, *mac_end;
struct macro_source_file *current_file = 0;
+ enum dwarf_macinfo_record_type macinfo_type;
+
+ /* Flag is in use by the second pass and determines if GDB is still before
+ first DW_MACINFO_start_file. If true GDB is still reading the definitions
+ from command line. First DW_MACINFO_start_file will need to be ignored as
+ it was already executed to create CURRENT_FILE for the main source holding
+ also the command line definitions. On first met DW_MACINFO_start_file
+ this flag is reset to normally execute all the remaining
+ DW_MACINFO_start_file macinfos. */
+
+ int at_commandline;
if (dwarf2_per_objfile->macinfo_buffer == NULL)
{
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -9970,19 +10752,24 @@ dwarf_decode_macros (struct line_header *lh, unsigned int offset,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return;
}
+ /* Start the first pass to find ahead the main source file name. GDB has to
+ create CURRENT_FILE where to place the macros given to the compiler
+ from the command line. Such command line macros are present before first
+ DW_MACINFO_start_file but still those macros are associated to the
+ compilation unit. The compilation unit GDB identifies by its main source
+ file name. */
+
mac_ptr = dwarf2_per_objfile->macinfo_buffer + offset;
mac_end = dwarf2_per_objfile->macinfo_buffer
+ dwarf2_per_objfile->macinfo_size;
- for (;;)
+ do
{
- enum dwarf_macinfo_record_type macinfo_type;
-
/* Do we at least have room for a macinfo type byte? */
if (mac_ptr >= mac_end)
{
dwarf2_macros_too_long_complaint ();
- return;
+ break;
}
macinfo_type = read_1_byte (abfd, mac_ptr);
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -9993,7 +10780,81 @@ dwarf_decode_macros (struct line_header *lh, unsigned int offset,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
/* A zero macinfo type indicates the end of the macro
information. */
case 0:
- return;
+ break;
+
+ case DW_MACINFO_define:
+ case DW_MACINFO_undef:
+ /* Only skip the data by MAC_PTR. */
+ {
+ unsigned int bytes_read;
+
+ read_unsigned_leb128 (abfd, mac_ptr, &bytes_read);
+ mac_ptr += bytes_read;
+ read_string (abfd, mac_ptr, &bytes_read);
+ mac_ptr += bytes_read;
+ }
+ break;
+
+ case DW_MACINFO_start_file:
+ {
+ unsigned int bytes_read;
+ int line, file;
+
+ line = read_unsigned_leb128 (abfd, mac_ptr, &bytes_read);
+ mac_ptr += bytes_read;
+ file = read_unsigned_leb128 (abfd, mac_ptr, &bytes_read);
+ mac_ptr += bytes_read;
+
+ current_file = macro_start_file (file, line, current_file, comp_dir,
+ lh, cu->objfile);
+ }
+ break;
+
+ case DW_MACINFO_end_file:
+ /* No data to skip by MAC_PTR. */
+ break;
+
+ case DW_MACINFO_vendor_ext:
+ /* Only skip the data by MAC_PTR. */
+ {
+ unsigned int bytes_read;
+
+ read_unsigned_leb128 (abfd, mac_ptr, &bytes_read);
+ mac_ptr += bytes_read;
+ read_string (abfd, mac_ptr, &bytes_read);
+ mac_ptr += bytes_read;
+ }
+ break;
+
+ default:
+ break;
+ }
+ } while (macinfo_type != 0 && current_file == NULL);
+
+ /* Here is the second pass to read in the macros starting from the ones
+ defined at the command line. */
+
+ mac_ptr = dwarf2_per_objfile->macinfo_buffer + offset;
+ at_commandline = 1;
+
+ do
+ {
+ /* Do we at least have room for a macinfo type byte? */
+ if (mac_ptr >= mac_end)
+ {
+ /* Complaint is in the first pass above. */
+ break;
+ }
+
+ macinfo_type = read_1_byte (abfd, mac_ptr);
+ mac_ptr++;
+
+ switch (macinfo_type)
+ {
+ /* A zero macinfo type indicates the end of the macro
+ information. */
+ case 0:
+ break;
case DW_MACINFO_define:
case DW_MACINFO_undef:
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -10008,19 +10869,31 @@ dwarf_decode_macros (struct line_header *lh, unsigned int offset,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
mac_ptr += bytes_read;
if (! current_file)
+ {
+ /* DWARF violation as no main source is present. */
+ complaint (&symfile_complaints,
+ _("debug info with no main source gives macro %s "
+ "on line %d: %s"),
+ macinfo_type ==
+ DW_MACINFO_define ? _("definition") : macinfo_type ==
+ DW_MACINFO_undef ? _("undefinition") :
+ "something-or-other", line, body);
+ break;
+ }
+ if (at_commandline != (line == 0))
complaint (&symfile_complaints,
- _("debug info gives macro %s outside of any file: %s"),
+ _("debug info gives %s macro %s with %s line %d: %s"),
+ at_commandline ? _("command-line") : _("in-file"),
macinfo_type ==
- DW_MACINFO_define ? "definition" : macinfo_type ==
- DW_MACINFO_undef ? "undefinition" :
- "something-or-other", body);
- else
- {
- if (macinfo_type == DW_MACINFO_define)
- parse_macro_definition (current_file, line, body);
- else if (macinfo_type == DW_MACINFO_undef)
- macro_undef (current_file, line, body);
- }
+ DW_MACINFO_define ? _("definition") : macinfo_type ==
+ DW_MACINFO_undef ? _("undefinition") :
+ "something-or-other",
+ line == 0 ? _("zero") : _("non-zero"), line, body);
+
+ if (macinfo_type == DW_MACINFO_define)
+ parse_macro_definition (current_file, line, body);
+ else if (macinfo_type == DW_MACINFO_undef)
+ macro_undef (current_file, line, body);
}
break;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -10034,9 +10907,22 @@ dwarf_decode_macros (struct line_header *lh, unsigned int offset,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
file = read_unsigned_leb128 (abfd, mac_ptr, &bytes_read);
mac_ptr += bytes_read;
- current_file = macro_start_file (file, line,
- current_file, comp_dir,
- lh, cu->objfile);
+ if (at_commandline != (line == 0))
+ complaint (&symfile_complaints,
+ _("debug info gives source %d included "
+ "from %s at %s line %d"),
+ file, at_commandline ? _("command-line") : _("file"),
+ line == 0 ? _("zero") : _("non-zero"), line);
+
+ if (at_commandline)
+ {
+ /* This DW_MACINFO_start_file was executed in the pass one. */
+ at_commandline = 0;
+ }
+ else
+ current_file = macro_start_file (file, line,
+ current_file, comp_dir,
+ lh, cu->objfile);
}
break;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -10090,7 +10976,7 @@ dwarf_decode_macros (struct line_header *lh, unsigned int offset,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
break;
}
- }
+ } while (macinfo_type != 0);
}
/* Check if the attribute's form is a DW_FORM_block*
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -10150,6 +11036,34 @@ attr_form_is_constant (struct attribute *attr)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
}
+/* Convert DW_BLOCK into struct dwarf2_locexpr_baton. ATTR must be a DW_BLOCK
+ attribute type. */
+
+static struct dwarf2_locexpr_baton *
+dwarf2_attr_to_locexpr_baton (struct attribute *attr, struct dwarf2_cu *cu)
+{
+ struct dwarf2_locexpr_baton *baton;
+
+ gdb_assert (attr_form_is_block (attr));
+
+ baton = obstack_alloc (&cu->objfile->objfile_obstack, sizeof (*baton));
+ baton->per_cu = cu->per_cu;
+ gdb_assert (baton->per_cu);
+
+ /* Note that we're just copying the block's data pointer
+ here, not the actual data. We're still pointing into the
+ info_buffer for SYM's objfile; right now we never release
+ that buffer, but when we do clean up properly this may
+ need to change. */
+ baton->size = DW_BLOCK (attr)->size;
+ baton->data = DW_BLOCK (attr)->data;
+ gdb_assert (baton->size == 0 || baton->data != NULL);
+
+ return baton;
+}
+
+/* SYM may get its SYMBOL_CLASS overriden on invalid ATTR content. */
+
static void
dwarf2_symbol_mark_computed (struct attribute *attr, struct symbol *sym,
struct dwarf2_cu *cu)
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -10179,35 +11093,24 @@ dwarf2_symbol_mark_computed (struct attribute *attr, struct symbol *sym,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
SYMBOL_OPS (sym) = &dwarf2_loclist_funcs;
SYMBOL_LOCATION_BATON (sym) = baton;
}
+ else if (attr_form_is_block (attr))
+ {
+ SYMBOL_OPS (sym) = &dwarf2_locexpr_funcs;
+ SYMBOL_LOCATION_BATON (sym) = dwarf2_attr_to_locexpr_baton (attr, cu);
+ }
else
{
- struct dwarf2_locexpr_baton *baton;
+ dwarf2_invalid_attrib_class_complaint ("location description",
+ SYMBOL_NATURAL_NAME (sym));
- baton = obstack_alloc (&cu->objfile->objfile_obstack,
- sizeof (struct dwarf2_locexpr_baton));
- baton->per_cu = cu->per_cu;
- gdb_assert (baton->per_cu);
+ /* Some methods are called without checking SYMBOL_OPS validity. */
+ SYMBOL_OPS (sym) = &dwarf2_missing_funcs;
+ SYMBOL_LOCATION_BATON (sym) = NULL;
- if (attr_form_is_block (attr))
- {
- /* Note that we're just copying the block's data pointer
- here, not the actual data. We're still pointing into the
- info_buffer for SYM's objfile; right now we never release
- that buffer, but when we do clean up properly this may
- need to change. */
- baton->size = DW_BLOCK (attr)->size;
- baton->data = DW_BLOCK (attr)->data;
- }
- else
- {
- dwarf2_invalid_attrib_class_complaint ("location description",
- SYMBOL_NATURAL_NAME (sym));
- baton->size = 0;
- baton->data = NULL;
- }
-
- SYMBOL_OPS (sym) = &dwarf2_locexpr_funcs;
- SYMBOL_LOCATION_BATON (sym) = baton;
+ /* For functions a missing DW_AT_frame_base does not optimize out the
+ whole function definition, only its frame base resolving. */
+ if (attr->name == DW_AT_location)
+ SYMBOL_CLASS (sym) = LOC_OPTIMIZED_OUT;
}
}
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -10482,6 +11385,31 @@ offset_and_type_eq (const void *item_lhs, const void *item_rhs)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return ofs_lhs->offset == ofs_rhs->offset;
}
+/* Fill in generic attributes applicable for type DIEs. */
+
+static void
+fetch_die_type_attrs (struct die_info *die, struct type *type,
+ struct dwarf2_cu *cu)
+{
+ struct attribute *attr;
+
+ attr = dwarf2_attr (die, DW_AT_data_location, cu);
+ if (attr_form_is_block (attr))
+ TYPE_DATA_LOCATION_DWARF_BLOCK (type) = dwarf2_attr_to_locexpr_baton (attr,
+ cu);
+ gdb_assert (!TYPE_DATA_LOCATION_IS_ADDR (type));
+
+ attr = dwarf2_attr (die, DW_AT_allocated, cu);
+ if (attr_form_is_block (attr))
+ TYPE_ALLOCATED (type) = dwarf2_attr_to_locexpr_baton (attr, cu);
+ gdb_assert (!TYPE_NOT_ALLOCATED (type));
+
+ attr = dwarf2_attr (die, DW_AT_associated, cu);
+ if (attr_form_is_block (attr))
+ TYPE_ASSOCIATED (type) = dwarf2_attr_to_locexpr_baton (attr, cu);
+ gdb_assert (!TYPE_NOT_ASSOCIATED (type));
+}
+
/* Set the type associated with DIE to TYPE. Save it in CU's hash
table if necessary. For convenience, return TYPE. */
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -10490,6 +11418,8 @@ set_die_type (struct die_info *die, struct type *type, struct dwarf2_cu *cu)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
{
struct dwarf2_offset_and_type **slot, ofs;
+ fetch_die_type_attrs (die, type, cu);
+
if (cu->type_hash == NULL)
{
gdb_assert (cu->per_cu != NULL);
diff --git a/gdb/elfread.c b/gdb/elfread.c
index ff220a2..13158f4 100644
--- a/gdb/elfread.c
+++ b/gdb/elfread.c
@@ -727,10 +727,18 @@ elf_symfile_read (struct objfile *objfile, int mainline)
str_sect->filepos,
bfd_section_size (abfd, str_sect));
}
+
+ if (dwarf2_has_info (objfile))
+ dwarf2_create_quick_addrmap (objfile);
+}
+
+static void
+read_psyms (struct objfile *objfile)
+{
if (dwarf2_has_info (objfile))
{
/* DWARF 2 sections */
- dwarf2_build_psymtabs (objfile, mainline);
+ dwarf2_build_psymtabs (objfile, 0);
}
/* FIXME: kettenis/20030504: This still needs to be integrated with
@@ -880,6 +888,7 @@ static struct sym_fns elf_sym_fns =
elf_new_init, /* sym_new_init: init anything gbl to entire symtab */
elf_symfile_init, /* sym_init: read initial info, setup for sym_read() */
elf_symfile_read, /* sym_read: read a symbol file into symtab */
+ read_psyms, /* sym_read_psymbols */
elf_symfile_finish, /* sym_finish: finished with file, cleanup */
default_symfile_offsets, /* sym_offsets: Translate ext. to int. relocation */
elf_symfile_segments, /* sym_segments: Get segment information from
diff --git a/gdb/eval.c b/gdb/eval.c
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
index 1d35571..6a97e09 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/eval.c
+++ b/gdb/eval.c
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -39,10 +39,16 @@
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
#include "exceptions.h"
#include "regcache.h"
#include "user-regs.h"
+#include "python/python.h"
#include "valprint.h"
+#include "dwarf2loc.h"
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+#include "gdb_obstack.h"
+#include "objfiles.h"
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
#include "gdb_assert.h"
+#include <ctype.h>
+
/* This is defined in valops.c */
extern int overload_resolution;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -651,6 +657,64 @@ ptrmath_type_p (struct type *type)
}
}
+/* Compares the two method/function types T1 and T2 for "equality"
+ with respect to the the methods' parameters. If the types of the
+ two parameter lists are the same, returns 1; 0 otherwise. This
+ comparison ignores any artificial this pointer. */
+int
+compare_parameters (struct type *t1, struct type *t2)
+{
+ int i, has_this;
+ /* Hacky: we don't know a priori whether or not t1 is a static
+ method, so we skip any artificial "this" pointer and hope
+ for the best. t2, which comes as user input, never contains a
+ "this" pointer (a user would never enter it into expressions. */
+ if (TYPE_NFIELDS (t1) > 0)
+ has_this = TYPE_FIELD_ARTIFICIAL (t1, 0) ? 1 : 0;
+ else
+ has_this = 0;
+
+ /* Special case: a method taking void. t1 will contain either
+ no fields or just "this". t2 will contain TYPE_CODE_VOID. */
+ if ((TYPE_NFIELDS (t1) - has_this) == 0 && TYPE_NFIELDS (t2) == 1
+ && TYPE_CODE (TYPE_FIELD_TYPE (t2, 0)) == TYPE_CODE_VOID)
+ return 1;
+
+ if ((TYPE_NFIELDS (t1) - has_this) == TYPE_NFIELDS (t2))
+ {
+ for (i = has_this; i < TYPE_NFIELDS (t1); ++i)
+ {
+ if (rank_one_type (TYPE_FIELD_TYPE (t1, i),
+ TYPE_FIELD_TYPE (t2, i - has_this))
+ != 0)
+ return 0;
+ }
+
+ return 1;
+ }
+
+ return 0;
+}
+
+/* Constructs a fake method with the given parameter types. */
+
+static struct type *
+make_params (int num_types, struct type **param_types)
+{
+ struct type *type = alloc_type (NULL, NULL);
+ TYPE_LENGTH (type) = 1;
+ TYPE_CODE (type) = TYPE_CODE_METHOD;
+ TYPE_NFIELDS (type) = num_types;
+ TYPE_FIELDS (type) = (struct field *)
+ TYPE_ALLOC (type, sizeof (struct field) * num_types);
+ memset (TYPE_FIELDS (type), 0, sizeof (struct field) * num_types);
+
+ while (num_types-- > 0)
+ TYPE_FIELD_TYPE (type, num_types) = param_types[num_types];
+
+ return type;
+}
+
struct value *
evaluate_subexp_standard (struct type *expect_type,
struct expression *exp, int *pos,
@@ -671,6 +735,7 @@ evaluate_subexp_standard (struct type *expect_type,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
long mem_offset;
struct type **arg_types;
int save_pos1;
+ struct cleanup *old_chain;
pc = (*pos)++;
op = exp->elts[pc].opcode;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -684,7 +749,7 @@ evaluate_subexp_standard (struct type *expect_type,
goto nosideret;
arg1 = value_aggregate_elt (exp->elts[pc + 1].type,
&exp->elts[pc + 3].string,
- 0, noside);
+ expect_type, 0, noside);
if (arg1 == NULL)
error (_("There is no field named %s"), &exp->elts[pc + 3].string);
return arg1;
@@ -1208,9 +1273,9 @@ evaluate_subexp_standard (struct type *expect_type,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
if (TYPE_CODE (value_type (method)) != TYPE_CODE_FUNC)
error (_("method address has symbol information with non-function type; skipping"));
if (struct_return)
- VALUE_ADDRESS (method) = value_as_address (msg_send_stret);
+ set_value_address (method, value_as_address (msg_send_stret));
else
- VALUE_ADDRESS (method) = value_as_address (msg_send);
+ set_value_address (method, value_as_address (msg_send));
called_method = method;
}
else
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -1284,7 +1349,6 @@ evaluate_subexp_standard (struct type *expect_type,
argvec = (struct value **) alloca (sizeof (struct value *) * (nargs + 3));
if (op == STRUCTOP_MEMBER || op == STRUCTOP_MPTR)
{
- nargs++;
/* First, evaluate the structure into arg2 */
pc2 = (*pos)++;
@@ -1308,21 +1372,40 @@ evaluate_subexp_standard (struct type *expect_type,
arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
- if (TYPE_CODE (check_typedef (value_type (arg1)))
- != TYPE_CODE_METHODPTR)
- error (_("Non-pointer-to-member value used in pointer-to-member "
- "construct"));
-
- if (noside == EVAL_AVOID_SIDE_EFFECTS)
+ type = check_typedef (value_type (arg1));
+ switch (TYPE_CODE (type))
{
- struct type *method_type = check_typedef (value_type (arg1));
- arg1 = value_zero (method_type, not_lval);
+ case TYPE_CODE_METHODPTR:
+ if (noside == EVAL_AVOID_SIDE_EFFECTS)
+ arg1 = value_zero (TYPE_TARGET_TYPE (type), not_lval);
+ else
+ arg1 = cplus_method_ptr_to_value (&arg2, arg1);
+
+ /* Now, say which argument to start evaluating from */
+ nargs++;
+ tem = 2;
+ argvec[1] = arg2;
+ break;
+
+ case TYPE_CODE_MEMBERPTR:
+ /* Now, convert these values to an address. */
+ arg2 = value_cast (lookup_pointer_type (TYPE_DOMAIN_TYPE (type)),
+ arg2);
+
+ mem_offset = value_as_long (arg1);
+
+ arg1 = value_from_pointer (lookup_pointer_type (TYPE_TARGET_TYPE (type)),
+ value_as_long (arg2) + mem_offset);
+ arg1 = value_ind (arg1);
+ tem = 1;
+ break;
+
+ default:
+ error (_("Non-pointer-to-member value used in pointer-to-member "
+ "construct"));
}
- else
- arg1 = cplus_method_ptr_to_value (&arg2, arg1);
- /* Now, say which argument to start evaluating from */
- tem = 2;
+ argvec[0] = arg1;
}
else if (op == STRUCTOP_STRUCT || op == STRUCTOP_PTR)
{
@@ -1434,7 +1517,7 @@ evaluate_subexp_standard (struct type *expect_type,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
of the ``this'' pointer if necessary, so modify argvec[1] to
reflect any ``this'' changes. */
arg2 = value_from_longest (lookup_pointer_type(value_type (temp)),
- VALUE_ADDRESS (temp) + value_offset (temp)
+ value_address (temp)
+ value_embedded_offset (temp));
argvec[1] = arg2; /* the ``this'' pointer */
}
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -1448,8 +1531,7 @@ evaluate_subexp_standard (struct type *expect_type,
}
else if (op == STRUCTOP_MEMBER || op == STRUCTOP_MPTR)
{
- argvec[1] = arg2;
- argvec[0] = arg1;
+ /* Pointer to member. argvec is already set up. */
}
else if (op == OP_VAR_VALUE)
{
@@ -1512,6 +1594,9 @@ evaluate_subexp_standard (struct type *expect_type,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
else
error (_("Expression of type other than \"Function returning ...\" used as function"));
}
+ if (TYPE_CODE (value_type (argvec[0])) == TYPE_CODE_INTERNAL_FUNCTION)
+ return call_internal_function (argvec[0], nargs, argvec + 1);
+
return call_function_by_hand (argvec[0], nargs, argvec + 1);
/* pai: FIXME save value from call_function_by_hand, then adjust pc by adjust_fn_pc if +ve */
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -1529,7 +1614,10 @@ evaluate_subexp_standard (struct type *expect_type,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
/* First determine the type code we are dealing with. */
arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
+ old_chain = make_cleanup (null_cleanup, 0);
+ object_address_set (VALUE_ADDRESS (arg1));
type = check_typedef (value_type (arg1));
+ do_cleanups (old_chain);
code = TYPE_CODE (type);
if (code == TYPE_CODE_PTR)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -1696,6 +1784,37 @@ evaluate_subexp_standard (struct type *expect_type,
error (_("non-pointer-to-member value used in pointer-to-member construct"));
}
+ case TYPE_INSTANCE:
+ nargs = longest_to_int (exp->elts[pc + 1].longconst);
+ arg_types = (struct type **) alloca (nargs * sizeof (struct type *));
+ for (ix = 0; ix < nargs; ++ix)
+ arg_types[ix] = exp->elts[pc + 1 + ix + 1].type;
+
+ expect_type = make_params (nargs, arg_types);
+ *(pos) += 3 + nargs;
+ return evaluate_subexp_standard (expect_type, exp, pos, noside);
+
+ case TYPE_INSTANCE_LOOKUP:
+ {
+ int i;
+ struct symbol *sym;
+ struct type **arg_types;
+ (*pos) += 3;
+ printf ("TYPE_INSTANCE_LOOKUP\n");
+ arg_types = (struct type **) alloca (TYPE_NFIELDS (expect_type)
+ * sizeof (struct type *));
+ for (i = 0; i < TYPE_NFIELDS (expect_type); ++i)
+ arg_types[i] = TYPE_FIELD_TYPE (expect_type, i);
+ (void) find_overload_match (arg_types, TYPE_NFIELDS (expect_type),
+ NULL /* no need for name */,
+ 0 /* not method */,
+ 0 /* strict match */,
+ NULL, exp->elts[pc + 1].symbol, NULL,
+ &sym, NULL);
+ i = 0;
+ }
+ break;
+
case BINOP_CONCAT:
arg1 = evaluate_subexp_with_coercion (exp, pos, noside);
arg2 = evaluate_subexp_with_coercion (exp, pos, noside);
@@ -1963,13 +2082,19 @@ evaluate_subexp_standard (struct type *expect_type,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
{
int subscript_array[MAX_FORTRAN_DIMS];
int array_size_array[MAX_FORTRAN_DIMS];
+ int byte_stride_array[MAX_FORTRAN_DIMS];
int ndimensions = 1, i;
struct type *tmp_type;
int offset_item; /* The array offset where the item lives */
+ CORE_ADDR offset_byte; /* byte_stride based offset */
+ unsigned element_size;
if (nargs > MAX_FORTRAN_DIMS)
error (_("Too many subscripts for F77 (%d Max)"), MAX_FORTRAN_DIMS);
+ old_chain = make_cleanup (null_cleanup, 0);
+ object_address_set (VALUE_ADDRESS (arg1));
+
tmp_type = check_typedef (value_type (arg1));
ndimensions = calc_f77_array_dims (type);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -1999,6 +2124,9 @@ evaluate_subexp_standard (struct type *expect_type,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
upper = f77_get_upperbound (tmp_type);
lower = f77_get_lowerbound (tmp_type);
+ byte_stride_array[nargs - i - 1] =
+ TYPE_ARRAY_BYTE_STRIDE_VALUE (tmp_type);
+
array_size_array[nargs - i - 1] = upper - lower + 1;
/* Zero-normalize subscripts so that offsetting will work. */
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -2017,17 +2145,25 @@ evaluate_subexp_standard (struct type *expect_type,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
tmp_type = check_typedef (TYPE_TARGET_TYPE (tmp_type));
}
- /* Now let us calculate the offset for this item */
+ /* Kept for the f77_get_upperbound / f77_get_lowerbound calls above. */
+ do_cleanups (old_chain);
- offset_item = subscript_array[ndimensions - 1];
+ /* Now let us calculate the offset for this item */
- for (i = ndimensions - 1; i > 0; --i)
- offset_item =
- array_size_array[i - 1] * offset_item + subscript_array[i - 1];
+ offset_item = 0;
+ offset_byte = 0;
- /* Construct a value node with the value of the offset */
+ for (i = ndimensions - 1; i >= 0; --i)
+ {
+ offset_item *= array_size_array[i];
+ if (byte_stride_array[i] == 0)
+ offset_item += subscript_array[i];
+ else
+ offset_byte += subscript_array[i] * byte_stride_array[i];
+ }
- arg2 = value_from_longest (builtin_type_int32, offset_item);
+ element_size = TYPE_LENGTH (TYPE_TARGET_TYPE (tmp_type));
+ offset_byte += offset_item * element_size;
/* Let us now play a dirty trick: we will take arg1
which is a value node pointing to the topmost level
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -2037,7 +2173,7 @@ evaluate_subexp_standard (struct type *expect_type,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
returns the correct type value */
deprecated_set_value_type (arg1, tmp_type);
- return value_subscripted_rvalue (arg1, arg2, 0);
+ return value_subscripted_rvalue (arg1, offset_byte);
}
case BINOP_LOGICAL_AND:
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -2475,7 +2611,17 @@ evaluate_subexp_standard (struct type *expect_type,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
if (noside == EVAL_SKIP)
goto nosideret;
else if (noside == EVAL_AVOID_SIDE_EFFECTS)
- return allocate_value (exp->elts[pc + 1].type);
+ {
+ struct type *type = exp->elts[pc + 1].type;
+ /* If this is a typedef, then find its immediate target. We
+ use check_typedef to resolve stubs, but we ignore its
+ result because we do not want to dig past all
+ typedefs. */
+ check_typedef (type);
+ if (TYPE_CODE (type) == TYPE_CODE_TYPEDEF)
+ type = TYPE_TARGET_TYPE (type);
+ return allocate_value (type);
+ }
else
error (_("Attempt to use a type name as an expression"));
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -2568,7 +2714,7 @@ evaluate_subexp_for_address (struct expression *exp, int *pos,
(*pos) += 5 + BYTES_TO_EXP_ELEM (tem + 1);
x = value_aggregate_elt (exp->elts[pc + 1].type,
&exp->elts[pc + 3].string,
- 1, noside);
+ NULL, 1, noside);
if (x == NULL)
error (_("There is no field named %s"), &exp->elts[pc + 3].string);
return x;
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -2613,7 +2759,7 @@ evaluate_subexp_with_coercion (struct expression *exp,
{
enum exp_opcode op;
int pc;
- struct value *val;
+ struct value *val = NULL;
struct symbol *var;
struct type *type;
@@ -2624,12 +2770,17 @@ evaluate_subexp_with_coercion (struct expression *exp,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
{
case OP_VAR_VALUE:
var = exp->elts[pc + 2].symbol;
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ /* address_of_variable will call object_address_set for check_typedef.
+ Call it only if required as it can error-out on VAR in register. */
+ if (TYPE_DYNAMIC (SYMBOL_TYPE (var)))
+ val = address_of_variable (var, exp->elts[pc + 1].block);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
type = check_typedef (SYMBOL_TYPE (var));
if (TYPE_CODE (type) == TYPE_CODE_ARRAY
&& CAST_IS_CONVERSION)
{
(*pos) += 4;
- val = address_of_variable (var, exp->elts[pc + 1].block);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ if (!val)
+ val = address_of_variable (var, exp->elts[pc + 1].block);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return value_cast (lookup_pointer_type (TYPE_TARGET_TYPE (type)),
val);
}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -2681,9 +2832,13 @@ evaluate_subexp_for_sizeof (struct expression *exp, int *pos)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
case OP_VAR_VALUE:
(*pos) += 4;
- type = check_typedef (SYMBOL_TYPE (exp->elts[pc + 2].symbol));
- return
- value_from_longest (size_type, (LONGEST) TYPE_LENGTH (type));
+ /* We do not need to call read_var_value but the object evaluation may
+ need to have executed object_address_set which needs valid
+ SYMBOL_VALUE_ADDRESS of the symbol. Still VALUE returned by
+ read_var_value we left as lazy. */
+ type = value_type (read_var_value (exp->elts[pc + 2].symbol,
+ deprecated_safe_get_selected_frame ()));
+ return value_from_longest (size_type, (LONGEST) TYPE_LENGTH (type));
default:
val = evaluate_subexp (NULL_TYPE, exp, pos, EVAL_AVOID_SIDE_EFFECTS);
diff --git a/gdb/expprint.c b/gdb/expprint.c
index 89bae03..f768940 100644
--- a/gdb/expprint.c
+++ b/gdb/expprint.c
@@ -186,8 +186,8 @@ print_subexp_standard (struct expression *exp, int *pos,
If necessary, we can temporarily set it to zero, or pass it as an
additional parameter to LA_PRINT_STRING. -fnf */
get_user_print_options (&opts);
- LA_PRINT_STRING (stream, &exp->elts[pc + 2].string, nargs, 1, 0,
- &opts);
+ LA_PRINT_STRING (stream, builtin_type (exp->gdbarch)->builtin_char,
+ &exp->elts[pc + 2].string, nargs, 0, &opts);
}
return;
@@ -205,8 +205,8 @@ print_subexp_standard (struct expression *exp, int *pos,
(*pos) += 3 + BYTES_TO_EXP_ELEM (nargs + 1);
fputs_filtered ("@\"", stream);
get_user_print_options (&opts);
- LA_PRINT_STRING (stream, &exp->elts[pc + 2].string, nargs, 1, 0,
- &opts);
+ LA_PRINT_STRING (stream, builtin_type (exp->gdbarch)->builtin_char,
+ &exp->elts[pc + 2].string, nargs, 0, &opts);
fputs_filtered ("\"", stream);
}
return;
@@ -291,8 +291,8 @@ print_subexp_standard (struct expression *exp, int *pos,
{
struct value_print_options opts;
get_user_print_options (&opts);
- LA_PRINT_STRING (stream, tempstr, nargs - 1, 1, 0,
- &opts);
+ LA_PRINT_STRING (stream, builtin_type (exp->gdbarch)->builtin_char,
+ tempstr, nargs - 1, 0, &opts);
(*pos) = pc;
}
else
diff --git a/gdb/expression.h b/gdb/expression.h
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
index 12163e3..789cb89 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/expression.h
+++ b/gdb/expression.h
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -88,6 +88,16 @@ enum exp_opcode
when X is a pointer instead of an aggregate. */
STRUCTOP_MPTR,
+ /* TYPE_INSTANCE is used when the user specifies a specific
+ type instantiation for overloaded methods/functions. The format
+ is: TYPE_INSTANCE num_types type0 ... typeN num_types TYPE_INSTANCE*/
+ TYPE_INSTANCE,
+
+ /* TYPE_INSTANCE_LOOKUP is used when the user specifies a specific
+ type instantiation of a function (not a method). In this case,
+ we must toss the results of the parser and manually do the lookup. */
+ TYPE_INSTANCE_LOOKUP,
+
/* end of C++. */
/* For Modula-2 integer division DIV */
@@ -426,6 +436,8 @@ enum noside
extern struct value *evaluate_subexp_standard
(struct type *, struct expression *, int *, enum noside);
+extern int compare_parameters (struct type *, struct type *);
+
/* From expprint.c */
extern void print_expression (struct expression *, struct ui_file *);
@@ -435,4 +447,5 @@ extern char *op_string (enum exp_opcode);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
extern void dump_raw_expression (struct expression *, struct ui_file *, char *);
extern void dump_prefix_expression (struct expression *, struct ui_file *);
+
#endif /* !defined (EXPRESSION_H) */
diff --git a/gdb/f-exp.y b/gdb/f-exp.y
index d91c413..c984e85 100644
--- a/gdb/f-exp.y
+++ b/gdb/f-exp.y
@@ -198,6 +198,7 @@ static int parse_number (char *, int, int, YYSTYPE *);
/* Special type cases, put in to allow the parser to distinguish different
legal basetypes. */
%token INT_KEYWORD INT_S2_KEYWORD LOGICAL_S1_KEYWORD LOGICAL_S2_KEYWORD
+%token LOGICAL_S8_KEYWORD
%token LOGICAL_KEYWORD REAL_KEYWORD REAL_S8_KEYWORD REAL_S16_KEYWORD
%token COMPLEX_S8_KEYWORD COMPLEX_S16_KEYWORD COMPLEX_S32_KEYWORD
%token BOOL_AND BOOL_OR BOOL_NOT
@@ -608,6 +609,8 @@ typebase /* Implements (approximately): (type-qualifier)* type-specifier */
{ $$ = parse_f_type->builtin_integer_s2; }
| CHARACTER
{ $$ = parse_f_type->builtin_character; }
+ | LOGICAL_S8_KEYWORD
+ { $$ = parse_f_type->builtin_logical_s8;}
| LOGICAL_KEYWORD
{ $$ = parse_f_type->builtin_logical; }
| LOGICAL_S2_KEYWORD
@@ -860,6 +863,7 @@ static const struct token f77_keywords[] =
{ "integer_2", INT_S2_KEYWORD, BINOP_END },
{ "logical_1", LOGICAL_S1_KEYWORD, BINOP_END },
{ "logical_2", LOGICAL_S2_KEYWORD, BINOP_END },
+ { "logical_8", LOGICAL_S8_KEYWORD, BINOP_END },
{ "complex_8", COMPLEX_S8_KEYWORD, BINOP_END },
{ "integer", INT_KEYWORD, BINOP_END },
{ "logical", LOGICAL_KEYWORD, BINOP_END },
diff --git a/gdb/f-lang.c b/gdb/f-lang.c
index 6359841..1754c44 100644
--- a/gdb/f-lang.c
+++ b/gdb/f-lang.c
@@ -55,23 +55,10 @@ typedef struct saved_bf_symnum SAVED_BF, *SAVED_BF_PTR;
/* Local functions */
extern void _initialize_f_language (void);
-#if 0
-static void clear_function_list (void);
-static long get_bf_for_fcn (long);
-static void clear_bf_list (void);
-static void patch_all_commons_by_name (char *, CORE_ADDR, int);
-static SAVED_F77_COMMON_PTR find_first_common_named (char *);
-static void add_common_entry (struct symbol *);
-static void add_common_block (char *, CORE_ADDR, int, char *);
-static SAVED_FUNCTION *allocate_saved_function_node (void);
-static SAVED_BF_PTR allocate_saved_bf_node (void);
-static COMMON_ENTRY_PTR allocate_common_entry_node (void);
-static SAVED_F77_COMMON_PTR allocate_saved_f77_common_node (void);
-static void patch_common_entries (SAVED_F77_COMMON_PTR, CORE_ADDR, int);
-#endif
-
-static void f_printchar (int c, struct ui_file * stream);
-static void f_emit_char (int c, struct ui_file * stream, int quoter);
+
+static void f_printchar (int c, struct type *type, struct ui_file * stream);
+static void f_emit_char (int c, struct type *type,
+ struct ui_file * stream, int quoter);
/* Print the character C on STREAM as part of the contents of a literal
string whose delimiter is QUOTER. Note that that format for printing
@@ -80,7 +67,7 @@ static void f_emit_char (int c, struct ui_file * stream, int quoter);
be replaced with a true F77 version. */
static void
-f_emit_char (int c, struct ui_file *stream, int quoter)
+f_emit_char (int c, struct type *type, struct ui_file *stream, int quoter)
{
c &= 0xFF; /* Avoid sign bit follies */
@@ -126,10 +113,10 @@ f_emit_char (int c, struct ui_file *stream, int quoter)
be replaced with a true F77version. */
static void
-f_printchar (int c, struct ui_file *stream)
+f_printchar (int c, struct type *type, struct ui_file *stream)
{
fputs_filtered ("'", stream);
- LA_EMIT_CHAR (c, stream, '\'');
+ LA_EMIT_CHAR (c, type, stream, '\'');
fputs_filtered ("'", stream);
}
@@ -141,14 +128,15 @@ f_printchar (int c, struct ui_file *stream)
be replaced with a true F77 version. */
static void
-f_printstr (struct ui_file *stream, const gdb_byte *string,
- unsigned int length, int width, int force_ellipses,
+f_printstr (struct ui_file *stream, struct type *type, const gdb_byte *string,
+ unsigned int length, int force_ellipses,
const struct value_print_options *options)
{
unsigned int i;
unsigned int things_printed = 0;
int in_quotes = 0;
int need_comma = 0;
+ int width = TYPE_LENGTH (type);
if (length == 0)
{
@@ -190,7 +178,7 @@ f_printstr (struct ui_file *stream, const gdb_byte *string,
fputs_filtered ("', ", stream);
in_quotes = 0;
}
- f_printchar (string[i], stream);
+ f_printchar (string[i], type, stream);
fprintf_filtered (stream, " <repeats %u times>", reps);
i = rep1 - 1;
things_printed += options->repeat_count_threshold;
@@ -206,7 +194,7 @@ f_printstr (struct ui_file *stream, const gdb_byte *string,
fputs_filtered ("'", stream);
in_quotes = 1;
}
- LA_EMIT_CHAR (string[i], stream, '"');
+ LA_EMIT_CHAR (string[i], type, stream, '"');
++things_printed;
}
}
@@ -257,6 +245,7 @@ enum f_primitive_types {
f_primitive_type_logical,
f_primitive_type_logical_s1,
f_primitive_type_logical_s2,
+ f_primitive_type_logical_s8,
f_primitive_type_integer,
f_primitive_type_integer_s2,
f_primitive_type_real,
@@ -287,6 +276,8 @@ f_language_arch_info (struct gdbarch *gdbarch,
= builtin->builtin_logical_s1;
lai->primitive_type_vector [f_primitive_type_logical_s2]
= builtin->builtin_logical_s2;
+ lai->primitive_type_vector [f_primitive_type_logical_s8]
+ = builtin->builtin_logical_s8;
lai->primitive_type_vector [f_primitive_type_real]
= builtin->builtin_real;
lai->primitive_type_vector [f_primitive_type_real_s8]
@@ -378,6 +369,11 @@ build_fortran_types (struct gdbarch *gdbarch)
gdbarch_short_bit (gdbarch) / TARGET_CHAR_BIT,
TYPE_FLAG_UNSIGNED, "logical*2", (struct objfile *) NULL);
+ builtin_f_type->builtin_logical_s8 =
+ init_type (TYPE_CODE_BOOL,
+ gdbarch_long_long_bit (gdbarch) / TARGET_CHAR_BIT,
+ TYPE_FLAG_UNSIGNED, "logical*8", (struct objfile *) NULL);
+
builtin_f_type->builtin_integer =
init_type (TYPE_CODE_INT,
gdbarch_int_bit (gdbarch) / TARGET_CHAR_BIT,
@@ -451,395 +447,3 @@ _initialize_f_language (void)
add_language (&f_language_defn);
}
-
-#if 0
-static SAVED_BF_PTR
-allocate_saved_bf_node (void)
-{
- SAVED_BF_PTR new;
-
- new = (SAVED_BF_PTR) xmalloc (sizeof (SAVED_BF));
- return (new);
-}
-
-static SAVED_FUNCTION *
-allocate_saved_function_node (void)
-{
- SAVED_FUNCTION *new;
-
- new = (SAVED_FUNCTION *) xmalloc (sizeof (SAVED_FUNCTION));
- return (new);
-}
-
-static SAVED_F77_COMMON_PTR
-allocate_saved_f77_common_node (void)
-{
- SAVED_F77_COMMON_PTR new;
-
- new = (SAVED_F77_COMMON_PTR) xmalloc (sizeof (SAVED_F77_COMMON));
- return (new);
-}
-
-static COMMON_ENTRY_PTR
-allocate_common_entry_node (void)
-{
- COMMON_ENTRY_PTR new;
-
- new = (COMMON_ENTRY_PTR) xmalloc (sizeof (COMMON_ENTRY));
- return (new);
-}
-#endif
-
-SAVED_F77_COMMON_PTR head_common_list = NULL; /* Ptr to 1st saved COMMON */
-SAVED_F77_COMMON_PTR tail_common_list = NULL; /* Ptr to last saved COMMON */
-SAVED_F77_COMMON_PTR current_common = NULL; /* Ptr to current COMMON */
-
-#if 0
-static SAVED_BF_PTR saved_bf_list = NULL; /* Ptr to (.bf,function)
- list */
-static SAVED_BF_PTR saved_bf_list_end = NULL; /* Ptr to above list's end */
-static SAVED_BF_PTR current_head_bf_list = NULL; /* Current head of above list
- */
-
-static SAVED_BF_PTR tmp_bf_ptr; /* Generic temporary for use
- in macros */
-
-/* The following function simply enters a given common block onto
- the global common block chain */
-
-static void
-add_common_block (char *name, CORE_ADDR offset, int secnum, char *func_stab)
-{
- SAVED_F77_COMMON_PTR tmp;
- char *c, *local_copy_func_stab;
-
- /* If the COMMON block we are trying to add has a blank
- name (i.e. "#BLNK_COM") then we set it to __BLANK
- because the darn "#" character makes GDB's input
- parser have fits. */
-
-
- if (strcmp (name, BLANK_COMMON_NAME_ORIGINAL) == 0
- || strcmp (name, BLANK_COMMON_NAME_MF77) == 0)
- {
-
- xfree (name);
- name = alloca (strlen (BLANK_COMMON_NAME_LOCAL) + 1);
- strcpy (name, BLANK_COMMON_NAME_LOCAL);
- }
-
- tmp = allocate_saved_f77_common_node ();
-
- local_copy_func_stab = xmalloc (strlen (func_stab) + 1);
- strcpy (local_copy_func_stab, func_stab);
-
- tmp->name = xmalloc (strlen (name) + 1);
-
- /* local_copy_func_stab is a stabstring, let us first extract the
- function name from the stab by NULLing out the ':' character. */
-
-
- c = NULL;
- c = strchr (local_copy_func_stab, ':');
-
- if (c)
- *c = '\0';
- else
- error (_("Malformed function STAB found in add_common_block()"));
-
-
- tmp->owning_function = xmalloc (strlen (local_copy_func_stab) + 1);
-
- strcpy (tmp->owning_function, local_copy_func_stab);
-
- strcpy (tmp->name, name);
- tmp->offset = offset;
- tmp->next = NULL;
- tmp->entries = NULL;
- tmp->secnum = secnum;
-
- current_common = tmp;
-
- if (head_common_list == NULL)
- {
- head_common_list = tail_common_list = tmp;
- }
- else
- {
- tail_common_list->next = tmp;
- tail_common_list = tmp;
- }
-}
-#endif
-
-/* The following function simply enters a given common entry onto
- the "current_common" block that has been saved away. */
-
-#if 0
-static void
-add_common_entry (struct symbol *entry_sym_ptr)
-{
- COMMON_ENTRY_PTR tmp;
-
-
-
- /* The order of this list is important, since
- we expect the entries to appear in decl.
- order when we later issue "info common" calls */
-
- tmp = allocate_common_entry_node ();
-
- tmp->next = NULL;
- tmp->symbol = entry_sym_ptr;
-
- if (current_common == NULL)
- error (_("Attempt to add COMMON entry with no block open!"));
- else
- {
- if (current_common->entries == NULL)
- {
- current_common->entries = tmp;
- current_common->end_of_entries = tmp;
- }
- else
- {
- current_common->end_of_entries->next = tmp;
- current_common->end_of_entries = tmp;
- }
- }
-}
-#endif
-
-/* This routine finds the first encountred COMMON block named "name" */
-
-#if 0
-static SAVED_F77_COMMON_PTR
-find_first_common_named (char *name)
-{
-
- SAVED_F77_COMMON_PTR tmp;
-
- tmp = head_common_list;
-
- while (tmp != NULL)
- {
- if (strcmp (tmp->name, name) == 0)
- return (tmp);
- else
- tmp = tmp->next;
- }
- return (NULL);
-}
-#endif
-
-/* This routine finds the first encountred COMMON block named "name"
- that belongs to function funcname */
-
-SAVED_F77_COMMON_PTR
-find_common_for_function (char *name, char *funcname)
-{
-
- SAVED_F77_COMMON_PTR tmp;
-
- tmp = head_common_list;
-
- while (tmp != NULL)
- {
- if (strcmp (tmp->name, name) == 0
- && strcmp (tmp->owning_function, funcname) == 0)
- return (tmp);
- else
- tmp = tmp->next;
- }
- return (NULL);
-}
-
-
-#if 0
-
-/* The following function is called to patch up the offsets
- for the statics contained in the COMMON block named
- "name." */
-
-static void
-patch_common_entries (SAVED_F77_COMMON_PTR blk, CORE_ADDR offset, int secnum)
-{
- COMMON_ENTRY_PTR entry;
-
- blk->offset = offset; /* Keep this around for future use. */
-
- entry = blk->entries;
-
- while (entry != NULL)
- {
- SYMBOL_VALUE (entry->symbol) += offset;
- SYMBOL_SECTION (entry->symbol) = secnum;
-
- entry = entry->next;
- }
- blk->secnum = secnum;
-}
-
-/* Patch all commons named "name" that need patching.Since COMMON
- blocks occur with relative infrequency, we simply do a linear scan on
- the name. Eventually, the best way to do this will be a
- hashed-lookup. Secnum is the section number for the .bss section
- (which is where common data lives). */
-
-static void
-patch_all_commons_by_name (char *name, CORE_ADDR offset, int secnum)
-{
-
- SAVED_F77_COMMON_PTR tmp;
-
- /* For blank common blocks, change the canonical reprsentation
- of a blank name */
-
- if (strcmp (name, BLANK_COMMON_NAME_ORIGINAL) == 0
- || strcmp (name, BLANK_COMMON_NAME_MF77) == 0)
- {
- xfree (name);
- name = alloca (strlen (BLANK_COMMON_NAME_LOCAL) + 1);
- strcpy (name, BLANK_COMMON_NAME_LOCAL);
- }
-
- tmp = head_common_list;
-
- while (tmp != NULL)
- {
- if (COMMON_NEEDS_PATCHING (tmp))
- if (strcmp (tmp->name, name) == 0)
- patch_common_entries (tmp, offset, secnum);
-
- tmp = tmp->next;
- }
-}
-#endif
-
-/* This macro adds the symbol-number for the start of the function
- (the symbol number of the .bf) referenced by symnum_fcn to a
- list. This list, in reality should be a FIFO queue but since
- #line pragmas sometimes cause line ranges to get messed up
- we simply create a linear list. This list can then be searched
- first by a queueing algorithm and upon failure fall back to
- a linear scan. */
-
-#if 0
-#define ADD_BF_SYMNUM(bf_sym,fcn_sym) \
- \
- if (saved_bf_list == NULL) \
-{ \
- tmp_bf_ptr = allocate_saved_bf_node(); \
- \
- tmp_bf_ptr->symnum_bf = (bf_sym); \
- tmp_bf_ptr->symnum_fcn = (fcn_sym); \
- tmp_bf_ptr->next = NULL; \
- \
- current_head_bf_list = saved_bf_list = tmp_bf_ptr; \
- saved_bf_list_end = tmp_bf_ptr; \
- } \
-else \
-{ \
- tmp_bf_ptr = allocate_saved_bf_node(); \
- \
- tmp_bf_ptr->symnum_bf = (bf_sym); \
- tmp_bf_ptr->symnum_fcn = (fcn_sym); \
- tmp_bf_ptr->next = NULL; \
- \
- saved_bf_list_end->next = tmp_bf_ptr; \
- saved_bf_list_end = tmp_bf_ptr; \
- }
-#endif
-
-/* This function frees the entire (.bf,function) list */
-
-#if 0
-static void
-clear_bf_list (void)
-{
-
- SAVED_BF_PTR tmp = saved_bf_list;
- SAVED_BF_PTR next = NULL;
-
- while (tmp != NULL)
- {
- next = tmp->next;
- xfree (tmp);
- tmp = next;
- }
- saved_bf_list = NULL;
-}
-#endif
-
-int global_remote_debug;
-
-#if 0
-
-static long
-get_bf_for_fcn (long the_function)
-{
- SAVED_BF_PTR tmp;
- int nprobes = 0;
-
- /* First use a simple queuing algorithm (i.e. look and see if the
- item at the head of the queue is the one you want) */
-
- if (saved_bf_list == NULL)
- internal_error (__FILE__, __LINE__,
- _("cannot get .bf node off empty list"));
-
- if (current_head_bf_list != NULL)
- if (current_head_bf_list->symnum_fcn == the_function)
- {
- if (global_remote_debug)
- fprintf_unfiltered (gdb_stderr, "*");
-
- tmp = current_head_bf_list;
- current_head_bf_list = current_head_bf_list->next;
- return (tmp->symnum_bf);
- }
-
- /* If the above did not work (probably because #line directives were
- used in the sourcefile and they messed up our internal tables) we now do
- the ugly linear scan */
-
- if (global_remote_debug)
- fprintf_unfiltered (gdb_stderr, "\ndefaulting to linear scan\n");
-
- nprobes = 0;
- tmp = saved_bf_list;
- while (tmp != NULL)
- {
- nprobes++;
- if (tmp->symnum_fcn == the_function)
- {
- if (global_remote_debug)
- fprintf_unfiltered (gdb_stderr, "Found in %d probes\n", nprobes);
- current_head_bf_list = tmp->next;
- return (tmp->symnum_bf);
- }
- tmp = tmp->next;
- }
-
- return (-1);
-}
-
-static SAVED_FUNCTION_PTR saved_function_list = NULL;
-static SAVED_FUNCTION_PTR saved_function_list_end = NULL;
-
-static void
-clear_function_list (void)
-{
- SAVED_FUNCTION_PTR tmp = saved_function_list;
- SAVED_FUNCTION_PTR next = NULL;
-
- while (tmp != NULL)
- {
- next = tmp->next;
- xfree (tmp);
- tmp = next;
- }
-
- saved_function_list = NULL;
-}
-#endif
diff --git a/gdb/f-lang.h b/gdb/f-lang.h
index 711bdba..cd2f804 100644
--- a/gdb/f-lang.h
+++ b/gdb/f-lang.h
@@ -28,6 +28,10 @@ extern void f_error (char *); /* Defined in f-exp.y */
extern void f_print_type (struct type *, char *, struct ui_file *, int,
int);
+extern const char *f_object_address_data_valid_print_to_stream
+ (struct type *type, struct ui_file *stream);
+extern void f_object_address_data_valid_or_error (struct type *type);
+
extern int f_val_print (struct type *, const gdb_byte *, int, CORE_ADDR,
struct ui_file *, int,
const struct value_print_options *);
@@ -47,41 +51,8 @@ enum f90_range_type
NONE_BOUND_DEFAULT /* "(low:high)" */
};
-struct common_entry
- {
- struct symbol *symbol; /* The symbol node corresponding
- to this component */
- struct common_entry *next; /* The next component */
- };
-
-struct saved_f77_common
- {
- char *name; /* Name of COMMON */
- char *owning_function; /* Name of parent function */
- int secnum; /* Section # of .bss */
- CORE_ADDR offset; /* Offset from .bss for
- this block */
- struct common_entry *entries; /* List of block's components */
- struct common_entry *end_of_entries; /* ptr. to end of components */
- struct saved_f77_common *next; /* Next saved COMMON block */
- };
-
-typedef struct saved_f77_common SAVED_F77_COMMON, *SAVED_F77_COMMON_PTR;
-
-typedef struct common_entry COMMON_ENTRY, *COMMON_ENTRY_PTR;
-
-extern SAVED_F77_COMMON_PTR head_common_list; /* Ptr to 1st saved COMMON */
-extern SAVED_F77_COMMON_PTR tail_common_list; /* Ptr to last saved COMMON */
-extern SAVED_F77_COMMON_PTR current_common; /* Ptr to current COMMON */
-
-extern SAVED_F77_COMMON_PTR find_common_for_function (char *, char *);
-
-#define UNINITIALIZED_SECNUM -1
-#define COMMON_NEEDS_PATCHING(blk) ((blk)->secnum == UNINITIALIZED_SECNUM)
-
#define BLANK_COMMON_NAME_ORIGINAL "#BLNK_COM" /* XLF assigned */
#define BLANK_COMMON_NAME_MF77 "__BLNK__" /* MF77 assigned */
-#define BLANK_COMMON_NAME_LOCAL "__BLANK" /* Local GDB */
/* When reasonable array bounds cannot be fetched, such as when
you ask to 'mt print symbols' and there is no stack frame and
@@ -113,6 +84,7 @@ struct builtin_f_type
struct type *builtin_logical;
struct type *builtin_logical_s1;
struct type *builtin_logical_s2;
+ struct type *builtin_logical_s8;
struct type *builtin_real;
struct type *builtin_real_s8;
struct type *builtin_real_s16;
diff --git a/gdb/f-typeprint.c b/gdb/f-typeprint.c
index 6c9668f..852b9a8 100644
--- a/gdb/f-typeprint.c
+++ b/gdb/f-typeprint.c
@@ -31,7 +31,7 @@
#include "gdbcore.h"
#include "target.h"
#include "f-lang.h"
-
+#include "dwarf2loc.h"
#include "gdb_string.h"
#include <errno.h>
@@ -48,6 +48,34 @@ void f_type_print_varspec_prefix (struct type *, struct ui_file *,
void f_type_print_base (struct type *, struct ui_file *, int, int);
+const char *
+f_object_address_data_valid_print_to_stream (struct type *type,
+ struct ui_file *stream)
+{
+ const char *msg;
+
+ msg = object_address_data_not_valid (type);
+ if (msg != NULL)
+ {
+ /* Assuming the content printed to STREAM should not be localized. */
+ fprintf_filtered (stream, "<%s>", msg);
+ }
+
+ return msg;
+}
+
+void
+f_object_address_data_valid_or_error (struct type *type)
+{
+ const char *msg;
+
+ msg = object_address_data_not_valid (type);
+ if (msg != NULL)
+ {
+ error (_("Cannot access it because the %s."), _(msg));
+ }
+}
+
/* LEVEL is the depth to indent lines by. */
void
@@ -57,6 +85,9 @@ f_print_type (struct type *type, char *varstring, struct ui_file *stream,
enum type_code code;
int demangled_args;
+ if (f_object_address_data_valid_print_to_stream (type, stream) != NULL)
+ return;
+
f_type_print_base (type, stream, show, level);
code = TYPE_CODE (type);
if ((varstring != NULL && *varstring != '\0')
@@ -166,6 +197,9 @@ f_type_print_varspec_suffix (struct type *type, struct ui_file *stream,
QUIT;
+ if (TYPE_CODE (type) != TYPE_CODE_TYPEDEF)
+ CHECK_TYPEDEF (type);
+
switch (TYPE_CODE (type))
{
case TYPE_CODE_ARRAY:
diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c
index 5721041..2cff7bc 100644
--- a/gdb/f-valprint.c
+++ b/gdb/f-valprint.c
@@ -34,10 +34,8 @@
#include "gdbcore.h"
#include "command.h"
#include "block.h"
-
-#if 0
-static int there_is_a_visible_common_named (char *);
-#endif
+#include "dictionary.h"
+#include "gdb_assert.h"
extern void _initialize_f_valprint (void);
static void info_common_command (char *, int);
@@ -54,15 +52,17 @@ int f77_array_offset_tbl[MAX_FORTRAN_DIMS + 1][2];
/* The following macro gives us the size of the nth dimension, Where
n is 1 based. */
-#define F77_DIM_SIZE(n) (f77_array_offset_tbl[n][1])
+#define F77_DIM_COUNT(n) (f77_array_offset_tbl[n][1])
-/* The following gives us the offset for row n where n is 1-based. */
+/* The following gives us the element size for row n where n is 1-based. */
-#define F77_DIM_OFFSET(n) (f77_array_offset_tbl[n][0])
+#define F77_DIM_BYTE_STRIDE(n) (f77_array_offset_tbl[n][0])
int
f77_get_lowerbound (struct type *type)
{
+ f_object_address_data_valid_or_error (type);
+
if (TYPE_ARRAY_LOWER_BOUND_IS_UNDEFINED (type))
error (_("Lower bound may not be '*' in F77"));
@@ -72,14 +72,17 @@ f77_get_lowerbound (struct type *type)
int
f77_get_upperbound (struct type *type)
{
+ f_object_address_data_valid_or_error (type);
+
if (TYPE_ARRAY_UPPER_BOUND_IS_UNDEFINED (type))
{
- /* We have an assumed size array on our hands. Assume that
- upper_bound == lower_bound so that we show at least 1 element.
- If the user wants to see more elements, let him manually ask for 'em
- and we'll subscript the array and show him. */
+ /* We have an assumed size array on our hands. As type_length_get
+ already assumes a length zero of arrays with underfined bounds VALADDR
+ passed to the Fortran functions does not contained the real inferior
+ memory content. User should request printing of specific array
+ elements instead. */
- return f77_get_lowerbound (type);
+ return f77_get_lowerbound (type) - 1;
}
return TYPE_ARRAY_UPPER_BOUND_VALUE (type);
@@ -135,24 +138,29 @@ f77_create_arrayprint_offset_tbl (struct type *type, struct ui_file *stream)
upper = f77_get_upperbound (tmp_type);
lower = f77_get_lowerbound (tmp_type);
- F77_DIM_SIZE (ndimen) = upper - lower + 1;
+ F77_DIM_COUNT (ndimen) = upper - lower + 1;
+
+ F77_DIM_BYTE_STRIDE (ndimen) =
+ TYPE_ARRAY_BYTE_STRIDE_VALUE (tmp_type);
tmp_type = TYPE_TARGET_TYPE (tmp_type);
ndimen++;
}
- /* Now we multiply eltlen by all the offsets, so that later we
+ /* Now we multiply eltlen by all the BYTE_STRIDEs, so that later we
can print out array elements correctly. Up till now we
- know an offset to apply to get the item but we also
+ know an eltlen to apply to get the item but we also
have to know how much to add to get to the next item */
ndimen--;
eltlen = TYPE_LENGTH (tmp_type);
- F77_DIM_OFFSET (ndimen) = eltlen;
+ if (F77_DIM_BYTE_STRIDE (ndimen) == 0)
+ F77_DIM_BYTE_STRIDE (ndimen) = eltlen;
while (--ndimen > 0)
{
- eltlen *= F77_DIM_SIZE (ndimen + 1);
- F77_DIM_OFFSET (ndimen) = eltlen;
+ eltlen *= F77_DIM_COUNT (ndimen + 1);
+ if (F77_DIM_BYTE_STRIDE (ndimen) == 0)
+ F77_DIM_BYTE_STRIDE (ndimen) = eltlen;
}
}
@@ -172,34 +180,34 @@ f77_print_array_1 (int nss, int ndimensions, struct type *type,
if (nss != ndimensions)
{
- for (i = 0; (i < F77_DIM_SIZE (nss) && (*elts) < options->print_max); i++)
+ for (i = 0; (i < F77_DIM_COUNT (nss) && (*elts) < options->print_max); i++)
{
fprintf_filtered (stream, "( ");
f77_print_array_1 (nss + 1, ndimensions, TYPE_TARGET_TYPE (type),
- valaddr + i * F77_DIM_OFFSET (nss),
- address + i * F77_DIM_OFFSET (nss),
+ valaddr + i * F77_DIM_BYTE_STRIDE (nss),
+ address + i * F77_DIM_BYTE_STRIDE (nss),
stream, recurse, options, elts);
fprintf_filtered (stream, ") ");
}
- if (*elts >= options->print_max && i < F77_DIM_SIZE (nss))
+ if (*elts >= options->print_max && i < F77_DIM_COUNT (nss))
fprintf_filtered (stream, "...");
}
else
{
- for (i = 0; i < F77_DIM_SIZE (nss) && (*elts) < options->print_max;
+ for (i = 0; i < F77_DIM_COUNT (nss) && (*elts) < options->print_max;
i++, (*elts)++)
{
val_print (TYPE_TARGET_TYPE (type),
- valaddr + i * F77_DIM_OFFSET (ndimensions),
+ valaddr + i * F77_DIM_BYTE_STRIDE (ndimensions),
0,
- address + i * F77_DIM_OFFSET (ndimensions),
+ address + i * F77_DIM_BYTE_STRIDE (ndimensions),
stream, recurse, options, current_language);
- if (i != (F77_DIM_SIZE (nss) - 1))
+ if (i != (F77_DIM_COUNT (nss) - 1))
fprintf_filtered (stream, ", ");
if ((*elts == options->print_max - 1)
- && (i != (F77_DIM_SIZE (nss) - 1)))
+ && (i != (F77_DIM_COUNT (nss) - 1)))
fprintf_filtered (stream, "...");
}
}
@@ -251,12 +259,16 @@ f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
CORE_ADDR addr;
int index;
+ if (f_object_address_data_valid_print_to_stream (type, stream) != NULL)
+ return 0;
+
CHECK_TYPEDEF (type);
switch (TYPE_CODE (type))
{
case TYPE_CODE_STRING:
f77_get_dynamic_length_of_aggregate (type);
- LA_PRINT_STRING (stream, valaddr, TYPE_LENGTH (type), 1, 0, options);
+ LA_PRINT_STRING (stream, builtin_type (current_gdbarch)->builtin_char,
+ valaddr, TYPE_LENGTH (type), 0, options);
break;
case TYPE_CODE_ARRAY:
@@ -293,7 +305,7 @@ f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
&& TYPE_CODE (elttype) == TYPE_CODE_INT
&& (options->format == 0 || options->format == 's')
&& addr != 0)
- i = val_print_string (addr, -1, TYPE_LENGTH (elttype), stream,
+ i = val_print_string (TYPE_TARGET_TYPE (type), addr, -1, stream,
options);
/* Return number of characters printed, including the terminating
@@ -365,7 +377,7 @@ f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
{
fputs_filtered (" ", stream);
LA_PRINT_CHAR ((unsigned char) unpack_long (type, valaddr),
- stream);
+ type, stream);
}
}
break;
@@ -464,22 +476,54 @@ f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
return 0;
}
-static void
-list_all_visible_commons (char *funname)
+static int
+info_common_command_for_block (struct block *block, struct frame_info *frame,
+ const char *comname)
{
- SAVED_F77_COMMON_PTR tmp;
-
- tmp = head_common_list;
-
- printf_filtered (_("All COMMON blocks visible at this level:\n\n"));
-
- while (tmp != NULL)
- {
- if (strcmp (tmp->owning_function, funname) == 0)
- printf_filtered ("%s\n", tmp->name);
-
- tmp = tmp->next;
- }
+ struct dict_iterator iter;
+ struct symbol *sym;
+ int values_printed = 0;
+ const char *name;
+ struct value_print_options opts;
+
+ get_user_print_options (&opts);
+
+ ALL_BLOCK_SYMBOLS (block, iter, sym)
+ if (SYMBOL_DOMAIN (sym) == COMMON_BLOCK_DOMAIN)
+ {
+ struct type *type = SYMBOL_TYPE (sym);
+ int index;
+
+ gdb_assert (SYMBOL_CLASS (sym) == LOC_STATIC);
+ gdb_assert (TYPE_CODE (type) == TYPE_CODE_STRUCT);
+
+ if (comname && (!SYMBOL_LINKAGE_NAME (sym)
+ || strcmp (comname, SYMBOL_LINKAGE_NAME (sym)) != 0))
+ continue;
+
+ values_printed = 1;
+ if (SYMBOL_PRINT_NAME (sym))
+ printf_filtered (_("Contents of F77 COMMON block '%s':\n"),
+ SYMBOL_PRINT_NAME (sym));
+ else
+ printf_filtered (_("Contents of blank COMMON block:\n"));
+
+ for (index = 0; index < TYPE_NFIELDS (type); index++)
+ {
+ struct value *val;
+
+ gdb_assert (field_is_static (&TYPE_FIELD (type, index)));
+ val = value_static_field (type, index);
+
+ printf_filtered ("%s = ", TYPE_FIELD_NAME (type, index));
+ value_print (val, gdb_stdout, &opts);
+ putchar_filtered ('\n');
+ }
+
+ putchar_filtered ('\n');
+ }
+
+ return values_printed;
}
/* This function is used to print out the values in a given COMMON
@@ -489,11 +533,9 @@ list_all_visible_commons (char *funname)
static void
info_common_command (char *comname, int from_tty)
{
- SAVED_F77_COMMON_PTR the_common;
- COMMON_ENTRY_PTR entry;
struct frame_info *fi;
- char *funname = 0;
- struct symbol *func;
+ struct block *block;
+ int values_printed = 0;
/* We have been told to display the contents of F77 COMMON
block supposedly visible in this function. Let us
@@ -505,136 +547,32 @@ info_common_command (char *comname, int from_tty)
/* The following is generally ripped off from stack.c's routine
print_frame_info() */
- func = find_pc_function (get_frame_pc (fi));
- if (func)
- {
- /* In certain pathological cases, the symtabs give the wrong
- function (when we are in the first function in a file which
- is compiled without debugging symbols, the previous function
- is compiled with debugging symbols, and the "foo.o" symbol
- that is supposed to tell us where the file with debugging symbols
- ends has been truncated by ar because it is longer than 15
- characters).
-
- So look in the minimal symbol tables as well, and if it comes
- up with a larger address for the function use that instead.
- I don't think this can ever cause any problems; there shouldn't
- be any minimal symbols in the middle of a function.
- FIXME: (Not necessarily true. What about text labels) */
-
- struct minimal_symbol *msymbol =
- lookup_minimal_symbol_by_pc (get_frame_pc (fi));
-
- if (msymbol != NULL
- && (SYMBOL_VALUE_ADDRESS (msymbol)
- > BLOCK_START (SYMBOL_BLOCK_VALUE (func))))
- funname = SYMBOL_LINKAGE_NAME (msymbol);
- else
- funname = SYMBOL_LINKAGE_NAME (func);
- }
- else
- {
- struct minimal_symbol *msymbol =
- lookup_minimal_symbol_by_pc (get_frame_pc (fi));
-
- if (msymbol != NULL)
- funname = SYMBOL_LINKAGE_NAME (msymbol);
- else /* Got no 'funname', code below will fail. */
- error (_("No function found for frame."));
- }
-
- /* If comname is NULL, we assume the user wishes to see the
- which COMMON blocks are visible here and then return */
-
- if (comname == 0)
+ block = get_frame_block (fi, 0);
+ if (block == NULL)
{
- list_all_visible_commons (funname);
+ printf_filtered (_("No symbol table info available.\n"));
return;
}
- the_common = find_common_for_function (comname, funname);
-
- if (the_common)
+ while (block)
{
- if (strcmp (comname, BLANK_COMMON_NAME_LOCAL) == 0)
- printf_filtered (_("Contents of blank COMMON block:\n"));
- else
- printf_filtered (_("Contents of F77 COMMON block '%s':\n"), comname);
-
- printf_filtered ("\n");
- entry = the_common->entries;
-
- while (entry != NULL)
- {
- print_variable_and_value (NULL, entry->symbol, fi, gdb_stdout, 0);
- entry = entry->next;
- }
+ if (info_common_command_for_block (block, fi, comname))
+ values_printed = 1;
+ /* After handling the function's top-level block, stop. Don't
+ continue to its superblock, the block of per-file symbols. */
+ if (BLOCK_FUNCTION (block))
+ break;
+ block = BLOCK_SUPERBLOCK (block);
}
- else
- printf_filtered (_("Cannot locate the common block %s in function '%s'\n"),
- comname, funname);
-}
-
-/* This function is used to determine whether there is a
- F77 common block visible at the current scope called 'comname'. */
-
-#if 0
-static int
-there_is_a_visible_common_named (char *comname)
-{
- SAVED_F77_COMMON_PTR the_common;
- struct frame_info *fi;
- char *funname = 0;
- struct symbol *func;
-
- if (comname == NULL)
- error (_("Cannot deal with NULL common name!"));
- fi = get_selected_frame (_("No frame selected"));
-
- /* The following is generally ripped off from stack.c's routine
- print_frame_info() */
-
- func = find_pc_function (fi->pc);
- if (func)
+ if (!values_printed)
{
- /* In certain pathological cases, the symtabs give the wrong
- function (when we are in the first function in a file which
- is compiled without debugging symbols, the previous function
- is compiled with debugging symbols, and the "foo.o" symbol
- that is supposed to tell us where the file with debugging symbols
- ends has been truncated by ar because it is longer than 15
- characters).
-
- So look in the minimal symbol tables as well, and if it comes
- up with a larger address for the function use that instead.
- I don't think this can ever cause any problems; there shouldn't
- be any minimal symbols in the middle of a function.
- FIXME: (Not necessarily true. What about text labels) */
-
- struct minimal_symbol *msymbol = lookup_minimal_symbol_by_pc (fi->pc);
-
- if (msymbol != NULL
- && (SYMBOL_VALUE_ADDRESS (msymbol)
- > BLOCK_START (SYMBOL_BLOCK_VALUE (func))))
- funname = SYMBOL_LINKAGE_NAME (msymbol);
+ if (comname)
+ printf_filtered (_("No common block '%s'.\n"), comname);
else
- funname = SYMBOL_LINKAGE_NAME (func);
+ printf_filtered (_("No common blocks.\n"));
}
- else
- {
- struct minimal_symbol *msymbol =
- lookup_minimal_symbol_by_pc (fi->pc);
-
- if (msymbol != NULL)
- funname = SYMBOL_LINKAGE_NAME (msymbol);
- }
-
- the_common = find_common_for_function (comname, funname);
-
- return (the_common ? 1 : 0);
}
-#endif
void
_initialize_f_valprint (void)
diff --git a/gdb/findcmd.c b/gdb/findcmd.c
index 7ae43e5..2894948 100644
--- a/gdb/findcmd.c
+++ b/gdb/findcmd.c
@@ -26,7 +26,7 @@
/* Copied from bfd_put_bits. */
-static void
+void
put_bits (bfd_uint64_t data, char *buf, int bits, bfd_boolean big_p)
{
int i;
@@ -44,6 +44,41 @@ put_bits (bfd_uint64_t data, char *buf, int bits, bfd_boolean big_p)
}
}
+/* Allocates a buffer in *PATTERN_BUF, with a hard-coded initial size which
+ will be returned in *PATTERN_BUF_SIZE. *PATTERN_BUF_END points to the same
+ place as *PATTERN_BUF, indicating that the buffer is initially empty. */
+
+void
+allocate_pattern_buffer (char **pattern_buf, char **pattern_buf_end,
+ ULONGEST *pattern_buf_size)
+{
+#define INITIAL_PATTERN_BUF_SIZE 100
+ *pattern_buf_size = INITIAL_PATTERN_BUF_SIZE;
+ *pattern_buf = xmalloc (*pattern_buf_size);
+ *pattern_buf_end = *pattern_buf;
+}
+
+/* Grows *PATTERN_BUF by a factor of two if it's not large enough to hold
+ VAL_BYTES more bytes or a 64-bit value, whichever is larger.
+ *PATTERN_BUF_END is updated as necessary. */
+
+void
+increase_pattern_buffer (char **pattern_buf, char **pattern_buf_end,
+ ULONGEST *pattern_buf_size, int val_bytes)
+{
+ /* Keep it simple and assume size == 'g' when watching for when we
+ need to grow the pattern buf. */
+ if ((*pattern_buf_end - *pattern_buf + max (val_bytes, sizeof (int64_t)))
+ > *pattern_buf_size)
+ {
+ size_t current_offset = *pattern_buf_end - *pattern_buf;
+
+ *pattern_buf_size *= 2;
+ *pattern_buf = xrealloc (*pattern_buf, *pattern_buf_size);
+ *pattern_buf_end = *pattern_buf + current_offset;
+ }
+}
+
/* Subroutine of find_command to simplify it.
Parse the arguments of the "find" command. */
@@ -59,8 +94,7 @@ parse_find_args (char *args, ULONGEST *max_countp,
char *pattern_buf;
/* Current size of search pattern buffer.
We realloc space as needed. */
-#define INITIAL_PATTERN_BUF_SIZE 100
- ULONGEST pattern_buf_size = INITIAL_PATTERN_BUF_SIZE;
+ ULONGEST pattern_buf_size;
/* Pointer to one past the last in-use part of pattern_buf. */
char *pattern_buf_end;
ULONGEST pattern_len;
@@ -74,8 +108,7 @@ parse_find_args (char *args, ULONGEST *max_countp,
if (args == NULL)
error (_("Missing search parameters."));
- pattern_buf = xmalloc (pattern_buf_size);
- pattern_buf_end = pattern_buf;
+ allocate_pattern_buffer (&pattern_buf, &pattern_buf_end, &pattern_buf_size);
old_cleanups = make_cleanup (free_current_contents, &pattern_buf);
/* Get search granularity and/or max count if specified.
@@ -172,16 +205,8 @@ parse_find_args (char *args, ULONGEST *max_countp,
v = parse_to_comma_and_eval (&s);
val_bytes = TYPE_LENGTH (value_type (v));
- /* Keep it simple and assume size == 'g' when watching for when we
- need to grow the pattern buf. */
- if ((pattern_buf_end - pattern_buf + max (val_bytes, sizeof (int64_t)))
- > pattern_buf_size)
- {
- size_t current_offset = pattern_buf_end - pattern_buf;
- pattern_buf_size *= 2;
- pattern_buf = xrealloc (pattern_buf, pattern_buf_size);
- pattern_buf_end = pattern_buf + current_offset;
- }
+ increase_pattern_buffer (&pattern_buf, &pattern_buf_end,
+ &pattern_buf_size, val_bytes);
if (size != '\0')
{
@@ -236,6 +261,45 @@ parse_find_args (char *args, ULONGEST *max_countp,
discard_cleanups (old_cleanups);
}
+/* Drives target_search_memory to sweep through the specified search space,
+ possibly in several iterations (with one call to this function for each
+ iteration). *START_ADDR is the address where the search starts, and is
+ updated to the next starting address to continue the search.
+ *SEARCH_SPACE_LEN is the amount of bytes which will be searched, and is
+ updated for the next iteration. PATTERN_BUF holds the pattern to be searched
+ for, PATTERN_LEN is the size of the pattern in bytes. If a match is found,
+ it's address is put in *FOUND_ADDR.
+
+ Returns 1 if found, 0 if not found, and -1 if there was an error requiring
+ halting of the search (e.g. memory read error). */
+
+int
+search_memory (CORE_ADDR *start_addr, ULONGEST *search_space_len,
+ const char *pattern_buf, ULONGEST pattern_len,
+ CORE_ADDR *found_addr)
+{
+ /* Offset from start of this iteration to the next iteration. */
+ ULONGEST next_iter_incr;
+ int found;
+
+ found = target_search_memory (*start_addr, *search_space_len,
+ pattern_buf, pattern_len, found_addr);
+ if (found <= 0)
+ return found;
+
+ /* Begin next iteration at one byte past this match. */
+ next_iter_incr = (*found_addr - *start_addr) + 1;
+
+ /* For robustness, we don't let search_space_len go -ve here. */
+ if (*search_space_len >= next_iter_incr)
+ *search_space_len -= next_iter_incr;
+ else
+ *search_space_len = 0;
+ *start_addr += next_iter_incr;
+
+ return found;
+}
+
static void
find_command (char *args, int from_tty)
{
@@ -264,12 +328,11 @@ find_command (char *args, int from_tty)
while (search_space_len >= pattern_len
&& found_count < max_count)
{
- /* Offset from start of this iteration to the next iteration. */
- ULONGEST next_iter_incr;
CORE_ADDR found_addr;
- int found = target_search_memory (start_addr, search_space_len,
- pattern_buf, pattern_len, &found_addr);
+ int found;
+ found = search_memory (&start_addr, &search_space_len, pattern_buf,
+ pattern_len, &found_addr);
if (found <= 0)
break;
@@ -277,16 +340,6 @@ find_command (char *args, int from_tty)
printf_filtered ("\n");
++found_count;
last_found_addr = found_addr;
-
- /* Begin next iteration at one byte past this match. */
- next_iter_incr = (found_addr - start_addr) + 1;
-
- /* For robustness, we don't let search_space_len go -ve here. */
- if (search_space_len >= next_iter_incr)
- search_space_len -= next_iter_incr;
- else
- search_space_len = 0;
- start_addr += next_iter_incr;
}
/* Record and print the results. */
diff --git a/gdb/findvar.c b/gdb/findvar.c
index 1048887..b958ec6 100644
--- a/gdb/findvar.c
+++ b/gdb/findvar.c
@@ -35,6 +35,7 @@
#include "user-regs.h"
#include "block.h"
#include "objfiles.h"
+#include "dwarf2loc.h"
/* Basic byte-swapping routines. GDB has needed these for a long time...
All extract a target-format integer at ADDR which is LEN bytes long. */
@@ -275,7 +276,7 @@ value_of_register (int regnum, struct frame_info *frame)
memcpy (value_contents_raw (reg_val), raw_buffer,
register_size (gdbarch, regnum));
VALUE_LVAL (reg_val) = lval;
- VALUE_ADDRESS (reg_val) = addr;
+ set_value_address (reg_val, addr);
VALUE_REGNUM (reg_val) = regnum;
set_value_optimized_out (reg_val, optim);
VALUE_FRAME_ID (reg_val) = get_frame_id (frame);
@@ -382,27 +383,16 @@ symbol_read_needs_frame (struct symbol *sym)
/* Given a struct symbol for a variable,
and a stack frame id, read the value of the variable
and return a (pointer to a) struct value containing the value.
- If the variable cannot be found, return a zero pointer. */
+ If the variable cannot be found, return a zero pointer.
+ We have to first find the address of the variable before allocating struct
+ value to return as its size may depend on DW_OP_PUSH_OBJECT_ADDRESS possibly
+ used by its type. */
struct value *
read_var_value (struct symbol *var, struct frame_info *frame)
{
- struct value *v;
struct type *type = SYMBOL_TYPE (var);
CORE_ADDR addr;
- int len;
-
- if (SYMBOL_CLASS (var) == LOC_COMPUTED
- || SYMBOL_CLASS (var) == LOC_REGISTER)
- /* These cases do not use V. */
- v = NULL;
- else
- {
- v = allocate_value (type);
- VALUE_LVAL (v) = lval_memory; /* The most likely possibility. */
- }
-
- len = TYPE_LENGTH (type);
if (symbol_read_needs_frame (var))
gdb_assert (frame);
@@ -410,31 +400,39 @@ read_var_value (struct symbol *var, struct frame_info *frame)
switch (SYMBOL_CLASS (var))
{
case LOC_CONST:
- /* Put the constant back in target format. */
- store_signed_integer (value_contents_raw (v), len,
- (LONGEST) SYMBOL_VALUE (var));
- VALUE_LVAL (v) = not_lval;
- return v;
+ {
+ /* Put the constant back in target format. */
+ struct value *v = allocate_value (type);
+ VALUE_LVAL (v) = not_lval;
+ store_signed_integer (value_contents_raw (v), TYPE_LENGTH (type),
+ (LONGEST) SYMBOL_VALUE (var));
+ return v;
+ }
case LOC_LABEL:
- /* Put the constant back in target format. */
- if (overlay_debugging)
- {
- CORE_ADDR addr
- = symbol_overlayed_address (SYMBOL_VALUE_ADDRESS (var),
- SYMBOL_OBJ_SECTION (var));
- store_typed_address (value_contents_raw (v), type, addr);
- }
- else
- store_typed_address (value_contents_raw (v), type,
- SYMBOL_VALUE_ADDRESS (var));
- VALUE_LVAL (v) = not_lval;
- return v;
+ {
+ /* Put the constant back in target format. */
+ struct value *v = allocate_value (type);
+ VALUE_LVAL (v) = not_lval;
+ if (overlay_debugging)
+ {
+ CORE_ADDR addr
+ = symbol_overlayed_address (SYMBOL_VALUE_ADDRESS (var),
+ SYMBOL_OBJ_SECTION (var));
+ store_typed_address (value_contents_raw (v), type, addr);
+ }
+ else
+ store_typed_address (value_contents_raw (v), type,
+ SYMBOL_VALUE_ADDRESS (var));
+ return v;
+ }
case LOC_CONST_BYTES:
{
- memcpy (value_contents_raw (v), SYMBOL_VALUE_BYTES (var), len);
+ struct value *v = allocate_value (type);
VALUE_LVAL (v) = not_lval;
+ memcpy (value_contents_raw (v), SYMBOL_VALUE_BYTES (var),
+ TYPE_LENGTH (type));
return v;
}
@@ -476,12 +474,23 @@ read_var_value (struct symbol *var, struct frame_info *frame)
break;
case LOC_BLOCK:
- if (overlay_debugging)
- VALUE_ADDRESS (v) = symbol_overlayed_address
- (BLOCK_START (SYMBOL_BLOCK_VALUE (var)), SYMBOL_OBJ_SECTION (var));
- else
- VALUE_ADDRESS (v) = BLOCK_START (SYMBOL_BLOCK_VALUE (var));
- return v;
+ {
+ CORE_ADDR addr;
+ struct value *v;
+
+ if (overlay_debugging)
+ addr = symbol_overlayed_address
+ (BLOCK_START (SYMBOL_BLOCK_VALUE (var)), SYMBOL_OBJ_SECTION (var));
+ else
+ addr = BLOCK_START (SYMBOL_BLOCK_VALUE (var));
+ /* ADDR is set here for ALLOCATE_VALUE's CHECK_TYPEDEF for
+ DW_OP_push_object_address. */
+ object_address_set (addr);
+ v = allocate_value (type);
+ VALUE_ADDRESS (v) = addr;
+ VALUE_LVAL (v) = lval_memory;
+ return v;
+ }
case LOC_REGISTER:
case LOC_REGPARM_ADDR:
@@ -499,7 +508,6 @@ read_var_value (struct symbol *var, struct frame_info *frame)
error (_("Value of register variable not available."));
addr = value_as_address (regval);
- VALUE_LVAL (v) = lval_memory;
}
else
{
@@ -542,18 +550,33 @@ read_var_value (struct symbol *var, struct frame_info *frame)
break;
case LOC_OPTIMIZED_OUT:
- VALUE_LVAL (v) = not_lval;
- set_value_optimized_out (v, 1);
- return v;
+ {
+ struct value *v = allocate_value (type);
+
+ VALUE_LVAL (v) = not_lval;
+ set_value_optimized_out (v, 1);
+ return v;
+ }
default:
error (_("Cannot look up value of a botched symbol."));
break;
}
- VALUE_ADDRESS (v) = addr;
- set_value_lazy (v, 1);
- return v;
+ {
+ struct value *v;
+
+ /* ADDR is set here for ALLOCATE_VALUE's CHECK_TYPEDEF for
+ DW_OP_PUSH_OBJECT_ADDRESS. */
+ object_address_set (addr);
+ v = allocate_value (type);
+ VALUE_ADDRESS (v) = addr;
+ VALUE_LVAL (v) = lval_memory;
+
+ set_value_lazy (v, 1);
+
+ return v;
+ }
}
/* Install default attributes for register values. */
@@ -590,10 +613,11 @@ struct value *
value_from_register (struct type *type, int regnum, struct frame_info *frame)
{
struct gdbarch *gdbarch = get_frame_arch (frame);
- struct type *type1 = check_typedef (type);
struct value *v;
- if (gdbarch_convert_register_p (gdbarch, regnum, type1))
+ type = check_typedef (type);
+
+ if (gdbarch_convert_register_p (gdbarch, regnum, type))
{
/* The ISA/ABI need to something weird when obtaining the
specified value from this register. It might need to
@@ -607,7 +631,7 @@ value_from_register (struct type *type, int regnum, struct frame_info *frame)
VALUE_FRAME_ID (v) = get_frame_id (frame);
VALUE_REGNUM (v) = regnum;
gdbarch_register_to_value (gdbarch,
- frame, regnum, type1, value_contents_raw (v));
+ frame, regnum, type, value_contents_raw (v));
}
else
{
diff --git a/gdb/frame.c b/gdb/frame.c
index dfd6b3d..2ea37c3 100644
--- a/gdb/frame.c
+++ b/gdb/frame.c
@@ -596,7 +596,7 @@ frame_register_unwind (struct frame_info *frame, int regnum,
*optimizedp = value_optimized_out (value);
*lvalp = VALUE_LVAL (value);
- *addrp = VALUE_ADDRESS (value);
+ *addrp = value_address (value);
*realnump = VALUE_REGNUM (value);
if (bufferp)
@@ -682,7 +682,7 @@ frame_unwind_register_value (struct frame_info *frame, int regnum)
VALUE_REGNUM (value));
else if (VALUE_LVAL (value) == lval_memory)
fprintf_unfiltered (gdb_stdlog, " address=0x%s",
- paddr_nz (VALUE_ADDRESS (value)));
+ paddr_nz (value_address (value)));
else
fprintf_unfiltered (gdb_stdlog, " computed");
diff --git a/gdb/frv-tdep.c b/gdb/frv-tdep.c
index ff387db..452f70c 100644
--- a/gdb/frv-tdep.c
+++ b/gdb/frv-tdep.c
@@ -1230,7 +1230,7 @@ frv_push_dummy_call (struct gdbarch *gdbarch, struct value *function,
if (typecode == TYPE_CODE_STRUCT || typecode == TYPE_CODE_UNION)
{
- store_unsigned_integer (valbuf, 4, VALUE_ADDRESS (arg));
+ store_unsigned_integer (valbuf, 4, value_address (arg));
typecode = TYPE_CODE_PTR;
len = 4;
val = valbuf;
diff --git a/gdb/gdb_locale.h b/gdb/gdb_locale.h
index e8ba0ea..4fa4d3d 100644
--- a/gdb/gdb_locale.h
+++ b/gdb/gdb_locale.h
@@ -41,4 +41,8 @@
# define N_(String) (String)
#endif
+#ifdef HAVE_LANGINFO_CODESET
+#include <langinfo.h>
+#endif
+
#endif /* GDB_LOCALE_H */
diff --git a/gdb/gdb_obstack.h b/gdb/gdb_obstack.h
index 48f49cd..cd1a1d7 100644
--- a/gdb/gdb_obstack.h
+++ b/gdb/gdb_obstack.h
@@ -45,4 +45,7 @@
#define obstack_grow_str0(OBSTACK,STRING) \
obstack_grow0 (OBSTACK, STRING, strlen (STRING))
+#define obstack_grow_wstr(OBSTACK, WSTRING) \
+ obstack_grow (OBSTACK, WSTRING, sizeof (wchar_t) * wcslen (WSTRING))
+
#endif
diff --git a/gdb/gdbarch.c b/gdb/gdbarch.c
index 3273b34..d6c737b 100644
--- a/gdb/gdbarch.c
+++ b/gdb/gdbarch.c
@@ -243,6 +243,11 @@ struct gdbarch
gdbarch_target_signal_to_host_ftype *target_signal_to_host;
gdbarch_get_siginfo_type_ftype *get_siginfo_type;
gdbarch_record_special_symbol_ftype *record_special_symbol;
+ gdbarch_get_syscall_number_ftype *get_syscall_number;
+ gdbarch_get_syscall_by_number_ftype *get_syscall_by_number;
+ gdbarch_get_syscall_by_name_ftype *get_syscall_by_name;
+ gdbarch_get_syscall_names_ftype *get_syscall_names;
+ const char * xml_syscall_filename;
int has_global_solist;
};
@@ -378,6 +383,11 @@ struct gdbarch startup_gdbarch =
default_target_signal_to_host, /* target_signal_to_host */
0, /* get_siginfo_type */
0, /* record_special_symbol */
+ 0, /* get_syscall_number */
+ 0, /* get_syscall_by_number */
+ 0, /* get_syscall_by_name */
+ 0, /* get_syscall_names */
+ 0, /* xml_syscall_filename */
0, /* has_global_solist */
/* startup_gdbarch() */
};
@@ -634,6 +644,11 @@ verify_gdbarch (struct gdbarch *gdbarch)
/* Skip verify of target_signal_to_host, invalid_p == 0 */
/* Skip verify of get_siginfo_type, has predicate */
/* Skip verify of record_special_symbol, has predicate */
+ /* Skip verify of get_syscall_number, has predicate */
+ /* Skip verify of get_syscall_by_number, has predicate */
+ /* Skip verify of get_syscall_by_name, has predicate */
+ /* Skip verify of get_syscall_names, has predicate */
+ /* Skip verify of xml_syscall_filename, invalid_p == 0 */
/* Skip verify of has_global_solist, invalid_p == 0 */
buf = ui_file_xstrdup (log, &dummy);
make_cleanup (xfree, buf);
@@ -859,6 +874,30 @@ gdbarch_dump (struct gdbarch *gdbarch, struct ui_file *file)
"gdbarch_dump: get_siginfo_type = <%s>\n",
host_address_to_string (gdbarch->get_siginfo_type));
fprintf_unfiltered (file,
+ "gdbarch_dump: gdbarch_get_syscall_by_name_p() = %d\n",
+ gdbarch_get_syscall_by_name_p (gdbarch));
+ fprintf_unfiltered (file,
+ "gdbarch_dump: get_syscall_by_name = <%s>\n",
+ host_address_to_string (gdbarch->get_syscall_by_name));
+ fprintf_unfiltered (file,
+ "gdbarch_dump: gdbarch_get_syscall_by_number_p() = %d\n",
+ gdbarch_get_syscall_by_number_p (gdbarch));
+ fprintf_unfiltered (file,
+ "gdbarch_dump: get_syscall_by_number = <%s>\n",
+ host_address_to_string (gdbarch->get_syscall_by_number));
+ fprintf_unfiltered (file,
+ "gdbarch_dump: gdbarch_get_syscall_names_p() = %d\n",
+ gdbarch_get_syscall_names_p (gdbarch));
+ fprintf_unfiltered (file,
+ "gdbarch_dump: get_syscall_names = <%s>\n",
+ host_address_to_string (gdbarch->get_syscall_names));
+ fprintf_unfiltered (file,
+ "gdbarch_dump: gdbarch_get_syscall_number_p() = %d\n",
+ gdbarch_get_syscall_number_p (gdbarch));
+ fprintf_unfiltered (file,
+ "gdbarch_dump: get_syscall_number = <%s>\n",
+ host_address_to_string (gdbarch->get_syscall_number));
+ fprintf_unfiltered (file,
"gdbarch_dump: has_global_solist = %s\n",
plongest (gdbarch->has_global_solist));
fprintf_unfiltered (file,
@@ -1122,6 +1161,9 @@ gdbarch_dump (struct gdbarch *gdbarch, struct ui_file *file)
fprintf_unfiltered (file,
"gdbarch_dump: write_pc = <%s>\n",
host_address_to_string (gdbarch->write_pc));
+ fprintf_unfiltered (file,
+ "gdbarch_dump: xml_syscall_filename = %s\n",
+ gdbarch->xml_syscall_filename);
if (gdbarch->dump_tdep != NULL)
gdbarch->dump_tdep (gdbarch, file);
}
@@ -3333,6 +3375,119 @@ set_gdbarch_record_special_symbol (struct gdbarch *gdbarch,
}
int
+gdbarch_get_syscall_number_p (struct gdbarch *gdbarch)
+{
+ gdb_assert (gdbarch != NULL);
+ return gdbarch->get_syscall_number != NULL;
+}
+
+LONGEST
+gdbarch_get_syscall_number (struct gdbarch *gdbarch, ptid_t ptid)
+{
+ gdb_assert (gdbarch != NULL);
+ gdb_assert (gdbarch->get_syscall_number != NULL);
+ if (gdbarch_debug >= 2)
+ fprintf_unfiltered (gdb_stdlog, "gdbarch_get_syscall_number called\n");
+ return gdbarch->get_syscall_number (gdbarch, ptid);
+}
+
+void
+set_gdbarch_get_syscall_number (struct gdbarch *gdbarch,
+ gdbarch_get_syscall_number_ftype get_syscall_number)
+{
+ gdbarch->get_syscall_number = get_syscall_number;
+}
+
+int
+gdbarch_get_syscall_by_number_p (struct gdbarch *gdbarch)
+{
+ gdb_assert (gdbarch != NULL);
+ return gdbarch->get_syscall_by_number != NULL;
+}
+
+void
+gdbarch_get_syscall_by_number (struct gdbarch *gdbarch, int syscall_number, struct syscall *s)
+{
+ gdb_assert (gdbarch != NULL);
+ gdb_assert (gdbarch->get_syscall_by_number != NULL);
+ if (gdbarch_debug >= 2)
+ fprintf_unfiltered (gdb_stdlog, "gdbarch_get_syscall_by_number called\n");
+ gdbarch->get_syscall_by_number (gdbarch, syscall_number, s);
+}
+
+void
+set_gdbarch_get_syscall_by_number (struct gdbarch *gdbarch,
+ gdbarch_get_syscall_by_number_ftype get_syscall_by_number)
+{
+ gdbarch->get_syscall_by_number = get_syscall_by_number;
+}
+
+int
+gdbarch_get_syscall_by_name_p (struct gdbarch *gdbarch)
+{
+ gdb_assert (gdbarch != NULL);
+ return gdbarch->get_syscall_by_name != NULL;
+}
+
+void
+gdbarch_get_syscall_by_name (struct gdbarch *gdbarch, const char *syscall_name, struct syscall *s)
+{
+ gdb_assert (gdbarch != NULL);
+ gdb_assert (gdbarch->get_syscall_by_name != NULL);
+ if (gdbarch_debug >= 2)
+ fprintf_unfiltered (gdb_stdlog, "gdbarch_get_syscall_by_name called\n");
+ gdbarch->get_syscall_by_name (gdbarch, syscall_name, s);
+}
+
+void
+set_gdbarch_get_syscall_by_name (struct gdbarch *gdbarch,
+ gdbarch_get_syscall_by_name_ftype get_syscall_by_name)
+{
+ gdbarch->get_syscall_by_name = get_syscall_by_name;
+}
+
+int
+gdbarch_get_syscall_names_p (struct gdbarch *gdbarch)
+{
+ gdb_assert (gdbarch != NULL);
+ return gdbarch->get_syscall_names != NULL;
+}
+
+const char **
+gdbarch_get_syscall_names (struct gdbarch *gdbarch)
+{
+ gdb_assert (gdbarch != NULL);
+ gdb_assert (gdbarch->get_syscall_names != NULL);
+ if (gdbarch_debug >= 2)
+ fprintf_unfiltered (gdb_stdlog, "gdbarch_get_syscall_names called\n");
+ return gdbarch->get_syscall_names (gdbarch);
+}
+
+void
+set_gdbarch_get_syscall_names (struct gdbarch *gdbarch,
+ gdbarch_get_syscall_names_ftype get_syscall_names)
+{
+ gdbarch->get_syscall_names = get_syscall_names;
+}
+
+const char *
+gdbarch_xml_syscall_filename (struct gdbarch *gdbarch)
+{
+ gdb_assert (gdbarch != NULL);
+ /* Skip verify of xml_syscall_filename, invalid_p == 0 */
+ if (gdbarch_debug >= 2)
+ fprintf_unfiltered (gdb_stdlog, "gdbarch_xml_syscall_filename called\n");
+ return gdbarch->xml_syscall_filename;
+}
+
+void
+set_gdbarch_xml_syscall_filename (struct gdbarch *gdbarch,
+ const char * xml_syscall_filename)
+{
+ gdbarch->xml_syscall_filename = xml_syscall_filename;
+}
+
+int
gdbarch_has_global_solist (struct gdbarch *gdbarch)
{
gdb_assert (gdbarch != NULL);
diff --git a/gdb/gdbarch.h b/gdb/gdbarch.h
index 04c8920..017b9df 100644
--- a/gdb/gdbarch.h
+++ b/gdb/gdbarch.h
@@ -52,6 +52,7 @@ struct bp_target_info;
struct target_desc;
struct displaced_step_closure;
struct core_regset_section;
+struct syscall;
extern struct gdbarch *current_gdbarch;
extern struct gdbarch *target_gdbarch;
@@ -839,6 +840,47 @@ typedef void (gdbarch_record_special_symbol_ftype) (struct gdbarch *gdbarch, str
extern void gdbarch_record_special_symbol (struct gdbarch *gdbarch, struct objfile *objfile, asymbol *sym);
extern void set_gdbarch_record_special_symbol (struct gdbarch *gdbarch, gdbarch_record_special_symbol_ftype *record_special_symbol);
+/* Functions for the 'catch syscall' feature.
+ Get architecture-specific system calls information from registers. */
+
+extern int gdbarch_get_syscall_number_p (struct gdbarch *gdbarch);
+
+typedef LONGEST (gdbarch_get_syscall_number_ftype) (struct gdbarch *gdbarch, ptid_t ptid);
+extern LONGEST gdbarch_get_syscall_number (struct gdbarch *gdbarch, ptid_t ptid);
+extern void set_gdbarch_get_syscall_number (struct gdbarch *gdbarch, gdbarch_get_syscall_number_ftype *get_syscall_number);
+
+/* Fills the struct syscall (passed as argument) with the corresponding
+ system call represented by syscall_number. */
+
+extern int gdbarch_get_syscall_by_number_p (struct gdbarch *gdbarch);
+
+typedef void (gdbarch_get_syscall_by_number_ftype) (struct gdbarch *gdbarch, int syscall_number, struct syscall *s);
+extern void gdbarch_get_syscall_by_number (struct gdbarch *gdbarch, int syscall_number, struct syscall *s);
+extern void set_gdbarch_get_syscall_by_number (struct gdbarch *gdbarch, gdbarch_get_syscall_by_number_ftype *get_syscall_by_number);
+
+/* Fills the struct syscall (passed as argument) with the corresponding
+ system call represented by syscall_name. */
+
+extern int gdbarch_get_syscall_by_name_p (struct gdbarch *gdbarch);
+
+typedef void (gdbarch_get_syscall_by_name_ftype) (struct gdbarch *gdbarch, const char *syscall_name, struct syscall *s);
+extern void gdbarch_get_syscall_by_name (struct gdbarch *gdbarch, const char *syscall_name, struct syscall *s);
+extern void set_gdbarch_get_syscall_by_name (struct gdbarch *gdbarch, gdbarch_get_syscall_by_name_ftype *get_syscall_by_name);
+
+/* Returns the array containing the syscall names for the architecture. */
+
+extern int gdbarch_get_syscall_names_p (struct gdbarch *gdbarch);
+
+typedef const char ** (gdbarch_get_syscall_names_ftype) (struct gdbarch *gdbarch);
+extern const char ** gdbarch_get_syscall_names (struct gdbarch *gdbarch);
+extern void set_gdbarch_get_syscall_names (struct gdbarch *gdbarch, gdbarch_get_syscall_names_ftype *get_syscall_names);
+
+/* Stores the name of syscall's XML file. Contains NULL if the file
+ was not set. */
+
+extern const char * gdbarch_xml_syscall_filename (struct gdbarch *gdbarch);
+extern void set_gdbarch_xml_syscall_filename (struct gdbarch *gdbarch, const char * xml_syscall_filename);
+
/* True if the list of shared libraries is one and only for all
processes, as opposed to a list of shared libraries per inferior.
When this property is true, GDB assumes that since shared libraries
@@ -848,6 +890,9 @@ extern void set_gdbarch_record_special_symbol (struct gdbarch *gdbarch, gdbarch_
extern int gdbarch_has_global_solist (struct gdbarch *gdbarch);
extern void set_gdbarch_has_global_solist (struct gdbarch *gdbarch, int has_global_solist);
+/* Definition for an unknown syscall, used basically in error-cases. */
+#define UNKNOWN_SYSCALL (-1)
+
extern struct gdbarch_tdep *gdbarch_tdep (struct gdbarch *gdbarch);
diff --git a/gdb/gdbarch.sh b/gdb/gdbarch.sh
index f93bfc1..66cbcd0 100755
--- a/gdb/gdbarch.sh
+++ b/gdb/gdbarch.sh
@@ -724,6 +724,26 @@ M:struct type *:get_siginfo_type:void:
# Record architecture-specific information from the symbol table.
M:void:record_special_symbol:struct objfile *objfile, asymbol *sym:objfile, sym
+# Functions for the 'catch syscall' feature.
+
+# Get architecture-specific system calls information from registers.
+M:LONGEST:get_syscall_number:ptid_t ptid:ptid
+
+# Fills the struct syscall (passed as argument) with the corresponding
+# system call represented by syscall_number.
+M:void:get_syscall_by_number:int syscall_number, struct syscall *s:syscall_number, s
+
+# Fills the struct syscall (passed as argument) with the corresponding
+# system call represented by syscall_name.
+M:void:get_syscall_by_name:const char *syscall_name, struct syscall *s:syscall_name, s
+
+# Returns the array containing the syscall names for the architecture.
+M:const char **:get_syscall_names:void:
+
+# Stores the name of syscall's XML file. Contains NULL if the file
+# was not set.
+v:const char *:xml_syscall_filename:::0:0::0:gdbarch->xml_syscall_filename
+
# True if the list of shared libraries is one and only for all
# processes, as opposed to a list of shared libraries per inferior.
# When this property is true, GDB assumes that since shared libraries
@@ -842,6 +862,7 @@ struct bp_target_info;
struct target_desc;
struct displaced_step_closure;
struct core_regset_section;
+struct syscall;
extern struct gdbarch *current_gdbarch;
extern struct gdbarch *target_gdbarch;
@@ -911,6 +932,9 @@ done
# close it off
cat <<EOF
+/* Definition for an unknown syscall, used basically in error-cases. */
+#define UNKNOWN_SYSCALL (-1)
+
extern struct gdbarch_tdep *gdbarch_tdep (struct gdbarch *gdbarch);
diff --git a/gdb/gdbinit.in b/gdb/gdbinit.in
index ffb7f53..a2e7e94 100644
--- a/gdb/gdbinit.in
+++ b/gdb/gdbinit.in
@@ -1,5 +1,15 @@
echo Setting up the environment for debugging gdb.\n
+# Set up the Python library and "require" command.
+python
+from os.path import abspath
+gdb.datadir = abspath ('@srcdir@/python/lib')
+gdb.pythonlibdir = gdb.datadir
+gdb.__path__ = [gdb.datadir + '/gdb']
+sys.path.insert(0, gdb.datadir)
+end
+source @srcdir@/python/lib/gdb/__init__.py
+
set complaints 1
b internal_error
diff --git a/gdb/gdbthread.h b/gdb/gdbthread.h
index 3a405a8..a2e2636 100644
--- a/gdb/gdbthread.h
+++ b/gdb/gdbthread.h
@@ -228,6 +228,9 @@ struct thread_info *find_thread_id (int num);
/* Change the ptid of thread OLD_PTID to NEW_PTID. */
void thread_change_ptid (ptid_t old_ptid, ptid_t new_ptid);
+/* Prune dead threads from the list of threads. */
+extern void prune_threads (void);
+
/* Iterator function to call a user-provided callback function
once for each known thread. */
typedef int (*thread_callback_func) (struct thread_info *, void *);
diff --git a/gdb/gdbtypes.c b/gdb/gdbtypes.c
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
index 8102321..012485c 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/gdbtypes.c
+++ b/gdb/gdbtypes.c
@@ -38,6 +38,8 @@
#include "cp-abi.h"
#include "gdb_assert.h"
#include "hashtab.h"
+#include "dwarf2expr.h"
+#include "dwarf2loc.h"
/* These variables point to the objects
representing the predefined C data types. */
@@ -146,6 +148,23 @@ static void print_bit_vector (B_TYPE *, int);
static void print_arg_types (struct field *, int, int);
static void dump_fn_fieldlists (struct type *, int);
static void print_cplus_stuff (struct type *, int);
+static void type_init_refc (struct type *new_type, struct type *parent_type);
+
+/* A reference count structure for the type reference count map. Each
+ type in a hierarchy of types is mapped to the same reference
+ count. */
+struct type_refc_entry
+{
+ /* One type in the hierarchy. Each type in the hierarchy gets its
+ own slot. */
+ struct type *type;
+
+ /* A pointer to the shared reference count. */
+ int *refc;
+};
+
+/* The hash table holding all reference counts. */
+static htab_t type_refc_table;
/* Alloc a new type structure and fill it with some defaults. If
@@ -154,23 +173,25 @@ static void print_cplus_stuff (struct type *, int);
structure by xmalloc () (for permanent types). */
struct type *
-alloc_type (struct objfile *objfile)
+alloc_type (struct objfile *objfile, struct type *parent)
{
struct type *type;
/* Alloc the structure and start off with all fields zeroed. */
- if (objfile == NULL)
+ switch ((long) objfile)
{
+ case (long) OBJFILE_INTERNAL:
+ case (long) OBJFILE_MALLOC:
type = XZALLOC (struct type);
TYPE_MAIN_TYPE (type) = XZALLOC (struct main_type);
- }
- else
- {
+ break;
+ default:
type = OBSTACK_ZALLOC (&objfile->objfile_obstack, struct type);
TYPE_MAIN_TYPE (type) = OBSTACK_ZALLOC (&objfile->objfile_obstack,
struct main_type);
OBJSTAT (objfile, n_types++);
+ break;
}
/* Initialize the fields that might not be zero. */
@@ -180,6 +201,9 @@ alloc_type (struct objfile *objfile)
TYPE_VPTR_FIELDNO (type) = -1;
TYPE_CHAIN (type) = type; /* Chain back to itself. */
+ if (objfile == NULL)
+ type_init_refc (type, parent);
+
return (type);
}
@@ -194,16 +218,24 @@ alloc_type_instance (struct type *oldtype)
/* Allocate the structure. */
- if (TYPE_OBJFILE (oldtype) == NULL)
- type = XZALLOC (struct type);
- else
- type = OBSTACK_ZALLOC (&TYPE_OBJFILE (oldtype)->objfile_obstack,
- struct type);
-
+ switch ((long) TYPE_OBJFILE (oldtype))
+ {
+ case (long) OBJFILE_INTERNAL:
+ case (long) OBJFILE_MALLOC:
+ type = XZALLOC (struct type);
+ break;
+ default:
+ type = OBSTACK_ZALLOC (&TYPE_OBJFILE (oldtype)->objfile_obstack,
+ struct type);
+ break;
+ }
TYPE_MAIN_TYPE (type) = TYPE_MAIN_TYPE (oldtype);
TYPE_CHAIN (type) = type; /* Chain back to itself for now. */
+ if (TYPE_OBJFILE (oldtype) == NULL)
+ type_init_refc (type, oldtype);
+
return (type);
}
@@ -248,7 +280,7 @@ make_pointer_type (struct type *type, struct type **typeptr)
if (typeptr == 0 || *typeptr == 0) /* We'll need to allocate one. */
{
- ntype = alloc_type (TYPE_OBJFILE (type));
+ ntype = alloc_type (TYPE_OBJFILE (type), type);
if (typeptr)
*typeptr = ntype;
}
@@ -260,6 +292,9 @@ make_pointer_type (struct type *type, struct type **typeptr)
smash_type (ntype);
TYPE_CHAIN (ntype) = chain;
TYPE_OBJFILE (ntype) = objfile;
+
+ /* Callers may only supply storage if there is an objfile. */
+ gdb_assert (objfile);
}
TYPE_TARGET_TYPE (ntype) = type;
@@ -328,7 +363,7 @@ make_reference_type (struct type *type, struct type **typeptr)
if (typeptr == 0 || *typeptr == 0) /* We'll need to allocate one. */
{
- ntype = alloc_type (TYPE_OBJFILE (type));
+ ntype = alloc_type (TYPE_OBJFILE (type), type);
if (typeptr)
*typeptr = ntype;
}
@@ -340,6 +375,9 @@ make_reference_type (struct type *type, struct type **typeptr)
smash_type (ntype);
TYPE_CHAIN (ntype) = chain;
TYPE_OBJFILE (ntype) = objfile;
+
+ /* Callers may only supply storage if there is an objfile. */
+ gdb_assert (objfile);
}
TYPE_TARGET_TYPE (ntype) = type;
@@ -388,7 +426,7 @@ make_function_type (struct type *type, struct type **typeptr)
if (typeptr == 0 || *typeptr == 0) /* We'll need to allocate one. */
{
- ntype = alloc_type (TYPE_OBJFILE (type));
+ ntype = alloc_type (TYPE_OBJFILE (type), type);
if (typeptr)
*typeptr = ntype;
}
@@ -398,6 +436,9 @@ make_function_type (struct type *type, struct type **typeptr)
objfile = TYPE_OBJFILE (ntype);
smash_type (ntype);
TYPE_OBJFILE (ntype) = objfile;
+
+ /* Callers may only supply storage if there is an objfile. */
+ gdb_assert (objfile);
}
TYPE_TARGET_TYPE (ntype) = type;
@@ -643,7 +684,7 @@ lookup_memberptr_type (struct type *type, struct type *domain)
{
struct type *mtype;
- mtype = alloc_type (TYPE_OBJFILE (type));
+ mtype = alloc_type (TYPE_OBJFILE (type), NULL);
smash_to_memberptr_type (mtype, domain, type);
return (mtype);
}
@@ -655,7 +696,7 @@ lookup_methodptr_type (struct type *to_type)
{
struct type *mtype;
- mtype = alloc_type (TYPE_OBJFILE (to_type));
+ mtype = alloc_type (TYPE_OBJFILE (to_type), NULL);
TYPE_TARGET_TYPE (mtype) = to_type;
TYPE_DOMAIN_TYPE (mtype) = TYPE_DOMAIN_TYPE (to_type);
TYPE_LENGTH (mtype) = cplus_method_ptr_size (to_type);
@@ -696,19 +737,20 @@ create_range_type (struct type *result_type, struct type *index_type,
int low_bound, int high_bound)
{
if (result_type == NULL)
- result_type = alloc_type (TYPE_OBJFILE (index_type));
+ result_type = alloc_type (TYPE_OBJFILE (index_type), index_type);
TYPE_CODE (result_type) = TYPE_CODE_RANGE;
TYPE_TARGET_TYPE (result_type) = index_type;
if (TYPE_STUB (index_type))
TYPE_TARGET_STUB (result_type) = 1;
else
TYPE_LENGTH (result_type) = TYPE_LENGTH (check_typedef (index_type));
- TYPE_NFIELDS (result_type) = 2;
+ TYPE_NFIELDS (result_type) = 3;
TYPE_FIELDS (result_type) = TYPE_ZALLOC (result_type,
TYPE_NFIELDS (result_type)
* sizeof (struct field));
TYPE_LOW_BOUND (result_type) = low_bound;
TYPE_HIGH_BOUND (result_type) = high_bound;
+ TYPE_BYTE_STRIDE (result_type) = 0;
if (low_bound >= 0)
TYPE_UNSIGNED (result_type) = 1;
@@ -727,6 +769,9 @@ get_discrete_bounds (struct type *type, LONGEST *lowp, LONGEST *highp)
switch (TYPE_CODE (type))
{
case TYPE_CODE_RANGE:
+ if (TYPE_RANGE_UPPER_BOUND_IS_UNDEFINED (type)
+ || TYPE_RANGE_LOWER_BOUND_IS_UNDEFINED (type))
+ return -1;
*lowp = TYPE_LOW_BOUND (type);
*highp = TYPE_HIGH_BOUND (type);
return 1;
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -805,30 +850,56 @@ create_array_type (struct type *result_type,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
if (result_type == NULL)
{
- result_type = alloc_type (TYPE_OBJFILE (range_type));
+ result_type = alloc_type (TYPE_OBJFILE (range_type), range_type);
}
+ else
+ {
+ /* Callers may only supply storage if there is an objfile. */
+ gdb_assert (TYPE_OBJFILE (result_type));
+ }
+
TYPE_CODE (result_type) = TYPE_CODE_ARRAY;
TYPE_TARGET_TYPE (result_type) = element_type;
- if (get_discrete_bounds (range_type, &low_bound, &high_bound) < 0)
- low_bound = high_bound = 0;
- CHECK_TYPEDEF (element_type);
- /* Be careful when setting the array length. Ada arrays can be
- empty arrays with the high_bound being smaller than the low_bound.
- In such cases, the array length should be zero. */
- if (high_bound < low_bound)
- TYPE_LENGTH (result_type) = 0;
- else
- TYPE_LENGTH (result_type) =
- TYPE_LENGTH (element_type) * (high_bound - low_bound + 1);
TYPE_NFIELDS (result_type) = 1;
TYPE_FIELDS (result_type) =
(struct field *) TYPE_ZALLOC (result_type, sizeof (struct field));
+ /* FIXME: type alloc. */
TYPE_INDEX_TYPE (result_type) = range_type;
TYPE_VPTR_FIELDNO (result_type) = -1;
- /* TYPE_FLAG_TARGET_STUB will take care of zero length arrays */
+ /* DWARF blocks may depend on runtime information like
+ DW_OP_PUSH_OBJECT_ADDRESS not being available during the
+ CREATE_ARRAY_TYPE time. */
+ if (TYPE_RANGE_BOUND_IS_DWARF_BLOCK (range_type, 0)
+ || TYPE_RANGE_BOUND_IS_DWARF_BLOCK (range_type, 1)
+ || TYPE_RANGE_UPPER_BOUND_IS_UNDEFINED (range_type)
+ || TYPE_RANGE_LOWER_BOUND_IS_UNDEFINED (range_type)
+ || get_discrete_bounds (range_type, &low_bound, &high_bound) < 0)
+ {
+ low_bound = 0;
+ high_bound = -1;
+ }
+
+ /* Be careful when setting the array length. Ada arrays can be
+ empty arrays with the high_bound being smaller than the low_bound.
+ In such cases, the array length should be zero. TYPE_TARGET_STUB needs to
+ be checked as it may have dependencies on DWARF blocks depending on
+ runtime information not available during the CREATE_ARRAY_TYPE time. */
+ if (high_bound < low_bound || TYPE_TARGET_STUB (element_type))
+ TYPE_LENGTH (result_type) = 0;
+ else
+ {
+ CHECK_TYPEDEF (element_type);
+ TYPE_LENGTH (result_type) =
+ TYPE_LENGTH (element_type) * (high_bound - low_bound + 1);
+ }
+
if (TYPE_LENGTH (result_type) == 0)
- TYPE_TARGET_STUB (result_type) = 1;
+ {
+ /* The real size will be computed for specific instances by
+ CHECK_TYPEDEF. */
+ TYPE_TARGET_STUB (result_type) = 1;
+ }
return (result_type);
}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -865,7 +936,12 @@ create_set_type (struct type *result_type, struct type *domain_type)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
{
if (result_type == NULL)
{
- result_type = alloc_type (TYPE_OBJFILE (domain_type));
+ result_type = alloc_type (TYPE_OBJFILE (domain_type), domain_type);
+ }
+ else
+ {
+ /* Callers may only supply storage if there is an objfile. */
+ gdb_assert (TYPE_OBJFILE (result_type));
}
TYPE_CODE (result_type) = TYPE_CODE_SET;
TYPE_NFIELDS (result_type) = 1;
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1368,6 +1444,84 @@ stub_noname_complaint (void)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
complaint (&symfile_complaints, _("stub type has NULL name"));
}
+/* Calculate the memory length of array TYPE.
+
+ TARGET_TYPE should be set to `check_typedef (TYPE_TARGET_TYPE (type))' as
+ a performance hint. Feel free to pass NULL. Set FULL_SPAN to return the
+ size incl. the possible padding of the last element - it may differ from the
+ cleared FULL_SPAN return value (the expected SIZEOF) for non-zero
+ TYPE_BYTE_STRIDE values. */
+
+static CORE_ADDR
+type_length_get (struct type *type, struct type *target_type, int full_span)
+{
+ struct type *range_type;
+ int count;
+ CORE_ADDR byte_stride = 0; /* `= 0' for a false GCC warning. */
+ CORE_ADDR element_size;
+
+ if (TYPE_CODE (type) != TYPE_CODE_ARRAY
+ && TYPE_CODE (type) != TYPE_CODE_STRING)
+ return TYPE_LENGTH (type);
+
+ /* Avoid executing TYPE_HIGH_BOUND for invalid (unallocated/unassociated)
+ Fortran arrays. The allocated data will never be used so they can be
+ zero-length. */
+ if (object_address_data_not_valid (type))
+ return 0;
+
+ range_type = TYPE_INDEX_TYPE (type);
+ if (TYPE_RANGE_LOWER_BOUND_IS_UNDEFINED (range_type)
+ || TYPE_RANGE_UPPER_BOUND_IS_UNDEFINED (range_type))
+ return 0;
+ count = TYPE_HIGH_BOUND (range_type) - TYPE_LOW_BOUND (range_type) + 1;
+ /* It may happen for wrong DWARF annotations returning garbage data. */
+ if (count < 0)
+ warning (_("Range for type %s has invalid bounds %d..%d"),
+ TYPE_NAME (type), TYPE_LOW_BOUND (range_type),
+ TYPE_HIGH_BOUND (range_type));
+ /* The code below does not handle count == 0 right. */
+ if (count <= 0)
+ return 0;
+ if (full_span || count > 1)
+ {
+ /* We do not use TYPE_ARRAY_BYTE_STRIDE_VALUE (type) here as we want to
+ force FULL_SPAN to 1. */
+ byte_stride = TYPE_BYTE_STRIDE (range_type);
+ if (byte_stride == 0)
+ {
+ if (target_type == NULL)
+ target_type = check_typedef (TYPE_TARGET_TYPE (type));
+ byte_stride = type_length_get (target_type, NULL, 1);
+ }
+ }
+ if (full_span)
+ return count * byte_stride;
+ if (target_type == NULL)
+ target_type = check_typedef (TYPE_TARGET_TYPE (type));
+ element_size = type_length_get (target_type, NULL, 1);
+ return (count - 1) * byte_stride + element_size;
+}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+
+/* Prepare TYPE after being read in by the backend. Currently this function
+ only propagates the TYPE_DYNAMIC flag. */
+
+void
+finalize_type (struct type *type)
+{
+ int i;
+
+ for (i = 0; i < TYPE_NFIELDS (type); ++i)
+ if (TYPE_FIELD_TYPE (type, i) && TYPE_DYNAMIC (TYPE_FIELD_TYPE (type, i)))
+ break;
+
+ /* FIXME: cplus_stuff is ignored here. */
+ if (i < TYPE_NFIELDS (type)
+ || (TYPE_VPTR_BASETYPE (type) && TYPE_DYNAMIC (TYPE_VPTR_BASETYPE (type)))
+ || (TYPE_TARGET_TYPE (type) && TYPE_DYNAMIC (TYPE_TARGET_TYPE (type))))
+ TYPE_DYNAMIC (type) = 1;
+}
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
/* Added by Bryan Boreham, Kewill, Sun Sep 17 18:07:17 1989.
If this is a stubbed struct (i.e. declared as struct foo *), see if
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1384,7 +1538,8 @@ stub_noname_complaint (void)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
/* Find the real type of TYPE. This function returns the real type,
after removing all layers of typedefs and completing opaque or stub
types. Completion changes the TYPE argument, but stripping of
- typedefs does not. */
+ typedefs does not. Still original passed TYPE will have TYPE_LENGTH
+ updated. FIXME: Remove this dependency (only ada_to_fixed_type?). */
struct type *
check_typedef (struct type *type)
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1420,7 +1575,7 @@ check_typedef (struct type *type)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
if (sym)
TYPE_TARGET_TYPE (type) = SYMBOL_TYPE (sym);
else /* TYPE_CODE_UNDEF */
- TYPE_TARGET_TYPE (type) = alloc_type (NULL);
+ TYPE_TARGET_TYPE (type) = alloc_type (NULL, NULL);
}
type = TYPE_TARGET_TYPE (type);
}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1494,34 +1649,37 @@ check_typedef (struct type *type)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
}
- if (TYPE_TARGET_STUB (type))
+ /* copy_type_recursive automatically makes the resulting type containing only
+ constant values expected by the callers of this function. */
+ if (TYPE_DYNAMIC (type))
+ {
+ htab_t copied_types;
+ struct type *type_old = type;
+
+ copied_types = create_copied_types_hash (NULL);
+ type = copy_type_recursive (type, copied_types);
+ htab_delete (copied_types);
+
+ gdb_assert (TYPE_DYNAMIC (type) == 0);
+ }
+
+ if (!currently_reading_symtab
+ && (TYPE_TARGET_STUB (type) || TYPE_DYNAMIC (type)))
{
- struct type *range_type;
struct type *target_type = check_typedef (TYPE_TARGET_TYPE (type));
+ if (TYPE_DYNAMIC (type))
+ TYPE_TARGET_TYPE (type) = target_type;
if (TYPE_STUB (target_type) || TYPE_TARGET_STUB (target_type))
{
/* Empty. */
}
else if (TYPE_CODE (type) == TYPE_CODE_ARRAY
- && TYPE_NFIELDS (type) == 1
- && (TYPE_CODE (range_type = TYPE_INDEX_TYPE (type))
- == TYPE_CODE_RANGE))
+ || TYPE_CODE (type) == TYPE_CODE_STRING)
{
/* Now recompute the length of the array type, based on its
- number of elements and the target type's length.
- Watch out for Ada null Ada arrays where the high bound
- is smaller than the low bound. */
- const int low_bound = TYPE_LOW_BOUND (range_type);
- const int high_bound = TYPE_HIGH_BOUND (range_type);
- int nb_elements;
-
- if (high_bound < low_bound)
- nb_elements = 0;
- else
- nb_elements = high_bound - low_bound + 1;
-
- TYPE_LENGTH (type) = nb_elements * TYPE_LENGTH (target_type);
+ number of elements and the target type's length. */
+ TYPE_LENGTH (type) = type_length_get (type, target_type, 0);
TYPE_TARGET_STUB (type) = 0;
}
else if (TYPE_CODE (type) == TYPE_CODE_RANGE)
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1529,9 +1687,12 @@ check_typedef (struct type *type)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
TYPE_LENGTH (type) = TYPE_LENGTH (target_type);
TYPE_TARGET_STUB (type) = 0;
}
+ TYPE_DYNAMIC (type) = 0;
}
+
/* Cache TYPE_LENGTH for future use. */
TYPE_LENGTH (orig_type) = TYPE_LENGTH (type);
+
return type;
}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1753,7 +1914,7 @@ init_type (enum type_code code, int length, int flags,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
{
struct type *type;
- type = alloc_type (objfile);
+ type = alloc_type (objfile, NULL);
TYPE_CODE (type) = code;
TYPE_LENGTH (type) = length;
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1783,15 +1944,24 @@ init_type (enum type_code code, int length, int flags,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
if (flags & TYPE_FLAG_FIXED_INSTANCE)
TYPE_FIXED_INSTANCE (type) = 1;
- if ((name != NULL) && (objfile != NULL))
- {
- TYPE_NAME (type) = obsavestring (name, strlen (name),
- &objfile->objfile_obstack);
- }
- else
- {
- TYPE_NAME (type) = name;
- }
+ if (name)
+ switch ((long) objfile)
+ {
+ case (long) OBJFILE_INTERNAL:
+ TYPE_NAME (type) = name;
+ break;
+ case (long) OBJFILE_MALLOC:
+ TYPE_NAME (type) = xstrdup (name);
+ break;
+#if 0 /* OBJFILE_MALLOC duplication now. */
+ case (long) NULL:
+ internal_error (__FILE__, __LINE__,
+ _("OBJFILE pointer NULL should be OBJFILE_* instead"));
+#endif
+ default:
+ TYPE_NAME (type) = obsavestring (name, strlen (name),
+ &objfile->objfile_obstack);
+ }
/* C++ fancies. */
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1803,6 +1973,10 @@ init_type (enum type_code code, int length, int flags,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
{
INIT_CPLUS_SPECIFIC (type);
}
+
+ if (!objfile)
+ type_incref (type);
+
return (type);
}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -2916,33 +3090,47 @@ type_pair_eq (const void *item_lhs, const void *item_rhs)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
/* Allocate the hash table used by copy_type_recursive to walk
- types without duplicates. We use OBJFILE's obstack, because
- OBJFILE is about to be deleted. */
+ types without duplicates. */
htab_t
create_copied_types_hash (struct objfile *objfile)
{
- return htab_create_alloc_ex (1, type_pair_hash, type_pair_eq,
- NULL, &objfile->objfile_obstack,
- hashtab_obstack_allocate,
- dummy_obstack_deallocate);
+ if (objfile == NULL)
+ {
+ /* NULL OBJFILE is for TYPE_DYNAMIC types already contained in
+ OBJFILE_MALLOC memory, such as those from VALUE_HISTORY_CHAIN. Table
+ element entries get allocated by xmalloc - so use xfree. */
+ return htab_create (1, type_pair_hash, type_pair_eq, xfree);
+ }
+ else
+ {
+ /* Use OBJFILE's obstack, because OBJFILE is about to be deleted. Table
+ element entries get allocated by xmalloc - so use xfree. */
+ return htab_create_alloc_ex (1, type_pair_hash, type_pair_eq,
+ xfree, &objfile->objfile_obstack,
+ hashtab_obstack_allocate,
+ dummy_obstack_deallocate);
+ }
}
-/* Recursively copy (deep copy) TYPE, if it is associated with
- OBJFILE. Return a new type allocated using malloc, a saved type if
- we have already visited TYPE (using COPIED_TYPES), or TYPE if it is
- not associated with OBJFILE. */
+/* A helper for copy_type_recursive. This does all the work.
+ REPRESENTATIVE is a pointer to a type. This is used to register
+ newly-created types in the type_refc_table. Initially it pointer
+ to a NULL pointer, but it is filled in the first time a type is
+ copied. OBJFILE is used only for an assertion checking. */
-struct type *
-copy_type_recursive (struct objfile *objfile,
- struct type *type,
- htab_t copied_types)
+static struct type *
+copy_type_recursive_1 (struct objfile *objfile,
+ struct type *type,
+ htab_t copied_types,
+ struct type **representative)
{
struct type_pair *stored, pair;
void **slot;
struct type *new_type;
- if (TYPE_OBJFILE (type) == NULL)
+ if (TYPE_OBJFILE (type) == OBJFILE_INTERNAL
+ || (objfile == OBJFILE_MALLOC && !TYPE_DYNAMIC (type)))
return type;
/* This type shouldn't be pointing to any types in other objfiles;
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -2954,11 +3142,15 @@ copy_type_recursive (struct objfile *objfile,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
if (*slot != NULL)
return ((struct type_pair *) *slot)->new;
- new_type = alloc_type (NULL);
+ new_type = alloc_type (OBJFILE_MALLOC, *representative);
+ if (!*representative)
+ *representative = new_type;
/* We must add the new type to the hash table immediately, in case
- we encounter this type again during a recursive call below. */
- stored = obstack_alloc (&objfile->objfile_obstack, sizeof (struct type_pair));
+ we encounter this type again during a recursive call below. Memory could
+ be allocated from OBJFILE in the case we will be removing OBJFILE, this
+ optimization is missed and xfree is called for it from COPIED_TYPES. */
+ stored = xmalloc (sizeof (*stored));
stored->old = type;
stored->new = new_type;
*slot = stored;
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -2968,6 +3160,13 @@ copy_type_recursive (struct objfile *objfile,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
*TYPE_MAIN_TYPE (new_type) = *TYPE_MAIN_TYPE (type);
TYPE_OBJFILE (new_type) = NULL;
+ /* Pre-clear the fields processed by delete_main_type. If DWARF block
+ evaluations below call error we would leave an unfreeable TYPE. */
+ TYPE_TARGET_TYPE (new_type) = NULL;
+ TYPE_VPTR_BASETYPE (new_type) = NULL;
+ TYPE_NFIELDS (new_type) = 0;
+ TYPE_FIELDS (new_type) = NULL;
+
if (TYPE_NAME (type))
TYPE_NAME (new_type) = xstrdup (TYPE_NAME (type));
if (TYPE_TAG_NAME (type))
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -2976,12 +3175,45 @@ copy_type_recursive (struct objfile *objfile,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
TYPE_INSTANCE_FLAGS (new_type) = TYPE_INSTANCE_FLAGS (type);
TYPE_LENGTH (new_type) = TYPE_LENGTH (type);
+ if (TYPE_ALLOCATED (new_type))
+ {
+ gdb_assert (!TYPE_NOT_ALLOCATED (new_type));
+
+ if (!dwarf_locexpr_baton_eval (TYPE_ALLOCATED (new_type)))
+ TYPE_NOT_ALLOCATED (new_type) = 1;
+ TYPE_ALLOCATED (new_type) = NULL;
+ }
+
+ if (TYPE_ASSOCIATED (new_type))
+ {
+ gdb_assert (!TYPE_NOT_ASSOCIATED (new_type));
+
+ if (!dwarf_locexpr_baton_eval (TYPE_ASSOCIATED (new_type)))
+ TYPE_NOT_ASSOCIATED (new_type) = 1;
+ TYPE_ASSOCIATED (new_type) = NULL;
+ }
+
+ if (!TYPE_DATA_LOCATION_IS_ADDR (new_type)
+ && TYPE_DATA_LOCATION_DWARF_BLOCK (new_type))
+ {
+ if (TYPE_NOT_ALLOCATED (new_type)
+ || TYPE_NOT_ASSOCIATED (new_type))
+ TYPE_DATA_LOCATION_DWARF_BLOCK (new_type) = NULL;
+ else
+ {
+ TYPE_DATA_LOCATION_IS_ADDR (new_type) = 1;
+ TYPE_DATA_LOCATION_ADDR (new_type) = dwarf_locexpr_baton_eval
+ (TYPE_DATA_LOCATION_DWARF_BLOCK (new_type));
+ }
+ }
+
/* Copy the fields. */
if (TYPE_NFIELDS (type))
{
int i, nfields;
nfields = TYPE_NFIELDS (type);
+ TYPE_NFIELDS (new_type) = nfields;
TYPE_FIELDS (new_type) = XCALLOC (nfields, struct field);
for (i = 0; i < nfields; i++)
{
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -2990,8 +3222,8 @@ copy_type_recursive (struct objfile *objfile,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
TYPE_FIELD_BITSIZE (new_type, i) = TYPE_FIELD_BITSIZE (type, i);
if (TYPE_FIELD_TYPE (type, i))
TYPE_FIELD_TYPE (new_type, i)
- = copy_type_recursive (objfile, TYPE_FIELD_TYPE (type, i),
- copied_types);
+ = copy_type_recursive_1 (objfile, TYPE_FIELD_TYPE (type, i),
+ copied_types, representative);
if (TYPE_FIELD_NAME (type, i))
TYPE_FIELD_NAME (new_type, i) =
xstrdup (TYPE_FIELD_NAME (type, i));
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -3010,6 +3242,16 @@ copy_type_recursive (struct objfile *objfile,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
xstrdup (TYPE_FIELD_STATIC_PHYSNAME (type,
i)));
break;
+ case FIELD_LOC_KIND_DWARF_BLOCK:
+ /* `struct dwarf2_locexpr_baton' is too bound to its objfile so
+ it is expected to be made constant by CHECK_TYPEDEF. */
+ if (TYPE_NOT_ALLOCATED (new_type)
+ || TYPE_NOT_ASSOCIATED (new_type))
+ SET_FIELD_DWARF_BLOCK (TYPE_FIELD (new_type, i), NULL);
+ else
+ SET_FIELD_BITPOS (TYPE_FIELD (new_type, i),
+ dwarf_locexpr_baton_eval (TYPE_FIELD_DWARF_BLOCK (type, i)));
+ break;
default:
internal_error (__FILE__, __LINE__,
_("Unexpected type field location kind: %d"),
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -3018,17 +3260,32 @@ copy_type_recursive (struct objfile *objfile,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
}
+ /* Convert TYPE_RANGE_HIGH_BOUND_IS_COUNT into a regular bound. */
+ if (TYPE_CODE (type) == TYPE_CODE_RANGE
+ && TYPE_RANGE_HIGH_BOUND_IS_COUNT (type))
+ {
+ TYPE_RANGE_HIGH_BOUND_IS_COUNT (new_type) = 0;
+ TYPE_HIGH_BOUND (new_type) = TYPE_LOW_BOUND (type)
+ + TYPE_HIGH_BOUND (type) - 1;
+ }
+
+ /* Both FIELD_LOC_KIND_DWARF_BLOCK and TYPE_RANGE_HIGH_BOUND_IS_COUNT were
+ possibly converted. */
+ TYPE_DYNAMIC (new_type) = 0;
+
/* Copy pointers to other types. */
if (TYPE_TARGET_TYPE (type))
TYPE_TARGET_TYPE (new_type) =
- copy_type_recursive (objfile,
- TYPE_TARGET_TYPE (type),
- copied_types);
+ copy_type_recursive_1 (objfile,
+ TYPE_TARGET_TYPE (type),
+ copied_types,
+ representative);
if (TYPE_VPTR_BASETYPE (type))
TYPE_VPTR_BASETYPE (new_type) =
- copy_type_recursive (objfile,
- TYPE_VPTR_BASETYPE (type),
- copied_types);
+ copy_type_recursive_1 (objfile,
+ TYPE_VPTR_BASETYPE (type),
+ copied_types,
+ representative);
/* Maybe copy the type_specific bits.
NOTE drow/2005-12-09: We do not copy the C++-specific bits like
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -3046,6 +3303,20 @@ copy_type_recursive (struct objfile *objfile,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return new_type;
}
+/* Recursively copy (deep copy) TYPE. Return a new type allocated using
+ malloc, a saved type if we have already visited TYPE (using COPIED_TYPES),
+ or TYPE if it is not associated with OBJFILE. */
+
+struct type *
+copy_type_recursive (struct type *type,
+ htab_t copied_types)
+{
+ struct type *representative = NULL;
+
+ return copy_type_recursive_1 (TYPE_OBJFILE (type), type, copied_types,
+ &representative);
+}
+
/* Make a copy of the given TYPE, except that the pointer & reference
types are not preserved.
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -3059,7 +3330,7 @@ copy_type (const struct type *type)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
gdb_assert (TYPE_OBJFILE (type) != NULL);
- new_type = alloc_type (TYPE_OBJFILE (type));
+ new_type = alloc_type (TYPE_OBJFILE (type), NULL);
TYPE_INSTANCE_FLAGS (new_type) = TYPE_INSTANCE_FLAGS (type);
TYPE_LENGTH (new_type) = TYPE_LENGTH (type);
memcpy (TYPE_MAIN_TYPE (new_type), TYPE_MAIN_TYPE (type),
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -3068,6 +3339,232 @@ copy_type (const struct type *type)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return new_type;
}
+static void delete_type (struct type *type);
+
+/* A helper for delete_type which deletes a main_type and the things to which
+ it refers. TYPE is a type whose main_type we wish to destroy. */
+
+static void
+delete_main_type (struct main_type *main_type)
+{
+ int i;
+ void **slot;
+ struct
+ {
+ struct main_type *main_type;
+ } type_local = { main_type }, *type = &type_local;
+
+ gdb_assert (TYPE_OBJFILE (type) == OBJFILE_MALLOC);
+
+ xfree (TYPE_NAME (type));
+ xfree (TYPE_TAG_NAME (type));
+
+ for (i = 0; i < TYPE_NFIELDS (type); ++i)
+ {
+ xfree (TYPE_FIELD_NAME (type, i));
+
+ if (TYPE_FIELD_LOC_KIND (type, i) == FIELD_LOC_KIND_PHYSNAME)
+ xfree (TYPE_FIELD_STATIC_PHYSNAME (type, i));
+ }
+ xfree (TYPE_FIELDS (type));
+
+ /* Strangely, HAVE_CPLUS_STRUCT will return true when there isn't
+ one at all. */
+ gdb_assert (!HAVE_CPLUS_STRUCT (type) || !TYPE_CPLUS_SPECIFIC (type));
+
+ xfree (TYPE_MAIN_TYPE (type));
+}
+
+/* Store `struct main_type *' entries which got `struct type *' deleted. */
+
+static htab_t deleted_main_types_hash;
+
+/* To be called before any call of delete_type. */
+
+static void
+delete_type_begin (void)
+{
+ gdb_assert (deleted_main_types_hash == NULL);
+
+ deleted_main_types_hash = htab_create_alloc (10, htab_hash_pointer,
+ htab_eq_pointer, NULL, xcalloc, xfree);
+}
+
+/* Helper for delete_type_finish. */
+
+static int
+delete_type_finish_traverse (void **slot, void *unused)
+{
+ struct main_type *main_type = *slot;
+
+ delete_main_type (main_type);
+
+ return 1;
+}
+
+/* To be called after all the calls of delete_type. Each MAIN_TYPE must have
+ either none or all of its TYPE entries deleted. */
+
+static void
+delete_type_finish (void)
+{
+ htab_traverse (deleted_main_types_hash, delete_type_finish_traverse, NULL);
+
+ htab_delete (deleted_main_types_hash);
+ deleted_main_types_hash = NULL;
+}
+
+/* Delete TYPE and remember MAIN_TYPE it references. TYPE must have been
+ allocated using xmalloc -- not using an objfile. You must wrap calls of
+ this function by delete_type_begin and delete_type_finish. */
+
+static void
+delete_type (struct type *type)
+{
+ void **slot;
+
+ if (!type)
+ return;
+
+ if (TYPE_OBJFILE (type) == OBJFILE_INTERNAL)
+ return;
+ gdb_assert (TYPE_OBJFILE (type) == OBJFILE_MALLOC);
+
+ slot = htab_find_slot (deleted_main_types_hash, TYPE_MAIN_TYPE (type),
+ INSERT);
+ gdb_assert (!*slot);
+ *slot = TYPE_MAIN_TYPE (type);
+
+ xfree (type);
+}
+
+/* Hash function for type_refc_table. */
+
+static hashval_t
+type_refc_hash (const void *p)
+{
+ const struct type_refc_entry *entry = p;
+ return htab_hash_pointer (entry->type);
+}
+
+/* Equality function for type_refc_table. */
+
+static int
+type_refc_equal (const void *a, const void *b)
+{
+ const struct type_refc_entry *left = a;
+ const struct type_refc_entry *right = b;
+ return left->type == right->type;
+}
+
+/* Insert the new type NEW_TYPE into the table. Does nothing if
+ NEW_TYPE has an objfile. If PARENT_TYPE is not NULL, then NEW_TYPE
+ will be inserted into the same hierarchy as PARENT_TYPE. In this
+ case, PARENT_TYPE must already exist in the reference count map.
+ If PARENT_TYPE is NULL, a new reference count is allocated and set
+ to one. */
+
+static void
+type_init_refc (struct type *new_type, struct type *parent_type)
+{
+ int *refc;
+ void **slot;
+ struct type_refc_entry *new_entry;
+
+ if (TYPE_OBJFILE (new_type))
+ return;
+
+ if (parent_type)
+ {
+ struct type_refc_entry entry, *found;
+ entry.type = parent_type;
+ found = htab_find (type_refc_table, &entry);
+ gdb_assert (found);
+ refc = found->refc;
+ }
+ else
+ {
+ refc = xmalloc (sizeof (int));
+ *refc = 0;
+ }
+
+ new_entry = XNEW (struct type_refc_entry);
+ new_entry->type = new_type;
+ new_entry->refc = refc;
+
+ slot = htab_find_slot (type_refc_table, new_entry, INSERT);
+ gdb_assert (!*slot);
+ *slot = new_entry;
+}
+
+/* Increment the reference count for TYPE. */
+
+void
+type_incref (struct type *type)
+{
+ struct type_refc_entry entry, *found;
+
+ if (TYPE_OBJFILE (type))
+ return;
+
+ entry.type = type;
+ found = htab_find (type_refc_table, &entry);
+ gdb_assert (found);
+ ++*(found->refc);
+}
+
+/* A traverse callback for type_refc_table which removes any entry
+ whose reference count is zero (unused entry). */
+
+static int
+type_refc_remove (void **slot, void *unused)
+{
+ struct type_refc_entry *entry = *slot;
+
+ if (*entry->refc == 0)
+ {
+ delete_type (entry->type);
+
+ xfree (entry);
+ htab_clear_slot (type_refc_table, slot);
+ }
+
+ return 1;
+}
+
+/* Decrement the reference count for TYPE. Even if TYPE has no more
+ references still do not delete it as callers may hold pointers to types
+ dynamically generated by check_typedef where type_incref is never called.
+ Always rely on the free_all_types garbage collector. */
+
+void
+type_decref (struct type *type)
+{
+ struct type_refc_entry entry, *found;
+
+ if (TYPE_OBJFILE (type))
+ return;
+
+ entry.type = type;
+ found = htab_find (type_refc_table, &entry);
+ gdb_assert (found);
+ gdb_assert (found->refc > 0);
+ --*(found->refc);
+}
+
+/* Free all the types that have been allocated and that are not used according
+ to type_refc_entry->refc. Called after each command, successful or not.
+ Use this cleanup only in the GDB idle state as GDB code does not necessarily
+ use type_incref / type_decref during temporary use of types. */
+
+void
+free_all_types (void)
+{
+ delete_type_begin ();
+ htab_traverse (type_refc_table, type_refc_remove, NULL);
+ delete_type_finish ();
+}
+
static struct type *
build_flt (int bit, char *name, const struct floatformat **floatformats)
{
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -3105,7 +3602,7 @@ build_complex (int bit, char *name, struct type *target_type)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return builtin_type_error;
}
t = init_type (TYPE_CODE_COMPLEX, 2 * bit / TARGET_CHAR_BIT,
- 0, name, (struct objfile *) NULL);
+ 0, name, OBJFILE_INTERNAL);
TYPE_TARGET_TYPE (t) = target_type;
return t;
}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -3119,56 +3616,56 @@ gdbtypes_post_init (struct gdbarch *gdbarch)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
builtin_type->builtin_void =
init_type (TYPE_CODE_VOID, 1,
0,
- "void", (struct objfile *) NULL);
+ "void", OBJFILE_INTERNAL);
builtin_type->builtin_char =
init_type (TYPE_CODE_INT, TARGET_CHAR_BIT / TARGET_CHAR_BIT,
(TYPE_FLAG_NOSIGN
| (gdbarch_char_signed (gdbarch) ? 0 : TYPE_FLAG_UNSIGNED)),
- "char", (struct objfile *) NULL);
+ "char", OBJFILE_INTERNAL);
builtin_type->builtin_signed_char =
init_type (TYPE_CODE_INT, TARGET_CHAR_BIT / TARGET_CHAR_BIT,
0,
- "signed char", (struct objfile *) NULL);
+ "signed char", OBJFILE_INTERNAL);
builtin_type->builtin_unsigned_char =
init_type (TYPE_CODE_INT, TARGET_CHAR_BIT / TARGET_CHAR_BIT,
TYPE_FLAG_UNSIGNED,
- "unsigned char", (struct objfile *) NULL);
+ "unsigned char", OBJFILE_INTERNAL);
builtin_type->builtin_short =
init_type (TYPE_CODE_INT,
gdbarch_short_bit (gdbarch) / TARGET_CHAR_BIT,
- 0, "short", (struct objfile *) NULL);
+ 0, "short", OBJFILE_INTERNAL);
builtin_type->builtin_unsigned_short =
init_type (TYPE_CODE_INT,
gdbarch_short_bit (gdbarch) / TARGET_CHAR_BIT,
TYPE_FLAG_UNSIGNED, "unsigned short",
- (struct objfile *) NULL);
+ OBJFILE_INTERNAL);
builtin_type->builtin_int =
init_type (TYPE_CODE_INT,
gdbarch_int_bit (gdbarch) / TARGET_CHAR_BIT,
- 0, "int", (struct objfile *) NULL);
+ 0, "int", OBJFILE_INTERNAL);
builtin_type->builtin_unsigned_int =
init_type (TYPE_CODE_INT,
gdbarch_int_bit (gdbarch) / TARGET_CHAR_BIT,
TYPE_FLAG_UNSIGNED, "unsigned int",
- (struct objfile *) NULL);
+ OBJFILE_INTERNAL);
builtin_type->builtin_long =
init_type (TYPE_CODE_INT,
gdbarch_long_bit (gdbarch) / TARGET_CHAR_BIT,
- 0, "long", (struct objfile *) NULL);
+ 0, "long", OBJFILE_INTERNAL);
builtin_type->builtin_unsigned_long =
init_type (TYPE_CODE_INT,
gdbarch_long_bit (gdbarch) / TARGET_CHAR_BIT,
TYPE_FLAG_UNSIGNED, "unsigned long",
- (struct objfile *) NULL);
+ OBJFILE_INTERNAL);
builtin_type->builtin_long_long =
init_type (TYPE_CODE_INT,
gdbarch_long_long_bit (gdbarch) / TARGET_CHAR_BIT,
- 0, "long long", (struct objfile *) NULL);
+ 0, "long long", OBJFILE_INTERNAL);
builtin_type->builtin_unsigned_long_long =
init_type (TYPE_CODE_INT,
gdbarch_long_long_bit (gdbarch) / TARGET_CHAR_BIT,
TYPE_FLAG_UNSIGNED, "unsigned long long",
- (struct objfile *) NULL);
+ OBJFILE_INTERNAL);
builtin_type->builtin_float
= build_flt (gdbarch_float_bit (gdbarch), "float",
gdbarch_float_format (gdbarch));
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -3187,26 +3684,26 @@ gdbtypes_post_init (struct gdbarch *gdbarch)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
builtin_type->builtin_string =
init_type (TYPE_CODE_STRING, TARGET_CHAR_BIT / TARGET_CHAR_BIT,
0,
- "string", (struct objfile *) NULL);
+ "string", OBJFILE_INTERNAL);
builtin_type->builtin_bool =
init_type (TYPE_CODE_BOOL, TARGET_CHAR_BIT / TARGET_CHAR_BIT,
0,
- "bool", (struct objfile *) NULL);
+ "bool", OBJFILE_INTERNAL);
/* The following three are about decimal floating point types, which
are 32-bits, 64-bits and 128-bits respectively. */
builtin_type->builtin_decfloat
= init_type (TYPE_CODE_DECFLOAT, 32 / 8,
0,
- "_Decimal32", (struct objfile *) NULL);
+ "_Decimal32", OBJFILE_INTERNAL);
builtin_type->builtin_decdouble
= init_type (TYPE_CODE_DECFLOAT, 64 / 8,
0,
- "_Decimal64", (struct objfile *) NULL);
+ "_Decimal64", OBJFILE_INTERNAL);
builtin_type->builtin_declong
= init_type (TYPE_CODE_DECFLOAT, 128 / 8,
0,
- "_Decimal128", (struct objfile *) NULL);
+ "_Decimal128", OBJFILE_INTERNAL);
/* Pointer/Address types. */
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -3245,27 +3742,28 @@ gdbtypes_post_init (struct gdbarch *gdbarch)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
init_type (TYPE_CODE_INT,
gdbarch_addr_bit (gdbarch) / 8,
TYPE_FLAG_UNSIGNED,
- "__CORE_ADDR", (struct objfile *) NULL);
+ "__CORE_ADDR", OBJFILE_INTERNAL);
/* The following set of types is used for symbols with no
debug information. */
builtin_type->nodebug_text_symbol =
init_type (TYPE_CODE_FUNC, 1, 0,
- "<text variable, no debug info>", NULL);
+ "<text variable, no debug info>", OBJFILE_INTERNAL);
TYPE_TARGET_TYPE (builtin_type->nodebug_text_symbol) =
builtin_type->builtin_int;
builtin_type->nodebug_data_symbol =
init_type (TYPE_CODE_INT,
gdbarch_int_bit (gdbarch) / HOST_CHAR_BIT, 0,
- "<data variable, no debug info>", NULL);
+ "<data variable, no debug info>", OBJFILE_INTERNAL);
builtin_type->nodebug_unknown_symbol =
init_type (TYPE_CODE_INT, 1, 0,
- "<variable (not text or data), no debug info>", NULL);
+ "<variable (not text or data), no debug info>",
+ OBJFILE_INTERNAL);
builtin_type->nodebug_tls_symbol =
init_type (TYPE_CODE_INT,
gdbarch_int_bit (gdbarch) / HOST_CHAR_BIT, 0,
- "<thread local variable, no debug info>", NULL);
+ "<thread local variable, no debug info>", OBJFILE_INTERNAL);
return builtin_type;
}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -3276,6 +3774,9 @@ _initialize_gdbtypes (void)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
{
gdbtypes_data = gdbarch_data_register_post_init (gdbtypes_post_init);
+ type_refc_table = htab_create_alloc (20, type_refc_hash, type_refc_equal,
+ NULL, xcalloc, xfree);
+
/* FIXME: The following types are architecture-neutral. However,
they contain pointer_type and reference_type fields potentially
caching pointer or reference types that *are* architecture
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -3284,47 +3785,47 @@ _initialize_gdbtypes (void)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
builtin_type_int0 =
init_type (TYPE_CODE_INT, 0 / 8,
0,
- "int0_t", (struct objfile *) NULL);
+ "int0_t", OBJFILE_INTERNAL);
builtin_type_int8 =
init_type (TYPE_CODE_INT, 8 / 8,
TYPE_FLAG_NOTTEXT,
- "int8_t", (struct objfile *) NULL);
+ "int8_t", OBJFILE_INTERNAL);
builtin_type_uint8 =
init_type (TYPE_CODE_INT, 8 / 8,
TYPE_FLAG_UNSIGNED | TYPE_FLAG_NOTTEXT,
- "uint8_t", (struct objfile *) NULL);
+ "uint8_t", OBJFILE_INTERNAL);
builtin_type_int16 =
init_type (TYPE_CODE_INT, 16 / 8,
0,
- "int16_t", (struct objfile *) NULL);
+ "int16_t", OBJFILE_INTERNAL);
builtin_type_uint16 =
init_type (TYPE_CODE_INT, 16 / 8,
TYPE_FLAG_UNSIGNED,
- "uint16_t", (struct objfile *) NULL);
+ "uint16_t", OBJFILE_INTERNAL);
builtin_type_int32 =
init_type (TYPE_CODE_INT, 32 / 8,
0,
- "int32_t", (struct objfile *) NULL);
+ "int32_t", OBJFILE_INTERNAL);
builtin_type_uint32 =
init_type (TYPE_CODE_INT, 32 / 8,
TYPE_FLAG_UNSIGNED,
- "uint32_t", (struct objfile *) NULL);
+ "uint32_t", OBJFILE_INTERNAL);
builtin_type_int64 =
init_type (TYPE_CODE_INT, 64 / 8,
0,
- "int64_t", (struct objfile *) NULL);
+ "int64_t", OBJFILE_INTERNAL);
builtin_type_uint64 =
init_type (TYPE_CODE_INT, 64 / 8,
TYPE_FLAG_UNSIGNED,
- "uint64_t", (struct objfile *) NULL);
+ "uint64_t", OBJFILE_INTERNAL);
builtin_type_int128 =
init_type (TYPE_CODE_INT, 128 / 8,
0,
- "int128_t", (struct objfile *) NULL);
+ "int128_t", OBJFILE_INTERNAL);
builtin_type_uint128 =
init_type (TYPE_CODE_INT, 128 / 8,
TYPE_FLAG_UNSIGNED,
- "uint128_t", (struct objfile *) NULL);
+ "uint128_t", OBJFILE_INTERNAL);
builtin_type_ieee_single =
build_flt (-1, "builtin_type_ieee_single", floatformats_ieee_single);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -3344,15 +3845,15 @@ _initialize_gdbtypes (void)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
builtin_type_void =
init_type (TYPE_CODE_VOID, 1,
0,
- "void", (struct objfile *) NULL);
+ "void", OBJFILE_INTERNAL);
builtin_type_true_char =
init_type (TYPE_CODE_CHAR, TARGET_CHAR_BIT / TARGET_CHAR_BIT,
0,
- "true character", (struct objfile *) NULL);
+ "true character", OBJFILE_INTERNAL);
builtin_type_true_unsigned_char =
init_type (TYPE_CODE_CHAR, TARGET_CHAR_BIT / TARGET_CHAR_BIT,
TYPE_FLAG_UNSIGNED,
- "true character", (struct objfile *) NULL);
+ "true character", OBJFILE_INTERNAL);
add_setshow_zinteger_cmd ("overload", no_class, &overload_debug, _("\
Set debugging of C++ overloading."), _("\
diff --git a/gdb/gdbtypes.h b/gdb/gdbtypes.h
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
index c90b6d7..077b89c 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/gdbtypes.h
+++ b/gdb/gdbtypes.h
@@ -134,7 +134,10 @@ enum type_code
TYPE_CODE_NAMESPACE, /* C++ namespace. */
- TYPE_CODE_DECFLOAT /* Decimal floating point. */
+ TYPE_CODE_DECFLOAT, /* Decimal floating point. */
+
+ /* Internal function type. */
+ TYPE_CODE_INTERNAL_FUNCTION
};
/* For now allow source to use TYPE_CODE_CLASS for C++ classes, as an
@@ -209,6 +212,11 @@ enum type_instance_flag_value
#define TYPE_TARGET_STUB(t) (TYPE_MAIN_TYPE (t)->flag_target_stub)
+/* Type needs to be evaluated on each CHECK_TYPEDEF and its results must not be
+ sticky. */
+
+#define TYPE_DYNAMIC(t) (TYPE_MAIN_TYPE (t)->flag_dynamic)
+
/* Static type. If this is set, the corresponding type had
* a static modifier.
* Note: This may be unnecessary, since static data members
@@ -266,6 +274,36 @@ enum type_instance_flag_value
#define TYPE_NOTTEXT(t) (TYPE_MAIN_TYPE (t)->flag_nottext)
+/* Is HIGH_BOUND a low-bound relative count (1) or the high bound itself (0)? */
+
+#define TYPE_RANGE_HIGH_BOUND_IS_COUNT(range_type) \
+ (TYPE_MAIN_TYPE (range_type)->flag_range_high_bound_is_count)
+
+/* Not allocated. TYPE_ALLOCATED(t) must be NULL in such case. If this flag
+ is unset and TYPE_ALLOCATED(t) is NULL then the type is allocated. If this
+ flag is unset and TYPE_ALLOCATED(t) is not NULL then its DWARF block
+ determines the actual allocation state. */
+
+#define TYPE_NOT_ALLOCATED(t) (TYPE_MAIN_TYPE (t)->flag_not_allocated)
+
+/* Not associated. TYPE_ASSOCIATED(t) must be NULL in such case. If this flag
+ is unset and TYPE_ASSOCIATED(t) is NULL then the type is associated. If
+ this flag is unset and TYPE_ASSOCIATED(t) is not NULL then its DWARF block
+ determines the actual association state. */
+
+#define TYPE_NOT_ASSOCIATED(t) (TYPE_MAIN_TYPE (t)->flag_not_associated)
+
+/* Address of the actual data as for DW_AT_data_location. Its dwarf block must
+ not be evaluated unless both TYPE_NOT_ALLOCATED and TYPE_NOT_ASSOCIATED are
+ false. If TYPE_DATA_LOCATION_IS_ADDR set then TYPE_DATA_LOCATION_ADDR value
+ is the actual data address value. If unset and
+ TYPE_DATA_LOCATION_DWARF_BLOCK is NULL then the value is the normal
+ VALUE_ADDRESS copy. If unset and TYPE_DATA_LOCATION_DWARF_BLOCK is not NULL
+ then its DWARF block determines the actual data address. */
+
+#define TYPE_DATA_LOCATION_IS_ADDR(t) \
+ (TYPE_MAIN_TYPE (t)->flag_data_location_is_addr)
+
/* Constant type. If this is set, the corresponding type has a
* const modifier.
*/
@@ -352,6 +390,11 @@ struct main_type
unsigned int flag_stub_supported : 1;
unsigned int flag_nottext : 1;
unsigned int flag_fixed_instance : 1;
+ unsigned int flag_dynamic : 1;
+ unsigned int flag_range_high_bound_is_count : 1;
+ unsigned int flag_not_allocated : 1;
+ unsigned int flag_not_associated : 1;
+ unsigned int flag_data_location_is_addr : 1;
/* Number of fields described for this type. This field appears at
this location because it packs nicely here. */
@@ -414,6 +457,20 @@ struct main_type
struct type *target_type;
+ /* For DW_AT_data_location. */
+ union
+ {
+ struct dwarf2_locexpr_baton *dwarf_block;
+ CORE_ADDR addr;
+ }
+ data_location;
+
+ /* For DW_AT_allocated. */
+ struct dwarf2_locexpr_baton *allocated;
+
+ /* For DW_AT_associated. */
+ struct dwarf2_locexpr_baton *associated;
+
/* For structure and union types, a description of each field.
For set and pascal array types, there is one "field",
whose type is the domain type of the set or array.
@@ -795,9 +852,9 @@ extern void allocate_cplus_struct_type (struct type *);
#define TYPE_POINTER_TYPE(thistype) (thistype)->pointer_type
#define TYPE_REFERENCE_TYPE(thistype) (thistype)->reference_type
#define TYPE_CHAIN(thistype) (thistype)->chain
-/* Note that if thistype is a TYPEDEF type, you have to call check_typedef.
- But check_typedef does set the TYPE_LENGTH of the TYPEDEF type,
- so you only have to call check_typedef once. Since allocate_value
+/* Note that if thistype is a TYPEDEF, ARRAY or STRING type, you have to call
+ check_typedef. But check_typedef does set the TYPE_LENGTH of the TYPEDEF
+ type, so you only have to call check_typedef once. Since allocate_value
calls check_typedef, TYPE_LENGTH (VALUE_TYPE (X)) is safe. */
#define TYPE_LENGTH(thistype) (thistype)->length
#define TYPE_OBJFILE(thistype) TYPE_MAIN_TYPE(thistype)->objfile
@@ -807,23 +864,44 @@ extern void allocate_cplus_struct_type (struct type *);
#define TYPE_NFIELDS(thistype) TYPE_MAIN_TYPE(thistype)->nfields
#define TYPE_FIELDS(thistype) TYPE_MAIN_TYPE(thistype)->fields
#define TYPE_TEMPLATE_ARGS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->template_args
+#define TYPE_DATA_LOCATION_DWARF_BLOCK(thistype) TYPE_MAIN_TYPE (thistype)->data_location.dwarf_block
+#define TYPE_DATA_LOCATION_ADDR(thistype) TYPE_MAIN_TYPE (thistype)->data_location.addr
+#define TYPE_ALLOCATED(thistype) TYPE_MAIN_TYPE (thistype)->allocated
+#define TYPE_ASSOCIATED(thistype) TYPE_MAIN_TYPE (thistype)->associated
#define TYPE_INDEX_TYPE(type) TYPE_FIELD_TYPE (type, 0)
#define TYPE_LOW_BOUND(range_type) TYPE_FIELD_BITPOS (range_type, 0)
#define TYPE_HIGH_BOUND(range_type) TYPE_FIELD_BITPOS (range_type, 1)
-
-/* Moto-specific stuff for FORTRAN arrays */
-
-#define TYPE_ARRAY_UPPER_BOUND_IS_UNDEFINED(arraytype) \
- (TYPE_FIELD_ARTIFICIAL(TYPE_INDEX_TYPE((arraytype)),1))
+#define TYPE_BYTE_STRIDE(range_type) TYPE_FIELD_BITPOS (range_type, 2)
+
+/* Whether we should use TYPE_FIELD_DWARF_BLOCK (and not TYPE_FIELD_BITPOS). */
+#define TYPE_RANGE_BOUND_IS_DWARF_BLOCK(range_type, fieldno) \
+ (TYPE_FIELD_LOC_KIND (range_type, fieldno) == FIELD_LOC_KIND_DWARF_BLOCK)
+#define TYPE_RANGE_BOUND_SET_DWARF_BLOCK(range_type, fieldno) \
+ (TYPE_FIELD_LOC_KIND (range_type, fieldno) = FIELD_LOC_KIND_DWARF_BLOCK)
+#define TYPE_ARRAY_BOUND_IS_DWARF_BLOCK(array_type, fieldno) \
+ TYPE_RANGE_BOUND_IS_DWARF_BLOCK (TYPE_INDEX_TYPE (array_type), fieldno)
+
+/* Unbound arrays, such as GCC array[]; at end of struct. */
+#define TYPE_RANGE_LOWER_BOUND_IS_UNDEFINED(rangetype) \
+ TYPE_FIELD_ARTIFICIAL((rangetype),0)
+#define TYPE_RANGE_UPPER_BOUND_IS_UNDEFINED(rangetype) \
+ TYPE_FIELD_ARTIFICIAL((rangetype),1)
#define TYPE_ARRAY_LOWER_BOUND_IS_UNDEFINED(arraytype) \
- (TYPE_FIELD_ARTIFICIAL(TYPE_INDEX_TYPE((arraytype)),0))
-
-#define TYPE_ARRAY_UPPER_BOUND_VALUE(arraytype) \
- (TYPE_HIGH_BOUND(TYPE_INDEX_TYPE((arraytype))))
+ TYPE_RANGE_LOWER_BOUND_IS_UNDEFINED (TYPE_INDEX_TYPE (arraytype))
+#define TYPE_ARRAY_UPPER_BOUND_IS_UNDEFINED(arraytype) \
+ TYPE_RANGE_UPPER_BOUND_IS_UNDEFINED (TYPE_INDEX_TYPE (arraytype))
#define TYPE_ARRAY_LOWER_BOUND_VALUE(arraytype) \
- (TYPE_LOW_BOUND(TYPE_INDEX_TYPE((arraytype))))
+ TYPE_LOW_BOUND (TYPE_INDEX_TYPE (arraytype))
+#define TYPE_ARRAY_UPPER_BOUND_VALUE(arraytype) \
+ TYPE_HIGH_BOUND (TYPE_INDEX_TYPE (arraytype))
+/* TYPE_BYTE_STRIDE (TYPE_INDEX_TYPE (arraytype)) with a fallback to the
+ element size if no specific stride value is known. */
+#define TYPE_ARRAY_BYTE_STRIDE_VALUE(arraytype) \
+ (TYPE_BYTE_STRIDE (TYPE_INDEX_TYPE (arraytype)) == 0 \
+ ? TYPE_LENGTH (TYPE_TARGET_TYPE (arraytype)) \
+ : TYPE_BYTE_STRIDE (TYPE_INDEX_TYPE (arraytype)))
/* C++ */
@@ -1078,6 +1156,16 @@ extern struct type *builtin_type_error;
(TYPE_UNSIGNED(t) ? UMIN_OF_SIZE(TYPE_LENGTH(t)) \
: MIN_OF_SIZE(TYPE_LENGTH(t)))
+/* Virtual OBJFILE used for builtin types. */
+#define OBJFILE_INTERNAL ((struct objfile *) 1L)
+
+/* Virtual OBJFILE used for types allocated by malloc. FIXME: Currently
+ backward compatible with the old NULL value; fix then also init_type. */
+#define OBJFILE_MALLOC ((struct objfile *) 0L)
+
+#define OBJFILE_IS_VIRTUAL(objfile) ((objfile) == OBJFILE_INTERNAL \
+ || (objfile) == OBJFILE_MALLOC)
+
/* Allocate space for storing data associated with a particular type.
We ensure that the space is allocated using the same mechanism that
was used to allocate the space for the type structure itself. I.E.
@@ -1087,18 +1175,18 @@ extern struct type *builtin_type_error;
builtin types), then the data space will be allocated with xmalloc,
the same as for the type structure. */
-#define TYPE_ALLOC(t,size) \
- (TYPE_OBJFILE (t) != NULL \
- ? obstack_alloc (&TYPE_OBJFILE (t) -> objfile_obstack, size) \
- : xmalloc (size))
+#define TYPE_ALLOC(t,size) \
+ (OBJFILE_IS_VIRTUAL (TYPE_OBJFILE (t)) \
+ ? xmalloc (size) \
+ : obstack_alloc (&TYPE_OBJFILE (t) -> objfile_obstack, size))
-#define TYPE_ZALLOC(t,size) \
- (TYPE_OBJFILE (t) != NULL \
- ? memset (obstack_alloc (&TYPE_OBJFILE (t)->objfile_obstack, size), \
- 0, size) \
- : xzalloc (size))
+#define TYPE_ZALLOC(t,size) \
+ (OBJFILE_IS_VIRTUAL (TYPE_OBJFILE (t)) \
+ ? xzalloc (size) \
+ : memset (obstack_alloc (&TYPE_OBJFILE (t)->objfile_obstack, size), \
+ 0, size))
-extern struct type *alloc_type (struct objfile *);
+extern struct type *alloc_type (struct objfile *, struct type *);
extern struct type *init_type (enum type_code, int, int, char *,
struct objfile *);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1172,6 +1260,18 @@ extern struct type *create_range_type (struct type *, struct type *, int,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
extern struct type *create_array_type (struct type *, struct type *,
struct type *);
+extern CORE_ADDR type_range_any_field_internal (struct type *range_type,
+ int fieldno);
+
+extern int type_range_high_bound_internal (struct type *range_type);
+
+extern int type_range_count_bound_internal (struct type *range_type);
+
+extern CORE_ADDR type_range_byte_stride_internal (struct type *range_type,
+ struct type *element_type);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+
+extern void finalize_type (struct type *type);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
extern struct type *create_string_type (struct type *, struct type *);
extern struct type *create_set_type (struct type *, struct type *);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1263,10 +1363,15 @@ extern void maintenance_print_type (char *, int);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
extern htab_t create_copied_types_hash (struct objfile *objfile);
-extern struct type *copy_type_recursive (struct objfile *objfile,
- struct type *type,
+extern struct type *copy_type_recursive (struct type *type,
htab_t copied_types);
extern struct type *copy_type (const struct type *type);
+extern void type_incref (struct type *type);
+
+extern void type_decref (struct type *type);
+
+extern void free_all_types (void);
+
#endif /* GDBTYPES_H */
diff --git a/gdb/gnu-v2-abi.c b/gdb/gnu-v2-abi.c
index 7cacac1..a456228 100644
--- a/gdb/gnu-v2-abi.c
+++ b/gdb/gnu-v2-abi.c
@@ -242,7 +242,7 @@ gnuv2_value_rtti_type (struct value *v, int *full, int *top, int *using_enc)
we'd waste a bunch of time figuring out we already know the type.
Besides, we don't care about the type, just the actual pointer
*/
- if (VALUE_ADDRESS (value_field (v, known_type_vptr_fieldno)) == 0)
+ if (value_address (value_field (v, known_type_vptr_fieldno)) == 0)
return NULL;
vtbl = value_as_address (value_field (v, known_type_vptr_fieldno));
diff --git a/gdb/gnu-v3-abi.c b/gdb/gnu-v3-abi.c
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
index 3a52df3..6cdf716 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/gnu-v3-abi.c
+++ b/gdb/gnu-v3-abi.c
@@ -269,8 +269,7 @@ gnuv3_rtti_type (struct value *value,
/* Find the linker symbol for this vtable. */
vtable_symbol
- = lookup_minimal_symbol_by_pc (VALUE_ADDRESS (vtable)
- + value_offset (vtable)
+ = lookup_minimal_symbol_by_pc (value_address (vtable)
+ value_embedded_offset (vtable));
if (! vtable_symbol)
return NULL;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -487,10 +486,8 @@ gnuv3_find_method_in (struct type *domain, CORE_ADDR voffset,
LONGEST adjustment)
{
int i;
- const char *physname;
/* Search this class first. */
- physname = NULL;
if (adjustment == 0)
{
int len;
@@ -615,13 +612,15 @@ gnuv3_print_method_ptr (const gdb_byte *contents,
{
char *demangled_name = cplus_demangle (physname,
DMGL_ANSI | DMGL_PARAMS);
- if (demangled_name != NULL)
+ fprintf_filtered (stream, "&virtual ");
+ if (demangled_name == NULL)
+ fputs_filtered (physname, stream);
+ else
{
- fprintf_filtered (stream, "&virtual ");
fputs_filtered (demangled_name, stream);
xfree (demangled_name);
- return;
}
+ return;
}
}
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/i386-linux-nat.c b/gdb/i386-linux-nat.c
index 2366474..f83de32 100644
--- a/gdb/i386-linux-nat.c
+++ b/gdb/i386-linux-nat.c
@@ -751,7 +751,13 @@ i386_linux_resume (struct target_ops *ops,
{
int pid = PIDGET (ptid);
- int request = PTRACE_CONT;
+ int request;
+
+ if (target_passed_by_entrypoint () > 0
+ && catch_syscall_enabled () > 0)
+ request = PTRACE_SYSCALL;
+ else
+ request = PTRACE_CONT;
if (step)
{
diff --git a/gdb/i386-linux-tdep.c b/gdb/i386-linux-tdep.c
index 1a2e4f0..973eced 100644
--- a/gdb/i386-linux-tdep.c
+++ b/gdb/i386-linux-tdep.c
@@ -37,6 +37,10 @@
#include "symtab.h"
#include "arch-utils.h"
#include "regset.h"
+#include "linux-tdep.h"
+
+/* The syscall's XML filename for i386. */
+#define XML_SYSCALL_FILENAME_I386 "syscalls/i386-linux.xml"
/* Supported register note sections. */
static struct core_regset_section i386_linux_regset_sections[] =
@@ -349,6 +353,26 @@ i386_linux_write_pc (struct regcache *regcache, CORE_ADDR pc)
}
+static LONGEST
+i386_linux_get_syscall_number (struct gdbarch *gdbarch,
+ ptid_t ptid)
+{
+ struct regcache *regcache = get_thread_regcache (ptid);
+ /* The content of a register. */
+ gdb_byte buf[4];
+ /* The result. */
+ LONGEST ret;
+
+ /* Getting the system call number from the register.
+ When dealing with x86 architecture, this information
+ is stored at %eax register. */
+ regcache_cooked_read (regcache, I386_LINUX_ORIG_EAX_REGNUM, buf);
+
+ ret = extract_signed_integer (buf, 4);
+
+ return ret;
+}
+
/* The register sets used in GNU/Linux ELF core-dumps are identical to
the register sets in `struct user' that are used for a.out
core-dumps. These are also used by ptrace(2). The corresponding
@@ -419,6 +443,9 @@ i386_linux_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
{
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
+ /* Initializing common functions. */
+ linux_tdep_init (gdbarch);
+
/* GNU/Linux uses ELF. */
i386_elf_init_abi (info, gdbarch);
@@ -472,6 +499,11 @@ i386_linux_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
displaced_step_at_entry_point);
set_gdbarch_get_siginfo_type (gdbarch, linux_get_siginfo_type);
+
+ /* Functions for 'catch syscall'. */
+ set_gdbarch_xml_syscall_filename (gdbarch, XML_SYSCALL_FILENAME_I386);
+ set_gdbarch_get_syscall_number (gdbarch,
+ i386_linux_get_syscall_number);
}
/* Provide a prototype to silence -Wmissing-prototypes. */
diff --git a/gdb/inf-child.c b/gdb/inf-child.c
index 38311f1..fc968cf 100644
--- a/gdb/inf-child.c
+++ b/gdb/inf-child.c
@@ -148,6 +148,15 @@ inf_child_remove_exec_catchpoint (int pid)
}
static int
+inf_child_set_syscall_catchpoint (int pid, int needed, int any_count,
+ int table_size, int *table)
+{
+ /* This version of Unix doesn't support notification of syscall
+ events. */
+ return 0;
+}
+
+static int
inf_child_can_run (void)
{
return 1;
@@ -190,6 +199,7 @@ inf_child_target (void)
t->to_follow_fork = inf_child_follow_fork;
t->to_insert_exec_catchpoint = inf_child_insert_exec_catchpoint;
t->to_remove_exec_catchpoint = inf_child_remove_exec_catchpoint;
+ t->to_set_syscall_catchpoint = inf_child_set_syscall_catchpoint;
t->to_can_run = inf_child_can_run;
t->to_pid_to_exec_file = inf_child_pid_to_exec_file;
t->to_stratum = process_stratum;
diff --git a/gdb/inf-ptrace.c b/gdb/inf-ptrace.c
index f40b6b7..ff429c4 100644
--- a/gdb/inf-ptrace.c
+++ b/gdb/inf-ptrace.c
@@ -356,13 +356,19 @@ inf_ptrace_resume (struct target_ops *ops,
ptid_t ptid, int step, enum target_signal signal)
{
pid_t pid = ptid_get_pid (ptid);
- int request = PT_CONTINUE;
+ int request;
if (pid == -1)
/* Resume all threads. Traditionally ptrace() only supports
single-threaded processes, so simply resume the inferior. */
pid = ptid_get_pid (inferior_ptid);
+ if (target_passed_by_entrypoint () > 0
+ && catch_syscall_enabled () > 0)
+ request = PT_SYSCALL;
+ else
+ request = PT_CONTINUE;
+
if (step)
{
/* If this system does not support PT_STEP, a higher level
diff --git a/gdb/infcall.c b/gdb/infcall.c
index d6da8b2..80168b3 100644
--- a/gdb/infcall.c
+++ b/gdb/infcall.c
@@ -98,6 +98,28 @@ Unwinding of stack if a signal is received while in a call dummy is %s.\n"),
value);
}
+/* This boolean tells what gdb should do if a std::terminate call is
+ made while in a function called from gdb (call dummy).
+ As the confines of a single dummy stack prohibit out-of-frame
+ handlers from handling a raised exception, and as out-of-frame
+ handlers are common in C++, this can lead to no handler being found
+ by the unwinder, and a std::terminate call. This is a false positive.
+ If set, gdb unwinds the stack and restores the context to what it
+ was before the call.
+
+ The default is to unwind the frame if a std::terminate call is made.. */
+
+static int unwind_on_terminating_exception_p = 1;
+static void
+show_unwind_on_terminating_exception_p (struct ui_file *file, int from_tty,
+ struct cmd_list_element *c,
+ const char *value)
+
+{
+ fprintf_filtered (file, _("\
+Unwind stack if a C++ exception is unhandled while in a call dummy is %s.\n"),
+ value);
+}
/* Perform the standard coercions that are specified
for arguments to be passed to C or Ada functions.
@@ -217,7 +239,7 @@ find_function_addr (struct value *function, struct type **retval_type)
/* Determine address to call. */
if (code == TYPE_CODE_FUNC || code == TYPE_CODE_METHOD)
{
- funaddr = VALUE_ADDRESS (function);
+ funaddr = value_address (function);
value_type = TYPE_TARGET_TYPE (ftype);
}
else if (code == TYPE_CODE_PTR)
@@ -419,6 +441,8 @@ call_function_by_hand (struct value *function, int nargs, struct value **args)
struct cleanup *args_cleanup;
struct frame_info *frame;
struct gdbarch *gdbarch;
+ struct breakpoint *terminate_bp = 0;
+ struct minimal_symbol *tm;
ptid_t call_thread_ptid;
struct gdb_exception e;
const char *name;
@@ -718,6 +742,29 @@ call_function_by_hand (struct value *function, int nargs, struct value **args)
bpt = set_momentary_breakpoint (sal, dummy_id, bp_call_dummy);
bpt->disposition = disp_del;
}
+
+ /* Create a breakpoint in std::terminate.
+ If a C++ exception is raised in the dummy-frame, and the
+ exception handler is (normally, and expected to be) out-of-frame,
+ the default C++ handler will (wrongly) be called in an inferior
+ function call. This is wrong, as an exception can be normally
+ and legally handled out-of-frame. The confines of the dummy frame
+ prevent the unwinder from finding the correct handler (or any
+ handler, unless it is in-frame). The default handler calls
+ std::terminate. This will kill the inferior. Assert that
+ terminate should never be called in an inferior function
+ call. Place a momentary breakpoint in the std::terminate function
+ and if triggered in the call, rewind */
+ if (unwind_on_terminating_exception_p)
+ {
+ tm = lookup_minimal_symbol ("std::terminate()", NULL, NULL);
+ if (tm != NULL)
+ {
+ terminate_bp = set_momentary_breakpoint_at_pc
+ (SYMBOL_VALUE_ADDRESS (tm), bp_breakpoint);
+ make_cleanup_delete_breakpoint (terminate_bp);
+ }
+ }
/* Everything's ready, push all the info needed to restore the
caller (and identify the dummy-frame) onto the dummy-frame
@@ -828,6 +875,16 @@ When the function is done executing, GDB will silently stop."),
name);
}
+ if (! target_has_execution)
+ {
+ /* If we try to restore the inferior status (via the cleanup),
+ we'll crash as the inferior is no longer running. */
+ discard_cleanups (inf_status_cleanup);
+ discard_inferior_status (inf_status);
+ error (_("\
+The program being debugged exited while in a function called from GDB."));
+ }
+
if (stopped_by_random_signal || !stop_stack_dummy)
{
const char *name = get_function_name (funaddr,
@@ -884,6 +941,38 @@ When the function is done executing, GDB will silently stop."),
if (!stop_stack_dummy)
{
+
+ /* Check if unwind on terminating exception behaviour is on */
+ if (unwind_on_terminating_exception_p)
+ {
+ /* Check that the breakpoint is our special std::terminate
+ breakpoint. If it is, we do not want to kill the inferior
+ in an inferior function call. Rewind, and warn the user */
+
+ if ((terminate_bp != NULL) &&
+ (inferior_thread()->stop_bpstat->breakpoint_at->address
+ == terminate_bp->loc->address))
+
+
+ {
+
+ /* We must get back to the frame we were before the
+ dummy call. */
+ dummy_frame_pop (dummy_id);
+
+ /* We also need to restore inferior status to that before the
+ dummy call. */
+ restore_inferior_status (inf_status);
+
+ error (_("\
+The program being debugged entered a std::terminate call which would\n\
+have terminated the program being debugged. GDB has restored the\n\
+context to what it was before the call\n\
+To change this behaviour use \"set unwind-on-terminating-exception off\"\n\
+Evaluation of the expression containing the function (%s) will be abandoned."),
+ name);
+ }
+ }
/* We hit a breakpoint inside the FUNCTION.
Keep the dummy frame, the user may want to examine its state.
Discard inferior status, we're not at the same point
@@ -992,4 +1081,19 @@ The default is to stop in the frame where the signal was received."),
NULL,
show_unwind_on_signal_p,
&setlist, &showlist);
+
+ add_setshow_boolean_cmd ("unwind-on-terminating-exception", no_class,
+ &unwind_on_terminating_exception_p, _("\
+Set unwinding of stack if a std::terminate() call originates from\n\
+the default C++ exception handler."), _("\
+Show unwinding of stack if a std::terminate() call originates from\n\
+the default C++ exception handler."), _("\
+The unwind on terminating exception flag lets the user determine\n\
+what gdb should do if a std::terminate() call is made from the\n\
+default exception handler.\n\
+The default is to unwind the frame."),
+ NULL,
+ show_unwind_on_terminating_exception_p,
+ &setlist, &showlist);
+
}
diff --git a/gdb/infcmd.c b/gdb/infcmd.c
index 0a17dab..d48f4b1 100644
--- a/gdb/infcmd.c
+++ b/gdb/infcmd.c
@@ -466,6 +466,11 @@ run_command_1 (char *args, int from_tty, int tbreak_at_main)
init_wait_for_inferior ();
clear_breakpoint_hit_counts ();
+ /* If we already caught a syscall catchpoint, then reset its
+ syscall_number information because we are starting all over
+ again. */
+ clear_syscall_catchpoints_info ();
+
/* Clean up any leftovers from other runs. Some other things from
this function should probably be moved into target_pre_inferior. */
target_pre_inferior (from_tty);
diff --git a/gdb/infrun.c b/gdb/infrun.c
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
index ee5f987..2f627ea 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/infrun.c
+++ b/gdb/infrun.c
@@ -1046,7 +1046,7 @@ a command like `return' or `jump' to continue execution."));
}
}
- /* If there were any forks/vforks/execs that were caught and are
+ /* If there were any forks/vforks/execs/syscalls that were caught and are
now to be followed, then do so. */
switch (pending_follow.kind)
{
@@ -1069,6 +1069,11 @@ a command like `return' or `jump' to continue execution."));
pending_follow.kind = TARGET_WAITKIND_SPURIOUS;
break;
+ case TARGET_WAITKIND_SYSCALL_ENTRY:
+ case TARGET_WAITKIND_SYSCALL_RETURN:
+ pending_follow.kind = TARGET_WAITKIND_SPURIOUS;
+ break;
+
default:
break;
}
@@ -1509,7 +1514,7 @@ init_wait_for_inferior (void)
breakpoint_init_inferior (inf_starting);
- /* The first resume is not following a fork/vfork/exec. */
+ /* The first resume is not following a fork/vfork/exec/syscall. */
pending_follow.kind = TARGET_WAITKIND_SPURIOUS; /* I.e., none. */
clear_proceed_status ();
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -2155,6 +2160,50 @@ ensure_not_running (void)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
error_is_running ();
}
+/* Auxiliary function that handles syscall entry/return events.
+ It returns 1 if the inferior should keep going (and GDB
+ should ignore the event), or 0 if the event deserves to be
+ processed. */
+static int
+deal_with_syscall_event (struct execution_control_state *ecs)
+{
+ int syscall_number = gdbarch_get_syscall_number (current_gdbarch,
+ ecs->ptid);
+ if (catch_syscall_enabled () > 0
+ && catching_syscall_number (syscall_number) > 0)
+ {
+ ecs->event_thread->stop_signal = TARGET_SIGNAL_TRAP;
+ pending_follow.kind = ecs->ws.kind;
+
+ if (!ptid_equal (ecs->ptid, inferior_ptid))
+ {
+ context_switch (ecs->ptid);
+ reinit_frame_cache ();
+ }
+
+ stop_pc = read_pc ();
+
+ ecs->event_thread->stop_bpstat = bpstat_stop_status (stop_pc, ecs->ptid);
+
+ ecs->random_signal = !bpstat_explains_signal (ecs->event_thread->stop_bpstat);
+
+ /* If no catchpoint triggered for this, then keep going. */
+ if (ecs->random_signal)
+ {
+ ecs->event_thread->stop_signal = TARGET_SIGNAL_0;
+ keep_going (ecs);
+ return 1;
+ }
+ return 0;
+ }
+ else
+ {
+ resume (0, TARGET_SIGNAL_0);
+ prepare_to_wait (ecs);
+ return 1;
+ }
+}
+
/* Given an execution control state that has been freshly filled in
by an event from the inferior, figure out what it means and take
appropriate action. */
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -2449,9 +2498,11 @@ handle_inferior_event (struct execution_control_state *ecs)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
case TARGET_WAITKIND_SYSCALL_ENTRY:
if (debug_infrun)
fprintf_unfiltered (gdb_stdlog, "infrun: TARGET_WAITKIND_SYSCALL_ENTRY\n");
- resume (0, TARGET_SIGNAL_0);
- prepare_to_wait (ecs);
- return;
+ /* Getting the current syscall number */
+ if (deal_with_syscall_event (ecs) != 0)
+ return;
+ goto process_event_stop_test;
+ break;
/* Before examining the threads further, step this thread to
get it entirely out of the syscall. (We get notice of the
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -2461,9 +2512,10 @@ handle_inferior_event (struct execution_control_state *ecs)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
case TARGET_WAITKIND_SYSCALL_RETURN:
if (debug_infrun)
fprintf_unfiltered (gdb_stdlog, "infrun: TARGET_WAITKIND_SYSCALL_RETURN\n");
- target_resume (ecs->ptid, 1, TARGET_SIGNAL_0);
- prepare_to_wait (ecs);
- return;
+ if (deal_with_syscall_event (ecs) != 0)
+ return;
+ goto process_event_stop_test;
+ break;
case TARGET_WAITKIND_STOPPED:
if (debug_infrun)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -5166,6 +5218,25 @@ inferior_has_execd (ptid_t pid, char **execd_pathname)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return 1;
}
+int
+inferior_has_called_syscall (ptid_t pid, int *syscall_number)
+{
+ struct target_waitstatus last;
+ ptid_t last_ptid;
+
+ get_last_target_status (&last_ptid, &last);
+
+ if (last.kind != TARGET_WAITKIND_SYSCALL_ENTRY &&
+ last.kind != TARGET_WAITKIND_SYSCALL_RETURN)
+ return 0;
+
+ if (!ptid_equal (last_ptid, pid))
+ return 0;
+
+ *syscall_number = last.value.syscall_number;
+ return 1;
+}
+
/* Oft used ptids */
ptid_t null_ptid;
ptid_t minus_one_ptid;
diff --git a/gdb/jv-lang.c b/gdb/jv-lang.c
index b702ebf..a211adf 100644
--- a/gdb/jv-lang.c
+++ b/gdb/jv-lang.c
@@ -61,7 +61,8 @@ static char *get_java_utf8_name (struct obstack *obstack, struct value *name);
static int java_class_is_primitive (struct value *clas);
static struct value *java_value_string (char *ptr, int len);
-static void java_emit_char (int c, struct ui_file * stream, int quoter);
+static void java_emit_char (int c, struct type *type,
+ struct ui_file * stream, int quoter);
static char *java_class_name_from_physname (const char *physname);
@@ -210,8 +211,7 @@ get_java_utf8_name (struct obstack *obstack, struct value *name)
CORE_ADDR data_addr;
temp = value_struct_elt (&temp, NULL, "length", NULL, "structure");
name_length = (int) value_as_long (temp);
- data_addr = VALUE_ADDRESS (temp) + value_offset (temp)
- + TYPE_LENGTH (value_type (temp));
+ data_addr = value_address (temp) + TYPE_LENGTH (value_type (temp));
chrs = obstack_alloc (obstack, name_length + 1);
chrs[name_length] = '\0';
read_memory (data_addr, (gdb_byte *) chrs, name_length);
@@ -266,7 +266,7 @@ type_from_class (struct value *clas)
return NULL;
clas = value_ind (clas);
}
- addr = VALUE_ADDRESS (clas) + value_offset (clas);
+ addr = value_address (clas);
#if 0
get_java_class_symtab ();
@@ -302,7 +302,7 @@ type_from_class (struct value *clas)
if (type != NULL)
return type;
- type = alloc_type (objfile);
+ type = alloc_type (objfile, NULL);
TYPE_CODE (type) = TYPE_CODE_STRUCT;
INIT_CPLUS_SPECIFIC (type);
@@ -422,7 +422,7 @@ java_link_class_type (struct type *type, struct value *clas)
fields = NULL;
nfields--; /* First set up dummy "class" field. */
SET_FIELD_PHYSADDR (TYPE_FIELD (type, nfields),
- VALUE_ADDRESS (clas) + value_offset (clas));
+ value_address (clas));
TYPE_FIELD_NAME (type, nfields) = "class";
TYPE_FIELD_TYPE (type, nfields) = value_type (clas);
SET_TYPE_FIELD_PRIVATE (type, nfields);
@@ -439,7 +439,9 @@ java_link_class_type (struct type *type, struct value *clas)
}
else
{ /* Re-use field value for next field. */
- VALUE_ADDRESS (field) += TYPE_LENGTH (value_type (field));
+ CORE_ADDR addr
+ = value_address (field) + TYPE_LENGTH (value_type (field));
+ set_value_address (field, addr);
set_value_lazy (field, 1);
}
temp = field;
@@ -509,7 +511,9 @@ java_link_class_type (struct type *type, struct value *clas)
}
else
{ /* Re-use method value for next method. */
- VALUE_ADDRESS (method) += TYPE_LENGTH (value_type (method));
+ CORE_ADDR addr
+ = value_address (method) + TYPE_LENGTH (value_type (method));
+ set_value_address (method, addr);
set_value_lazy (method, 1);
}
@@ -796,7 +800,7 @@ java_value_string (char *ptr, int len)
characters and strings is language specific. */
static void
-java_emit_char (int c, struct ui_file *stream, int quoter)
+java_emit_char (int c, struct type *type, struct ui_file *stream, int quoter)
{
switch (c)
{
diff --git a/gdb/jv-valprint.c b/gdb/jv-valprint.c
index d3606fd..cdcb440 100644
--- a/gdb/jv-valprint.c
+++ b/gdb/jv-valprint.c
@@ -45,7 +45,7 @@ java_value_print (struct value *val, struct ui_file *stream,
struct value_print_options opts;
type = value_type (val);
- address = VALUE_ADDRESS (val) + value_offset (val);
+ address = value_address (val);
if (is_object_type (type))
{
@@ -143,8 +143,8 @@ java_value_print (struct value *val, struct ui_file *stream,
struct value *v = allocate_value (el_type);
struct value *next_v = allocate_value (el_type);
- VALUE_ADDRESS (v) = address + JAVA_OBJECT_SIZE + 4;
- VALUE_ADDRESS (next_v) = VALUE_ADDRESS (v);
+ set_value_address (v, address + JAVA_OBJECT_SIZE + 4);
+ set_value_address (next_v, value_raw_address (v));
while (i < length && things_printed < options->print_max)
{
@@ -230,7 +230,7 @@ java_value_print (struct value *val, struct ui_file *stream,
value_free_to_mark (mark); /* Release unnecessary values */
- val_print_string (data + boffset, count, 2, stream, options);
+ val_print_string (java_char_type, data + boffset, count, stream, options);
return 0;
}
@@ -520,7 +520,7 @@ java_val_print (struct type *type, const gdb_byte *valaddr,
|| (TYPE_CODE (type) == TYPE_CODE_INT
&& TYPE_LENGTH (type) == 2
&& strcmp (TYPE_NAME (type), "char") == 0))
- LA_PRINT_CHAR ((int) unpack_long (type, valaddr), stream);
+ LA_PRINT_CHAR ((int) unpack_long (type, valaddr), type, stream);
else
val_print_type_code_int (type, valaddr, stream);
break;
diff --git a/gdb/language.c b/gdb/language.c
index 3c37a64..6209d7f 100644
--- a/gdb/language.c
+++ b/gdb/language.c
@@ -65,9 +65,11 @@ static void set_check (char *, int);
static void set_type_range_case (void);
-static void unk_lang_emit_char (int c, struct ui_file *stream, int quoter);
+static void unk_lang_emit_char (int c, struct type *type,
+ struct ui_file *stream, int quoter);
-static void unk_lang_printchar (int c, struct ui_file *stream);
+static void unk_lang_printchar (int c, struct type *type,
+ struct ui_file *stream);
static void unk_lang_print_type (struct type *, char *, struct ui_file *,
int, int);
@@ -1065,20 +1067,22 @@ unk_lang_error (char *msg)
}
static void
-unk_lang_emit_char (int c, struct ui_file *stream, int quoter)
+unk_lang_emit_char (int c, struct type *type, struct ui_file *stream,
+ int quoter)
{
error (_("internal error - unimplemented function unk_lang_emit_char called."));
}
static void
-unk_lang_printchar (int c, struct ui_file *stream)
+unk_lang_printchar (int c, struct type *type, struct ui_file *stream)
{
error (_("internal error - unimplemented function unk_lang_printchar called."));
}
static void
-unk_lang_printstr (struct ui_file *stream, const gdb_byte *string,
- unsigned int length, int width, int force_ellipses,
+unk_lang_printstr (struct ui_file *stream, struct type *type,
+ const gdb_byte *string, unsigned int length,
+ int force_ellipses,
const struct value_print_options *options)
{
error (_("internal error - unimplemented function unk_lang_printstr called."));
diff --git a/gdb/language.h b/gdb/language.h
index 85826fd..e5f80ab 100644
--- a/gdb/language.h
+++ b/gdb/language.h
@@ -186,14 +186,15 @@ struct language_defn
void (*la_post_parser) (struct expression ** expp, int void_context_p);
- void (*la_printchar) (int ch, struct ui_file * stream);
+ void (*la_printchar) (int ch, struct type *chtype, struct ui_file * stream);
- void (*la_printstr) (struct ui_file * stream, const gdb_byte *string,
- unsigned int length, int width,
+ void (*la_printstr) (struct ui_file * stream, struct type *elttype,
+ const gdb_byte *string, unsigned int length,
int force_ellipses,
const struct value_print_options *);
- void (*la_emitchar) (int ch, struct ui_file * stream, int quoter);
+ void (*la_emitchar) (int ch, struct type *chtype,
+ struct ui_file * stream, int quoter);
/* Print a type using syntax appropriate for this language. */
@@ -381,13 +382,13 @@ extern enum language set_language (enum language);
#define LA_VALUE_PRINT(val,stream,options) \
(current_language->la_value_print(val,stream,options))
-#define LA_PRINT_CHAR(ch, stream) \
- (current_language->la_printchar(ch, stream))
-#define LA_PRINT_STRING(stream, string, length, width, force_ellipses,options) \
- (current_language->la_printstr(stream, string, length, width, \
+#define LA_PRINT_CHAR(ch, type, stream) \
+ (current_language->la_printchar(ch, type, stream))
+#define LA_PRINT_STRING(stream, elttype, string, length, force_ellipses,options) \
+ (current_language->la_printstr(stream, elttype, string, length, \
force_ellipses,options))
-#define LA_EMIT_CHAR(ch, stream, quoter) \
- (current_language->la_emitchar(ch, stream, quoter))
+#define LA_EMIT_CHAR(ch, type, stream, quoter) \
+ (current_language->la_emitchar(ch, type, stream, quoter))
#define LA_GET_STRING(value, buffer, length, encoding) \
(current_language->la_get_string(value, buffer, length, encoding))
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
diff --git a/gdb/linespec.c b/gdb/linespec.c
index 6579d42..b3ae6c0 100644
--- a/gdb/linespec.c
+++ b/gdb/linespec.c
@@ -842,13 +842,33 @@ decode_line_1 (char **argptr, int funfirstline, struct symtab *default_symtab,
}
else if (paren_pointer != NULL)
{
- p = paren_pointer + 1;
+ /* We need to deal with method and function overloads
+ with no parameters. Gdb and gcc (and who knows about other
+ compilers) are very inconsistent with the keyword "void".
+ Canonicalizing C++ types is insufficient in this case, since
+ we still need to enforce the presence (or lack thereof) of
+ "void". For simplicity, omit the keyword "void" if present. */
+ if (strncmp (paren_pointer - 5, "(void)", 6) == 0)
+ {
+ char *a, *b;
+ a = paren_pointer - 4;
+ b = paren_pointer;
+ while ((*(a++) = *(b++)) != '\0') ;
+ *a = '\0';
+ p = paren_pointer - 3;
+ }
+ else
+ p = paren_pointer + 1;
}
else
{
p = skip_quoted (*argptr);
}
+ /* Make sure we keep important kewords like "const" */
+ if (strncmp (p, " const", 6) == 0)
+ p += 6;
+
copy = (char *) alloca (p - *argptr + 1);
memcpy (copy, *argptr, p - *argptr);
copy[p - *argptr] = '\0';
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/linux-nat.c b/gdb/linux-nat.c
index 12b786e..e30bf9a 100644
--- a/gdb/linux-nat.c
+++ b/gdb/linux-nat.c
@@ -61,6 +61,10 @@
# endif
#endif /* HAVE_PERSONALITY */
+/* To be used when one needs to know wether a
+ WSTOPSIG (status) is a syscall */
+#define TRAP_IS_SYSCALL (SIGTRAP | 0x80)
+
/* This comment documents high-level logic of this file.
Waiting for events in sync mode
@@ -281,17 +285,29 @@ struct simple_pid_list *stopped_pids;
static int linux_supports_tracefork_flag = -1;
+/* This variable is a tri-state flag: -1 for unknown, 0 if PTRACE_O_TRACESYSGOOD
+ can not be used, 1 if it can. */
+
+static int linux_supports_tracesysgood_flag = -1;
+
/* If we have PTRACE_O_TRACEFORK, this flag indicates whether we also have
PTRACE_O_TRACEVFORKDONE. */
static int linux_supports_tracevforkdone_flag = -1;
+/* If the inferior have passed through its entrypoint (AT_ENTRY),
+ then this flag is set to 1. Otherwise, its value is 0. */
+static int linux_passed_by_entrypoint_flag = 0;
+
/* Async mode support */
/* Zero if the async mode, although enabled, is masked, which means
linux_nat_wait should behave as if async mode was off. */
static int linux_nat_async_mask_value = 1;
+/* Stores the current used ptrace() options. */
+static int current_ptrace_options = 0;
+
/* The read/write ends of the pipe registered as waitable file in the
event loop. */
static int linux_nat_event_pipe[2] = { -1, -1 };
@@ -636,6 +652,41 @@ linux_test_for_tracefork (int original_pid)
linux_nat_async_events (async_events_original_state);
}
+/* Determine if PTRACE_O_TRACESYSGOOD can be used to follow syscalls.
+
+ We try to enable syscall tracing on ORIGINAL_PID. If this fails,
+ we know that the feature is not available. This may change the tracing
+ options for ORIGINAL_PID, but we'll be setting them shortly anyway. */
+
+static void
+linux_test_for_tracesysgood (int original_pid)
+{
+ int ret;
+ enum sigchld_state async_events_original_state;
+
+ async_events_original_state = linux_nat_async_events (sigchld_sync);
+
+ linux_supports_tracesysgood_flag = 0;
+
+ ret = ptrace (PTRACE_SETOPTIONS, original_pid, 0, PTRACE_O_TRACESYSGOOD);
+ if (ret != 0)
+ return;
+
+ linux_supports_tracesysgood_flag = 1;
+ linux_nat_async_events (async_events_original_state);
+}
+
+/* Determine wether we support PTRACE_O_TRACESYSGOOD option available.
+ This function also sets linux_supports_tracesysgood_flag. */
+
+static int
+linux_supports_tracesysgood (int pid)
+{
+ if (linux_supports_tracesysgood_flag == -1)
+ linux_test_for_tracesysgood (pid);
+ return linux_supports_tracesysgood_flag;
+}
+
/* Return non-zero iff we have tracefork functionality available.
This function also sets linux_supports_tracefork_flag. */
@@ -655,12 +706,34 @@ linux_supports_tracevforkdone (int pid)
return linux_supports_tracevforkdone_flag;
}
+static void
+linux_enable_tracesysgood (ptid_t ptid)
+{
+ int pid = ptid_get_lwp (ptid);
+
+ if (pid == 0)
+ pid = ptid_get_pid (ptid);
+
+ if (linux_supports_tracesysgood (pid) == 0)
+ return;
+
+ current_ptrace_options |= PTRACE_O_TRACESYSGOOD;
+ linux_passed_by_entrypoint_flag = 1;
+
+ ptrace (PTRACE_SETOPTIONS, pid, 0, current_ptrace_options);
+}
+
+static int
+linux_passed_by_entrypoint (void)
+{
+ return linux_passed_by_entrypoint_flag;
+}
+
void
linux_enable_event_reporting (ptid_t ptid)
{
int pid = ptid_get_lwp (ptid);
- int options;
if (pid == 0)
pid = ptid_get_pid (ptid);
@@ -668,15 +741,16 @@ linux_enable_event_reporting (ptid_t ptid)
if (! linux_supports_tracefork (pid))
return;
- options = PTRACE_O_TRACEFORK | PTRACE_O_TRACEVFORK | PTRACE_O_TRACEEXEC
- | PTRACE_O_TRACECLONE;
+ current_ptrace_options |= PTRACE_O_TRACEFORK | PTRACE_O_TRACEVFORK
+ | PTRACE_O_TRACEEXEC | PTRACE_O_TRACECLONE;
+
if (linux_supports_tracevforkdone (pid))
- options |= PTRACE_O_TRACEVFORKDONE;
+ current_ptrace_options |= PTRACE_O_TRACEVFORKDONE;
/* Do not enable PTRACE_O_TRACEEXIT until GDB is more prepared to support
read-only process state. */
- ptrace (PTRACE_SETOPTIONS, pid, 0, options);
+ ptrace (PTRACE_SETOPTIONS, pid, 0, current_ptrace_options);
}
static void
@@ -684,6 +758,7 @@ linux_child_post_attach (int pid)
{
linux_enable_event_reporting (pid_to_ptid (pid));
check_for_thread_db ();
+ linux_enable_tracesysgood (pid_to_ptid (pid));
}
static void
@@ -691,6 +766,7 @@ linux_child_post_startup_inferior (ptid_t ptid)
{
linux_enable_event_reporting (ptid);
check_for_thread_db ();
+ linux_enable_tracesysgood (ptid);
}
static int
@@ -931,6 +1007,16 @@ linux_child_insert_exec_catchpoint (int pid)
error (_("Your system does not support exec catchpoints."));
}
+static int
+linux_child_set_syscall_catchpoint (int pid, int needed, int any_count,
+ int table_size, int *table)
+{
+ if (! linux_supports_tracesysgood (pid))
+ error (_("Your system does not support syscall catchpoints."));
+ /* We ignore the arguments. */
+ return 0;
+}
+
/* On GNU/Linux there are no real LWP's. The closest thing to LWP's
are processes sharing the same VM space. A multi-threaded process
is basically a group of such processes. However, such a grouping
@@ -1352,6 +1438,9 @@ linux_nat_create_inferior (struct target_ops *ops,
int personality_orig = 0, personality_set = 0;
#endif /* HAVE_PERSONALITY */
+ /* We are sarting, so we still have not passed through our entrypoint. */
+ linux_passed_by_entrypoint_flag = 0;
+
/* The fork_child mechanism is synchronous and calls target_wait, so
we have to mask the async mode. */
@@ -1996,6 +2085,26 @@ linux_handle_extended_wait (struct lwp_info *lp, int status,
return 0;
}
+ /* Used for 'catch syscall' feature. */
+ if (WSTOPSIG (status) == TRAP_IS_SYSCALL)
+ {
+ if (catch_syscall_enabled () == 0)
+ ourstatus->kind = TARGET_WAITKIND_IGNORE;
+ else
+ {
+ struct regcache *regcache = get_thread_regcache (lp->ptid);
+ struct gdbarch *gdbarch = get_regcache_arch (regcache);
+
+ ourstatus->kind =
+ (lp->syscall_state == TARGET_WAITKIND_SYSCALL_ENTRY) ?
+ TARGET_WAITKIND_SYSCALL_RETURN : TARGET_WAITKIND_SYSCALL_ENTRY;
+ lp->syscall_state = ourstatus->kind;
+ ourstatus->value.syscall_number =
+ (int) gdbarch_get_syscall_number (gdbarch, lp->ptid);
+ }
+ return 0;
+ }
+
internal_error (__FILE__, __LINE__,
_("unknown ptrace event %d"), event);
}
@@ -2606,11 +2715,16 @@ linux_nat_filter_event (int lwpid, int status, int options)
}
/* Save the trap's siginfo in case we need it later. */
- if (WIFSTOPPED (status) && WSTOPSIG (status) == SIGTRAP)
+ if (WIFSTOPPED (status)
+ && (WSTOPSIG (status) == SIGTRAP || WSTOPSIG (status) == TRAP_IS_SYSCALL))
save_siginfo (lp);
- /* Handle GNU/Linux's extended waitstatus for trace events. */
- if (WIFSTOPPED (status) && WSTOPSIG (status) == SIGTRAP && status >> 16 != 0)
+ /* Handle GNU/Linux's extended waitstatus for trace events.
+ It is necessary to check if WSTOPSIG is signaling a that
+ the inferior is entering/exiting a system call. */
+ if (WIFSTOPPED (status)
+ && ((WSTOPSIG (status) == TRAP_IS_SYSCALL)
+ || (WSTOPSIG (status) == SIGTRAP && status >> 16 != 0)))
{
if (debug_linux_nat)
fprintf_unfiltered (gdb_stdlog,
@@ -4262,12 +4376,14 @@ linux_target_install_ops (struct target_ops *t)
t->to_insert_fork_catchpoint = linux_child_insert_fork_catchpoint;
t->to_insert_vfork_catchpoint = linux_child_insert_vfork_catchpoint;
t->to_insert_exec_catchpoint = linux_child_insert_exec_catchpoint;
+ t->to_set_syscall_catchpoint = linux_child_set_syscall_catchpoint;
t->to_pid_to_exec_file = linux_child_pid_to_exec_file;
t->to_post_startup_inferior = linux_child_post_startup_inferior;
t->to_post_attach = linux_child_post_attach;
t->to_follow_fork = linux_child_follow_fork;
t->to_find_memory_regions = linux_nat_find_memory_regions;
t->to_make_corefile_notes = linux_nat_make_corefile_notes;
+ t->to_passed_by_entrypoint = linux_passed_by_entrypoint;
super_xfer_partial = t->to_xfer_partial;
t->to_xfer_partial = linux_xfer_partial;
diff --git a/gdb/linux-nat.h b/gdb/linux-nat.h
index fec5139..36d2439 100644
--- a/gdb/linux-nat.h
+++ b/gdb/linux-nat.h
@@ -70,6 +70,13 @@ struct lwp_info
or to a local variable in lin_lwp_wait. */
struct target_waitstatus waitstatus;
+ /* Signal wether we are in a SYSCALL_ENTRY or
+ in a SYSCALL_RETURN event.
+ Values:
+ - TARGET_WAITKIND_SYSCALL_ENTRY
+ - TARGET_WAITKIND_SYSCALL_RETURN */
+ int syscall_state;
+
/* Next LWP in list. */
struct lwp_info *next;
};
diff --git a/gdb/linux-tdep.c b/gdb/linux-tdep.c
index e18e134..d44b505 100644
--- a/gdb/linux-tdep.c
+++ b/gdb/linux-tdep.c
@@ -20,6 +20,8 @@
#include "defs.h"
#include "gdbtypes.h"
#include "linux-tdep.h"
+#include "xml-syscall.h"
+#include "target.h"
/* This function is suitable for architectures that don't
extend/override the standard siginfo structure. */
@@ -137,3 +139,81 @@ linux_get_siginfo_type (struct gdbarch *gdbarch)
return siginfo_type;
}
+
+/* Structure used to store information about the available syscalls in
+ the system. */
+static const struct syscalls_info *sysinfo = NULL;
+
+/* A flag to tell if we already initialized the structure above. */
+static int have_initialized_sysinfo = 0;
+
+/* The filename of the syscall's XML. */
+static const char *xml_syscall_file = NULL;
+
+/* Initializes the syscalls_info structure according to the
+ architecture. */
+static void
+init_sysinfo (struct gdbarch *gdbarch)
+{
+ /* Did we already try to initialize the structure? */
+ if (have_initialized_sysinfo)
+ return;
+
+ if (xml_syscall_file == NULL)
+ xml_syscall_file = gdbarch_xml_syscall_filename (gdbarch);
+
+ sysinfo = xml_init_syscalls_info (xml_syscall_file);
+
+ have_initialized_sysinfo = 1;
+
+ if (sysinfo == NULL)
+ {
+ if (xml_syscall_file)
+ /* The initialization failed. Let's show a warning
+ message to the user (just this time) and leave. */
+ warning (_("Could not load the syscall XML file '%s'.\n\
+GDB will not be able to display syscall names."), xml_syscall_file);
+ else
+ /* There's no file to open. Let's warn the user. */
+ warning (_("There is no XML file to open.\n\
+GDB will not be able to display syscall names."));
+ }
+}
+
+static void
+linux_get_syscall_by_number (struct gdbarch *gdbarch,
+ int syscall_number,
+ struct syscall *s)
+{
+ init_sysinfo (gdbarch);
+
+ s->number = syscall_number;
+ s->name = xml_get_syscall_name (sysinfo, syscall_number);
+}
+
+static void
+linux_get_syscall_by_name (struct gdbarch *gdbarch,
+ const char *syscall_name,
+ struct syscall *s)
+{
+ init_sysinfo (gdbarch);
+
+ s->number = xml_get_syscall_number (sysinfo, syscall_name);
+ s->name = syscall_name;
+}
+
+static const char **
+linux_get_syscall_names (struct gdbarch *gdbarch)
+{
+ init_sysinfo (gdbarch);
+
+ return xml_list_of_syscalls (sysinfo);
+}
+
+void
+linux_tdep_init (struct gdbarch *gdbarch)
+{
+ set_gdbarch_get_syscall_by_number (gdbarch, linux_get_syscall_by_number);
+ set_gdbarch_get_syscall_by_name (gdbarch, linux_get_syscall_by_name);
+ set_gdbarch_get_syscall_names (gdbarch, linux_get_syscall_names);
+}
diff --git a/gdb/linux-tdep.h b/gdb/linux-tdep.h
index 50af511..1e1e541 100644
--- a/gdb/linux-tdep.h
+++ b/gdb/linux-tdep.h
@@ -22,4 +22,6 @@
struct type *linux_get_siginfo_type (struct gdbarch *);
+extern void linux_tdep_init (struct gdbarch *gdbarch);
+
#endif /* linux-tdep.h */
diff --git a/gdb/m2-lang.c b/gdb/m2-lang.c
index 9e4bb1b..9ca3ae1 100644
--- a/gdb/m2-lang.c
+++ b/gdb/m2-lang.c
@@ -29,8 +29,8 @@
#include "valprint.h"
extern void _initialize_m2_language (void);
-static void m2_printchar (int, struct ui_file *);
-static void m2_emit_char (int, struct ui_file *, int);
+static void m2_printchar (int, struct type *, struct ui_file *);
+static void m2_emit_char (int, struct type *, struct ui_file *, int);
/* Print the character C on STREAM as part of the contents of a literal
string whose delimiter is QUOTER. Note that that format for printing
@@ -39,7 +39,7 @@ static void m2_emit_char (int, struct ui_file *, int);
be replaced with a true Modula version. */
static void
-m2_emit_char (int c, struct ui_file *stream, int quoter)
+m2_emit_char (int c, struct type *type, struct ui_file *stream, int quoter)
{
c &= 0xFF; /* Avoid sign bit follies */
@@ -88,10 +88,10 @@ m2_emit_char (int c, struct ui_file *stream, int quoter)
be replaced with a true Modula version. */
static void
-m2_printchar (int c, struct ui_file *stream)
+m2_printchar (int c, struct type *type, struct ui_file *stream)
{
fputs_filtered ("'", stream);
- LA_EMIT_CHAR (c, stream, '\'');
+ LA_EMIT_CHAR (c, type, stream, '\'');
fputs_filtered ("'", stream);
}
@@ -103,14 +103,15 @@ m2_printchar (int c, struct ui_file *stream)
be replaced with a true Modula version. */
static void
-m2_printstr (struct ui_file *stream, const gdb_byte *string,
- unsigned int length, int width, int force_ellipses,
+m2_printstr (struct ui_file *stream, struct type *type, const gdb_byte *string,
+ unsigned int length, int force_ellipses,
const struct value_print_options *options)
{
unsigned int i;
unsigned int things_printed = 0;
int in_quotes = 0;
int need_comma = 0;
+ int width = TYPE_LENGTH (type);
if (length == 0)
{
@@ -152,7 +153,7 @@ m2_printstr (struct ui_file *stream, const gdb_byte *string,
fputs_filtered ("\", ", stream);
in_quotes = 0;
}
- m2_printchar (string[i], stream);
+ m2_printchar (string[i], type, stream);
fprintf_filtered (stream, " <repeats %u times>", reps);
i = rep1 - 1;
things_printed += options->repeat_count_threshold;
@@ -168,7 +169,7 @@ m2_printstr (struct ui_file *stream, const gdb_byte *string,
fputs_filtered ("\"", stream);
in_quotes = 1;
}
- LA_EMIT_CHAR (string[i], stream, '"');
+ LA_EMIT_CHAR (string[i], type, stream, '"');
++things_printed;
}
}
diff --git a/gdb/m2-valprint.c b/gdb/m2-valprint.c
index 71c410c..41fb8fe 100644
--- a/gdb/m2-valprint.c
+++ b/gdb/m2-valprint.c
@@ -237,7 +237,8 @@ print_unpacked_pointer (struct type *type,
&& TYPE_CODE (elttype) == TYPE_CODE_INT
&& (options->format == 0 || options->format == 's')
&& addr != 0)
- return val_print_string (addr, -1, TYPE_LENGTH (elttype), stream, options);
+ return val_print_string (TYPE_TARGET_TYPE (type), addr, -1,
+ stream, options);
return 0;
}
@@ -294,7 +295,7 @@ m2_print_array_contents (struct type *type, const gdb_byte *valaddr,
|| ((current_language->la_language == language_m2)
&& (TYPE_CODE (type) == TYPE_CODE_CHAR)))
&& (options->format == 0 || options->format == 's'))
- val_print_string (address, len+1, eltlen, stream, options);
+ val_print_string (type, address, len+1, stream, options);
else
{
fprintf_filtered (stream, "{");
@@ -359,7 +360,8 @@ m2_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
len = temp_len;
}
- LA_PRINT_STRING (stream, valaddr + embedded_offset, len, 1, 0,
+ LA_PRINT_STRING (stream, TYPE_TARGET_TYPE (type),
+ valaddr + embedded_offset, len, 0,
options);
i = len;
}
@@ -547,7 +549,7 @@ m2_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
else
fprintf_filtered (stream, "%d", (int) val);
fputs_filtered (" ", stream);
- LA_PRINT_CHAR ((unsigned char) val, stream);
+ LA_PRINT_CHAR ((unsigned char) val, type, stream);
}
break;
diff --git a/gdb/m32r-tdep.c b/gdb/m32r-tdep.c
index 5f4b9a6..eccfe31 100644
--- a/gdb/m32r-tdep.c
+++ b/gdb/m32r-tdep.c
@@ -713,7 +713,7 @@ m32r_push_dummy_call (struct gdbarch *gdbarch, struct value *function,
if (len > 8
&& (typecode == TYPE_CODE_STRUCT || typecode == TYPE_CODE_UNION))
{
- store_unsigned_integer (valbuf, 4, VALUE_ADDRESS (args[argnum]));
+ store_unsigned_integer (valbuf, 4, value_address (args[argnum]));
typecode = TYPE_CODE_PTR;
len = 4;
val = valbuf;
diff --git a/gdb/macroexp.c b/gdb/macroexp.c
index f0a8c1f..752a939 100644
--- a/gdb/macroexp.c
+++ b/gdb/macroexp.c
@@ -23,6 +23,7 @@
#include "macrotab.h"
#include "macroexp.h"
#include "gdb_assert.h"
+#include "c-lang.h"
@@ -320,14 +321,17 @@ get_character_constant (struct macro_buffer *tok, char *p, char *end)
way GDB's C/C++ lexer does. So we call parse_escape in utils.c
to handle escape sequences. */
if ((p + 1 <= end && *p == '\'')
- || (p + 2 <= end && p[0] == 'L' && p[1] == '\''))
+ || (p + 2 <= end
+ && (p[0] == 'L' || p[0] == 'u' || p[0] == 'U')
+ && p[1] == '\''))
{
char *tok_start = p;
char *body_start;
+ int char_count = 0;
if (*p == '\'')
p++;
- else if (*p == 'L')
+ else if (*p == 'L' || *p == 'u' || *p == 'U')
p += 2;
else
gdb_assert (0);
@@ -339,7 +343,7 @@ get_character_constant (struct macro_buffer *tok, char *p, char *end)
error (_("Unmatched single quote."));
else if (*p == '\'')
{
- if (p == body_start)
+ if (!char_count)
error (_("A character constant must contain at least one "
"character."));
p++;
@@ -348,10 +352,13 @@ get_character_constant (struct macro_buffer *tok, char *p, char *end)
else if (*p == '\\')
{
p++;
- parse_escape (&p);
+ char_count += c_parse_escape (&p, NULL);
}
else
- p++;
+ {
+ p++;
+ char_count++;
+ }
}
set_token (tok, tok_start, p);
@@ -370,16 +377,16 @@ static int
get_string_literal (struct macro_buffer *tok, char *p, char *end)
{
if ((p + 1 <= end
- && *p == '\"')
+ && *p == '"')
|| (p + 2 <= end
- && p[0] == 'L'
- && p[1] == '\"'))
+ && (p[0] == 'L' || p[0] == 'u' || p[0] == 'U')
+ && p[1] == '"'))
{
char *tok_start = p;
- if (*p == '\"')
+ if (*p == '"')
p++;
- else if (*p == 'L')
+ else if (*p == 'L' || *p == 'u' || *p == 'U')
p += 2;
else
gdb_assert (0);
@@ -388,7 +395,7 @@ get_string_literal (struct macro_buffer *tok, char *p, char *end)
{
if (p >= end)
error (_("Unterminated string in expression."));
- else if (*p == '\"')
+ else if (*p == '"')
{
p++;
break;
@@ -399,7 +406,7 @@ get_string_literal (struct macro_buffer *tok, char *p, char *end)
else if (*p == '\\')
{
p++;
- parse_escape (&p);
+ c_parse_escape (&p, NULL);
}
else
p++;
diff --git a/gdb/main.c b/gdb/main.c
index 5d4640b..6f9e61b 100644
--- a/gdb/main.c
+++ b/gdb/main.c
@@ -40,6 +40,8 @@
#include "interps.h"
#include "main.h"
+#include "python/python.h"
+
/* If nonzero, display time usage both at startup and for each command. */
int display_time;
@@ -62,6 +64,9 @@ int dbx_commands = 0;
/* System root path, used to find libraries etc. */
char *gdb_sysroot = 0;
+/* GDB datadir, used to store data files. */
+char *gdb_datadir = 0;
+
struct ui_file *gdb_stdout;
struct ui_file *gdb_stderr;
struct ui_file *gdb_stdlog;
@@ -211,6 +216,8 @@ captured_main (void *data)
char *cdarg = NULL;
char *ttyarg = NULL;
+ int python_script = 0;
+
/* These are static so that we can take their address in an initializer. */
static int print_help;
static int print_version;
@@ -357,6 +364,40 @@ captured_main (void *data)
}
}
+#ifdef GDB_DATADIR_RELOCATABLE
+ gdb_datadir = make_relative_prefix (argv[0], BINDIR, GDB_DATADIR);
+ if (gdb_datadir)
+ {
+ struct stat s;
+ int res = 0;
+
+ if (stat (gdb_datadir, &s) == 0)
+ if (S_ISDIR (s.st_mode))
+ res = 1;
+
+ if (res == 0)
+ {
+ xfree (gdb_datadir);
+ gdb_datadir = xstrdup (GDB_DATADIR);
+ }
+ }
+ else
+ gdb_datadir = xstrdup (GDB_DATADIR);
+#else
+ gdb_datadir = xstrdup (GDB_DATADIR);
+#endif /* GDB_DATADIR_RELOCATABLE */
+
+ /* Canonicalize the GDB's datadir path. */
+ if (*gdb_datadir)
+ {
+ char *canon_debug = lrealpath (gdb_datadir);
+ if (canon_debug)
+ {
+ xfree (gdb_datadir);
+ gdb_datadir = canon_debug;
+ }
+ }
+
get_init_files (&system_gdbinit, &home_gdbinit, &local_gdbinit);
/* There will always be an interpreter. Either the one passed into
@@ -441,10 +482,14 @@ captured_main (void *data)
{"args", no_argument, &set_args, 1},
{"l", required_argument, 0, 'l'},
{"return-child-result", no_argument, &return_child_result, 1},
+#if HAVE_PYTHON
+ {"python", no_argument, 0, 'P'},
+ {"P", no_argument, 0, 'P'},
+#endif
{0, no_argument, 0, 0}
};
- while (1)
+ while (!python_script)
{
int option_index;
@@ -462,6 +507,9 @@ captured_main (void *data)
case 0:
/* Long option that just sets a flag. */
break;
+ case 'P':
+ python_script = 1;
+ break;
case OPT_SE:
symarg = optarg;
execarg = optarg;
@@ -638,7 +686,31 @@ extern int gdbtk_test (char *);
use_windows = 0;
}
- if (set_args)
+ if (python_script)
+ {
+ /* The first argument is a python script to evaluate, and
+ subsequent arguments are passed to the script for
+ processing there. */
+ if (optind >= argc)
+ {
+ fprintf_unfiltered (gdb_stderr,
+ _("%s: Python script file name required\n"),
+ argv[0]);
+ exit (1);
+ }
+
+ /* FIXME: should handle inferior I/O intelligently here.
+ E.g., should be possible to run gdb in pipeline and have
+ Python (and gdb) output go to stderr or file; and if a
+ prompt is needed, open the tty. */
+ quiet = 1;
+ /* FIXME: should read .gdbinit if, and only if, a prompt is
+ requested by the script. Though... maybe this is not
+ ideal? */
+ /* FIXME: likewise, reading in history. */
+ inhibit_gdbinit = 1;
+ }
+ else if (set_args)
{
/* The remaining options are the command-line options for the
inferior. The first one is the sym/exec file, and the rest
@@ -866,7 +938,8 @@ Can't attach to process and specify a core file at the same time."));
xfree (cmdarg);
/* Read in the old history after all the command files have been read. */
- init_history ();
+ if (!python_script)
+ init_history ();
if (batch)
{
@@ -895,13 +968,25 @@ Can't attach to process and specify a core file at the same time."));
#endif
}
- /* NOTE: cagney/1999-11-07: There is probably no reason for not
- moving this loop and the code found in captured_command_loop()
- into the command_loop() proper. The main thing holding back that
- change - SET_TOP_LEVEL() - has been eliminated. */
- while (1)
+#if HAVE_PYTHON
+ if (python_script)
{
- catch_errors (captured_command_loop, 0, "", RETURN_MASK_ALL);
+ extern int pagination_enabled;
+ pagination_enabled = 0;
+ run_python_script (argc - optind, &argv[optind]);
+ return 1;
+ }
+ else
+#endif
+ {
+ /* NOTE: cagney/1999-11-07: There is probably no reason for not
+ moving this loop and the code found in captured_command_loop()
+ into the command_loop() proper. The main thing holding back that
+ change - SET_TOP_LEVEL() - has been eliminated. */
+ while (1)
+ {
+ catch_errors (captured_command_loop, 0, "", RETURN_MASK_ALL);
+ }
}
/* No exit -- exit is through quit_command. */
}
@@ -933,7 +1018,12 @@ print_gdb_help (struct ui_file *stream)
fputs_unfiltered (_("\
This is the GNU debugger. Usage:\n\n\
gdb [options] [executable-file [core-file or process-id]]\n\
- gdb [options] --args executable-file [inferior-arguments ...]\n\n\
+ gdb [options] --args executable-file [inferior-arguments ...]\n"), stream);
+#if HAVE_PYTHON
+ fputs_unfiltered (_("\
+ gdb [options] [--python|-P] script-file [script-arguments ...]\n"), stream);
+#endif
+ fputs_unfiltered (_("\n\
Options:\n\n\
"), stream);
fputs_unfiltered (_("\
@@ -971,7 +1061,13 @@ Options:\n\n\
--nw Do not use a window interface.\n\
--nx Do not read "), stream);
fputs_unfiltered (gdbinit, stream);
- fputs_unfiltered (_(" file.\n\
+ fputs_unfiltered (_(" file.\n"), stream);
+#if HAVE_PYTHON
+ fputs_unfiltered (_("\
+ --python, -P Following argument is Python script file; remaining\n\
+ arguments are passed to script.\n"), stream);
+#endif
+ fputs_unfiltered (_("\
--quiet Do not print version number on startup.\n\
--readnow Fully read symbol files on first access.\n\
"), stream);
diff --git a/gdb/maint.c b/gdb/maint.c
index 56cafe9..1b57ff5 100644
--- a/gdb/maint.c
+++ b/gdb/maint.c
@@ -906,4 +906,12 @@ When enabled GDB is profiled."),
show_maintenance_profile_p,
&maintenance_set_cmdlist,
&maintenance_show_cmdlist);
+ add_setshow_filename_cmd ("gdb_datadir", class_maintenance,
+ &gdb_datadir, _("Set GDB's datadir path."),
+ _("Show GDB's datadir path."),
+ _("\
+When set, GDB uses the specified path to search for data files."),
+ NULL, NULL,
+ &maintenance_set_cmdlist,
+ &maintenance_show_cmdlist);
}
diff --git a/gdb/mdebugread.c b/gdb/mdebugread.c
index 7cbcc59..e507c3b 100644
--- a/gdb/mdebugread.c
+++ b/gdb/mdebugread.c
@@ -4696,7 +4696,7 @@ new_type (char *name)
{
struct type *t;
- t = alloc_type (current_objfile);
+ t = alloc_type (current_objfile, NULL);
TYPE_NAME (t) = name;
TYPE_CPLUS_SPECIFIC (t) = (struct cplus_struct_type *) &cplus_struct_default;
return t;
diff --git a/gdb/mi/mi-cmd-var.c b/gdb/mi/mi-cmd-var.c
index 143074b..0f4efba 100644
--- a/gdb/mi/mi-cmd-var.c
+++ b/gdb/mi/mi-cmd-var.c
@@ -249,6 +249,41 @@ mi_cmd_var_set_format (char *command, char **argv, int argc)
}
void
+mi_cmd_var_set_visualizer (char *command, char **argv, int argc)
+{
+ struct varobj *var;
+
+ if (argc != 2)
+ error ("Usage: NAME VISUALIZER_FUNCTION.");
+
+ var = varobj_get_handle (argv[0]);
+
+ if (var == NULL)
+ error ("Variable object not found");
+
+ varobj_set_visualizer (var, argv[1]);
+}
+
+void
+mi_cmd_var_set_child_range (char *command, char **argv, int argc)
+{
+ struct varobj *var;
+ int from, to;
+
+ if (argc != 3)
+ error (_("-var-set-child-range: NAME FROM TO"));
+
+ var = varobj_get_handle (argv[0]);
+ if (var == NULL)
+ error (_("Variable object not found"));
+
+ from = atoi (argv[1]);
+ to = atoi (argv[2]);
+
+ varobj_set_child_range (var, from, to);
+}
+
+void
mi_cmd_var_set_frozen (char *command, char **argv, int argc)
{
struct varobj *var;
@@ -369,6 +404,8 @@ mi_cmd_var_list_children (char *command, char **argv, int argc)
int numchild;
enum print_values print_values;
int ix;
+ int from, to;
+ char *display_hint;
if (argc != 1 && argc != 2)
error (_("mi_cmd_var_list_children: Usage: [PRINT_VALUES] NAME"));
@@ -388,14 +425,22 @@ mi_cmd_var_list_children (char *command, char **argv, int argc)
else
print_values = PRINT_NO_VALUES;
- if (VEC_length (varobj_p, children) == 0)
+ varobj_get_child_range (var, children, &from, &to);
+ if (from >= to)
return;
+ display_hint = varobj_get_display_hint (var);
+ if (display_hint)
+ {
+ ui_out_field_string (uiout, "displayhint", display_hint);
+ xfree (display_hint);
+ }
+
if (mi_version (uiout) == 1)
cleanup_children = make_cleanup_ui_out_tuple_begin_end (uiout, "children");
else
cleanup_children = make_cleanup_ui_out_list_begin_end (uiout, "children");
- for (ix = 0; VEC_iterate (varobj_p, children, ix, child); ++ix)
+ for (ix = from; ix < to && VEC_iterate (varobj_p, children, ix, child); ++ix)
{
struct cleanup *cleanup_child;
cleanup_child = make_cleanup_ui_out_tuple_begin_end (uiout, "child");
@@ -662,6 +707,8 @@ varobj_update_one (struct varobj *var, enum print_values print_values,
for (i = 0; VEC_iterate (varobj_update_result, changes, i, r); ++i)
{
+ char *display_hint;
+
if (mi_version (uiout) > 1)
cleanup = make_cleanup_ui_out_tuple_begin_end (uiout, NULL);
ui_out_field_string (uiout, "name", varobj_get_objname (r->varobj));
@@ -695,6 +742,36 @@ varobj_update_one (struct varobj *var, enum print_values print_values,
ui_out_field_int (uiout, "new_num_children",
varobj_get_num_children (r->varobj));
}
+
+ display_hint = varobj_get_display_hint (var);
+ if (display_hint)
+ {
+ ui_out_field_string (uiout, "displayhint", display_hint);
+ xfree (display_hint);
+ }
+
+ if (r->children_changed)
+ {
+ int ix, from, to;
+ struct varobj *child;
+ struct cleanup *cleanup =
+ make_cleanup_ui_out_list_begin_end (uiout, "children");
+
+ VEC (varobj_p)* children = varobj_list_children (r->varobj);
+ varobj_get_child_range (r->varobj, children, &from, &to);
+
+ for (ix = from;
+ ix < to && VEC_iterate (varobj_p, children, ix, child);
+ ++ix)
+ {
+ struct cleanup *cleanup_child;
+ cleanup_child = make_cleanup_ui_out_tuple_begin_end (uiout, NULL);
+ print_varobj (child, print_values, 1 /* print expression */);
+ do_cleanups (cleanup_child);
+ }
+
+ do_cleanups (cleanup);
+ }
if (mi_version (uiout) > 1)
do_cleanups (cleanup);
diff --git a/gdb/mi/mi-cmds.c b/gdb/mi/mi-cmds.c
index 2610b6a..f31233b 100644
--- a/gdb/mi/mi-cmds.c
+++ b/gdb/mi/mi-cmds.c
@@ -160,7 +160,9 @@ struct mi_cmd mi_cmds[] =
{ "var-info-num-children", { NULL, 0 }, mi_cmd_var_info_num_children},
{ "var-info-type", { NULL, 0 }, mi_cmd_var_info_type},
{ "var-list-children", { NULL, 0 }, mi_cmd_var_list_children},
+ { "var-set-child-range", { NULL, 0 }, mi_cmd_var_set_child_range },
{ "var-set-format", { NULL, 0 }, mi_cmd_var_set_format},
+ { "var-set-visualizer", { NULL, 0 }, mi_cmd_var_set_visualizer},
{ "var-set-frozen", { NULL, 0 }, mi_cmd_var_set_frozen},
{ "var-show-attributes", { NULL, 0 }, mi_cmd_var_show_attributes},
{ "var-show-format", { NULL, 0 }, mi_cmd_var_show_format},
diff --git a/gdb/mi/mi-cmds.h b/gdb/mi/mi-cmds.h
index 39f16fb..291a07f 100644
--- a/gdb/mi/mi-cmds.h
+++ b/gdb/mi/mi-cmds.h
@@ -92,7 +92,9 @@ extern mi_cmd_argv_ftype mi_cmd_var_info_num_children;
extern mi_cmd_argv_ftype mi_cmd_var_info_type;
extern mi_cmd_argv_ftype mi_cmd_var_list_children;
extern mi_cmd_argv_ftype mi_cmd_var_set_format;
+extern mi_cmd_argv_ftype mi_cmd_var_set_child_range;
extern mi_cmd_argv_ftype mi_cmd_var_set_frozen;
+extern mi_cmd_argv_ftype mi_cmd_var_set_visualizer;
extern mi_cmd_argv_ftype mi_cmd_var_show_attributes;
extern mi_cmd_argv_ftype mi_cmd_var_show_format;
extern mi_cmd_argv_ftype mi_cmd_var_update;
diff --git a/gdb/mi/mi-main.c b/gdb/mi/mi-main.c
index b905a9e..eaa5f12 100644
--- a/gdb/mi/mi-main.c
+++ b/gdb/mi/mi-main.c
@@ -777,7 +777,7 @@ mi_cmd_data_evaluate_expression (char *command, char **argv, int argc)
get_user_print_options (&opts);
opts.deref_ref = 0;
val_print (value_type (val), value_contents (val),
- value_embedded_offset (val), VALUE_ADDRESS (val),
+ value_embedded_offset (val), value_address (val),
stb->stream, 0, &opts, current_language);
ui_out_field_stream (uiout, "value", stb);
@@ -1101,6 +1101,10 @@ mi_cmd_list_features (char *command, char **argv, int argc)
ui_out_field_string (uiout, NULL, "frozen-varobjs");
ui_out_field_string (uiout, NULL, "pending-breakpoints");
ui_out_field_string (uiout, NULL, "thread-info");
+
+#if HAVE_PYTHON
+ ui_out_field_string (uiout, NULL, "python");
+#endif
do_cleanups (cleanup);
return;
@@ -1317,6 +1321,7 @@ mi_cmd_execute (struct mi_parse *parse)
struct cleanup *cleanup;
int i;
free_all_values ();
+ free_all_types ();
current_token = xstrdup (parse->token);
cleanup = make_cleanup (free_current_contents, &current_token);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
diff --git a/gdb/minsyms.c b/gdb/minsyms.c
index bf776b3..e4b0f31 100644
--- a/gdb/minsyms.c
+++ b/gdb/minsyms.c
@@ -48,6 +48,8 @@
#include "value.h"
#include "cp-abi.h"
#include "target.h"
+#include "cp-support.h"
+#include "language.h"
/* Accumulate the minimal symbols for each objfile in bunches of BUNCH_SIZE.
At the end, copy them all into one newly allocated location on an objfile's
@@ -187,6 +189,9 @@ lookup_minimal_symbol (const char *name, const char *sfile,
unsigned int hash = msymbol_hash (name) % MINIMAL_SYMBOL_HASH_SIZE;
unsigned int dem_hash = msymbol_hash_iw (name) % MINIMAL_SYMBOL_HASH_SIZE;
+ int needtofreename = 0;
+ const char *modified_name;
+
if (sfile != NULL)
{
char *p = strrchr (sfile, '/');
@@ -194,6 +199,18 @@ lookup_minimal_symbol (const char *name, const char *sfile,
sfile = p + 1;
}
+ /* For C++, canonicalize the input name. */
+ modified_name = name;
+ if (current_language->la_language == language_cplus)
+ {
+ char *cname = cp_canonicalize_string (name);
+ if (cname)
+ {
+ modified_name = cname;
+ needtofreename = 1;
+ }
+ }
+
for (objfile = object_files;
objfile != NULL && found_symbol == NULL;
objfile = objfile->next)
@@ -218,9 +235,16 @@ lookup_minimal_symbol (const char *name, const char *sfile,
int match;
if (pass == 1)
- match = strcmp (SYMBOL_LINKAGE_NAME (msymbol), name) == 0;
+ {
+ match = strcmp (SYMBOL_LINKAGE_NAME (msymbol),
+ modified_name) == 0;
+ }
else
- match = SYMBOL_MATCHES_SEARCH_NAME (msymbol, name);
+ {
+ match = SYMBOL_MATCHES_SEARCH_NAME (msymbol,
+ modified_name);
+ }
+
if (match)
{
switch (MSYMBOL_TYPE (msymbol))
@@ -259,6 +283,10 @@ lookup_minimal_symbol (const char *name, const char *sfile,
}
}
}
+
+ if (needtofreename)
+ xfree ((void *) modified_name);
+
/* External symbols are best. */
if (found_symbol)
return found_symbol;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/mips-tdep.c b/gdb/mips-tdep.c
index 6c8c4c0..7d283a4 100644
--- a/gdb/mips-tdep.c
+++ b/gdb/mips-tdep.c
@@ -2757,7 +2757,7 @@ mips_eabi_push_dummy_call (struct gdbarch *gdbarch, struct value *function,
if (len > regsize
&& (typecode == TYPE_CODE_STRUCT || typecode == TYPE_CODE_UNION))
{
- store_unsigned_integer (valbuf, regsize, VALUE_ADDRESS (arg));
+ store_unsigned_integer (valbuf, regsize, value_address (arg));
typecode = TYPE_CODE_PTR;
len = regsize;
val = valbuf;
diff --git a/gdb/mipsread.c b/gdb/mipsread.c
index a84003f..924c1c5 100644
--- a/gdb/mipsread.c
+++ b/gdb/mipsread.c
@@ -394,6 +394,7 @@ static struct sym_fns ecoff_sym_fns =
mipscoff_new_init, /* sym_new_init: init anything gbl to entire symtab */
mipscoff_symfile_init, /* sym_init: read initial info, setup for sym_read() */
mipscoff_symfile_read, /* sym_read: read a symbol file into symtab */
+ NULL, /* sym_read_psymbols */
mipscoff_symfile_finish, /* sym_finish: finished with file, cleanup */
default_symfile_offsets, /* sym_offsets: dummy FIXME til implem sym reloc */
default_symfile_segments, /* sym_segments: Get segment information from
diff --git a/gdb/mn10300-tdep.c b/gdb/mn10300-tdep.c
index f0cea27..02be43a 100644
--- a/gdb/mn10300-tdep.c
+++ b/gdb/mn10300-tdep.c
@@ -1027,7 +1027,7 @@ mn10300_push_dummy_call (struct gdbarch *gdbarch,
/* Change to pointer-to-type. */
arg_len = push_size;
store_unsigned_integer (valbuf, push_size,
- VALUE_ADDRESS (*args));
+ value_address (*args));
val = &valbuf[0];
}
else
diff --git a/gdb/objc-lang.c b/gdb/objc-lang.c
index a6c74a3..9b8d801 100644
--- a/gdb/objc-lang.c
+++ b/gdb/objc-lang.c
@@ -280,7 +280,7 @@ objc_demangle (const char *mangled, int options)
for printing characters and strings is language specific. */
static void
-objc_emit_char (int c, struct ui_file *stream, int quoter)
+objc_emit_char (int c, struct type *type, struct ui_file *stream, int quoter)
{
c &= 0xFF; /* Avoid sign bit follies. */
@@ -326,10 +326,10 @@ objc_emit_char (int c, struct ui_file *stream, int quoter)
}
static void
-objc_printchar (int c, struct ui_file *stream)
+objc_printchar (int c, struct type *type, struct ui_file *stream)
{
fputs_filtered ("'", stream);
- objc_emit_char (c, stream, '\'');
+ objc_emit_char (c, type, stream, '\'');
fputs_filtered ("'", stream);
}
@@ -340,14 +340,16 @@ objc_printchar (int c, struct ui_file *stream)
FORCE_ELLIPSES. */
static void
-objc_printstr (struct ui_file *stream, const gdb_byte *string,
- unsigned int length, int width, int force_ellipses,
+objc_printstr (struct ui_file *stream, struct type *type,
+ const gdb_byte *string, unsigned int length,
+ int force_ellipses,
const struct value_print_options *options)
{
unsigned int i;
unsigned int things_printed = 0;
int in_quotes = 0;
int need_comma = 0;
+ int width = TYPE_LENGTH (type);
/* If the string was not truncated due to `set print elements', and
the last byte of it is a null, we don't print that, in
@@ -395,7 +397,7 @@ objc_printstr (struct ui_file *stream, const gdb_byte *string,
fputs_filtered ("\", ", stream);
in_quotes = 0;
}
- objc_printchar (string[i], stream);
+ objc_printchar (string[i], type, stream);
fprintf_filtered (stream, " <repeats %u times>", reps);
i = rep1 - 1;
things_printed += options->repeat_count_threshold;
@@ -411,7 +413,7 @@ objc_printstr (struct ui_file *stream, const gdb_byte *string,
fputs_filtered ("\"", stream);
in_quotes = 1;
}
- objc_emit_char (string[i], stream, '"');
+ objc_emit_char (string[i], type, stream, '"');
++things_printed;
}
}
diff --git a/gdb/objfiles.c b/gdb/objfiles.c
index bc77de8..079ebcf 100644
--- a/gdb/objfiles.c
+++ b/gdb/objfiles.c
@@ -691,6 +691,20 @@ have_partial_symbols (void)
return 1;
}
}
+
+ /* Try again, after reading partial symbols. We do this in two
+ passes because objfiles are always added to the head of the list,
+ and there might be a later objfile for which we've already read
+ partial symbols. */
+ ALL_OBJFILES (ofp)
+ {
+ require_partial_symbols (ofp);
+ if (ofp->psymtabs != NULL)
+ {
+ return 1;
+ }
+ }
+
return 0;
}
diff --git a/gdb/objfiles.h b/gdb/objfiles.h
index 60d3143..b6fdd92 100644
--- a/gdb/objfiles.h
+++ b/gdb/objfiles.h
@@ -212,6 +212,11 @@ struct objfile
struct partial_symtab *psymtabs;
+ /* An address map that can be used to quickly determine if an
+ address comes from this objfile. This can be NULL. */
+
+ struct addrmap *quick_addrmap;
+
/* Map addresses to the entries of PSYMTABS. It would be more efficient to
have a map per the whole process but ADDRMAP cannot selectively remove
its items during FREE_OBJFILE. This mapping is already present even for
@@ -420,6 +425,15 @@ struct objfile
#define OBJF_KEEPBFD (1 << 4) /* Do not delete bfd */
+/* Set if we have tried to read partial symtabs for this objfile.
+ This is used to allow lazy reading of partial symtabs. */
+
+#define OBJF_SYMTABS_READ (1 << 6)
+
+/* This flag is set for the main objfile. */
+
+#define OBJF_MAIN (1 << 7)
+
/* The object file that the main symbol table was loaded from (e.g. the
argument to the "symbol-file" or "file" command). */
@@ -556,6 +570,13 @@ extern void *objfile_data (struct objfile *objfile,
ALL_OBJFILES (objfile) \
ALL_OBJFILE_PSYMTABS (objfile, p)
+/* Like ALL_PSYMTABS, but ensure that partial symbols have been read
+ before examining the objfile. */
+
+#define ALL_PSYMTABS_REQUIRED(objfile, p) \
+ ALL_OBJFILES (objfile) \
+ ALL_OBJFILE_PSYMTABS (require_partial_symbols (objfile), p)
+
/* Traverse all minimal symbols in all objfiles. */
#define ALL_MSYMBOLS(objfile, m) \
diff --git a/gdb/p-lang.c b/gdb/p-lang.c
index 41da3e0..e743a6f 100644
--- a/gdb/p-lang.c
+++ b/gdb/p-lang.c
@@ -97,7 +97,8 @@ pascal_main_name (void)
but this does not happen for Free Pascal nor for GPC. */
int
is_pascal_string_type (struct type *type,int *length_pos,
- int *length_size, int *string_pos, int *char_size,
+ int *length_size, int *string_pos,
+ struct type **char_type,
char **arrayname)
{
if (TYPE_CODE (type) == TYPE_CODE_STRUCT)
@@ -114,8 +115,8 @@ is_pascal_string_type (struct type *type,int *length_pos,
*length_size = TYPE_LENGTH (TYPE_FIELD_TYPE (type, 0));
if (string_pos)
*string_pos = TYPE_FIELD_BITPOS (type, 1) / TARGET_CHAR_BIT;
- if (char_size)
- *char_size = 1;
+ if (char_type)
+ *char_type = TYPE_TARGET_TYPE (TYPE_FIELD_TYPE (type, 1));
if (arrayname)
*arrayname = TYPE_FIELDS (type)[1].name;
return 2;
@@ -126,7 +127,6 @@ is_pascal_string_type (struct type *type,int *length_pos,
&& strcmp (TYPE_FIELDS (type)[0].name, "Capacity") == 0
&& strcmp (TYPE_FIELDS (type)[1].name, "length") == 0)
{
- struct type *char_type;
if (length_pos)
*length_pos = TYPE_FIELD_BITPOS (type, 1) / TARGET_CHAR_BIT;
if (length_size)
@@ -134,13 +134,12 @@ is_pascal_string_type (struct type *type,int *length_pos,
if (string_pos)
*string_pos = TYPE_FIELD_BITPOS (type, 2) / TARGET_CHAR_BIT;
/* FIXME: how can I detect wide chars in GPC ?? */
- char_type = TYPE_FIELD_TYPE (type,2);
- if (char_size && TYPE_CODE (char_type) == TYPE_CODE_ARRAY)
+ if (char_type)
{
- *char_size = TYPE_LENGTH (TYPE_TARGET_TYPE (char_type));
+ *char_type = TYPE_TARGET_TYPE (TYPE_FIELD_TYPE (type, 2));
+ if (TYPE_CODE (*char_type) == TYPE_CODE_ARRAY)
+ *char_type = TYPE_TARGET_TYPE (*char_type);
}
- else if (char_size)
- *char_size = 1;
if (arrayname)
*arrayname = TYPE_FIELDS (type)[2].name;
return 3;
@@ -182,14 +181,15 @@ pascal_one_char (int c, struct ui_file *stream, int *in_quotes)
}
}
-static void pascal_emit_char (int c, struct ui_file *stream, int quoter);
+static void pascal_emit_char (int c, struct type *type,
+ struct ui_file *stream, int quoter);
/* Print the character C on STREAM as part of the contents of a literal
string whose delimiter is QUOTER. Note that that format for printing
characters and strings is language specific. */
static void
-pascal_emit_char (int c, struct ui_file *stream, int quoter)
+pascal_emit_char (int c, struct type *type, struct ui_file *stream, int quoter)
{
int in_quotes = 0;
pascal_one_char (c, stream, &in_quotes);
@@ -198,7 +198,7 @@ pascal_emit_char (int c, struct ui_file *stream, int quoter)
}
void
-pascal_printchar (int c, struct ui_file *stream)
+pascal_printchar (int c, struct type *type, struct ui_file *stream)
{
int in_quotes = 0;
pascal_one_char (c, stream, &in_quotes);
@@ -212,14 +212,16 @@ pascal_printchar (int c, struct ui_file *stream)
had to stop before printing LENGTH characters, or if FORCE_ELLIPSES. */
void
-pascal_printstr (struct ui_file *stream, const gdb_byte *string,
- unsigned int length, int width, int force_ellipses,
+pascal_printstr (struct ui_file *stream, struct type *type,
+ const gdb_byte *string, unsigned int length,
+ int force_ellipses,
const struct value_print_options *options)
{
unsigned int i;
unsigned int things_printed = 0;
int in_quotes = 0;
int need_comma = 0;
+ int width = TYPE_LENGTH (type);
/* If the string was not truncated due to `set print elements', and
the last byte of it is a null, we don't print that, in traditional C
@@ -273,7 +275,7 @@ pascal_printstr (struct ui_file *stream, const gdb_byte *string,
fputs_filtered ("', ", stream);
in_quotes = 0;
}
- pascal_printchar (current_char, stream);
+ pascal_printchar (current_char, type, stream);
fprintf_filtered (stream, " <repeats %u times>", reps);
i = rep1 - 1;
things_printed += options->repeat_count_threshold;
diff --git a/gdb/p-lang.h b/gdb/p-lang.h
index 09a4569..2b2eb2d 100644
--- a/gdb/p-lang.h
+++ b/gdb/p-lang.h
@@ -48,12 +48,13 @@ extern void pascal_type_print_method_args (char *, char *,
/* These are in p-lang.c: */
extern int
- is_pascal_string_type (struct type *, int *, int *, int *, int *, char **);
+ is_pascal_string_type (struct type *, int *, int *, int *,
+ struct type **, char **);
-extern void pascal_printchar (int, struct ui_file *);
+extern void pascal_printchar (int, struct type *, struct ui_file *);
-extern void pascal_printstr (struct ui_file *, const gdb_byte *,
- unsigned int, int, int,
+extern void pascal_printstr (struct ui_file *, struct type *, const gdb_byte *,
+ unsigned int, int,
const struct value_print_options *);
extern struct type **const (pascal_builtin_types[]);
diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c
index 27ae619..29f0e6d 100644
--- a/gdb/p-valprint.c
+++ b/gdb/p-valprint.c
@@ -61,7 +61,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
struct type *elttype;
unsigned eltlen;
int length_pos, length_size, string_pos;
- int char_size;
+ struct type *char_type;
LONGEST val;
CORE_ADDR addr;
@@ -100,8 +100,9 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
len = temp_len;
}
- LA_PRINT_STRING (stream, valaddr + embedded_offset, len,
- eltlen, 0, options);
+ LA_PRINT_STRING (stream, TYPE_TARGET_TYPE (type),
+ valaddr + embedded_offset, len, 0,
+ options);
i = len;
}
else
@@ -175,8 +176,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
&& addr != 0)
{
/* no wide string yet */
- i = val_print_string (addr, -1, TYPE_LENGTH (elttype), stream,
- options);
+ i = val_print_string (elttype, addr, -1, stream, options);
}
/* also for pointers to pascal strings */
/* Note: this is Free Pascal specific:
@@ -184,7 +184,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
Pascal strings are mapped to records
with lowercase names PM */
if (is_pascal_string_type (elttype, &length_pos, &length_size,
- &string_pos, &char_size, NULL)
+ &string_pos, &char_type, NULL)
&& addr != 0)
{
ULONGEST string_length;
@@ -193,7 +193,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
read_memory (addr + length_pos, buffer, length_size);
string_length = extract_unsigned_integer (buffer, length_size);
xfree (buffer);
- i = val_print_string (addr + string_pos, string_length, char_size, stream, options);
+ i = val_print_string (char_type ,addr + string_pos, string_length, stream, options);
}
else if (pascal_object_is_vtbl_member (type))
{
@@ -298,10 +298,10 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
else
{
if (is_pascal_string_type (type, &length_pos, &length_size,
- &string_pos, &char_size, NULL))
+ &string_pos, &char_type, NULL))
{
len = extract_unsigned_integer (valaddr + embedded_offset + length_pos, length_size);
- LA_PRINT_STRING (stream, valaddr + embedded_offset + string_pos, len, char_size, 0, options);
+ LA_PRINT_STRING (stream, char_type, valaddr + embedded_offset + string_pos, len, 0, options);
}
else
pascal_object_print_value_fields (type, valaddr + embedded_offset, address, stream,
@@ -426,7 +426,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
else
fprintf_filtered (stream, "%d", (int) val);
fputs_filtered (" ", stream);
- LA_PRINT_CHAR ((unsigned char) val, stream);
+ LA_PRINT_CHAR ((unsigned char) val, type, stream);
}
break;
@@ -931,7 +931,7 @@ pascal_object_print_static_field (struct value *val,
if (TYPE_CODE (type) == TYPE_CODE_STRUCT)
{
- CORE_ADDR *first_dont_print;
+ CORE_ADDR *first_dont_print, addr;
int i;
first_dont_print
@@ -941,7 +941,7 @@ pascal_object_print_static_field (struct value *val,
while (--i >= 0)
{
- if (VALUE_ADDRESS (val) == first_dont_print[i])
+ if (value_address (val) == first_dont_print[i])
{
fputs_filtered ("<same as static member of an already seen type>",
stream);
@@ -949,11 +949,12 @@ pascal_object_print_static_field (struct value *val,
}
}
- obstack_grow (&dont_print_statmem_obstack, (char *) &VALUE_ADDRESS (val),
+ addr = value_address (val);
+ obstack_grow (&dont_print_statmem_obstack, (char *) &addr,
sizeof (CORE_ADDR));
CHECK_TYPEDEF (type);
- pascal_object_print_value_fields (type, value_contents (val), VALUE_ADDRESS (val),
+ pascal_object_print_value_fields (type, value_contents (val), value_address (val),
stream, recurse, options, NULL, 1);
return;
}
diff --git a/gdb/parse.c b/gdb/parse.c
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
index eee1f8e..66aaf6a 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/parse.c
+++ b/gdb/parse.c
@@ -306,7 +306,7 @@ write_exp_elt_intern (struct internalvar *expelt)
strings with embedded null bytes, as is required for some languages.
Don't be fooled by the fact that the string is null byte terminated,
- this is strictly for the convenience of debugging gdb itself. Gdb
+ this is strictly for the convenience of debugging gdb itself.
Gdb does not depend up the string being null terminated, since the
actual length is recorded in expression elements at each end of the
string. The null byte is taken into consideration when computing how
@@ -352,6 +352,65 @@ write_exp_string (struct stoken str)
write_exp_elt_longcst ((LONGEST) len);
}
+/* Add a vector of string constants to the end of the expression.
+
+ This adds an OP_STRING operation, but encodes the contents
+ differently from write_exp_string. The language is expected to
+ handle evaluation of this expression itself.
+
+ After the usual OP_STRING header, TYPE is written into the
+ expression as a long constant. The interpretation of this field is
+ up to the language evaluator.
+
+ Next, each string in VEC is written. The length is written as a
+ long constant, followed by the contents of the string. */
+
+void
+write_exp_string_vector (int type, struct stoken_vector *vec)
+{
+ int i, n_slots, len;
+
+ /* Compute the size. We compute the size in number of slots to
+ avoid issues with string padding. */
+ n_slots = 0;
+ for (i = 0; i < vec->len; ++i)
+ {
+ /* One slot for the length of this element, plus the number of
+ slots needed for this string. */
+ n_slots += 1 + BYTES_TO_EXP_ELEM (vec->tokens[i].length);
+ }
+
+ /* One more slot for the type of the string. */
+ ++n_slots;
+
+ /* Now compute a phony string length. */
+ len = EXP_ELEM_TO_BYTES (n_slots) - 1;
+
+ n_slots += 4;
+ if ((expout_ptr + n_slots) >= expout_size)
+ {
+ expout_size = max (expout_size * 2, expout_ptr + n_slots + 10);
+ expout = (struct expression *)
+ xrealloc ((char *) expout, (sizeof (struct expression)
+ + EXP_ELEM_TO_BYTES (expout_size)));
+ }
+
+ write_exp_elt_opcode (OP_STRING);
+ write_exp_elt_longcst (len);
+ write_exp_elt_longcst (type);
+
+ for (i = 0; i < vec->len; ++i)
+ {
+ write_exp_elt_longcst (vec->tokens[i].length);
+ memcpy (&expout->elts[expout_ptr], vec->tokens[i].ptr,
+ vec->tokens[i].length);
+ expout_ptr += BYTES_TO_EXP_ELEM (vec->tokens[i].length);
+ }
+
+ write_exp_elt_longcst (len);
+ write_exp_elt_opcode (OP_STRING);
+}
+
/* Add a bitstring constant to the end of the expression.
Bitstring constants are stored by first writing an expression element
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -777,6 +836,15 @@ operator_length_standard (struct expression *expr, int endpos,
args = 1 + longest_to_int (expr->elts[endpos - 2].longconst);
break;
+ case TYPE_INSTANCE:
+ oplen = 4 + longest_to_int (expr->elts[endpos - 2].longconst);
+ args = 1;
+ break;
+
+ case TYPE_INSTANCE_LOOKUP:
+ oplen = 3;
+ break;
+
case OP_OBJC_MSGCALL: /* Objective C message (method) call */
oplen = 4;
args = 1 + longest_to_int (expr->elts[endpos - 2].longconst);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/parser-defs.h b/gdb/parser-defs.h
index 2c4b755..cbda9c3 100644
--- a/gdb/parser-defs.h
+++ b/gdb/parser-defs.h
@@ -69,6 +69,22 @@ struct stoken
int length;
};
+struct typed_stoken
+ {
+ /* A language-specific type field. */
+ int type;
+ /* Pointer to first byte of char-string or first bit of bit-string */
+ char *ptr;
+ /* Length of string in bytes for char-string or bits for bit-string */
+ int length;
+ };
+
+struct stoken_vector
+ {
+ int len;
+ struct typed_stoken *tokens;
+ };
+
struct ttype
{
struct stoken stoken;
@@ -130,6 +146,8 @@ extern void write_exp_elt_intern (struct internalvar *);
extern void write_exp_string (struct stoken);
+void write_exp_string_vector (int type, struct stoken_vector *vec);
+
extern void write_exp_bitstring (struct stoken);
extern void write_exp_elt_block (struct block *);
diff --git a/gdb/ppc-linux-tdep.c b/gdb/ppc-linux-tdep.c
index d08d4fc..c2bbdf9 100644
--- a/gdb/ppc-linux-tdep.c
+++ b/gdb/ppc-linux-tdep.c
@@ -38,6 +38,7 @@
#include "trad-frame.h"
#include "frame-unwind.h"
#include "tramp-frame.h"
+#include "linux-tdep.h"
#include "features/rs6000/powerpc-32l.c"
#include "features/rs6000/powerpc-altivec32l.c"
@@ -53,6 +54,9 @@
#include "features/rs6000/powerpc-isa205-vsx64l.c"
#include "features/rs6000/powerpc-e500l.c"
+/* The syscall's XML filename for PPC and PPC64. */
+#define XML_SYSCALL_FILENAME_PPC "syscalls/ppc-linux.xml"
+#define XML_SYSCALL_FILENAME_PPC64 "syscalls/ppc64-linux.xml"
/* ppc_linux_memory_remove_breakpoints attempts to remove a breakpoint
in much the same fashion as memory_remove_breakpoint in mem-break.c,
@@ -1009,6 +1013,38 @@ ppc_linux_trap_reg_p (struct gdbarch *gdbarch)
&& register_size (gdbarch, PPC_TRAP_REGNUM) > 0;
}
+/* Return the current system call's number present in the
+ r0 register. When the function fails, it returns -1. */
+static LONGEST
+ppc_linux_get_syscall_number (struct gdbarch *gdbarch,
+ ptid_t ptid)
+{
+ struct regcache *regcache = get_thread_regcache (ptid);
+ struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
+ struct cleanup *cleanbuf;
+ /* The content of a register */
+ gdb_byte *buf;
+ /* The result */
+ LONGEST ret;
+
+ /* Make sure we're in a 32- or 64-bit machine */
+ gdb_assert (tdep->wordsize == 4 || tdep->wordsize == 8);
+
+ buf = (gdb_byte *) xmalloc (tdep->wordsize * sizeof (gdb_byte));
+
+ cleanbuf = make_cleanup (xfree, buf);
+
+ /* Getting the system call number from the register.
+ When dealing with PowerPC architecture, this information
+ is stored at 0th register. */
+ regcache_cooked_read (regcache, tdep->ppc_gp0_regnum, buf);
+
+ ret = extract_signed_integer (buf, tdep->wordsize);
+ do_cleanups (cleanbuf);
+
+ return ret;
+}
+
static void
ppc_linux_write_pc (struct regcache *regcache, CORE_ADDR pc)
{
@@ -1069,6 +1105,9 @@ ppc_linux_init_abi (struct gdbarch_info info,
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
struct tdesc_arch_data *tdesc_data = (void *) info.tdep_info;
+ /* Initializing common methods. */
+ linux_tdep_init (gdbarch);
+
/* PPC GNU/Linux uses either 64-bit or 128-bit long doubles; where
128-bit, they are IBM long double, not IEEE quad long double as
in the System V ABI PowerPC Processor Supplement. We can safely
@@ -1080,6 +1119,9 @@ ppc_linux_init_abi (struct gdbarch_info info,
/* Handle inferior calls during interrupted system calls. */
set_gdbarch_write_pc (gdbarch, ppc_linux_write_pc);
+ /* Get the syscall number from the arch's register. */
+ set_gdbarch_get_syscall_number (gdbarch, ppc_linux_get_syscall_number);
+
if (tdep->wordsize == 4)
{
/* Until November 2001, gcc did not comply with the 32 bit SysV
@@ -1099,6 +1141,9 @@ ppc_linux_init_abi (struct gdbarch_info info,
set_solib_svr4_fetch_link_map_offsets
(gdbarch, svr4_ilp32_fetch_link_map_offsets);
+ /* Setting the correct XML syscall filename. */
+ set_gdbarch_xml_syscall_filename (gdbarch, XML_SYSCALL_FILENAME_PPC);
+
/* Trampolines. */
tramp_frame_prepend_unwinder (gdbarch, &ppc32_linux_sigaction_tramp_frame);
tramp_frame_prepend_unwinder (gdbarch, &ppc32_linux_sighandler_tramp_frame);
@@ -1116,6 +1161,9 @@ ppc_linux_init_abi (struct gdbarch_info info,
set_solib_svr4_fetch_link_map_offsets
(gdbarch, svr4_lp64_fetch_link_map_offsets);
+ /* Setting the correct XML syscall filename. */
+ set_gdbarch_xml_syscall_filename (gdbarch, XML_SYSCALL_FILENAME_PPC64);
+
/* Trampolines. */
tramp_frame_prepend_unwinder (gdbarch, &ppc64_linux_sigaction_tramp_frame);
tramp_frame_prepend_unwinder (gdbarch, &ppc64_linux_sighandler_tramp_frame);
diff --git a/gdb/printcmd.c b/gdb/printcmd.c
index 375f82e..8c3f476 100644
--- a/gdb/printcmd.c
+++ b/gdb/printcmd.c
@@ -43,6 +43,7 @@
#include "disasm.h"
#include "dfp.h"
#include "valprint.h"
+#include "charset.h"
#ifdef TUI
#include "tui/tui.h" /* For tui_active et.al. */
@@ -62,11 +63,15 @@ struct format_data
int count;
char format;
char size;
+
+ /* True if the value should be printed raw -- that is, bypassing
+ python-based formatters. */
+ unsigned char raw;
};
/* Last specified output format. */
-static char last_format = 'x';
+static char last_format = 0;
/* Last specified examination size. 'b', 'h', 'w' or `q'. */
@@ -175,6 +180,7 @@ decode_format (char **string_ptr, int oformat, int osize)
val.format = '?';
val.size = '?';
val.count = 1;
+ val.raw = 0;
if (*p >= '0' && *p <= '9')
val.count = atoi (p);
@@ -187,6 +193,11 @@ decode_format (char **string_ptr, int oformat, int osize)
{
if (*p == 'b' || *p == 'h' || *p == 'w' || *p == 'g')
val.size = *p++;
+ else if (*p == 'r')
+ {
+ val.raw = 1;
+ p++;
+ }
else if (*p >= 'a' && *p <= 'z')
val.format = *p++;
else
@@ -264,24 +275,27 @@ print_formatted (struct value *val, int size,
int len = TYPE_LENGTH (type);
if (VALUE_LVAL (val) == lval_memory)
- next_address = VALUE_ADDRESS (val) + len;
+ next_address = value_address (val) + len;
if (size)
{
switch (options->format)
{
case 's':
- /* FIXME: Need to handle wchar_t's here... */
- next_address = VALUE_ADDRESS (val)
- + val_print_string (VALUE_ADDRESS (val), -1, 1, stream,
- options);
+ {
+ struct type *elttype = value_type (val);
+ next_address = (value_address (val)
+ + val_print_string (elttype,
+ value_address (val), -1,
+ stream, options));
+ }
return;
case 'i':
/* We often wrap here if there are long symbolic names. */
wrap_here (" ");
- next_address = (VALUE_ADDRESS (val)
- + gdb_print_insn (VALUE_ADDRESS (val), stream,
+ next_address = (value_address (val)
+ + gdb_print_insn (value_address (val), stream,
&branch_delay_insns));
return;
}
@@ -369,7 +383,7 @@ print_scalar_formatted (const void *valaddr, struct type *type,
print_hex_chars (stream, valaddr, len, byte_order);
return;
case 'c':
- print_char_chars (stream, valaddr, len, byte_order);
+ print_char_chars (stream, type, valaddr, len, byte_order);
return;
default:
break;
@@ -865,6 +879,7 @@ print_command_1 (char *exp, int inspect, int voidprint)
fmt.count = 1;
fmt.format = 0;
fmt.size = 0;
+ fmt.raw = 0;
}
if (exp && *exp)
@@ -878,6 +893,11 @@ print_command_1 (char *exp, int inspect, int voidprint)
else
val = access_value_history (0);
+ /* Do not try to OBJECT_ADDRESS_SET here anything. We are interested in the
+ source variable base addresses as found by READ_VAR_VALUE. The value here
+ can be already a calculated expression address inappropriate for
+ DW_OP_push_object_address. */
+
if (voidprint || (val && value_type (val) &&
TYPE_CODE (value_type (val)) != TYPE_CODE_VOID))
{
@@ -900,6 +920,7 @@ print_command_1 (char *exp, int inspect, int voidprint)
get_formatted_print_options (&opts, format);
opts.inspect_it = inspect;
+ opts.raw = fmt.raw;
print_formatted (val, fmt.size, &opts, gdb_stdout);
printf_filtered ("\n");
@@ -950,6 +971,7 @@ output_command (char *exp, int from_tty)
struct value_print_options opts;
fmt.size = 0;
+ fmt.raw = 0;
if (exp && *exp == '/')
{
@@ -967,6 +989,7 @@ output_command (char *exp, int from_tty)
annotate_value_begin (value_type (val));
get_formatted_print_options (&opts, format);
+ opts.raw = fmt.raw;
print_formatted (val, fmt.size, &opts, gdb_stdout);
annotate_value_end ();
@@ -1287,9 +1310,10 @@ x_command (char *exp, int from_tty)
struct cleanup *old_chain;
struct value *val;
- fmt.format = last_format;
+ fmt.format = last_format ? last_format : 'x';
fmt.size = last_size;
fmt.count = 1;
+ fmt.raw = 0;
if (exp && *exp == '/')
{
@@ -1316,7 +1340,7 @@ x_command (char *exp, int from_tty)
if (/* last_format == 'i' && */
TYPE_CODE (value_type (val)) == TYPE_CODE_FUNC
&& VALUE_LVAL (val) == lval_memory)
- next_address = VALUE_ADDRESS (val);
+ next_address = value_address (val);
else
next_address = value_as_address (val);
do_cleanups (old_chain);
@@ -1393,6 +1417,7 @@ display_command (char *exp, int from_tty)
fmt.format = 0;
fmt.size = 0;
fmt.count = 0;
+ fmt.raw = 0;
}
innermost_block = 0;
@@ -1585,6 +1610,7 @@ do_one_display (struct display *d)
annotate_display_expression ();
get_formatted_print_options (&opts, d->format.format);
+ opts.raw = d->format.raw;
print_formatted (evaluate_expression (d->exp),
d->format.size, &opts, gdb_stdout);
printf_filtered ("\n");
@@ -1865,7 +1891,8 @@ printf_command (char *arg, int from_tty)
enum argclass
{
- int_arg, long_arg, long_long_arg, ptr_arg, string_arg,
+ int_arg, long_arg, long_long_arg, ptr_arg,
+ string_arg, wide_string_arg, wide_char_arg,
double_arg, long_double_arg, decfloat_arg
};
enum argclass *argclass;
@@ -1997,8 +2024,8 @@ printf_command (char *arg, int from_tty)
break;
case 'c':
- this_argclass = int_arg;
- if (lcount || seen_h || seen_big_l)
+ this_argclass = lcount == 0 ? int_arg : wide_char_arg;
+ if (lcount > 1 || seen_h || seen_big_l)
bad = 1;
if (seen_prec || seen_zero || seen_space || seen_plus)
bad = 1;
@@ -2013,8 +2040,8 @@ printf_command (char *arg, int from_tty)
break;
case 's':
- this_argclass = string_arg;
- if (lcount || seen_h || seen_big_l)
+ this_argclass = lcount == 0 ? string_arg : wide_string_arg;
+ if (lcount > 1 || seen_h || seen_big_l)
bad = 1;
if (seen_zero || seen_space || seen_plus)
bad = 1;
@@ -2066,6 +2093,15 @@ printf_command (char *arg, int from_tty)
last_arg[length_before_ll + lcount];
current_substring += length_before_ll + 4;
}
+ else if (this_argclass == wide_string_arg
+ || this_argclass == wide_char_arg)
+ {
+ /* Convert %ls or %lc to %s. */
+ int length_before_ls = f - last_arg - 2;
+ strncpy (current_substring, last_arg, length_before_ls);
+ strcpy (current_substring + length_before_ls, "s");
+ current_substring += length_before_ls + 2;
+ }
else
{
strncpy (current_substring, last_arg, f - last_arg);
@@ -2130,6 +2166,76 @@ printf_command (char *arg, int from_tty)
printf_filtered (current_substring, (char *) str);
}
break;
+ case wide_string_arg:
+ {
+ gdb_byte *str;
+ CORE_ADDR tem;
+ int j;
+ struct type *wctype = lookup_typename ("wchar_t", NULL, 0);
+ int wcwidth = TYPE_LENGTH (wctype);
+ gdb_byte *buf = alloca (wcwidth);
+ struct obstack output;
+ struct cleanup *inner_cleanup;
+
+ tem = value_as_address (val_args[i]);
+
+ /* This is a %s argument. Find the length of the string. */
+ for (j = 0;; j += wcwidth)
+ {
+ QUIT;
+ read_memory (tem + j, buf, wcwidth);
+ if (extract_unsigned_integer (buf, wcwidth) == 0)
+ break;
+ }
+
+ /* Copy the string contents into a string inside GDB. */
+ str = (gdb_byte *) alloca (j + wcwidth);
+ if (j != 0)
+ read_memory (tem, str, j);
+ memset (&str[j], 0, wcwidth);
+
+ obstack_init (&output);
+ inner_cleanup = make_cleanup_obstack_free (&output);
+
+ convert_between_encodings (target_wide_charset (),
+ host_charset (),
+ str, j, wcwidth,
+ &output, translit_char);
+ obstack_grow_str0 (&output, "");
+
+ printf_filtered (current_substring, obstack_base (&output));
+ do_cleanups (inner_cleanup);
+ }
+ break;
+ case wide_char_arg:
+ {
+ struct type *wctype = lookup_typename ("wchar_t", NULL, 0);
+ struct type *valtype;
+ struct obstack output;
+ struct cleanup *inner_cleanup;
+ const gdb_byte *bytes;
+
+ valtype = value_type (val_args[i]);
+ if (TYPE_LENGTH (valtype) != TYPE_LENGTH (wctype)
+ || TYPE_CODE (valtype) != TYPE_CODE_INT)
+ error (_("expected wchar_t argument for %%lc"));
+
+ bytes = value_contents (val_args[i]);
+
+ obstack_init (&output);
+ inner_cleanup = make_cleanup_obstack_free (&output);
+
+ convert_between_encodings (target_wide_charset (),
+ host_charset (),
+ bytes, TYPE_LENGTH (valtype),
+ TYPE_LENGTH (valtype),
+ &output, translit_char);
+ obstack_grow_str0 (&output, "");
+
+ printf_filtered (current_substring, obstack_base (&output));
+ do_cleanups (inner_cleanup);
+ }
+ break;
case double_arg:
{
struct type *type = value_type (val_args[i]);
diff --git a/gdb/python/lib/gdb/FrameIterator.py b/gdb/python/lib/gdb/FrameIterator.py
new file mode 100644
index 0000000..87fb074
--- /dev/null
+++ b/gdb/python/lib/gdb/FrameIterator.py
@@ -0,0 +1,33 @@
+# Iterator over frames.
+
+# Copyright (C) 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+class FrameIterator:
+ """An iterator that iterates over frames."""
+
+ def __init__ (self, frame):
+ "Initialize a FrameIterator. FRAME is the starting frame."
+ self.frame = frame
+
+ def __iter__ (self):
+ return self
+
+ def next (self):
+ result = self.frame
+ if result == None:
+ raise StopIteration
+ self.frame = result.older ()
+ return result
diff --git a/gdb/python/lib/gdb/__init__.py b/gdb/python/lib/gdb/__init__.py
new file mode 100644
index 0000000..b375c68
--- /dev/null
+++ b/gdb/python/lib/gdb/__init__.py
@@ -0,0 +1,19 @@
+# Startup code.
+
+# Copyright (C) 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+# Load the require command by default.
+import gdb.command.require
diff --git a/gdb/python/lib/gdb/backtrace.py b/gdb/python/lib/gdb/backtrace.py
new file mode 100644
index 0000000..2baab5f
--- /dev/null
+++ b/gdb/python/lib/gdb/backtrace.py
@@ -0,0 +1,42 @@
+# Filtering backtrace.
+
+# Copyright (C) 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+import gdb
+import itertools
+
+# Our only exports.
+__all__ = ['push_frame_filter', 'create_frame_filter']
+
+frame_filter = None
+
+def push_frame_filter (constructor):
+ """Register a new backtrace filter class with the 'backtrace' command.
+The filter will be passed an iterator as an argument. The iterator
+will return gdb.Frame-like objects. The filter should in turn act as
+an iterator returning such objects."""
+ global frame_filter
+ if frame_filter == None:
+ frame_filter = constructor
+ else:
+ frame_filter = lambda iterator: constructor (frame_filter (iterator))
+
+def create_frame_filter (iter):
+ global frame_filter
+ if frame_filter is None:
+ return iter
+ return frame_filter (iter)
+
diff --git a/gdb/python/lib/gdb/command/__init__.py b/gdb/python/lib/gdb/command/__init__.py
new file mode 100644
index 0000000..8b13789
--- /dev/null
+++ b/gdb/python/lib/gdb/command/__init__.py
@@ -0,0 +1 @@
+
diff --git a/gdb/python/lib/gdb/command/alias.py b/gdb/python/lib/gdb/command/alias.py
new file mode 100644
index 0000000..96b6618
--- /dev/null
+++ b/gdb/python/lib/gdb/command/alias.py
@@ -0,0 +1,59 @@
+# Alias command.
+
+# Copyright (C) 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+import gdb
+
+class AliasImplementation (gdb.Command):
+ def __init__ (self, name, real, doc):
+ # Have to set __doc__ before the super init call.
+ # It would be nice if gdb's help looked up __doc__ dynamically.
+ self.__doc__ = doc
+ # Note: no good way to complete :(
+ super (AliasImplementation, self).__init__ (name, gdb.COMMAND_NONE)
+ self.real = real
+
+ def invoke(self, arg, from_tty):
+ gdb.execute (self.real + ' ' + arg, from_tty)
+
+class AliasCommand (gdb.Command):
+ """Alias one command to another.
+In the simplest form, the first word is the name of the alias, and
+the remaining words are the the expansion.
+An '=' by itself can be used to define a multi-word alias; words
+before the '=' are the name of the new command."""
+
+ def __init__ (self):
+ # Completion is not quite right here.
+ super (AliasCommand, self).__init__ ("alias", gdb.COMMAND_NONE,
+ gdb.COMPLETE_COMMAND)
+
+ def invoke (self, arg, from_tty):
+ self.dont_repeat ()
+ # Without some form of quoting we can't alias a multi-word
+ # command to another command.
+ args = arg.split()
+ try:
+ start = args.index ('=')
+ end = start + 1
+ except ValueError:
+ start = 1
+ end = 1
+ target = " ".join(args[end:])
+ AliasImplementation (" ".join (args[0:start]), target,
+ "This command is an alias for '%s'." % target)
+
+AliasCommand()
diff --git a/gdb/python/lib/gdb/command/backtrace.py b/gdb/python/lib/gdb/command/backtrace.py
new file mode 100644
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
index 0000000..f07696e
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- /dev/null
+++ b/gdb/python/lib/gdb/command/backtrace.py
@@ -0,0 +1,197 @@
+# New backtrace command.
+
+# Copyright (C) 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+import gdb
+import gdb.backtrace
+import itertools
+from gdb.FrameIterator import FrameIterator
+import sys
+
+class FrameWrapper:
+ def __init__ (self, frame):
+ self.frame = frame;
+
+ def write_symbol (self, stream, sym, block):
+ if len (sym.linkage_name):
+ nsym, is_field_of_this = gdb.lookup_symbol (sym.linkage_name, block)
+ if nsym.addr_class != gdb.SYMBOL_LOC_REGISTER:
+ sym = nsym
+
+ stream.write (sym.print_name + "=")
+ try:
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ val = self.frame.read_var (sym)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ if val != None:
+ val = str (val)
+ # FIXME: would be nice to have a more precise exception here.
+ except RuntimeError, text:
+ val = text
+ if val == None:
+ stream.write ("???")
+ else:
+ stream.write (str (val))
+
+ def print_frame_locals (self, stream, func):
+ if not func:
+ return
+
+ first = True
+ block = func.value
+
+ for sym in block:
+ if sym.is_argument:
+ continue;
+
+ self.write_symbol (stream, sym, block)
+ stream.write ('\n')
+
+ def print_frame_args (self, stream, func):
+ if not func:
+ return
+
+ first = True
+ block = func.value
+
+ for sym in block:
+ if not sym.is_argument:
+ continue;
+
+ if not first:
+ stream.write (", ")
+
+ self.write_symbol (stream, sym, block)
+ first = False
+
+ # FIXME: this should probably just be a method on gdb.Frame.
+ # But then we need stream wrappers.
+ def describe (self, stream, full):
+ if self.frame.type () == gdb.DUMMY_FRAME:
+ stream.write (" <function called from gdb>\n")
+ elif self.frame.type () == gdb.SIGTRAMP_FRAME:
+ stream.write (" <signal handler called>\n")
+ else:
+ sal = self.frame.find_sal ()
+ pc = self.frame.pc ()
+ name = self.frame.name ()
+ if not name:
+ name = "??"
+ if pc != sal.pc or not sal.symtab:
+ stream.write (" 0x%08x in" % pc)
+ stream.write (" " + name + " (")
+
+ func = gdb.find_pc_function (self.frame.addr_in_block ())
+ self.print_frame_args (stream, func)
+
+ stream.write (")")
+
+ if sal.symtab and sal.symtab.filename:
+ stream.write (" at " + sal.symtab.filename)
+ stream.write (":" + str (sal.line))
+
+ if not self.frame.name () or (not sal.symtab or not sal.symtab.filename):
+ lib = gdb.solib_address (pc)
+ if lib:
+ stream.write (" from " + lib)
+
+ stream.write ("\n")
+
+ if full:
+ self.print_frame_locals (stream, func)
+
+ def __getattr__ (self, name):
+ return getattr (self.frame, name)
+
+class ReverseBacktraceParameter (gdb.Parameter):
+ """The new-backtrace command can show backtraces in 'reverse' order.
+This means that the innermost frame will be printed last.
+Note that reverse backtraces are more expensive to compute."""
+
+ set_doc = "Enable or disable reverse backtraces."
+ show_doc = "Show whether backtraces will be printed in reverse order."
+
+ def __init__(self):
+ gdb.Parameter.__init__ (self, "reverse-backtrace",
+ gdb.COMMAND_STACK, gdb.PARAM_BOOLEAN)
+ # Default to compatibility with gdb.
+ self.value = False
+
+class FilteringBacktrace (gdb.Command):
+ """Print backtrace of all stack frames, or innermost COUNT frames.
+With a negative argument, print outermost -COUNT frames.
+Use of the 'full' qualifier also prints the values of the local variables.
+Use of the 'raw' qualifier avoids any filtering by loadable modules.
+"""
+
+ def __init__ (self):
+ # FIXME: this is not working quite well enough to replace
+ # "backtrace" yet.
+ gdb.Command.__init__ (self, "new-backtrace", gdb.COMMAND_STACK)
+ self.reverse = ReverseBacktraceParameter()
+
+ def reverse_iter (self, iter):
+ result = []
+ for item in iter:
+ result.append (item)
+ result.reverse()
+ return result
+
+ def final_n (self, iter, x):
+ result = []
+ for item in iter:
+ result.append (item)
+ return result[x:]
+
+ def invoke (self, arg, from_tty):
+ i = 0
+ count = 0
+ filter = True
+ full = False
+
+ for word in arg.split (" "):
+ if word == '':
+ continue
+ elif word == 'raw':
+ filter = False
+ elif word == 'full':
+ full = True
+ else:
+ count = int (word)
+
+ # FIXME: provide option to start at selected frame
+ # However, should still number as if starting from newest
+ iter = itertools.imap (FrameWrapper,
+ FrameIterator (gdb.newest_frame ()))
+ if filter:
+ iter = gdb.backtrace.create_frame_filter (iter)
+
+ # Now wrap in an iterator that numbers the frames.
+ iter = itertools.izip (itertools.count (0), iter)
+
+ # Reverse if the user wanted that.
+ if self.reverse.value:
+ iter = self.reverse_iter (iter)
+
+ # Extract sub-range user wants.
+ if count < 0:
+ iter = self.final_n (iter, count)
+ elif count > 0:
+ iter = itertools.islice (iter, 0, count)
+
+ for pair in iter:
+ sys.stdout.write ("#%-2d" % pair[0])
+ pair[1].describe (sys.stdout, full)
+
+FilteringBacktrace()
diff --git a/gdb/python/lib/gdb/command/ignore_errors.py b/gdb/python/lib/gdb/command/ignore_errors.py
new file mode 100644
index 0000000..6fa48ff
--- /dev/null
+++ b/gdb/python/lib/gdb/command/ignore_errors.py
@@ -0,0 +1,37 @@
+# Ignore errors in user commands.
+
+# Copyright (C) 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+import gdb
+
+class IgnoreErrorsCommand (gdb.Command):
+ """Execute a single command, ignoring all errors.
+Only one-line commands are supported.
+This is primarily useful in scripts."""
+
+ def __init__ (self):
+ super (IgnoreErrorsCommand, self).__init__ ("ignore-errors",
+ gdb.COMMAND_OBSCURE,
+ # FIXME...
+ gdb.COMPLETE_COMMAND)
+
+ def invoke (self, arg, from_tty):
+ try:
+ gdb.execute (arg, from_tty)
+ except:
+ pass
+
+IgnoreErrorsCommand ()
diff --git a/gdb/python/lib/gdb/command/pahole.py b/gdb/python/lib/gdb/command/pahole.py
new file mode 100644
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
index 0000000..21a0bf0
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- /dev/null
+++ b/gdb/python/lib/gdb/command/pahole.py
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -0,0 +1,75 @@
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+# pahole command for gdb
+
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+# Copyright (C) 2008, 2009 Free Software Foundation, Inc.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+import gdb
+
+class Pahole (gdb.Command):
+ """Show the holes in a structure.
+This command takes a single argument, a type name.
+It prints the type and displays comments showing where holes are."""
+
+ def __init__ (self):
+ super (Pahole, self).__init__ ("pahole", gdb.COMMAND_NONE,
+ gdb.COMPLETE_SYMBOL)
+
+ def pahole (self, type, level, name):
+ if name is None:
+ name = ''
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ tag = type.tag
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ if tag is None:
+ tag = ''
+ print '%sstruct %s {' % (' ' * (2 * level), tag)
+ bitpos = 0
+ for field in type.fields ():
+ # Skip static fields.
+ if not hasattr (field, ('bitpos')):
+ continue
+
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ ftype = field.type.strip_typedefs()
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+ if bitpos != field.bitpos:
+ hole = field.bitpos - bitpos
+ print ' /* XXX %d bit hole, try to pack */' % hole
+ bitpos = field.bitpos
+ if field.bitsize > 0:
+ fieldsize = field.bitsize
+ else:
+ # TARGET_CHAR_BIT here...
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ fieldsize = 8 * ftype.sizeof
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+ # TARGET_CHAR_BIT
+ print ' /* %3d %3d */' % (int (bitpos / 8), int (fieldsize / 8)),
+ bitpos = bitpos + fieldsize
+
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ if ftype.code == gdb.TYPE_CODE_STRUCT:
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ self.pahole (ftype, level + 1, field.name)
+ else:
+ print ' ' * (2 + 2 * level),
+ print '%s %s' % (str (ftype), field.name)
+
+ print ' ' * (14 + 2 * level),
+ print '} %s' % name
+
+ def invoke (self, arg, from_tty):
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ type = gdb.lookup_type (arg)
+ type = type.strip_typedefs ()
+ if type.code != gdb.TYPE_CODE_STRUCT:
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ raise TypeError, '%s is not a struct type' % arg
+ print ' ' * 14,
+ self.pahole (type, 0, '')
+
+Pahole()
diff --git a/gdb/python/lib/gdb/command/require.py b/gdb/python/lib/gdb/command/require.py
new file mode 100644
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
index 0000000..1fbc1e8
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- /dev/null
+++ b/gdb/python/lib/gdb/command/require.py
@@ -0,0 +1,57 @@
+# Demand-loading commands.
+
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+# Copyright (C) 2008, 2009 Free Software Foundation, Inc.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+import gdb
+import os
+
+class RequireCommand (gdb.Command):
+ """Prefix command for requiring features."""
+
+ def __init__ (self):
+ super (RequireCommand, self).__init__ ("require",
+ gdb.COMMAND_SUPPORT,
+ gdb.COMPLETE_NONE,
+ True)
+
+class RequireSubcommand (gdb.Command):
+ """Demand-load a command by name."""
+
+ def __init__ (self, name):
+ self.__doc__ = "Demand-load a %s by name." % name
+ super (RequireSubcommand, self).__init__ ("require %s" % name,
+ gdb.COMMAND_SUPPORT)
+ self.name = name
+
+ def invoke (self, arg, from_tty):
+ for cmd in arg.split():
+ exec ('import gdb.' + self.name + '.' + cmd, globals ())
+
+ def complete (self, text, word):
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ dir = gdb.pythondir + '/gdb/' + self.name
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ result = []
+ for file in os.listdir(dir):
+ if not file.startswith (word) or not file.endswith ('.py'):
+ continue
+ feature = file[0:-3]
+ if feature == 'require' or feature == '__init__':
+ continue
+ result.append (feature)
+ return result
+
+RequireCommand()
+RequireSubcommand("command")
+RequireSubcommand("function")
diff --git a/gdb/python/lib/gdb/command/save_breakpoints.py b/gdb/python/lib/gdb/command/save_breakpoints.py
new file mode 100644
index 0000000..90e07db
--- /dev/null
+++ b/gdb/python/lib/gdb/command/save_breakpoints.py
@@ -0,0 +1,65 @@
+# Save breakpoints.
+
+# Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+from __future__ import with_statement
+import gdb
+
+class SavePrefixCommand (gdb.Command):
+ "Prefix command for saving things."
+
+ def __init__ (self):
+ super (SavePrefixCommand, self).__init__ ("save",
+ gdb.COMMAND_SUPPORT,
+ gdb.COMPLETE_NONE, True)
+
+class SaveBreakpointsCommand (gdb.Command):
+ """Save the current breakpoints to a file.
+This command takes a single argument, a file name.
+The breakpoints can be restored using the 'source' command."""
+
+ def __init__ (self):
+ super (SaveBreakpointsCommand, self).__init__ ("save breakpoints",
+ gdb.COMMAND_SUPPORT,
+ gdb.COMPLETE_FILENAME)
+
+ def invoke (self, arg, from_tty):
+ self.dont_repeat ()
+ bps = gdb.breakpoints ()
+ if bps is None:
+ raise RuntimeError, 'No breakpoints to save'
+ with open (arg.strip (), 'w') as f:
+ for bp in bps:
+ print >> f, "break", bp.location,
+ if bp.thread is not None:
+ print >> f, " thread", bp.thread,
+ if bp.condition is not None:
+ print >> f, " if", bp.condition,
+ print >> f
+ if not bp.enabled:
+ print >> f, "disable %d" % bp.number
+ # Note: we don't save the ignore count; there doesn't
+ # seem to be much point.
+ commands = bp.commands
+ if commands is not None:
+ print >> f, "commands"
+ # Note that COMMANDS has a trailing newline.
+ print >> f, commands,
+ print >> f, "end"
+ print >> f
+
+SavePrefixCommand ()
+SaveBreakpointsCommand ()
diff --git a/gdb/python/lib/gdb/function/__init__.py b/gdb/python/lib/gdb/function/__init__.py
new file mode 100644
index 0000000..8b13789
--- /dev/null
+++ b/gdb/python/lib/gdb/function/__init__.py
@@ -0,0 +1 @@
+
diff --git a/gdb/python/lib/gdb/function/caller_is.py b/gdb/python/lib/gdb/function/caller_is.py
new file mode 100644
index 0000000..2b9c5c7
--- /dev/null
+++ b/gdb/python/lib/gdb/function/caller_is.py
@@ -0,0 +1,58 @@
+# Caller-is functions.
+
+# Copyright (C) 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+import gdb
+import re
+
+class CallerIs (gdb.Function):
+ """Return True if the calling function's name is equal to a string.
+This function takes one or two arguments.
+The first argument is the name of a function; if the calling function's
+name is equal to this argument, this function returns True.
+The optional second argument tells this function how many stack frames
+to traverse to find the calling function. The default is 1."""
+
+ def __init__ (self):
+ super (CallerIs, self).__init__ ("caller_is")
+
+ def invoke (self, name, nframes = 1):
+ frame = gdb.selected_frame ()
+ while nframes > 0:
+ frame = frame.older ()
+ nframes = nframes - 1
+ return frame.name () == name.string ()
+
+class CallerMatches (gdb.Function):
+ """Return True if the calling function's name matches a string.
+This function takes one or two arguments.
+The first argument is a regular expression; if the calling function's
+name is matched by this argument, this function returns True.
+The optional second argument tells this function how many stack frames
+to traverse to find the calling function. The default is 1."""
+
+ def __init__ (self):
+ super (CallerMatches, self).__init__ ("caller_matches")
+
+ def invoke (self, name, nframes = 1):
+ frame = gdb.selected_frame ()
+ while nframes > 0:
+ frame = frame.older ()
+ nframes = nframes - 1
+ return re.match (name.string (), frame.name ()) is not None
+
+CallerIs()
+CallerMatches()
diff --git a/gdb/python/lib/gdb/function/in_scope.py b/gdb/python/lib/gdb/function/in_scope.py
new file mode 100644
index 0000000..debb3bb
--- /dev/null
+++ b/gdb/python/lib/gdb/function/in_scope.py
@@ -0,0 +1,47 @@
+# In-scope function.
+
+# Copyright (C) 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+import gdb
+
+class InScope (gdb.Function):
+ """Return True if all the given variables or macros are in scope.
+Takes one argument for each variable name to be checked."""
+
+ def __init__ (self):
+ super (InScope, self).__init__ ("in_scope")
+
+ def invoke (self, *vars):
+ if len (vars) == 0:
+ raise TypeError, "in_scope takes at least one argument"
+
+ # gdb.Value isn't hashable so it can't be put in a map.
+ # Convert to string first.
+ wanted = set (map (lambda x: x.string (), vars))
+ found = set ()
+ block = gdb.selected_frame ().block ()
+ while block:
+ for sym in block:
+ if (sym.is_argument or sym.is_constant
+ or sym.is_function or sym.is_variable):
+ if sym.name in wanted:
+ found.add (sym.name)
+
+ block = block.superblock
+
+ return wanted == found
+
+InScope ()
diff --git a/gdb/python/lib/gdb/libstdcxx/__init__.py b/gdb/python/lib/gdb/libstdcxx/__init__.py
new file mode 100644
index 0000000..8b13789
--- /dev/null
+++ b/gdb/python/lib/gdb/libstdcxx/__init__.py
@@ -0,0 +1 @@
+
diff --git a/gdb/python/lib/gdb/libstdcxx/v6/__init__.py b/gdb/python/lib/gdb/libstdcxx/v6/__init__.py
new file mode 100644
index 0000000..8b13789
--- /dev/null
+++ b/gdb/python/lib/gdb/libstdcxx/v6/__init__.py
@@ -0,0 +1 @@
+
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
diff --git a/gdb/python/lib/gdb/libstdcxx/v6/hook.in b/gdb/python/lib/gdb/libstdcxx/v6/hook.in
new file mode 100644
index 0000000..fe7c072
--- /dev/null
+++ b/gdb/python/lib/gdb/libstdcxx/v6/hook.in
@@ -0,0 +1,27 @@
+# -*- python -*-
+# Copyright (C) 2009 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+import sys
+import gdb
+
+# Update module path.
+dir = '@dir@'
+if not dir in sys.path:
+ sys.path.insert(0, dir)
+
+# Load the pretty-printers.
+from libstdcxx.v6.printers import register_libstdcxx_printers
+register_libstdcxx_printers (gdb.current_objfile ())
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/python/lib/gdb/libstdcxx/v6/printers.py b/gdb/python/lib/gdb/libstdcxx/v6/printers.py
new file mode 100644
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
index 0000000..58fd91c
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- /dev/null
+++ b/gdb/python/lib/gdb/libstdcxx/v6/printers.py
- Archer update to the snapshot: 935f217d3367a642374bc56c6b146d376fc3edab - Archer backport: 281278326412f9d6a3fabb8adc1d419fd7ddc7d7 - Fix [expr] crash reading invalid DWARF C++ symbol "" (BZ 490319).
2009-03-15 18:31:43 +00:00
@@ -0,0 +1,629 @@
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+# Pretty-printers for libstc++.
+
+# Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+import gdb
+import itertools
+import re
+
+class StdPointerPrinter:
+ "Print a smart pointer of some kind"
+
+ def __init__ (self, typename, val):
+ self.typename = typename
+ self.val = val
+
+ def to_string (self):
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
+ return '%s (count %d) %s' % (self.typename,
+ self.val['_M_refcount']['_M_pi']['_M_use_count'],
+ self.val['_M_ptr'])
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+class UniquePointerPrinter:
+ "Print a unique_ptr"
+
+ def __init__ (self, val):
+ self.val = val
+
+ def to_string (self):
+ return self.val['_M_t']
+
+class StdListPrinter:
+ "Print a std::list"
+
+ class _iterator:
+ def __init__(self, nodetype, head):
+ self.nodetype = nodetype
+ self.base = head['_M_next']
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ self.head = head.address
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ self.count = 0
+
+ def __iter__(self):
+ return self
+
+ def next(self):
+ if self.base == self.head:
+ raise StopIteration
+ elt = self.base.cast(self.nodetype).dereference()
+ self.base = elt['_M_next']
+ count = self.count
+ self.count = self.count + 1
+ return ('[%d]' % count, elt['_M_data'])
+
+ def __init__(self, val):
+ self.val = val
+
+ def children(self):
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ itype = self.val.type.template_argument(0)
+ nodetype = gdb.lookup_type('std::_List_node<%s>' % itype).pointer()
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ return self._iterator(nodetype, self.val['_M_impl']['_M_node'])
+
+ def to_string(self):
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ if self.val['_M_impl']['_M_node'].address == self.val['_M_impl']['_M_node']['_M_next']:
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ return 'empty std::list'
+ return 'std::list'
+
+class StdListIteratorPrinter:
+ "Print std::list::iterator"
+
+ def __init__(self, val):
+ self.val = val
+
+ def to_string(self):
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ itype = self.val.type.template_argument(0)
+ nodetype = gdb.lookup_type('std::_List_node<%s>' % itype).pointer()
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ return self.val['_M_node'].cast(nodetype).dereference()['_M_data']
+
+class StdSlistPrinter:
+ "Print a __gnu_cxx::slist"
+
+ class _iterator:
+ def __init__(self, nodetype, head):
+ self.nodetype = nodetype
+ self.base = head['_M_head']['_M_next']
+ self.count = 0
+
+ def __iter__(self):
+ return self
+
+ def next(self):
+ if self.base == 0:
+ raise StopIteration
+ elt = self.base.cast(self.nodetype).dereference()
+ self.base = elt['_M_next']
+ count = self.count
+ self.count = self.count + 1
+ return ('[%d]' % count, elt['_M_data'])
+
+ def __init__(self, val):
+ self.val = val
+
+ def children(self):
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ itype = self.val.type.template_argument(0)
+ nodetype = gdb.lookup_type('__gnu_cxx::_Slist_node<%s>' % itype).pointer()
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ return self._iterator(nodetype, self.val)
+
+ def to_string(self):
+ if self.val['_M_head']['_M_next'] == 0:
+ return 'empty __gnu_cxx::slist'
+ return '__gnu_cxx::slist'
+
+class StdSlistIteratorPrinter:
+ "Print __gnu_cxx::slist::iterator"
+
+ def __init__(self, val):
+ self.val = val
+
+ def to_string(self):
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ itype = self.val.type.template_argument(0)
+ nodetype = gdb.lookup_type('__gnu_cxx::_Slist_node<%s>' % itype).pointer()
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ return self.val['_M_node'].cast(nodetype).dereference()['_M_data']
+
+class StdVectorPrinter:
+ "Print a std::vector"
+
+ class _iterator:
+ def __init__ (self, start, finish):
+ self.item = start
+ self.finish = finish
+ self.count = 0
+
+ def __iter__(self):
+ return self
+
+ def next(self):
+ if self.item == self.finish:
+ raise StopIteration
+ count = self.count
+ self.count = self.count + 1
+ elt = self.item.dereference()
+ self.item = self.item + 1
+ return ('[%d]' % count, elt)
+
+ def __init__(self, val):
+ self.val = val
+
+ def children(self):
+ return self._iterator(self.val['_M_impl']['_M_start'],
+ self.val['_M_impl']['_M_finish'])
+
+ def to_string(self):
+ start = self.val['_M_impl']['_M_start']
+ finish = self.val['_M_impl']['_M_finish']
+ end = self.val['_M_impl']['_M_end_of_storage']
+ return ('std::vector of length %d, capacity %d'
+ % (int (finish - start), int (end - start)))
+
+ def display_hint(self):
+ return 'array'
+
+class StdVectorIteratorPrinter:
+ "Print std::vector::iterator"
+
+ def __init__(self, val):
+ self.val = val
+
+ def to_string(self):
+ return self.val['_M_current'].dereference()
+
+class StdStackOrQueuePrinter:
+ "Print a std::stack or std::queue"
+
+ def __init__ (self, typename, val):
+ self.typename = typename
+ self.visualizer = gdb.default_visualizer(val['c'])
+
+ def children (self):
+ return self.visualizer.children()
+
+ def to_string (self):
+ return '%s wrapping: %s' % (self.typename,
+ self.visualizer.to_string())
+
+ def display_hint (self):
+ if hasattr (self.visualizer, 'display_hint'):
+ return self.visualizer.display_hint ()
+ return None
+
+class RbtreeIterator:
+ def __init__(self, rbtree):
+ self.size = rbtree['_M_t']['_M_impl']['_M_node_count']
+ self.node = rbtree['_M_t']['_M_impl']['_M_header']['_M_left']
+ self.count = 0
+
+ def __iter__(self):
+ return self
+
+ def __len__(self):
+ return int (self.size)
+
+ def next(self):
+ if self.count == self.size:
+ raise StopIteration
+ result = self.node
+ self.count = self.count + 1
+ if self.count < self.size:
+ # Compute the next node.
+ node = self.node
+ if node.dereference()['_M_right']:
+ node = node.dereference()['_M_right']
+ while node.dereference()['_M_left']:
+ node = node.dereference()['_M_left']
+ else:
+ parent = node.dereference()['_M_parent']
+ while node == parent.dereference()['_M_right']:
+ node = parent
+ parent = parent.dereference()['_M_parent']
+ if node.dereference()['_M_right'] != parent:
+ node = parent
+ self.node = node
+ return result
+
+# This is a pretty printer for std::_Rb_tree_iterator (which is
+# std::map::iterator), and has nothing to do with the RbtreeIterator
+# class above.
+class StdRbtreeIteratorPrinter:
+ "Print std::map::iterator"
+
+ def __init__ (self, val):
+ self.val = val
+
+ def to_string (self):
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ valuetype = self.val.type.template_argument(0)
+ nodetype = gdb.lookup_type('std::_Rb_tree_node < %s >' % valuetype)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ nodetype = nodetype.pointer()
+ return self.val.cast(nodetype).dereference()['_M_value_field']
+
+
+class StdMapPrinter:
+ "Print a std::map or std::multimap"
+
+ # Turn an RbtreeIterator into a pretty-print iterator.
+ class _iter:
+ def __init__(self, rbiter, type):
+ self.rbiter = rbiter
+ self.count = 0
+ self.type = type
+
+ def __iter__(self):
+ return self
+
+ def next(self):
+ if self.count % 2 == 0:
+ n = self.rbiter.next()
+ n = n.cast(self.type).dereference()['_M_value_field']
+ self.pair = n
+ item = n['first']
+ else:
+ item = self.pair['second']
+ result = ('[%d]' % self.count, item)
+ self.count = self.count + 1
+ return result
+
+ def __init__ (self, typename, val):
+ self.typename = typename
+ self.val = val
+ self.iter = RbtreeIterator (val)
+
+ def to_string (self):
+ return '%s with %d elements' % (self.typename, len (self.iter))
+
+ def children (self):
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ keytype = self.val.type.template_argument(0).const()
+ valuetype = self.val.type.template_argument(1)
+ nodetype = gdb.lookup_type('std::_Rb_tree_node< std::pair< %s, %s > >' % (keytype, valuetype))
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ nodetype = nodetype.pointer()
+ return self._iter (self.iter, nodetype)
+
+ def display_hint (self):
+ return 'map'
+
+class StdSetPrinter:
+ "Print a std::set or std::multiset"
+
+ # Turn an RbtreeIterator into a pretty-print iterator.
+ class _iter:
+ def __init__(self, rbiter, type):
+ self.rbiter = rbiter
+ self.count = 0
+ self.type = type
+
+ def __iter__(self):
+ return self
+
+ def next(self):
+ item = self.rbiter.next()
+ item = item.cast(self.type).dereference()['_M_value_field']
+ # FIXME: this is weird ... what to do?
+ # Maybe a 'set' display hint?
+ result = ('[%d]' % self.count, item)
+ self.count = self.count + 1
+ return result
+
+ def __init__ (self, typename, val):
+ self.typename = typename
+ self.val = val
+ self.iter = RbtreeIterator (val)
+
+ def to_string (self):
+ return '%s with %d elements' % (self.typename, len (self.iter))
+
+ def children (self):
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ keytype = self.val.type.template_argument(0)
+ nodetype = gdb.lookup_type('std::_Rb_tree_node< %s >' % keytype).pointer()
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ return self._iter (self.iter, nodetype)
+
+class StdBitsetPrinter:
+ "Print a std::bitset"
+
+ def __init__(self, val):
+ self.val = val
+
+ def to_string (self):
+ # If template_argument handled values, we could print the
+ # size. Or we could use a regexp on the type.
+ return 'std::bitset'
+
+ def children (self):
+ words = self.val['_M_w']
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ wtype = words.type
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+ # The _M_w member can be either an unsigned long, or an
+ # array. This depends on the template specialization used.
+ # If it is a single long, convert to a single element list.
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ if wtype.code == gdb.TYPE_CODE_ARRAY:
+ tsize = wtype.target ().sizeof
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ else:
+ words = [words]
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ tsize = wtype.sizeof
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ nwords = wtype.sizeof / tsize
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ result = []
+ byte = 0
+ while byte < nwords:
+ w = words[byte]
+ bit = 0
+ while w != 0:
+ if (w & 1) != 0:
+ # Another spot where we could use 'set'?
+ result.append(('[%d]' % (byte * tsize * 8 + bit), 1))
+ bit = bit + 1
+ w = w >> 1
+ byte = byte + 1
+ return result
+
+class StdDequePrinter:
+ "Print a std::deque"
+
+ class _iter:
+ def __init__(self, node, start, end, last, buffer_size):
+ self.node = node
+ self.p = start
+ self.end = end
+ self.last = last
+ self.buffer_size = buffer_size
+ self.count = 0
+
+ def __iter__(self):
+ return self
+
+ def next(self):
+ if self.p == self.last:
+ raise StopIteration
+
+ result = ('[%d]' % self.count, self.p.dereference())
+ self.count = self.count + 1
+
+ # Advance the 'cur' pointer.
+ self.p = self.p + 1
+ if self.p == self.end:
+ # If we got to the end of this bucket, move to the
+ # next bucket.
+ self.node = self.node + 1
+ self.p = self.node[0]
+ self.end = self.p + self.buffer_size
+
+ return result
+
+ def __init__(self, val):
+ self.val = val
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ self.elttype = val.type.template_argument(0)
+ size = self.elttype.sizeof
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ if size < 512:
+ self.buffer_size = int (512 / size)
+ else:
+ self.buffer_size = 1
+
+ def to_string(self):
+ start = self.val['_M_impl']['_M_start']
+ end = self.val['_M_impl']['_M_finish']
+
+ delta_n = end['_M_node'] - start['_M_node'] - 1
+ delta_s = start['_M_last'] - start['_M_cur']
+ delta_e = end['_M_cur'] - end['_M_first']
+
+ size = self.buffer_size * delta_n + delta_s + delta_e
+
+ return 'std::deque with %d elements' % long (size)
+
+ def children(self):
+ start = self.val['_M_impl']['_M_start']
+ end = self.val['_M_impl']['_M_finish']
+ return self._iter(start['_M_node'], start['_M_cur'], start['_M_last'],
+ end['_M_cur'], self.buffer_size)
+
+ def display_hint (self):
+ return 'array'
+
+class StdDequeIteratorPrinter:
+ "Print std::deque::iterator"
+
+ def __init__(self, val):
+ self.val = val
+
+ def to_string(self):
+ return self.val['_M_cur'].dereference()
+
+class StdStringPrinter:
+ "Print a std::basic_string of some kind"
+
+ def __init__(self, encoding, val):
+ self.encoding = encoding
+ self.val = val
+
+ def to_string(self):
+ # Look up the target encoding as late as possible.
+ encoding = self.encoding
- Archer update to the snapshot: 935f217d3367a642374bc56c6b146d376fc3edab - Archer backport: 281278326412f9d6a3fabb8adc1d419fd7ddc7d7 - Fix [expr] crash reading invalid DWARF C++ symbol "" (BZ 490319).
2009-03-15 18:31:43 +00:00
+ if encoding[0] is '@':
+ encoding = gdb.parameter(encoding[1:])
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ return self.val['_M_dataplus']['_M_p'].string(encoding)
+
+ def display_hint (self):
+ return 'string'
+
+class Tr1HashtableIterator:
+ def __init__ (self, hash):
+ self.count = 0
+ self.n_buckets = hash['_M_element_count']
+ if self.n_buckets == 0:
+ self.node = False
+ else:
+ self.bucket = hash['_M_buckets']
+ self.node = self.bucket[0]
+ self.update ()
+
+ def __iter__ (self):
+ return self
+
+ def update (self):
+ # If we advanced off the end of the chain, move to the next
+ # bucket.
+ while self.node == 0:
+ self.bucket = self.bucket + 1
+ self.node = self.bucket[0]
+
+ # If we advanced off the end of the bucket array, then
+ # we're done.
+ if self.count == self.n_buckets:
+ self.node = False
+ else:
+ self.count = self.count + 1
+
+ def next (self):
+ if not self.node:
+ raise StopIteration
+ result = self.node.dereference()['_M_v']
+ self.node = self.node.dereference()['_M_next']
+ self.update ()
+ return result
+
+class Tr1UnorderedSetPrinter:
+ "Print a tr1::unordered_set"
+
+ def __init__ (self, typename, val):
+ self.typename = typename
+ self.val = val
+
+ def to_string (self):
+ return '%s with %d elements' % (self.typename, self.val['_M_element_count'])
+
+ @staticmethod
+ def format_count (i):
+ return '[%d]' % i
+
+ def children (self):
+ counter = itertools.imap (self.format_count, itertools.count())
+ return itertools.izip (counter, Tr1HashtableIterator (self.val))
+
+class Tr1UnorderedMapPrinter:
+ "Print a tr1::unordered_map"
+
+ def __init__ (self, typename, val):
+ self.typename = typename
+ self.val = val
+
+ def to_string (self):
+ return '%s with %d elements' % (self.typename, self.val['_M_element_count'])
+
+ @staticmethod
+ def flatten (list):
+ for elt in list:
+ for i in elt:
+ yield i
+
+ @staticmethod
+ def format_one (elt):
+ return (elt['first'], elt['second'])
+
+ @staticmethod
+ def format_count (i):
+ return '[%d]' % i
+
+ def children (self):
+ counter = itertools.imap (self.format_count, itertools.count())
+ # Map over the hash table and flatten the result.
+ data = self.flatten (itertools.imap (self.format_one, Tr1HashtableIterator (self.val)))
+ # Zip the two iterators together.
+ return itertools.izip (counter, data)
+
+ def display_hint (self):
+ return 'map'
+
+def register_libstdcxx_printers (obj):
+ "Register libstdc++ pretty-printers with objfile Obj."
+
+ if obj == None:
+ obj = gdb
+
+ obj.pretty_printers.append (lookup_function)
+
+def lookup_function (val):
+ "Look-up and return a pretty-printer that can print val."
+
+ # Get the type.
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ type = val.type;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+ # If it points to a reference, get the reference.
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ if type.code == gdb.TYPE_CODE_REF:
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ type = type.target ()
+
+ # Get the unqualified type, stripped of typedefs.
+ type = type.unqualified ().strip_typedefs ()
+
+ # Get the type name.
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ typename = type.tag
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ if typename == None:
+ return None
+
+ # Iterate over local dictionary of types to determine
+ # if a printer is registered for that type. Return an
+ # instantiation of the printer if found.
+ for function in pretty_printers_dict:
+ if function.search (typename):
+ return pretty_printers_dict[function] (val)
+
+ # Cannot find a pretty printer. Return None.
+ return None
+
+def build_libstdcxx_dictionary ():
+ # libstdc++ objects requiring pretty-printing.
+ # In order from:
+ # http://gcc.gnu.org/onlinedocs/libstdc++/latest-doxygen/a01847.html
- Archer update to the snapshot: 935f217d3367a642374bc56c6b146d376fc3edab - Archer backport: 281278326412f9d6a3fabb8adc1d419fd7ddc7d7 - Fix [expr] crash reading invalid DWARF C++ symbol "" (BZ 490319).
2009-03-15 18:31:43 +00:00
+ pretty_printers_dict[re.compile('^std::basic_string<char,.*>$')] = lambda val: StdStringPrinter('@target-charset', val)
+ pretty_printers_dict[re.compile('^std::basic_string<wchar_t,.*>$')] = lambda val: StdStringPrinter('@target-wide-charset', val)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ pretty_printers_dict[re.compile('^std::basic_string<char16_t,.*>$')] = lambda val: StdStringPrinter('UTF-16', val)
+ pretty_printers_dict[re.compile('^std::basic_string<char32_t,.*>$')] = lambda val: StdStringPrinter('UTF-32', val)
+ pretty_printers_dict[re.compile('^std::bitset<.*>$')] = StdBitsetPrinter
+ pretty_printers_dict[re.compile('^std::deque<.*>$')] = StdDequePrinter
+ pretty_printers_dict[re.compile('^std::list<.*>$')] = StdListPrinter
+ pretty_printers_dict[re.compile('^std::map<.*>$')] = lambda val: StdMapPrinter("std::map", val)
+ pretty_printers_dict[re.compile('^std::multimap<.*>$')] = lambda val: StdMapPrinter("std::multimap", val)
+ pretty_printers_dict[re.compile('^std::multiset<.*>$')] = lambda val: StdSetPrinter("std::multiset", val)
+ pretty_printers_dict[re.compile('^std::priority_queue<.*>$')] = lambda val: StdStackOrQueuePrinter("std::priority_queue", val)
+ pretty_printers_dict[re.compile('^std::queue<.*>$')] = lambda val: StdStackOrQueuePrinter("std::queue", val)
+ pretty_printers_dict[re.compile('^std::set<.*>$')] = lambda val: StdSetPrinter("std::set", val)
+ pretty_printers_dict[re.compile('^std::stack<.*>$')] = lambda val: StdStackOrQueuePrinter("std::stack", val)
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
+ pretty_printers_dict[re.compile('^std::unique_ptr<.*>$')] = UniquePointerPrinter
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ pretty_printers_dict[re.compile('^std::vector<.*>$')] = StdVectorPrinter
- Archer update to the snapshot: ec29855686f2a78d90ebcc63765681249bbbe808 - Temporarily place libstdc++ pretty printers in this gdb.rpm.
2009-03-09 19:31:45 +00:00
+ # vector<bool>
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
+
+ # These are the C++0x printers. They also exist in the standard namespace.
+ # For array - the default GDB pretty-printer seems reasonable.
+ pretty_printers_dict[re.compile('^std::(tr1::)?shared_ptr<.*>$')] = lambda val: StdPointerPrinter ('std::shared_ptr', val)
+ pretty_printers_dict[re.compile('^std::(tr1::)?weak_ptr<.*>$')] = lambda val: StdPointerPrinter ('std::weak_ptr', val)
+ pretty_printers_dict[re.compile('^std::(tr1::)?unordered_map<.*>$')] = lambda val: Tr1UnorderedMapPrinter ('std::tr1::unordered_map', val)
+ pretty_printers_dict[re.compile('^std::(tr1::)?unordered_set<.*>$')] = lambda val: Tr1UnorderedSetPrinter ('std::tr1::unordered_set', val)
+ pretty_printers_dict[re.compile('^std::(tr1::)?unordered_multimap<.*>$')] = lambda val: Tr1UnorderedMapPrinter ('std::tr1::unordered_multimap', val)
+ pretty_printers_dict[re.compile('^std::(tr1::)?unordered_multiset<.*>$')] = lambda val: Tr1UnorderedSetPrinter ('std::tr1::unordered_multiset', val)
+
+
- Archer update to the snapshot: ec29855686f2a78d90ebcc63765681249bbbe808 - Temporarily place libstdc++ pretty printers in this gdb.rpm.
2009-03-09 19:31:45 +00:00
+ # Extensions.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ pretty_printers_dict[re.compile('^__gnu_cxx::slist<.*>$')] = StdSlistPrinter
+
+ if True:
+ # These shouldn't be necessary, if GDB "print *i" worked.
+ # But it often doesn't, so here they are.
+ pretty_printers_dict[re.compile('^std::_List_iterator<.*>$')] = lambda val: StdListIteratorPrinter(val)
+ pretty_printers_dict[re.compile('^std::_List_const_iterator<.*>$')] = lambda val: StdListIteratorPrinter(val)
+ pretty_printers_dict[re.compile('^std::_Rb_tree_iterator<.*>$')] = lambda val: StdRbtreeIteratorPrinter(val)
+ pretty_printers_dict[re.compile('^std::_Rb_tree_const_iterator<.*>$')] = lambda val: StdRbtreeIteratorPrinter(val)
+ pretty_printers_dict[re.compile('^std::_Deque_iterator<.*>$')] = lambda val: StdDequeIteratorPrinter(val)
+ pretty_printers_dict[re.compile('^std::_Deque_const_iterator<.*>$')] = lambda val: StdDequeIteratorPrinter(val)
+ pretty_printers_dict[re.compile('^__gnu_cxx::__normal_iterator<.*>$')] = lambda val: StdVectorIteratorPrinter(val)
+ pretty_printers_dict[re.compile('^__gnu_cxx::_Slist_iterator<.*>$')] = lambda val: StdSlistIteratorPrinter(val)
+
+pretty_printers_dict = {}
+
+build_libstdcxx_dictionary ()
diff --git a/gdb/python/python-block.c b/gdb/python/python-block.c
new file mode 100644
index 0000000..8019e9d
--- /dev/null
+++ b/gdb/python/python-block.c
@@ -0,0 +1,265 @@
+/* Python interface to blocks.
+
+ Copyright (C) 2008 Free Software Foundation, Inc.
+
+ This file is part of GDB.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include "defs.h"
+#include "block.h"
+#include "dictionary.h"
+#include "symtab.h"
+#include "python-internal.h"
+
+typedef struct {
+ PyObject_HEAD
+ struct block *block;
+} block_object;
+
+typedef struct {
+ PyObject_HEAD
+ struct dictionary *dict;
+ struct dict_iterator iter;
+ int initialized_p;
+} block_syms_iterator_object;
+
+static PyTypeObject block_syms_iterator_object_type;
+
+static PyObject *
+blpy_iter (PyObject *self)
+{
+ block_syms_iterator_object *block_iter_obj;
+
+ block_iter_obj = PyObject_New (block_syms_iterator_object,
+ &block_syms_iterator_object_type);
+ if (block_iter_obj == NULL)
+ {
+ PyErr_SetString (PyExc_MemoryError,
+ "Could not allocate iterator object.");
+ return NULL;
+ }
+
+ block_iter_obj->dict = BLOCK_DICT (((block_object *) self)->block);
+ block_iter_obj->initialized_p = 0;
+
+ return (PyObject *) block_iter_obj;
+}
+
+static PyObject *
+blpy_get_start (PyObject *self, void *closure)
+{
+ block_object *self_block = (block_object *) self;
+
+ return PyLong_FromUnsignedLongLong (BLOCK_START (self_block->block));
+}
+
+static PyObject *
+blpy_get_end (PyObject *self, void *closure)
+{
+ block_object *self_block = (block_object *) self;
+
+ return PyLong_FromUnsignedLongLong (BLOCK_END (self_block->block));
+}
+
+static PyObject *
+blpy_get_function (PyObject *self, void *closure)
+{
+ block_object *self_block = (block_object *) self;
+ struct symbol *sym;
+
+ sym = BLOCK_FUNCTION (self_block->block);
+ if (sym)
+ return symbol_to_symbol_object (sym);
+
+ Py_RETURN_NONE;
+}
+
+static PyObject *
+blpy_get_superblock (PyObject *self, void *closure)
+{
+ block_object *self_block = (block_object *) self;
+ struct block *block;
+
+ block = BLOCK_SUPERBLOCK (self_block->block);
+ if (block)
+ return block_to_block_object (block);
+
+ Py_RETURN_NONE;
+}
+
+PyObject *
+block_to_block_object (struct block *block)
+{
+ block_object *block_obj;
+
+ block_obj = PyObject_New (block_object, &block_object_type);
+ if (block_obj == NULL)
+ {
+ PyErr_SetString (PyExc_MemoryError, "Could not allocate block object.");
+ return NULL;
+ }
+
+ block_obj->block = block;
+
+ return (PyObject *) block_obj;
+}
+
+struct block *
+block_object_to_block (PyObject *obj)
+{
+ if (! PyObject_TypeCheck (obj, &block_object_type))
+ return NULL;
+ return ((block_object *) obj)->block;
+}
+
+static PyObject *
+blpy_block_syms_iter (PyObject *self)
+{
+ return self;
+}
+
+static PyObject *
+blpy_block_syms_iternext (PyObject *self)
+{
+ block_syms_iterator_object *iter_obj = (block_syms_iterator_object *) self;
+ struct symbol *sym;
+
+ if (!iter_obj->initialized_p)
+ {
+ sym = dict_iterator_first (iter_obj->dict, &(iter_obj->iter));
+ iter_obj->initialized_p = 1;
+ }
+ else
+ sym = dict_iterator_next (&(iter_obj->iter));
+
+ return (sym == NULL)? NULL : symbol_to_symbol_object (sym);
+}
+
+/* Return the innermost lexical block containing the specified pc value,
+ or 0 if there is none. */
+
+PyObject *
+gdbpy_block_for_pc (PyObject *self, PyObject *args)
+{
+ unsigned PY_LONG_LONG pc;
+ struct block *block;
+ PyObject *sym_obj;
+
+ if (!PyArg_ParseTuple (args, "K", &pc))
+ return NULL;
+
+ block = block_for_pc (pc);
+ if (block)
+ return block_to_block_object (block);
+
+ Py_RETURN_NONE;
+}
+
+void
+gdbpy_initialize_blocks (void)
+{
+ block_object_type.tp_new = PyType_GenericNew;
+ if (PyType_Ready (&block_object_type) < 0)
+ return;
+
+ block_syms_iterator_object_type.tp_new = PyType_GenericNew;
+ if (PyType_Ready (&block_syms_iterator_object_type) < 0)
+ return;
+
+ Py_INCREF (&block_object_type);
+ PyModule_AddObject (gdb_module, "Block", (PyObject *) &block_object_type);
+
+ Py_INCREF (&block_syms_iterator_object_type);
+ PyModule_AddObject (gdb_module, "BlockIterator",
+ (PyObject *) &block_syms_iterator_object_type);
+}
+
+
+
+static PyGetSetDef block_object_getset[] = {
+ { "start", blpy_get_start, NULL, "Start address of the block.", NULL },
+ { "end", blpy_get_end, NULL, "End address of the block.", NULL },
+ { "function", blpy_get_function, NULL,
+ "Symbol that names the block, or None.", NULL },
+ { "superblock", blpy_get_superblock, NULL,
+ "Block containing the block, or None.", NULL },
+ { NULL } /* Sentinel */
+};
+
+PyTypeObject block_object_type = {
+ PyObject_HEAD_INIT (NULL)
+ 0, /*ob_size*/
+ "gdb.Block", /*tp_name*/
+ sizeof (block_object), /*tp_basicsize*/
+ 0, /*tp_itemsize*/
+ 0, /*tp_dealloc*/
+ 0, /*tp_print*/
+ 0, /*tp_getattr*/
+ 0, /*tp_setattr*/
+ 0, /*tp_compare*/
+ 0, /*tp_repr*/
+ 0, /*tp_as_number*/
+ 0, /*tp_as_sequence*/
+ 0, /*tp_as_mapping*/
+ 0, /*tp_hash */
+ 0, /*tp_call*/
+ 0, /*tp_str*/
+ 0, /*tp_getattro*/
+ 0, /*tp_setattro*/
+ 0, /*tp_as_buffer*/
+ Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_ITER, /*tp_flags*/
+ "GDB block object", /* tp_doc */
+ 0, /* tp_traverse */
+ 0, /* tp_clear */
+ 0, /* tp_richcompare */
+ 0, /* tp_weaklistoffset */
+ blpy_iter, /* tp_iter */
+ 0, /* tp_iternext */
+ 0, /* tp_methods */
+ 0, /* tp_members */
+ block_object_getset /* tp_getset */
+};
+
+static PyTypeObject block_syms_iterator_object_type = {
+ PyObject_HEAD_INIT (NULL)
+ 0, /*ob_size*/
+ "gdb.BlockIterator", /*tp_name*/
+ sizeof (block_syms_iterator_object), /*tp_basicsize*/
+ 0, /*tp_itemsize*/
+ 0, /*tp_dealloc*/
+ 0, /*tp_print*/
+ 0, /*tp_getattr*/
+ 0, /*tp_setattr*/
+ 0, /*tp_compare*/
+ 0, /*tp_repr*/
+ 0, /*tp_as_number*/
+ 0, /*tp_as_sequence*/
+ 0, /*tp_as_mapping*/
+ 0, /*tp_hash */
+ 0, /*tp_call*/
+ 0, /*tp_str*/
+ 0, /*tp_getattro*/
+ 0, /*tp_setattro*/
+ 0, /*tp_as_buffer*/
+ Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_ITER, /*tp_flags*/
+ "GDB block syms iterator object", /* tp_doc */
+ 0, /* tp_traverse */
+ 0, /* tp_clear */
+ 0, /* tp_richcompare */
+ 0, /* tp_weaklistoffset */
+ blpy_block_syms_iter, /* tp_iter */
+ blpy_block_syms_iternext, /* tp_iternext */
+ 0 /* tp_methods */
+};
diff --git a/gdb/python/python-breakpoint.c b/gdb/python/python-breakpoint.c
new file mode 100644
index 0000000..ec80419
--- /dev/null
+++ b/gdb/python/python-breakpoint.c
@@ -0,0 +1,665 @@
+/* Python interface to breakpoints
+
+ Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+
+ This file is part of GDB.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include "defs.h"
+#include "value.h"
+#include "exceptions.h"
+#include "python-internal.h"
+#include "charset.h"
+#include "breakpoint.h"
+#include "gdbcmd.h"
+#include "gdbthread.h"
+#include "observer.h"
+
+
+/* From breakpoint.c. */
+extern struct breakpoint *breakpoint_chain;
+
+
+typedef struct breakpoint_object breakpoint_object;
+
+static PyTypeObject breakpoint_object_type;
+
+/* A dynamically allocated vector of breakpoint objects. Each
+ breakpoint has a number. A breakpoint is valid if its slot in this
+ vector is non-null. When a breakpoint is deleted, we drop our
+ reference to it and zero its slot; this is how we let the Python
+ object have a lifetime which is independent from that of the gdb
+ breakpoint. */
+static breakpoint_object **bppy_breakpoints;
+
+/* Number of slots in bppy_breakpoints. */
+static int bppy_slots;
+
+/* Number of live breakpoints. */
+static int bppy_live;
+
+/* Variables used to pass information between the Breakpoint
+ constructor and the breakpoint-created hook function. */
+static breakpoint_object *bppy_pending_object;
+
+struct breakpoint_object
+{
+ PyObject_HEAD
+
+ /* The breakpoint number according to gdb. */
+ int number;
+
+ /* The gdb breakpoint object, or NULL if the breakpoint has been
+ deleted. */
+ struct breakpoint *bp;
+};
+
+/* Evaluate to true if the breakpoint NUM is valid, false otherwise. */
+#define BPPY_VALID_P(Num) \
+ ((Num) >= 0 \
+ && (Num) < bppy_slots \
+ && bppy_breakpoints[Num] != NULL)
+
+/* Require that BREAKPOINT be a valid breakpoint ID; throw a Python
+ exception if it is invalid. */
+#define BPPY_REQUIRE_VALID(Breakpoint) \
+ do { \
+ if (! BPPY_VALID_P ((Breakpoint)->number)) \
+ return PyErr_Format (PyExc_RuntimeError, "breakpoint %d is invalid", \
+ (Breakpoint)->number); \
+ } while (0)
+
+/* Require that BREAKPOINT be a valid breakpoint ID; throw a Python
+ exception if it is invalid. This macro is for use in setter functions. */
+#define BPPY_SET_REQUIRE_VALID(Breakpoint) \
+ do { \
+ if (! BPPY_VALID_P ((Breakpoint)->number)) \
+ { \
+ PyErr_Format (PyExc_RuntimeError, "breakpoint %d is invalid", \
+ (Breakpoint)->number); \
+ return -1; \
+ } \
+ } while (0)
+
+/* Python function which checks the validity of a breakpoint object. */
+static PyObject *
+bppy_is_valid (PyObject *self, PyObject *args)
+{
+ if (((breakpoint_object *) self)->bp)
+ Py_RETURN_TRUE;
+ Py_RETURN_FALSE;
+}
+
+/* Python function to test whether or not the breakpoint is enabled. */
+static PyObject *
+bppy_get_enabled (PyObject *self, void *closure)
+{
+ if (! ((breakpoint_object *) self)->bp)
+ Py_RETURN_FALSE;
+ /* Not clear what we really want here. */
+ if (((breakpoint_object *) self)->bp->enable_state == bp_enabled)
+ Py_RETURN_TRUE;
+ Py_RETURN_FALSE;
+}
+
+/* Python function to test whether or not the breakpoint is silent. */
+static PyObject *
+bppy_get_silent (PyObject *self, void *closure)
+{
+ BPPY_REQUIRE_VALID ((breakpoint_object *) self);
+ if (((breakpoint_object *) self)->bp->silent)
+ Py_RETURN_TRUE;
+ Py_RETURN_FALSE;
+}
+
+/* Python function to set the enabled state of a breakpoint. */
+static int
+bppy_set_enabled (PyObject *self, PyObject *newvalue, void *closure)
+{
+ breakpoint_object *self_bp = (breakpoint_object *) self;
+ int cmp;
+
+ BPPY_SET_REQUIRE_VALID (self_bp);
+
+ if (newvalue == NULL)
+ {
+ PyErr_SetString (PyExc_TypeError, "cannot delete `enabled' attribute");
+ return -1;
+ }
+ else if (! PyBool_Check (newvalue))
+ {
+ PyErr_SetString (PyExc_TypeError,
+ "the value of `enabled' must be a boolean");
+ return -1;
+ }
+
+ cmp = PyObject_IsTrue (newvalue);
+ if (cmp < 0)
+ return -1;
+ else if (cmp == 1)
+ enable_breakpoint (self_bp->bp);
+ else
+ disable_breakpoint (self_bp->bp);
+ return 0;
+}
+
+/* Python function to set the 'silent' state of a breakpoint. */
+static int
+bppy_set_silent (PyObject *self, PyObject *newvalue, void *closure)
+{
+ breakpoint_object *self_bp = (breakpoint_object *) self;
+ int cmp;
+
+ BPPY_SET_REQUIRE_VALID (self_bp);
+
+ if (newvalue == NULL)
+ {
+ PyErr_SetString (PyExc_TypeError, "cannot delete `silent' attribute");
+ return -1;
+ }
+ else if (! PyBool_Check (newvalue))
+ {
+ PyErr_SetString (PyExc_TypeError,
+ "the value of `silent' must be a boolean");
+ return -1;
+ }
+
+ cmp = PyObject_IsTrue (newvalue);
+ if (cmp < 0)
+ return -1;
+ else
+ self_bp->bp->silent = cmp;
+
+ return 0;
+}
+
+/* Python function to set the thread of a breakpoint. */
+static int
+bppy_set_thread (PyObject *self, PyObject *newvalue, void *closure)
+{
+ breakpoint_object *self_bp = (breakpoint_object *) self;
+ int id;
+
+ BPPY_SET_REQUIRE_VALID (self_bp);
+
+ if (newvalue == NULL)
+ {
+ PyErr_SetString (PyExc_TypeError, "cannot delete `thread' attribute");
+ return -1;
+ }
+ else if (PyInt_Check (newvalue))
+ {
+ id = (int) PyInt_AsLong (newvalue);
+ if (! valid_thread_id (id))
+ {
+ PyErr_SetString (PyExc_RuntimeError, "invalid thread id");
+ return -1;
+ }
+ }
+ else if (newvalue == Py_None)
+ id = -1;
+ else
+ {
+ PyErr_SetString (PyExc_TypeError,
+ "the value of `thread' must be an integer or None");
+ return -1;
+ }
+
+ self_bp->bp->thread = id;
+
+ return 0;
+}
+
+/* Python function to set the ignore count of a breakpoint. */
+static int
+bppy_set_ignore_count (PyObject *self, PyObject *newvalue, void *closure)
+{
+ breakpoint_object *self_bp = (breakpoint_object *) self;
+ long value;
+
+ BPPY_SET_REQUIRE_VALID (self_bp);
+
+ if (newvalue == NULL)
+ {
+ PyErr_SetString (PyExc_TypeError,
+ "cannot delete `ignore_count' attribute");
+ return -1;
+ }
+ else if (! PyInt_Check (newvalue))
+ {
+ PyErr_SetString (PyExc_TypeError,
+ "the value of `ignore_count' must be an integer");
+ return -1;
+ }
+
+ value = PyInt_AsLong (newvalue);
+ if (value < 0)
+ value = 0;
+ set_ignore_count (self_bp->number, (int) value, 0);
+
+ return 0;
+}
+
+/* Python function to set the hit count of a breakpoint. */
+static int
+bppy_set_hit_count (PyObject *self, PyObject *newvalue, void *closure)
+{
+ breakpoint_object *self_bp = (breakpoint_object *) self;
+
+ BPPY_SET_REQUIRE_VALID (self_bp);
+
+ if (newvalue == NULL)
+ {
+ PyErr_SetString (PyExc_TypeError, "cannot delete `hit_count' attribute");
+ return -1;
+ }
+ else if (! PyInt_Check (newvalue) || PyInt_AsLong (newvalue) != 0)
+ {
+ PyErr_SetString (PyExc_AttributeError,
+ "the value of `hit_count' must be zero");
+ return -1;
+ }
+
+ self_bp->bp->hit_count = 0;
+
+ return 0;
+}
+
+/* Python function to get the location of a breakpoint. */
+static PyObject *
+bppy_get_location (PyObject *self, void *closure)
+{
+ char *str;
+
+ BPPY_REQUIRE_VALID ((breakpoint_object *) self);
+ str = ((breakpoint_object *) self)->bp->addr_string;
+ /* FIXME: watchpoints? tracepoints? */
+ if (! str)
+ str = "";
+ return PyString_Decode (str, strlen (str), host_charset (), NULL);
+}
+
+/* Python function to get the condition expression of a breakpoint. */
+static PyObject *
+bppy_get_condition (PyObject *self, void *closure)
+{
+ char *str;
+ BPPY_REQUIRE_VALID ((breakpoint_object *) self);
+
+ str = ((breakpoint_object *) self)->bp->cond_string;
+ if (! str)
+ Py_RETURN_NONE;
+ return PyString_Decode (str, strlen (str), host_charset (), NULL);
+}
+
+static int
+bppy_set_condition (PyObject *self, PyObject *newvalue, void *closure)
+{
+ char *exp;
+ breakpoint_object *self_bp = (breakpoint_object *) self;
+ volatile struct gdb_exception except;
+
+ BPPY_SET_REQUIRE_VALID (self_bp);
+
+ if (newvalue == NULL)
+ {
+ PyErr_SetString (PyExc_TypeError, "cannot delete `condition' attribute");
+ return -1;
+ }
+ else if (newvalue == Py_None)
+ exp = "";
+ else
+ {
+ exp = python_string_to_host_string (newvalue);
+ if (exp == NULL)
+ return -1;
+ }
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ set_breakpoint_condition (self_bp->bp, exp, 0);
+ }
+ GDB_PY_SET_HANDLE_EXCEPTION (except);
+
+ return 0;
+}
+
+/* Python function to get the commands attached to a breakpoint. */
+static PyObject *
+bppy_get_commands (PyObject *self, void *closure)
+{
+ breakpoint_object *self_bp = (breakpoint_object *) self;
+ long length;
+ volatile struct gdb_exception except;
+ struct ui_file *string_file;
+ struct cleanup *chain;
+ PyObject *result;
+ char *cmdstr;
+
+ BPPY_REQUIRE_VALID (self_bp);
+
+ if (! self_bp->bp->commands)
+ Py_RETURN_NONE;
+
+ string_file = mem_fileopen ();
+ chain = make_cleanup_ui_file_delete (string_file);
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ /* FIXME: this can fail. Maybe we need to be making a new
+ ui_out object here? */
+ ui_out_redirect (uiout, string_file);
+ print_command_lines (uiout, self_bp->bp->commands, 0);
+ ui_out_redirect (uiout, NULL);
+ }
+ cmdstr = ui_file_xstrdup (string_file, &length);
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ result = PyString_Decode (cmdstr, strlen (cmdstr), host_charset (), NULL);
+ do_cleanups (chain);
+ xfree (cmdstr);
+ return result;
+}
+
+/* Python function to get the breakpoint's number. */
+static PyObject *
+bppy_get_number (PyObject *self, void *closure)
+{
+ breakpoint_object *self_bp = (breakpoint_object *) self;
+
+ BPPY_REQUIRE_VALID (self_bp);
+
+ return PyInt_FromLong (self_bp->number);
+}
+
+/* Python function to get the breakpoint's thread ID. */
+static PyObject *
+bppy_get_thread (PyObject *self, void *closure)
+{
+ breakpoint_object *self_bp = (breakpoint_object *) self;
+
+ BPPY_REQUIRE_VALID (self_bp);
+
+ if (self_bp->bp->thread == -1)
+ Py_RETURN_NONE;
+
+ return PyInt_FromLong (self_bp->bp->thread);
+}
+
+/* Python function to get the breakpoint's hit count. */
+static PyObject *
+bppy_get_hit_count (PyObject *self, void *closure)
+{
+ breakpoint_object *self_bp = (breakpoint_object *) self;
+
+ BPPY_REQUIRE_VALID (self_bp);
+
+ return PyInt_FromLong (self_bp->bp->hit_count);
+}
+
+/* Python function to get the breakpoint's ignore count. */
+static PyObject *
+bppy_get_ignore_count (PyObject *self, void *closure)
+{
+ breakpoint_object *self_bp = (breakpoint_object *) self;
+
+ BPPY_REQUIRE_VALID (self_bp);
+
+ return PyInt_FromLong (self_bp->bp->ignore_count);
+}
+
+/* Python function to create a new breakpoint. */
+static PyObject *
+bppy_new (PyTypeObject *subtype, PyObject *args, PyObject *kwargs)
+{
+ PyObject *result;
+ char *spec;
+ volatile struct gdb_exception except;
+
+ /* FIXME: allow condition, thread, temporary, ... ? */
+ if (! PyArg_ParseTuple (args, "s", &spec))
+ return NULL;
+ result = subtype->tp_alloc (subtype, 0);
+ if (! result)
+ return NULL;
+ bppy_pending_object = (breakpoint_object *) result;
+ bppy_pending_object->number = -1;
+ bppy_pending_object->bp = NULL;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ set_breakpoint (spec, NULL, 0, 0, -1, 0, AUTO_BOOLEAN_TRUE,
+ 1 /*enabled*/);
+ }
+ if (except.reason < 0)
+ {
+ subtype->tp_free (result);
+ return PyErr_Format (except.reason == RETURN_QUIT
+ ? PyExc_KeyboardInterrupt : PyExc_RuntimeError,
+ "%s", except.message);
+ }
+
+ BPPY_REQUIRE_VALID ((breakpoint_object *) result);
+ return result;
+}
+
+
+
+/* Static function to return a tuple holding all breakpoints. */
+
+PyObject *
+gdbpy_breakpoints (PyObject *self, PyObject *args)
+{
+ PyObject *result;
+
+ if (bppy_live == 0)
+ Py_RETURN_NONE;
+
+ result = PyTuple_New (bppy_live);
+ if (result)
+ {
+ int i, out = 0;
+ for (i = 0; out < bppy_live; ++i)
+ {
+ if (! bppy_breakpoints[i])
+ continue;
+ Py_INCREF (bppy_breakpoints[i]);
+ PyTuple_SetItem (result, out, (PyObject *) bppy_breakpoints[i]);
+ ++out;
+ }
+ }
+ return result;
+}
+
+
+
+/* Event callback functions. */
+
+/* Callback that is used when a breakpoint is created. This function
+ will create a new Python breakpoint object. */
+static void
+gdbpy_breakpoint_created (int num)
+{
+ breakpoint_object *newbp;
+ struct breakpoint *bp;
+ PyGILState_STATE state;
+
+ if (num < 0)
+ return;
+
+ for (bp = breakpoint_chain; bp; bp = bp->next)
+ if (bp->number == num)
+ break;
+ if (! bp)
+ return;
+
+ if (num >= bppy_slots)
+ {
+ int old = bppy_slots;
+ bppy_slots = bppy_slots * 2 + 10;
+ bppy_breakpoints
+ = (breakpoint_object **) xrealloc (bppy_breakpoints,
+ (bppy_slots
+ * sizeof (breakpoint_object *)));
+ memset (&bppy_breakpoints[old], 0,
+ (bppy_slots - old) * sizeof (PyObject *));
+ }
+
+ ++bppy_live;
+
+ state = PyGILState_Ensure ();
+
+ if (bppy_pending_object)
+ {
+ newbp = bppy_pending_object;
+ bppy_pending_object = NULL;
+ }
+ else
+ newbp = PyObject_New (breakpoint_object, &breakpoint_object_type);
+ if (newbp)
+ {
+ PyObject *hookfn;
+
+ newbp->number = num;
+ newbp->bp = bp;
+ bppy_breakpoints[num] = newbp;
+
+ hookfn = gdbpy_get_hook_function ("new_breakpoint");
+ if (hookfn)
+ {
+ PyObject *result;
+ result = PyObject_CallFunctionObjArgs (hookfn, newbp, NULL);
+ if (result)
+ {
+ Py_DECREF (result);
+ }
+ Py_DECREF (hookfn);
+ }
+ }
+
+ /* Just ignore errors here. */
+ PyErr_Clear ();
+
+ PyGILState_Release (state);
+}
+
+/* Callback that is used when a breakpoint is deleted. This will
+ invalidate the corresponding Python object. */
+static void
+gdbpy_breakpoint_deleted (int num)
+{
+ PyGILState_STATE state;
+
+ state = PyGILState_Ensure ();
+ if (BPPY_VALID_P (num))
+ {
+ bppy_breakpoints[num]->bp = NULL;
+ Py_DECREF (bppy_breakpoints[num]);
+ bppy_breakpoints[num] = NULL;
+ --bppy_live;
+ }
+ PyGILState_Release (state);
+}
+
+
+
+/* Initialize the Python breakpoint code. */
+void
+gdbpy_initialize_breakpoints (void)
+{
+ breakpoint_object_type.tp_new = bppy_new;
+ if (PyType_Ready (&breakpoint_object_type) < 0)
+ return;
+
+ Py_INCREF (&breakpoint_object_type);
+ PyModule_AddObject (gdb_module, "Breakpoint",
+ (PyObject *) &breakpoint_object_type);
+
+ observer_attach_breakpoint_created (gdbpy_breakpoint_created);
+ observer_attach_breakpoint_deleted (gdbpy_breakpoint_deleted);
+}
+
+
+
+static PyGetSetDef breakpoint_object_getset[] = {
+ { "enabled", bppy_get_enabled, bppy_set_enabled,
+ "Boolean telling whether the breakpoint is enabled.", NULL },
+ { "silent", bppy_get_silent, bppy_set_silent,
+ "Boolean telling whether the breakpoint is silent.", NULL },
+ { "thread", bppy_get_thread, bppy_set_thread,
+ "Thread ID for the breakpoint.\n\
+If the value is a thread ID (integer), then this is a thread-specific breakpoint.\n\
+If the value is None, then this breakpoint not thread-specific.\n\
+No other type of value can be used.", NULL },
+ { "ignore_count", bppy_get_ignore_count, bppy_set_ignore_count,
+ "Number of times this breakpoint should be automatically continued.",
+ NULL },
+ { "number", bppy_get_number, NULL,
+ "Breakpoint's number assigned by GDB.", NULL },
+ { "hit_count", bppy_get_hit_count, bppy_set_hit_count,
+ "Number of times the breakpoint has been hit.\n\
+Can be set to zero to clear the count. No other value is valid\n\
+when setting this property.", NULL },
+ { "location", bppy_get_location, NULL,
+ "Location of the breakpoint, as specified by the user.", NULL},
+ { "condition", bppy_get_condition, bppy_set_condition,
+ "Condition of the breakpoint, as specified by the user,\
+or None if no condition set."},
+ { "commands", bppy_get_commands, NULL,
+ "Commands of the breakpoint, as specified by the user."},
+ { NULL } /* Sentinel. */
+};
+
+static PyMethodDef breakpoint_object_methods[] =
+{
+ { "is_valid", bppy_is_valid, METH_NOARGS,
+ "Return true if this breakpoint is valid, false if not." },
+ { NULL } /* Sentinel. */
+};
+
+static PyTypeObject breakpoint_object_type =
+{
+ PyObject_HEAD_INIT (NULL)
+ 0, /*ob_size*/
+ "gdb.Breakpoint", /*tp_name*/
+ sizeof (breakpoint_object), /*tp_basicsize*/
+ 0, /*tp_itemsize*/
+ 0, /*tp_dealloc*/
+ 0, /*tp_print*/
+ 0, /*tp_getattr*/
+ 0, /*tp_setattr*/
+ 0, /*tp_compare*/
+ 0, /*tp_repr*/
+ 0, /*tp_as_number*/
+ 0, /*tp_as_sequence*/
+ 0, /*tp_as_mapping*/
+ 0, /*tp_hash */
+ 0, /*tp_call*/
+ 0, /*tp_str*/
+ 0, /*tp_getattro*/
+ 0, /*tp_setattro*/
+ 0, /*tp_as_buffer*/
+ Py_TPFLAGS_DEFAULT, /*tp_flags*/
+ "GDB breakpoint object", /* tp_doc */
+ 0, /* tp_traverse */
+ 0, /* tp_clear */
+ 0, /* tp_richcompare */
+ 0, /* tp_weaklistoffset */
+ 0, /* tp_iter */
+ 0, /* tp_iternext */
+ breakpoint_object_methods, /* tp_methods */
+ 0, /* tp_members */
+ breakpoint_object_getset /* tp_getset */
+};
diff --git a/gdb/python/python-cmd.c b/gdb/python/python-cmd.c
index 36cde34..e6e3ac0 100644
--- a/gdb/python/python-cmd.c
+++ b/gdb/python/python-cmd.c
@@ -47,8 +47,7 @@ static struct cmdpy_completer completers[] =
#define N_COMPLETERS (sizeof (completers) / sizeof (completers[0]))
-/* A gdb command. For the time being only ordinary commands (not
- set/show commands) are allowed. */
+/* A gdb command. */
struct cmdpy_object
{
PyObject_HEAD
@@ -68,7 +67,6 @@ typedef struct cmdpy_object cmdpy_object;
static PyTypeObject cmdpy_object_type;
-
/* Constants used by this module. */
static PyObject *invoke_cst;
static PyObject *complete_cst;
@@ -265,10 +263,13 @@ cmdpy_completer (struct cmd_list_element *command, char *text, char *word)
*BASE_LIST is set to the final prefix command's list of
*sub-commands.
+ START_LIST is the list in which the search starts.
+
This function returns the xmalloc()d name of the new command. On
error sets the Python error and returns NULL. */
-static char *
-parse_command_name (char *text, struct cmd_list_element ***base_list)
+char *
+gdbpy_parse_command_name (char *text, struct cmd_list_element ***base_list,
+ struct cmd_list_element **start_list)
{
struct cmd_list_element *elt;
int len = strlen (text);
@@ -301,7 +302,7 @@ parse_command_name (char *text, struct cmd_list_element ***base_list)
;
if (i < 0)
{
- *base_list = &cmdlist;
+ *base_list = start_list;
return result;
}
@@ -310,7 +311,7 @@ parse_command_name (char *text, struct cmd_list_element ***base_list)
prefix_text[i + 1] = '\0';
text = prefix_text;
- elt = lookup_cmd_1 (&text, cmdlist, NULL, 1);
+ elt = lookup_cmd_1 (&text, *start_list, NULL, 1);
if (!elt || elt == (struct cmd_list_element *) -1)
{
PyErr_Format (PyExc_RuntimeError, _("could not find command prefix %s"),
@@ -336,16 +337,16 @@ parse_command_name (char *text, struct cmd_list_element ***base_list)
/* Object initializer; sets up gdb-side structures for command.
- Use: __init__(NAME, CMDCLASS, [COMPLETERCLASS, [PREFIX]]).
+ Use: __init__(NAME, COMMAND_CLASS, [COMPLETER_CLASS, [PREFIX]]).
NAME is the name of the command. It may consist of multiple words,
in which case the final word is the name of the new command, and
earlier words must be prefix commands.
- CMDCLASS is the kind of command. It should be one of the COMMAND_*
+ COMMAND_CLASS is the kind of command. It should be one of the COMMAND_*
constants defined in the gdb module.
- COMPLETERCLASS is the kind of completer. If not given, the
+ COMPLETER_CLASS is the kind of completer. If not given, the
"complete" method will be used. Otherwise, it should be one of the
COMPLETE_* constants defined in the gdb module.
@@ -356,7 +357,7 @@ parse_command_name (char *text, struct cmd_list_element ***base_list)
*/
static int
-cmdpy_init (PyObject *self, PyObject *args, PyObject *kwds)
+cmdpy_init (PyObject *self, PyObject *args, PyObject *kw)
{
cmdpy_object *obj = (cmdpy_object *) self;
char *name;
@@ -366,6 +367,8 @@ cmdpy_init (PyObject *self, PyObject *args, PyObject *kwds)
volatile struct gdb_exception except;
struct cmd_list_element **cmd_list;
char *cmd_name, *pfx_name;
+ static char *keywords[] = { "name", "command_class", "completer_class",
+ "prefix", NULL };
PyObject *is_prefix = NULL;
int cmp;
@@ -378,7 +381,7 @@ cmdpy_init (PyObject *self, PyObject *args, PyObject *kwds)
return -1;
}
- if (! PyArg_ParseTuple (args, "si|iO", &name, &cmdtype,
+ if (! PyArg_ParseTupleAndKeywords (args, kw, "si|iO", keywords, &name, &cmdtype,
&completetype, &is_prefix))
return -1;
@@ -399,7 +402,7 @@ cmdpy_init (PyObject *self, PyObject *args, PyObject *kwds)
return -1;
}
- cmd_name = parse_command_name (name, &cmd_list);
+ cmd_name = gdbpy_parse_command_name (name, &cmd_list, &cmdlist);
if (! cmd_name)
return -1;
diff --git a/gdb/python/python-frame.c b/gdb/python/python-frame.c
new file mode 100644
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
index 0000000..c257ac3
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- /dev/null
+++ b/gdb/python/python-frame.c
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -0,0 +1,686 @@
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+/* Python interface to stack frames
+
+ Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+
+ This file is part of GDB.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include "defs.h"
+#include "charset.h"
+#include "block.h"
+#include "frame.h"
+#include "exceptions.h"
+#include "symtab.h"
+#include "stack.h"
+#include "value.h"
+#include "python-internal.h"
+
+typedef struct {
+ PyObject_HEAD
+ struct frame_id frame_id;
+ struct gdbarch *gdbarch;
+
+ /* Marks that the FRAME_ID member actually holds the ID of the frame next
+ to this, and not this frames' ID itself. This is a hack to permit Python
+ frame objects which represent invalid frames (i.e., the last frame_info
+ in a corrupt stack). The problem arises from the fact that this code
+ relies on FRAME_ID to uniquely identify a frame, which is not always true
+ for the last "frame" in a corrupt stack (it can have a null ID, or the same
+ ID as the previous frame). Whenever get_prev_frame returns NULL, we
+ record the frame_id of the next frame and set FRAME_ID_IS_NEXT to 1. */
+ int frame_id_is_next;
+} frame_object;
+
+/* Require a valid frame. This must be called inside a TRY_CATCH, or
+ another context in which a gdb exception is allowed. */
+#define FRAPY_REQUIRE_VALID(frame_obj, frame) \
+ do { \
+ frame = frame_object_to_frame_info (frame_obj); \
+ if (frame == NULL) \
+ error ("Frame is invalid."); \
+ } while (0)
+
+static PyTypeObject frame_object_type;
+
+/* Returns the frame_info object corresponding to the given Python Frame
+ object. If the frame doesn't exist anymore (the frame id doesn't
+ correspond to any frame in the inferior), returns NULL. */
+
+static struct frame_info *
+frame_object_to_frame_info (frame_object *frame_obj)
+{
+ struct frame_info *frame;
+
+ frame = frame_find_by_id (frame_obj->frame_id);
+ if (frame == NULL)
+ return NULL;
+
+ if (frame_obj->frame_id_is_next)
+ frame = get_prev_frame (frame);
+
+ return frame;
+}
+
+/* Called by the Python interpreter to obtain string representation
+ of the object. */
+
+static PyObject *
+frapy_str (PyObject *self)
+{
+ char *s;
+ long len;
+ PyObject *result;
+ struct ui_file *strfile;
+
+ strfile = mem_fileopen ();
+ fprint_frame_id (strfile, ((frame_object *) self)->frame_id);
+ s = ui_file_xstrdup (strfile, &len);
+ result = PyString_FromString (s);
+ xfree (s);
+
+ return result;
+}
+
+/* Implementation of gdb.Frame.is_valid (self) -> Boolean.
+ Returns True if the frame corresponding to the frame_id of this
+ object still exists in the inferior. */
+
+static PyObject *
+frapy_is_valid (PyObject *self, PyObject *args)
+{
+ struct frame_info *frame;
+
+ frame = frame_object_to_frame_info ((frame_object *) self);
+ if (frame == NULL)
+ Py_RETURN_FALSE;
+
+ Py_RETURN_TRUE;
+}
+
+/* Implementation of gdb.Frame.equals (self, other) -> Boolean. */
+
+static PyObject *
+frapy_equal_p (PyObject *self, PyObject *args)
+{
+ int equalp = 0; /* Initialize to appease gcc warning. */
+ frame_object *self_frame = (frame_object *) self;
+ frame_object *other;
+ volatile struct gdb_exception except;
+
+ if (!PyArg_ParseTuple (args, "O!", &frame_object_type, &other))
+ return NULL;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ equalp = frame_id_eq (self_frame->frame_id, other->frame_id);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ if (equalp)
+ Py_RETURN_TRUE;
+
+ Py_RETURN_FALSE;
+}
+
+/* Implementation of gdb.Frame.name (self) -> String.
+ Returns the name of the function corresponding to this frame. */
+
+static PyObject *
+frapy_name (PyObject *self, PyObject *args)
+{
+ struct frame_info *frame;
+ char *name;
+ enum language lang;
+ PyObject *result;
+ volatile struct gdb_exception except;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
+
+ find_frame_funname (frame, &name, &lang);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ if (name)
+ result = target_string_to_unicode (name, strlen (name));
+ else
+ {
+ result = Py_None;
+ Py_INCREF (Py_None);
+ }
+
+ return result;
+}
+
+/* Implementation of gdb.Frame.type (self) -> Integer.
+ Returns the frame type, namely one of the gdb.*_FRAME constants. */
+
+static PyObject *
+frapy_type (PyObject *self, PyObject *args)
+{
+ struct frame_info *frame;
+ enum frame_type type = NORMAL_FRAME;/* Initialize to appease gcc warning. */
+ volatile struct gdb_exception except;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
+
+ type = get_frame_type (frame);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ return PyInt_FromLong (type);
+}
+
+/* Implementation of gdb.Frame.unwind_stop_reason (self) -> Integer.
+ Returns one of the gdb.FRAME_UNWIND_* constants. */
+
+static PyObject *
+frapy_unwind_stop_reason (PyObject *self, PyObject *args)
+{
+ struct frame_info *frame = NULL; /* Initialize to appease gcc warning. */
+ volatile struct gdb_exception except;
+ enum unwind_stop_reason stop_reason;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ stop_reason = get_frame_unwind_stop_reason (frame);
+
+ return PyInt_FromLong (stop_reason);
+}
+
+/* Implementation of gdb.Frame.pc (self) -> Long.
+ Returns the frame's resume address. */
+
+static PyObject *
+frapy_pc (PyObject *self, PyObject *args)
+{
+ CORE_ADDR pc = 0; /* Initialize to appease gcc warning. */
+ struct frame_info *frame;
+ volatile struct gdb_exception except;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
+
+ pc = get_frame_pc (frame);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ return PyLong_FromUnsignedLongLong (pc);
+}
+
+/* Implementation of gdb.Frame.block (self) -> gdb.Block.
+ Returns the frame's code block. */
+
+static PyObject *
+frapy_block (PyObject *self, PyObject *args)
+{
+ struct frame_info *frame;
+ struct block *block = NULL;
+ volatile struct gdb_exception except;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
+
+ block = block_for_pc (get_frame_address_in_block (frame));
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ if (block)
+ return block_to_block_object (block);
+
+ Py_RETURN_NONE;
+}
+
+
+/* Implementation of gdb.Frame.addr_in_block (self) -> Long.
+ Returns an address which falls within the frame's code block. */
+
+static PyObject *
+frapy_addr_in_block (PyObject *self, PyObject *args)
+{
+ CORE_ADDR pc = 0; /* Initialize to appease gcc warning. */
+ struct frame_info *frame;
+ volatile struct gdb_exception except;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
+
+ pc = get_frame_address_in_block (frame);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ return PyLong_FromUnsignedLongLong (pc);
+}
+
+/* Convert a frame_info struct to a Python Frame object.
+ Sets a Python exception and returns NULL on error. */
+
+static frame_object *
+frame_info_to_frame_object (struct frame_info *frame)
+{
+ frame_object *frame_obj;
+
+ frame_obj = PyObject_New (frame_object, &frame_object_type);
+ if (frame_obj == NULL)
+ {
+ PyErr_SetString (PyExc_MemoryError, "Could not allocate frame object.");
+ return NULL;
+ }
+
+ /* Try to get the previous frame, to determine if this is the last frame
+ in a corrupt stack. If so, we need to store the frame_id of the next
+ frame and not of this one (which is possibly invalid). */
+ if (get_prev_frame (frame) == NULL
+ && get_frame_unwind_stop_reason (frame) != UNWIND_NO_REASON
+ && get_next_frame (frame) != NULL)
+ {
+ frame_obj->frame_id = get_frame_id (get_next_frame (frame));
+ frame_obj->frame_id_is_next = 1;
+ }
+ else
+ {
+ frame_obj->frame_id = get_frame_id (frame);
+ frame_obj->frame_id_is_next = 0;
+ }
+
+ frame_obj->gdbarch = get_frame_arch (frame);
+
+ return frame_obj;
+}
+
+/* Implementation of gdb.Frame.older (self) -> gdb.Frame.
+ Returns the frame immediately older (outer) to this frame, or None if
+ there isn't one. */
+
+static PyObject *
+frapy_older (PyObject *self, PyObject *args)
+{
+ struct frame_info *frame, *prev;
+ volatile struct gdb_exception except;
+ PyObject *prev_obj = NULL; /* Initialize to appease gcc warning. */
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
+
+ prev = get_prev_frame (frame);
+ if (prev)
+ prev_obj = (PyObject *) frame_info_to_frame_object (prev);
+ else
+ {
+ Py_INCREF (Py_None);
+ prev_obj = Py_None;
+ }
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ return prev_obj;
+}
+
+/* Implementation of gdb.Frame.newer (self) -> gdb.Frame.
+ Returns the frame immediately newer (inner) to this frame, or None if
+ there isn't one. */
+
+static PyObject *
+frapy_newer (PyObject *self, PyObject *args)
+{
+ struct frame_info *frame, *next;
+ volatile struct gdb_exception except;
+ PyObject *next_obj = NULL; /* Initialize to appease gcc warning. */
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
+
+ next = get_next_frame (frame);
+ if (next)
+ next_obj = (PyObject *) frame_info_to_frame_object (next);
+ else
+ {
+ Py_INCREF (Py_None);
+ next_obj = Py_None;
+ }
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ return next_obj;
+}
+
+/* Implementation of gdb.Frame.find_sal (self) -> gdb.Symtab_and_line.
+ Returns the frame's symtab and line. */
+
+static PyObject *
+frapy_find_sal (PyObject *self, PyObject *args)
+{
+ struct frame_info *frame;
+ struct symtab_and_line sal;
+ volatile struct gdb_exception except;
+ PyObject *sal_obj = NULL; /* Initialize to appease gcc warning. */
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
+
+ find_frame_sal (frame, &sal);
+ sal_obj = symtab_and_line_to_sal_object (sal);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ return sal_obj;
+}
+
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+/* Implementation of gdb.Frame.read_var (self, variable) -> gdb.Value.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ Returns the value of the given variable in this frame. The argument can be
+ either a gdb.Symbol or a string. Returns None if GDB can't find the
+ specified variable. */
+
+static PyObject *
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+frapy_read_var (PyObject *self, PyObject *args)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+{
+ struct frame_info *frame;
+ PyObject *sym_obj;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ struct symbol *var = NULL; /* gcc-4.3.2 false warning. */
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ struct value *val = NULL;
+ volatile struct gdb_exception except;
+
+ if (!PyArg_ParseTuple (args, "O", &sym_obj))
+ return NULL;
+
+ if (PyObject_TypeCheck (sym_obj, &symbol_object_type))
+ var = symbol_object_to_symbol (sym_obj);
+ else if (gdbpy_is_string (sym_obj))
+ {
+ char *var_name;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ struct block *block = NULL;
+ struct cleanup *cleanup;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ volatile struct gdb_exception except;
+
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ var_name = python_string_to_target_string (sym_obj);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ if (!var_name)
+ return NULL;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ cleanup = make_cleanup (xfree, var_name);
+
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
+
+ block = block_for_pc (get_frame_address_in_block (frame));
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ var = lookup_symbol (var_name, block, VAR_DOMAIN, NULL);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+
+ if (!var)
+ {
+ PyErr_Format (PyExc_ValueError,
+ _("variable '%s' not found"), var_name);
+ do_cleanups (cleanup);
+
+ return NULL;
+ }
+
+ do_cleanups (cleanup);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ }
+ else
+ {
+ PyErr_SetString (PyExc_TypeError,
+ _("argument must be a symbol or string"));
+ return NULL;
+ }
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
+
+ val = read_var_value (var, frame);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ if (val)
+ return value_to_value_object (val);
+
+ Py_RETURN_NONE;
+}
+
+/* Implementation of gdb.frames () -> (gdb.Frame, ...).
+ Returns a tuple of all frame objects. */
+
+PyObject *
+gdbpy_frames (PyObject *self, PyObject *args)
+{
+ int result = 0;
+ struct frame_info *frame;
+ frame_object *frame_obj;
+ PyObject *list, *tuple;
+ volatile struct gdb_exception except;
+
+ list = PyList_New (0);
+ if (list == NULL)
+ {
+ PyErr_SetString (PyExc_MemoryError, "Could not allocate frames list.");
+ return NULL;
+ }
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ for (frame = get_current_frame (); frame; frame = get_prev_frame (frame))
+ {
+ frame_obj = frame_info_to_frame_object (frame);
+ if (frame_obj == NULL)
+ {
+ Py_DECREF (list);
+ list = NULL;
+ break;
+ }
+
+ PyList_Append (list, (PyObject *) frame_obj);
+ }
+ }
+ if (except.reason < 0)
+ {
+ Py_DECREF (list);
+ return PyErr_Format (except.reason == RETURN_QUIT
+ ? PyExc_KeyboardInterrupt : PyExc_RuntimeError,
+ "%s", except.message);
+ }
+
+ if (list)
+ {
+ tuple = PyList_AsTuple (list);
+ Py_DECREF (list);
+ }
+ else
+ tuple = NULL;
+
+ return tuple;
+}
+
+/* Implementation of gdb.newest_frame () -> gdb.Frame.
+ Returns the newest frame object. */
+
+PyObject *
+gdbpy_newest_frame (PyObject *self, PyObject *args)
+{
+ struct frame_info *frame;
+ frame_object *frame_obj = NULL; /* Initialize to appease gcc warning. */
+ volatile struct gdb_exception except;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ frame = get_current_frame ();
+ frame_obj = frame_info_to_frame_object (frame);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ return (PyObject *) frame_obj;
+}
+
+/* Implementation of gdb.selected_frame () -> gdb.Frame.
+ Returns the selected frame object. */
+
+PyObject *
+gdbpy_selected_frame (PyObject *self, PyObject *args)
+{
+ struct frame_info *frame;
+ frame_object *frame_obj = NULL; /* Initialize to appease gcc warning. */
+ volatile struct gdb_exception except;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ frame = get_selected_frame ("No frame is currently selected.");
+ frame_obj = frame_info_to_frame_object (frame);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ return (PyObject *) frame_obj;
+}
+
+/* Implementation of gdb.stop_reason_string (Integer) -> String.
+ Return a string explaining the unwind stop reason. */
+
+PyObject *
+gdbpy_frame_stop_reason_string (PyObject *self, PyObject *args)
+{
+ int reason;
+ const char *str;
+
+ if (!PyArg_ParseTuple (args, "i", &reason))
+ return NULL;
+
+ if (reason < 0 || reason > UNWIND_NO_SAVED_PC)
+ {
+ PyErr_SetString (PyExc_ValueError, "Invalid frame stop reason.");
+ return NULL;
+ }
+
+ str = frame_stop_reason_string (reason);
+ return PyUnicode_Decode (str, strlen (str), host_charset (), NULL);
+}
+
+/* Sets up the Frame API in the gdb module. */
+
+void
+gdbpy_initialize_frames (void)
+{
+ frame_object_type.tp_new = PyType_GenericNew;
+ if (PyType_Ready (&frame_object_type) < 0)
+ return;
+
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ /* Note: These would probably be best exposed as class attributes of Frame,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ but I don't know how to do it except by messing with the type's dictionary.
+ That seems too messy. */
+ PyModule_AddIntConstant (gdb_module, "NORMAL_FRAME", NORMAL_FRAME);
+ PyModule_AddIntConstant (gdb_module, "DUMMY_FRAME", DUMMY_FRAME);
+ PyModule_AddIntConstant (gdb_module, "SIGTRAMP_FRAME", SIGTRAMP_FRAME);
+ PyModule_AddIntConstant (gdb_module, "SENTINEL_FRAME", SENTINEL_FRAME);
+ PyModule_AddIntConstant (gdb_module,
+ "FRAME_UNWIND_NO_REASON", UNWIND_NO_REASON);
+ PyModule_AddIntConstant (gdb_module,
+ "FRAME_UNWIND_NULL_ID", UNWIND_NULL_ID);
+ PyModule_AddIntConstant (gdb_module,
+ "FRAME_UNWIND_FIRST_ERROR", UNWIND_FIRST_ERROR);
+ PyModule_AddIntConstant (gdb_module,
+ "FRAME_UNWIND_INNER_ID", UNWIND_INNER_ID);
+ PyModule_AddIntConstant (gdb_module,
+ "FRAME_UNWIND_SAME_ID", UNWIND_SAME_ID);
+ PyModule_AddIntConstant (gdb_module,
+ "FRAME_UNWIND_NO_SAVED_PC", UNWIND_NO_SAVED_PC);
+
+ Py_INCREF (&frame_object_type);
+ PyModule_AddObject (gdb_module, "Frame", (PyObject *) &frame_object_type);
+}
+
+
+
+static PyMethodDef frame_object_methods[] = {
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ { "equals", frapy_equal_p, METH_VARARGS,
+ "equals (frame) -> Boolean.\n\
+Compare this frame to the given frame." },
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ { "is_valid", frapy_is_valid, METH_NOARGS,
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ "is_valid () -> Boolean.\n\
+Return true if this frame is valid, false if not." },
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ { "name", frapy_name, METH_NOARGS,
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ "name () -> String.\n\
+Return the function name of the frame, or None if it can't be determined." },
+ { "type", frapy_type, METH_NOARGS,
+ "type () -> Integer.\n\
+Return the type of the frame." },
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ { "unwind_stop_reason", frapy_unwind_stop_reason, METH_NOARGS,
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ "unwind_stop_reason () -> Integer.\n\
+Return the reason why it's not possible to find frames older than this." },
+ { "pc", frapy_pc, METH_NOARGS,
+ "pc () -> Long.\n\
+Return the frame's resume address." },
+ { "block", frapy_block, METH_NOARGS,
+ "block () -> gdb.Block.\n\
+Return the frame's code block." },
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ { "addr_in_block", frapy_addr_in_block, METH_NOARGS,
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ "addr_in_block () -> Long.\n\
+Return an address which falls within the frame's code block." },
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ { "older", frapy_older, METH_NOARGS,
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ "older () -> gdb.Frame.\n\
+Return the frame immediately older (outer) to this frame." },
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ { "newer", frapy_newer, METH_NOARGS,
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ "newer () -> gdb.Frame.\n\
+Return the frame immetidaely newer (inner) to this frame." },
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ { "find_sal", frapy_find_sal, METH_NOARGS,
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ "find_sal () -> gdb.Symtab_and_line.\n\
+Return the frame's symtab and line." },
+ { "read_var", frapy_read_var, METH_VARARGS,
+ "read_var (variable) -> gdb.Value.\n\
+Return the value of the variable in this frame." },
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ {NULL} /* Sentinel */
+};
+
+static PyTypeObject frame_object_type = {
+ PyObject_HEAD_INIT (NULL)
+ 0, /* ob_size */
+ "gdb.Frame", /* tp_name */
+ sizeof (frame_object), /* tp_basicsize */
+ 0, /* tp_itemsize */
+ 0, /* tp_dealloc */
+ 0, /* tp_print */
+ 0, /* tp_getattr */
+ 0, /* tp_setattr */
+ 0, /* tp_compare */
+ 0, /* tp_repr */
+ 0, /* tp_as_number */
+ 0, /* tp_as_sequence */
+ 0, /* tp_as_mapping */
+ 0, /* tp_hash */
+ 0, /* tp_call */
+ frapy_str, /* tp_str */
+ 0, /* tp_getattro */
+ 0, /* tp_setattro */
+ 0, /* tp_as_buffer */
+ Py_TPFLAGS_DEFAULT, /* tp_flags */
+ "GDB frame object", /* tp_doc */
+ 0, /* tp_traverse */
+ 0, /* tp_clear */
+ 0, /* tp_richcompare */
+ 0, /* tp_weaklistoffset */
+ 0, /* tp_iter */
+ 0, /* tp_iternext */
+ frame_object_methods /* tp_methods */
+};
diff --git a/gdb/python/python-function.c b/gdb/python/python-function.c
new file mode 100644
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
index 0000000..4a85a33
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- /dev/null
+++ b/gdb/python/python-function.c
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -0,0 +1,180 @@
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+/* Convenience functions implemented in Python.
+
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ Copyright (C) 2008, 2009 Free Software Foundation, Inc.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+ This file is part of GDB.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+
+#include "defs.h"
+#include "value.h"
+#include "exceptions.h"
+#include "python-internal.h"
+#include "charset.h"
+#include "gdbcmd.h"
+#include "cli/cli-decode.h"
+#include "completer.h"
+#include "expression.h"
+
+static PyTypeObject fnpy_object_type;
+
+
+
+static PyObject *
+convert_values_to_python (int argc, struct value **argv)
+{
+ int i;
+ PyObject *result = PyTuple_New (argc);
+ for (i = 0; i < argc; ++i)
+ {
+ PyObject *elt = value_to_value_object (argv[i]);
+ if (! elt)
+ {
+ Py_DECREF (result);
+ error (_("Could not convert value to Python object."));
+ }
+ PyTuple_SetItem (result, i, elt);
+ }
+ return result;
+}
+
+/* Call a Python function object's invoke method. */
+
+static struct value *
+fnpy_call (void *cookie, int argc, struct value **argv)
+{
+ int i;
+ struct value *value = NULL;
+ PyObject *result, *callable, *args;
+ struct cleanup *cleanup;
+ PyGILState_STATE state;
+
+ state = PyGILState_Ensure ();
+ cleanup = make_cleanup_py_restore_gil (&state);
+
+ args = convert_values_to_python (argc, argv);
+
+ callable = PyObject_GetAttrString ((PyObject *) cookie, "invoke");
+ if (! callable)
+ {
+ Py_DECREF (args);
+ error (_("No method named 'invoke' in object."));
+ }
+
+ result = PyObject_Call (callable, args, NULL);
+ Py_DECREF (callable);
+ Py_DECREF (args);
+
+ if (!result)
+ {
+ gdbpy_print_stack ();
+ error (_("Error while executing Python code."));
+ }
+
+ value = convert_value_from_python (result);
+ if (value == NULL)
+ {
+ Py_DECREF (result);
+ gdbpy_print_stack ();
+ error (_("Error while executing Python code."));
+ }
+
+ Py_DECREF (result);
+ do_cleanups (cleanup);
+
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ return value;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+}
+
+/* Initializer for a Function object. It takes one argument, the name
+ of the function. */
+
+static int
+fnpy_init (PyObject *self, PyObject *args, PyObject *kwds)
+{
+ char *name, *docstring = NULL;
+ if (! PyArg_ParseTuple (args, "s", &name))
+ return -1;
+ Py_INCREF (self);
+
+ if (PyObject_HasAttrString (self, "__doc__"))
+ {
+ PyObject *ds_obj = PyObject_GetAttrString (self, "__doc__");
+ if (ds_obj && gdbpy_is_string (ds_obj))
+ /* Nothing ever frees this. */
+ docstring = python_string_to_host_string (ds_obj);
+ }
+ if (! docstring)
+ docstring = _("This function is not documented.");
+
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ add_internal_function (name, docstring, fnpy_call, self);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ return 0;
+}
+
+/* Initialize internal function support. */
+
+void
+gdbpy_initialize_functions (void)
+{
+ if (PyType_Ready (&fnpy_object_type) < 0)
+ return;
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ Py_INCREF (&fnpy_object_type);
+ PyModule_AddObject (gdb_module, "Function", (PyObject *) &fnpy_object_type);
+}
+
+
+
+static PyTypeObject fnpy_object_type =
+{
+ PyObject_HEAD_INIT (NULL)
+ 0, /*ob_size*/
+ "gdb.Function", /*tp_name*/
+ sizeof (PyObject), /*tp_basicsize*/
+ 0, /*tp_itemsize*/
+ 0, /*tp_dealloc*/
+ 0, /*tp_print*/
+ 0, /*tp_getattr*/
+ 0, /*tp_setattr*/
+ 0, /*tp_compare*/
+ 0, /*tp_repr*/
+ 0, /*tp_as_number*/
+ 0, /*tp_as_sequence*/
+ 0, /*tp_as_mapping*/
+ 0, /*tp_hash */
+ 0, /*tp_call*/
+ 0, /*tp_str*/
+ 0, /*tp_getattro*/
+ 0, /*tp_setattro*/
+ 0, /*tp_as_buffer*/
+ Py_TPFLAGS_DEFAULT | Py_TPFLAGS_BASETYPE, /*tp_flags*/
+ "GDB function object", /* tp_doc */
+ 0, /* tp_traverse */
+ 0, /* tp_clear */
+ 0, /* tp_richcompare */
+ 0, /* tp_weaklistoffset */
+ 0, /* tp_iter */
+ 0, /* tp_iternext */
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ 0, /* tp_methods */
+ 0, /* tp_members */
+ 0, /* tp_getset */
+ 0, /* tp_base */
+ 0, /* tp_dict */
+ 0, /* tp_descr_get */
+ 0, /* tp_descr_set */
+ 0, /* tp_dictoffset */
+ fnpy_init, /* tp_init */
+ 0, /* tp_alloc */
+ PyType_GenericNew /* tp_new */
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+};
diff --git a/gdb/python/python-hooks.c b/gdb/python/python-hooks.c
new file mode 100644
index 0000000..a3140bc
--- /dev/null
+++ b/gdb/python/python-hooks.c
@@ -0,0 +1,50 @@
+/* Notifications from gdb to Python
+
+ Copyright (C) 2008 Free Software Foundation, Inc.
+
+ This file is part of GDB.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include "defs.h"
+#include "cli/cli-decode.h"
+#include "charset.h"
+#include "python.h"
+#include "python-internal.h"
+#include "observer.h"
+
+PyObject *
+gdbpy_get_hook_function (const char *name)
+{
+ PyObject *hooks;
+ PyObject *result;
+
+ if (! PyObject_HasAttrString (gdb_module, "hooks"))
+ return NULL;
+ hooks = PyObject_GetAttrString (gdb_module, "hooks");
+ if (! hooks)
+ return NULL;
+ /* The cast is because the Python function doesn't declare const argument.
+ This is a problem in Python version 2.4, but not in 2.5. */
+ if (! PyObject_HasAttrString (hooks, (char *) name))
+ {
+ Py_DECREF (hooks);
+ return NULL;
+ }
+ /* The cast is because the Python function doesn't declare const argument.
+ This is a problem in Python version 2.4, but not in 2.5. */
+ result = PyObject_GetAttrString (hooks, (char *) name);
+ Py_DECREF (hooks);
+ return result;
+}
diff --git a/gdb/python/python-internal.h b/gdb/python/python-internal.h
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
index 02dbfc4..5e43267 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/python/python-internal.h
+++ b/gdb/python/python-internal.h
@@ -33,6 +33,7 @@
#if HAVE_LIBPYTHON2_4
#include "python2.4/Python.h"
+#include "python2.4/frameobject.h"
/* Py_ssize_t is not defined until 2.5.
Logical type for Py_ssize_t is Py_intptr_t, but that fails in 64-bit
compilation due to several apparent mistakes in python2.4 API, so we
@@ -40,8 +41,10 @@
typedef int Py_ssize_t;
#elif HAVE_LIBPYTHON2_5
#include "python2.5/Python.h"
+#include "python2.5/frameobject.h"
#elif HAVE_LIBPYTHON2_6
#include "python2.6/Python.h"
+#include "python2.6/frameobject.h"
#else
#error "Unable to find usable Python.h"
#endif
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -58,23 +61,70 @@ typedef int Py_ssize_t;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
#define PyEval_ReleaseLock() 0
#endif
+#include "command.h"
+
+struct block;
+struct symbol;
+struct symtab_and_line;
struct value;
extern PyObject *gdb_module;
+extern PyTypeObject block_object_type;
extern PyTypeObject value_object_type;
+extern PyTypeObject symbol_object_type;
PyObject *gdbpy_history (PyObject *self, PyObject *args);
-
+PyObject *gdbpy_breakpoints (PyObject *, PyObject *);
+PyObject *gdbpy_frames (PyObject *, PyObject *);
+PyObject *gdbpy_newest_frame (PyObject *, PyObject *);
+PyObject *gdbpy_frame_stop_reason_string (PyObject *, PyObject *);
+PyObject *gdbpy_lookup_symbol (PyObject *self, PyObject *args, PyObject *kw);
+PyObject *gdbpy_selected_frame (PyObject *self, PyObject *args);
+PyObject *gdbpy_block_for_pc (PyObject *self, PyObject *args);
+PyObject *gdbpy_read_memory (PyObject *self, PyObject *args);
+PyObject *gdbpy_write_memory (PyObject *self, PyObject *args);
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+PyObject *gdbpy_lookup_type (PyObject *self, PyObject *args, PyObject *kw);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+PyObject *symtab_and_line_to_sal_object (struct symtab_and_line sal);
+PyObject *symtab_to_symtab_object (struct symtab *symtab);
+PyObject *symbol_to_symbol_object (struct symbol *sym);
+PyObject *block_to_block_object (struct block *block);
PyObject *value_to_value_object (struct value *v);
+PyObject *type_to_type_object (struct type *);
+PyObject *objfile_to_objfile_object (struct objfile *);
+PyObject *objfpy_get_printers (PyObject *, void *);
+
+struct block *block_object_to_block (PyObject *obj);
+struct symbol *symbol_object_to_symbol (PyObject *obj);
+struct value *value_object_to_value (PyObject *self);
struct value *convert_value_from_python (PyObject *obj);
+struct type *type_object_to_type (PyObject *obj);
+
+PyObject *gdbpy_get_hook_function (const char *);
void gdbpy_initialize_values (void);
+void gdbpy_initialize_breakpoints (void);
+void gdbpy_initialize_frames (void);
+void gdbpy_initialize_symtabs (void);
void gdbpy_initialize_commands (void);
+void gdbpy_initialize_symbols (void);
+void gdbpy_initialize_types (void);
+void gdbpy_initialize_blocks (void);
+void gdbpy_initialize_functions (void);
+void gdbpy_initialize_objfile (void);
+void gdbpy_initialize_parameters (void);
+void gdbpy_initialize_membuf (void);
struct cleanup *make_cleanup_py_decref (PyObject *py);
struct cleanup *make_cleanup_py_restore_gil (PyGILState_STATE *state);
+char *gdbpy_parse_command_name (char *text,
+ struct cmd_list_element ***base_list,
+ struct cmd_list_element **start_list);
+
+PyObject *gdbpy_parameter_value (enum var_types, void *);
+
/* Use this after a TRY_EXCEPT to throw the appropriate Python
exception. */
#define GDB_PY_HANDLE_EXCEPTION(Exception) \
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -85,6 +135,19 @@ struct cleanup *make_cleanup_py_restore_gil (PyGILState_STATE *state);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
"%s", Exception.message); \
} while (0)
+/* Use this after a TRY_EXCEPT to throw the appropriate Python
+ exception. This macro is for use inside setter functions. */
+#define GDB_PY_SET_HANDLE_EXCEPTION(Exception) \
+ do { \
+ if (Exception.reason < 0) \
+ { \
+ PyErr_Format (Exception.reason == RETURN_QUIT \
+ ? PyExc_KeyboardInterrupt : PyExc_RuntimeError, \
+ "%s", Exception.message); \
+ return -1; \
+ } \
+ } while (0)
+
void gdbpy_print_stack (void);
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -95,6 +158,21 @@ char *python_string_to_host_string (PyObject *obj);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
PyObject *target_string_to_unicode (const gdb_byte *str, int length);
int gdbpy_is_string (PyObject *obj);
+int gdbpy_is_value_object (PyObject *obj);
+
+/* Note that these are declared here, and not in python.h with the
+ other pretty-printer functions, because they refer to PyObject. */
+char *apply_varobj_pretty_printer (PyObject *print_obj,
+ struct value **replacement);
+PyObject *gdbpy_get_varobj_pretty_printer (struct value *value);
+PyObject *gdbpy_instantiate_printer (PyObject *cons, PyObject *value);
+char *gdbpy_get_display_hint (PyObject *printer);
+
+extern PyObject *gdbpy_children_cst;
+extern PyObject *gdbpy_to_string_cst;
+extern PyObject *gdbpy_display_hint_cst;
extern PyObject *gdbpy_doc_cst;
+int get_addr_from_python (PyObject *obj, CORE_ADDR *addr);
+
#endif /* GDB_PYTHON_INTERNAL_H */
diff --git a/gdb/python/python-membuf.c b/gdb/python/python-membuf.c
new file mode 100644
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
index 0000000..a4c7d74
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- /dev/null
+++ b/gdb/python/python-membuf.c
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -0,0 +1,243 @@
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+/* Python interface to the inferior memory.
+
+ Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+
+ This file is part of GDB.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include "defs.h"
+#include "exceptions.h"
+#include "gdbcore.h"
+#include "python-internal.h"
+
+typedef struct {
+ PyObject_HEAD
+ void *buffer;
+
+ /* These are kept just for mbpy_str. */
+ CORE_ADDR addr;
+ CORE_ADDR length;
+} membuf_object;
+
+static PyTypeObject membuf_object_type;
+
+/* Implementation of gdb.read_memory (address, length).
+ Returns a Python buffer object with LENGTH bytes of the inferior's memory
+ at ADDRESS. Both arguments are integers. */
+
+PyObject *
+gdbpy_read_memory (PyObject *self, PyObject *args)
+{
+ CORE_ADDR addr, length;
+ void *buffer;
+ membuf_object *membuf_obj;
+ struct cleanup *cleanups;
+ volatile struct gdb_exception except;
+
+ /* Assume CORE_ADDR corresponds to unsigned long. */
+ if (! PyArg_ParseTuple (args, "kk", &addr, &length))
+ return NULL;
+
+ buffer = xmalloc (length);
+ cleanups = make_cleanup (xfree, buffer);
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ read_memory (addr, buffer, length);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ discard_cleanups (cleanups);
+
+ membuf_obj = PyObject_New (membuf_object, &membuf_object_type);
+ if (membuf_obj == NULL)
+ {
+ xfree (buffer);
+ PyErr_SetString (PyExc_MemoryError,
+ "Could not allocate memory buffer object.");
+ return NULL;
+ }
+
+ membuf_obj->buffer = buffer;
+
+ membuf_obj->addr = addr;
+ membuf_obj->length = length;
+
+ return PyBuffer_FromReadWriteObject ((PyObject *) membuf_obj, 0, Py_END_OF_BUFFER);
+}
+
+/* Implementation of gdb.write_memory (address, buffer [, length]).
+ Writes the contents of BUFFER (a Python object supporting the read buffer
+ protocol) at ADDRESS in the inferior's memory. Write LENGTH bytes from
+ BUFFER, or its entire contents if the argument is not provided. The
+ function returns nothing. */
+
+PyObject *
+gdbpy_write_memory (PyObject *self, PyObject *args)
+{
+ int buf_len;
+ const char *buffer;
+ long length = -1;
+ CORE_ADDR addr;
+ volatile struct gdb_exception except;
+
+ /* Assume CORE_ADDR corresponds to unsigned long. */
+ if (! PyArg_ParseTuple (args, "ks#|l", &addr, &buffer, &buf_len, &length))
+ return NULL;
+
+ if (length == -1)
+ length = buf_len;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ write_memory (addr, buffer, length);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ Py_RETURN_NONE;
+}
+
+/* Destructor of Membuf objects. */
+
+static void
+mbpy_dealloc (PyObject *self)
+{
+ xfree (((membuf_object *) self)->buffer);
+ self->ob_type->tp_free (self);
+}
+
+/* Return a description of the Membuf object. */
+
+static PyObject *
+mbpy_str (PyObject *self)
+{
+ membuf_object *membuf_obj = (membuf_object *) self;
+
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ return PyString_FromFormat ("memory buffer for address %s, %s bytes long",
+ paddress (membuf_obj->addr),
+ pulongest (membuf_obj->length));
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+}
+
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+static Py_ssize_t
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+get_read_buffer (PyObject *self, Py_ssize_t segment, void **ptrptr)
+{
+ membuf_object *membuf_obj = (membuf_object *) self;
+
+ if (segment)
+ {
+ PyErr_SetString (PyExc_SystemError,
+ "The memory buffer supports only one segment.");
+ return -1;
+ }
+
+ *ptrptr = membuf_obj->buffer;
+
+ return membuf_obj->length;
+}
+
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+static Py_ssize_t
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+get_write_buffer (PyObject *self, Py_ssize_t segment, void **ptrptr)
+{
+ return get_read_buffer (self, segment, ptrptr);
+}
+
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+static Py_ssize_t
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+get_seg_count (PyObject *self, Py_ssize_t *lenp)
+{
+ if (lenp)
+ *lenp = ((membuf_object *) self)->length;
+
+ return 1;
+}
+
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+static Py_ssize_t
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+get_char_buffer (PyObject *self, Py_ssize_t segment, char **ptrptr)
+{
+ void *ptr = NULL;
+ Py_ssize_t ret;
+
+ ret = get_read_buffer (self, segment, &ptr);
+ *ptrptr = (char *) ptr;
+
+ return ret;
+}
+
+/* Python doesn't provide a decent way to get compatibility here. */
+#if HAVE_LIBPYTHON2_4
+#define CHARBUFFERPROC_NAME getcharbufferproc
+#else
+#define CHARBUFFERPROC_NAME charbufferproc
+#endif
+
+static PyBufferProcs buffer_procs = {
+ get_read_buffer,
+ get_write_buffer,
+ get_seg_count,
+ /* The cast here works around a difference between Python 2.4 and
+ Python 2.5. */
+ (CHARBUFFERPROC_NAME) get_char_buffer
+};
+
+static PyTypeObject membuf_object_type = {
+ PyObject_HEAD_INIT (NULL)
+ 0, /*ob_size*/
+ "gdb.Membuf", /*tp_name*/
+ sizeof (membuf_object), /*tp_basicsize*/
+ 0, /*tp_itemsize*/
+ mbpy_dealloc, /*tp_dealloc*/
+ 0, /*tp_print*/
+ 0, /*tp_getattr*/
+ 0, /*tp_setattr*/
+ 0, /*tp_compare*/
+ 0, /*tp_repr*/
+ 0, /*tp_as_number*/
+ 0, /*tp_as_sequence*/
+ 0, /*tp_as_mapping*/
+ 0, /*tp_hash */
+ 0, /*tp_call*/
+ mbpy_str, /*tp_str*/
+ 0, /*tp_getattro*/
+ 0, /*tp_setattro*/
+ &buffer_procs, /*tp_as_buffer*/
+ Py_TPFLAGS_DEFAULT, /*tp_flags*/
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ "GDB memory buffer object", /*tp_doc*/
+ 0, /* tp_traverse */
+ 0, /* tp_clear */
+ 0, /* tp_richcompare */
+ 0, /* tp_weaklistoffset */
+ 0, /* tp_iter */
+ 0, /* tp_iternext */
+ 0, /* tp_methods */
+ 0, /* tp_members */
+ 0, /* tp_getset */
+ 0, /* tp_base */
+ 0, /* tp_dict */
+ 0, /* tp_descr_get */
+ 0, /* tp_descr_set */
+ 0, /* tp_dictoffset */
+ 0, /* tp_init */
+ 0, /* tp_alloc */
+ PyType_GenericNew /* tp_new */
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+};
+
+void
+gdbpy_initialize_membuf (void)
+{
+ if (PyType_Ready (&membuf_object_type) < 0)
+ return;
+
+ Py_INCREF (&membuf_object_type);
+ PyModule_AddObject (gdb_module, "Membuf", (PyObject *) &membuf_object_type);
+}
diff --git a/gdb/python/python-objfile.c b/gdb/python/python-objfile.c
new file mode 100644
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
index 0000000..f5db084
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- /dev/null
+++ b/gdb/python/python-objfile.c
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -0,0 +1,225 @@
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+/* Python interface to objfiles.
+
+ Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+
+ This file is part of GDB.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include "defs.h"
+#include "python-internal.h"
+#include "charset.h"
+#include "objfiles.h"
+
+typedef struct
+{
+ PyObject_HEAD
+
+ /* The corresponding objfile. */
+ struct objfile *objfile;
+
+ /* The pretty-printer list of functions. */
+ PyObject *printers;
+} objfile_object;
+
+static PyTypeObject objfile_object_type;
+
+static const struct objfile_data *objfpy_objfile_data_key;
+
+
+
+/* An Objfile method which returns the objfile's file name, or None. */
+static PyObject *
+objfpy_get_filename (PyObject *self, void *closure)
+{
+ objfile_object *obj = (objfile_object *) self;
+ if (obj->objfile && obj->objfile->name)
+ return PyString_Decode (obj->objfile->name, strlen (obj->objfile->name),
+ host_charset (), NULL);
+ Py_RETURN_NONE;
+}
+
+static void
+objfpy_dealloc (PyObject *o)
+{
+ objfile_object *self = (objfile_object *) o;
+ Py_XDECREF (self->printers);
+ self->ob_type->tp_free ((PyObject *) self);
+}
+
+static PyObject *
+objfpy_new (PyTypeObject *type, PyObject *args, PyObject *keywords)
+{
+ objfile_object *self = (objfile_object *) type->tp_alloc (type, 0);
+ if (self)
+ {
+ self->objfile = NULL;
+
+ self->printers = PyList_New (0);
+ if (!self->printers)
+ {
+ Py_DECREF (self);
+ return NULL;
+ }
+ }
+ return (PyObject *) self;
+}
+
+PyObject *
+objfpy_get_printers (PyObject *o, void *ignore)
+{
+ objfile_object *self = (objfile_object *) o;
+ Py_INCREF (self->printers);
+ return self->printers;
+}
+
+static int
+objfpy_set_printers (PyObject *o, PyObject *value, void *ignore)
+{
+ objfile_object *self = (objfile_object *) o;
+ if (! value)
+ {
+ PyErr_SetString (PyExc_TypeError,
+ "cannot delete the pretty_printers attribute");
+ return -1;
+ }
+
+ if (! PyList_Check (value))
+ {
+ PyErr_SetString (PyExc_TypeError,
+ "the pretty_printers attribute must be a list");
+ return -1;
+ }
+
+ Py_XDECREF (self->printers);
+ Py_INCREF (value);
+ self->printers = value;
+
+ return 0;
+}
+
+
+
+/* Clear the OBJFILE pointer in an Objfile object and remove the
+ reference. */
+static void
+clean_up_objfile (struct objfile *objfile, void *datum)
+{
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ PyGILState_STATE state;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ objfile_object *object = datum;
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+
+ state = PyGILState_Ensure ();
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ object->objfile = NULL;
+ Py_DECREF ((PyObject *) object);
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ PyGILState_Release (state);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+}
+
+/* Return the Python object of type Objfile representing OBJFILE. If
+ the object has already been created, return it. Otherwise, create
+ it. Return NULL and set the Python error on failure. */
+PyObject *
+objfile_to_objfile_object (struct objfile *objfile)
+{
+ objfile_object *object;
+
+ object = objfile_data (objfile, objfpy_objfile_data_key);
+ if (!object)
+ {
+ object = PyObject_New (objfile_object, &objfile_object_type);
+ if (object)
+ {
+ PyObject *dict;
+
+ object->objfile = objfile;
+
+ object->printers = PyList_New (0);
+ if (!object->printers)
+ {
+ Py_DECREF (object);
+ return NULL;
+ }
+
+ set_objfile_data (objfile, objfpy_objfile_data_key, object);
+ }
+ }
+
+ return (PyObject *) object;
+}
+
+void
+gdbpy_initialize_objfile (void)
+{
+ objfpy_objfile_data_key
+ = register_objfile_data_with_cleanup (clean_up_objfile);
+
+ if (PyType_Ready (&objfile_object_type) < 0)
+ return;
+
+ Py_INCREF (&objfile_object_type);
+ PyModule_AddObject (gdb_module, "Objfile", (PyObject *) &objfile_object_type);
+}
+
+
+
+static PyGetSetDef objfile_getset[] =
+{
+ { "filename", objfpy_get_filename, NULL,
+ "The objfile's filename, or None.", NULL },
+ { "pretty_printers", objfpy_get_printers, objfpy_set_printers,
+ "Pretty printers.", NULL },
+ { NULL }
+};
+
+static PyTypeObject objfile_object_type =
+{
+ PyObject_HEAD_INIT (NULL)
+ 0, /*ob_size*/
+ "gdb.Objfile", /*tp_name*/
+ sizeof (objfile_object), /*tp_basicsize*/
+ 0, /*tp_itemsize*/
+ objfpy_dealloc, /*tp_dealloc*/
+ 0, /*tp_print*/
+ 0, /*tp_getattr*/
+ 0, /*tp_setattr*/
+ 0, /*tp_compare*/
+ 0, /*tp_repr*/
+ 0, /*tp_as_number*/
+ 0, /*tp_as_sequence*/
+ 0, /*tp_as_mapping*/
+ 0, /*tp_hash */
+ 0, /*tp_call*/
+ 0, /*tp_str*/
+ 0, /*tp_getattro*/
+ 0, /*tp_setattro*/
+ 0, /*tp_as_buffer*/
+ Py_TPFLAGS_DEFAULT, /*tp_flags*/
+ "GDB objfile object", /* tp_doc */
+ 0, /* tp_traverse */
+ 0, /* tp_clear */
+ 0, /* tp_richcompare */
+ 0, /* tp_weaklistoffset */
+ 0, /* tp_iter */
+ 0, /* tp_iternext */
+ 0, /* tp_methods */
+ 0, /* tp_members */
+ objfile_getset, /* tp_getset */
+ 0, /* tp_base */
+ 0, /* tp_dict */
+ 0, /* tp_descr_get */
+ 0, /* tp_descr_set */
+ 0, /* tp_dictoffset */
+ 0, /* tp_init */
+ 0, /* tp_alloc */
+ objfpy_new, /* tp_new */
+};
diff --git a/gdb/python/python-param.c b/gdb/python/python-param.c
new file mode 100644
index 0000000..1f591a8
--- /dev/null
+++ b/gdb/python/python-param.c
@@ -0,0 +1,606 @@
+/* gdb parameters implemented in Python
+
+ Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+
+ This file is part of GDB.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+
+#include "defs.h"
+#include "value.h"
+#include "exceptions.h"
+#include "python-internal.h"
+#include "charset.h"
+#include "gdbcmd.h"
+#include "cli/cli-decode.h"
+#include "completer.h"
+
+/* Parameter constants and their values. */
+struct parm_constant
+{
+ char *name;
+ int value;
+};
+
+struct parm_constant parm_constants[] =
+{
+ { "PARAM_BOOLEAN", var_boolean },
+ { "PARAM_AUTO_BOOLEAN", var_auto_boolean },
+ { "PARAM_UINTEGER", var_uinteger },
+ { "PARAM_INTEGER", var_integer },
+ { "PARAM_STRING", var_string },
+ { "PARAM_STRING_NOESCAPE", var_string_noescape },
+ { "PARAM_OPTIONAL_FILENAME", var_optional_filename },
+ { "PARAM_FILENAME", var_filename },
+ { "PARAM_ZINTEGER", var_zinteger },
+ { "PARAM_ENUM", var_enum },
+ { NULL, 0 }
+};
+
+/* A union that can hold anything described by enum var_types. */
+union parmpy_variable
+{
+ /* Hold an integer value, for boolean and integer types. */
+ int intval;
+
+ /* Hold an auto_boolean. */
+ enum auto_boolean autoboolval;
+
+ /* Hold an unsigned integer value, for uinteger. */
+ unsigned int uintval;
+
+ /* Hold a string, for the various string types. */
+ char *stringval;
+
+ /* Hold a string, for enums. */
+ const char *cstringval;
+};
+
+/* A gdb parameter. */
+struct parmpy_object
+{
+ PyObject_HEAD
+
+ /* The type of the parameter. */
+ enum var_types type;
+
+ /* The value of the parameter. */
+ union parmpy_variable value;
+
+ /* For an enum command, the possible values. The vector is
+ allocated with xmalloc, as is each element. It is
+ NULL-terminated. */
+ const char **enumeration;
+};
+
+typedef struct parmpy_object parmpy_object;
+
+static PyTypeObject parmpy_object_type;
+
+/* Some handy string constants. */
+static PyObject *set_doc_cst;
+static PyObject *show_doc_cst;
+
+
+
+/* Get an attribute. */
+static PyObject *
+get_attr (PyObject *obj, PyObject *attr_name)
+{
+ if (PyString_Check (attr_name)
+ && ! strcmp (PyString_AsString (attr_name), "value"))
+ {
+ parmpy_object *self = (parmpy_object *) obj;
+ return gdbpy_parameter_value (self->type, &self->value);
+ }
+
+ return PyObject_GenericGetAttr (obj, attr_name);
+}
+
+/* Set a parameter value from a Python value. Return 0 on success, -1
+ on failure. */
+static int
+set_parameter_value (parmpy_object *self, PyObject *value)
+{
+ int cmp;
+
+ switch (self->type)
+ {
+ case var_string:
+ case var_string_noescape:
+ case var_optional_filename:
+ case var_filename:
+ if (! gdbpy_is_string (value)
+ && (self->type == var_filename
+ || value != Py_None))
+ {
+ PyErr_SetString (PyExc_RuntimeError, "string required");
+ return -1;
+ }
+ if (self->value.stringval)
+ xfree (self->value.stringval);
+ if (value == Py_None)
+ {
+ if (self->type == var_optional_filename)
+ self->value.stringval = xstrdup ("");
+ else
+ self->value.stringval = NULL;
+ }
+ else
+ self->value.stringval = python_string_to_host_string (value);
+ break;
+
+ case var_enum:
+ {
+ int i;
+ char *str;
+
+ if (! gdbpy_is_string (value))
+ {
+ PyErr_SetString (PyExc_RuntimeError, "string required");
+ return -1;
+ }
+
+ str = python_string_to_host_string (value);
+ for (i = 0; self->enumeration[i]; ++i)
+ if (! strcmp (self->enumeration[i], str))
+ break;
+ xfree (str);
+ if (! self->enumeration[i])
+ {
+ PyErr_SetString (PyExc_RuntimeError,
+ "value must be member of enumeration");
+ return -1;
+ }
+ self->value.cstringval = self->enumeration[i];
+ break;
+ }
+
+ case var_boolean:
+ if (! PyBool_Check (value))
+ {
+ PyErr_SetString (PyExc_RuntimeError, "boolean required");
+ return -1;
+ }
+ cmp = PyObject_IsTrue (value);
+ if (cmp < 0)
+ return -1;
+ self->value.intval = cmp;
+ break;
+
+ case var_auto_boolean:
+ if (! PyBool_Check (value) && value != Py_None)
+ {
+ PyErr_SetString (PyExc_RuntimeError,
+ "boolean or None required");
+ return -1;
+ }
+
+ if (value == Py_None)
+ self->value.autoboolval = AUTO_BOOLEAN_AUTO;
+ else
+ {
+ cmp = PyObject_IsTrue (value);
+ if (cmp < 0 )
+ return -1;
+ if (cmp == 1)
+ self->value.autoboolval = AUTO_BOOLEAN_TRUE;
+ else
+ self->value.autoboolval = AUTO_BOOLEAN_FALSE;
+
+ break;
+ }
+
+ case var_integer:
+ case var_zinteger:
+ case var_uinteger:
+ {
+ long l;
+ int ok;
+
+ if (! PyInt_Check (value))
+ {
+ PyErr_SetString (PyExc_RuntimeError, "value must be integer");
+ return -1;
+ }
+
+ l = PyInt_AsLong (value);
+ if (self->type == var_uinteger)
+ {
+ ok = (l >= 0 && l <= UINT_MAX);
+ if (l == 0)
+ l = UINT_MAX;
+ }
+ else if (self->type == var_integer)
+ {
+ ok = (l >= INT_MIN && l <= INT_MAX);
+ if (l == 0)
+ l = INT_MAX;
+ }
+ else
+ ok = (l >= INT_MIN && l <= INT_MAX);
+
+ if (! ok)
+ {
+ PyErr_SetString (PyExc_RuntimeError, "range exceeded");
+ return -1;
+ }
+
+ self->value.intval = (int) l;
+ break;
+ }
+
+ default:
+ PyErr_SetString (PyExc_RuntimeError, "programmer error: unhandled type");
+ return -1;
+ }
+
+ return 0;
+}
+
+/* Set an attribute. */
+static int
+set_attr (PyObject *obj, PyObject *attr_name, PyObject *val)
+{
+ if (PyString_Check (attr_name)
+ && ! strcmp (PyString_AsString (attr_name), "value"))
+ {
+ if (!val)
+ {
+ PyErr_SetString (PyExc_RuntimeError,
+ "cannot delete a parameter's value");
+ return -1;
+ }
+ return set_parameter_value ((parmpy_object *) obj, val);
+ }
+
+ return PyObject_GenericSetAttr (obj, attr_name, val);
+}
+
+
+
+/* A helper function that dispatches to the appropriate add_setshow
+ function. */
+static void
+add_setshow_generic (int parmclass, enum command_class cmdclass,
+ char *cmd_name, parmpy_object *self,
+ char *set_doc, char *show_doc, char *help_doc,
+ struct cmd_list_element **set_list,
+ struct cmd_list_element **show_list)
+{
+ switch (parmclass)
+ {
+ case var_boolean:
+ add_setshow_boolean_cmd (cmd_name, cmdclass, &self->value.intval,
+ set_doc, show_doc, help_doc,
+ NULL, NULL, set_list, show_list);
+ break;
+
+ case var_auto_boolean:
+ add_setshow_auto_boolean_cmd (cmd_name, cmdclass,
+ &self->value.autoboolval,
+ set_doc, show_doc, help_doc,
+ NULL, NULL, set_list, show_list);
+ break;
+
+ case var_uinteger:
+ add_setshow_uinteger_cmd (cmd_name, cmdclass, &self->value.uintval,
+ set_doc, show_doc, help_doc,
+ NULL, NULL, set_list, show_list);
+ break;
+
+ case var_integer:
+ add_setshow_integer_cmd (cmd_name, cmdclass, &self->value.intval,
+ set_doc, show_doc, help_doc,
+ NULL, NULL, set_list, show_list);
+ break;
+
+ case var_string:
+ add_setshow_string_cmd (cmd_name, cmdclass, &self->value.stringval,
+ set_doc, show_doc, help_doc,
+ NULL, NULL, set_list, show_list);
+ break;
+
+ case var_string_noescape:
+ add_setshow_string_noescape_cmd (cmd_name, cmdclass,
+ &self->value.stringval,
+ set_doc, show_doc, help_doc,
+ NULL, NULL, set_list, show_list);
+ break;
+
+ case var_optional_filename:
+ add_setshow_optional_filename_cmd (cmd_name, cmdclass,
+ &self->value.stringval,
+ set_doc, show_doc, help_doc,
+ NULL, NULL, set_list, show_list);
+ break;
+
+ case var_filename:
+ add_setshow_filename_cmd (cmd_name, cmdclass, &self->value.stringval,
+ set_doc, show_doc, help_doc,
+ NULL, NULL, set_list, show_list);
+ break;
+
+ case var_zinteger:
+ add_setshow_zinteger_cmd (cmd_name, cmdclass, &self->value.intval,
+ set_doc, show_doc, help_doc,
+ NULL, NULL, set_list, show_list);
+ break;
+
+ case var_enum:
+ add_setshow_enum_cmd (cmd_name, cmdclass, self->enumeration,
+ &self->value.cstringval,
+ set_doc, show_doc, help_doc,
+ NULL, NULL, set_list, show_list);
+ /* Initialize the value, just in case. */
+ self->value.cstringval = self->enumeration[0];
+ break;
+ }
+}
+
+/* A helper which computes enum values. Returns 1 on success, 0 on
+ error. */
+static int
+compute_enum_values (parmpy_object *self, PyObject *enum_values)
+{
+ Py_ssize_t size, i;
+
+ if (! enum_values)
+ {
+ PyErr_SetString (PyExc_RuntimeError,
+ "enumeration required for PARAM_ENUM");
+ return 0;
+ }
+
+ if (! PySequence_Check (enum_values))
+ {
+ PyErr_SetString (PyExc_RuntimeError, "enumeration is not a sequence");
+ return 0;
+ }
+
+ size = PySequence_Size (enum_values);
+ if (size < 0)
+ return 0;
+ if (size == 0)
+ {
+ PyErr_SetString (PyExc_RuntimeError, "empty enumeration");
+ return 0;
+ }
+
+ self->enumeration = xmalloc ((size + 1) * sizeof (char *));
+ memset (self->enumeration, 0, (size + 1) * sizeof (char *));
+
+ for (i = 0; i < size; ++i)
+ {
+ PyObject *item = PySequence_GetItem (enum_values, i);
+ if (! item)
+ return 0;
+ if (! gdbpy_is_string (item))
+ {
+ PyErr_SetString (PyExc_RuntimeError, "enumeration item not a string");
+ return 0;
+ }
+ self->enumeration[i] = python_string_to_host_string (item);
+ }
+
+ return 1;
+}
+
+/* A helper function which returns a documentation string for an
+ object. */
+static char *
+get_doc_string (PyObject *object, PyObject *attr)
+{
+ char *result = NULL;
+ if (PyObject_HasAttr (object, attr))
+ {
+ PyObject *ds_obj = PyObject_GetAttr (object, attr);
+ if (ds_obj && gdbpy_is_string (ds_obj))
+ result = python_string_to_host_string (ds_obj);
+ }
+ if (! result)
+ result = xstrdup ("This command is not documented.");
+ return result;
+}
+
+/* Object initializer; sets up gdb-side structures for command.
+
+ Use: __init__(NAME, CMDCLASS, PARMCLASS, [ENUM])
+
+ NAME is the name of the parameter. It may consist of multiple
+ words, in which case the final word is the name of the new command,
+ and earlier words must be prefix commands.
+
+ CMDCLASS is the kind of command. It should be one of the COMMAND_*
+ constants defined in the gdb module.
+
+ PARMCLASS is the type of the parameter. It should be one of the
+ PARAM_* constants defined in the gdb module.
+
+ If PARMCLASS is PARAM_ENUM, then the final argument should be a
+ collection of strings. These strings are the valid values for this
+ parameter.
+
+ The documentation for the parameter is taken from the doc string
+ for the python class.
+
+*/
+static int
+parmpy_init (PyObject *self, PyObject *args, PyObject *kwds)
+{
+ parmpy_object *obj = (parmpy_object *) self;
+ char *name;
+ char *set_doc, *show_doc, *doc;
+ char *cmd_name;
+ int parmclass, cmdtype;
+ PyObject *enum_values = NULL;
+ struct cmd_list_element *cmd_list;
+ struct cmd_list_element **set_list, **show_list;
+ volatile struct gdb_exception except;
+
+ if (! PyArg_ParseTuple (args, "sii|O", &name, &cmdtype, &parmclass,
+ &enum_values))
+ return -1;
+
+ if (cmdtype != no_class && cmdtype != class_run
+ && cmdtype != class_vars && cmdtype != class_stack
+ && cmdtype != class_files && cmdtype != class_support
+ && cmdtype != class_info && cmdtype != class_breakpoint
+ && cmdtype != class_trace && cmdtype != class_obscure
+ && cmdtype != class_maintenance)
+ {
+ PyErr_Format (PyExc_RuntimeError, "invalid command class argument");
+ return -1;
+ }
+
+ if (parmclass != var_boolean && parmclass != var_auto_boolean
+ && parmclass != var_uinteger && parmclass != var_integer
+ && parmclass != var_string && parmclass != var_string_noescape
+ && parmclass != var_optional_filename && parmclass != var_filename
+ && parmclass != var_zinteger && parmclass != var_enum)
+ {
+ PyErr_SetString (PyExc_RuntimeError, "invalid parameter class argument");
+ return -1;
+ }
+
+ if (enum_values && parmclass != var_enum)
+ {
+ PyErr_SetString (PyExc_RuntimeError,
+ "only PARAM_ENUM accepts a fourth argument");
+ return -1;
+ }
+ if (parmclass == var_enum)
+ {
+ if (! compute_enum_values (obj, enum_values))
+ return -1;
+ }
+
+ obj->type = (enum var_types) parmclass;
+ memset (&obj->value, 0, sizeof (obj->value));
+ obj->enumeration = NULL;
+
+ cmd_name = gdbpy_parse_command_name (name, &set_list, &setlist);
+ if (! cmd_name)
+ return -1;
+ xfree (cmd_name);
+ cmd_name = gdbpy_parse_command_name (name, &show_list, &showlist);
+ if (! cmd_name)
+ return -1;
+
+ /* FIXME: there is no way to register a destructor function for
+ set/show commands. So, these are leaked. */
+ set_doc = get_doc_string (self, set_doc_cst);
+ show_doc = get_doc_string (self, show_doc_cst);
+ doc = get_doc_string (self, gdbpy_doc_cst);
+
+ Py_INCREF (self);
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ add_setshow_generic (parmclass, (enum command_class) cmdtype,
+ cmd_name, obj,
+ set_doc, show_doc,
+ doc, set_list, show_list);
+ }
+ if (except.reason < 0)
+ {
+ xfree (cmd_name);
+ xfree (set_doc);
+ xfree (show_doc);
+ xfree (doc);
+ Py_DECREF (self);
+ PyErr_Format (except.reason == RETURN_QUIT
+ ? PyExc_KeyboardInterrupt : PyExc_RuntimeError,
+ "%s", except.message);
+ return -1;
+ }
+ return 0;
+}
+
+
+
+/* Initialize the 'parameters' module. */
+void
+gdbpy_initialize_parameters (void)
+{
+ int i;
+
+ if (PyType_Ready (&parmpy_object_type) < 0)
+ return;
+
+ set_doc_cst = PyString_FromString ("set_doc");
+ if (! set_doc_cst)
+ return;
+ show_doc_cst = PyString_FromString ("show_doc");
+ if (! show_doc_cst)
+ return;
+
+ for (i = 0; parm_constants[i].name; ++i)
+ {
+ if (PyModule_AddIntConstant (gdb_module,
+ parm_constants[i].name,
+ parm_constants[i].value) < 0)
+ return;
+ }
+
+ Py_INCREF (&parmpy_object_type);
+ PyModule_AddObject (gdb_module, "Parameter",
+ (PyObject *) &parmpy_object_type);
+}
+
+
+
+static PyTypeObject parmpy_object_type =
+{
+ PyObject_HEAD_INIT (NULL)
+ 0, /*ob_size*/
+ "gdb.Parameter", /*tp_name*/
+ sizeof (parmpy_object), /*tp_basicsize*/
+ 0, /*tp_itemsize*/
+ 0, /*tp_dealloc*/
+ 0, /*tp_print*/
+ 0, /*tp_getattr*/
+ 0, /*tp_setattr*/
+ 0, /*tp_compare*/
+ 0, /*tp_repr*/
+ 0, /*tp_as_number*/
+ 0, /*tp_as_sequence*/
+ 0, /*tp_as_mapping*/
+ 0, /*tp_hash */
+ 0, /*tp_call*/
+ 0, /*tp_str*/
+ get_attr, /*tp_getattro*/
+ set_attr, /*tp_setattro*/
+ 0, /*tp_as_buffer*/
+ Py_TPFLAGS_DEFAULT | Py_TPFLAGS_BASETYPE, /*tp_flags*/
+ "GDB parameter object", /* tp_doc */
+ 0, /* tp_traverse */
+ 0, /* tp_clear */
+ 0, /* tp_richcompare */
+ 0, /* tp_weaklistoffset */
+ 0, /* tp_iter */
+ 0, /* tp_iternext */
+ 0, /* tp_methods */
+ 0, /* tp_members */
+ 0, /* tp_getset */
+ 0, /* tp_base */
+ 0, /* tp_dict */
+ 0, /* tp_descr_get */
+ 0, /* tp_descr_set */
+ 0, /* tp_dictoffset */
+ parmpy_init, /* tp_init */
+ 0, /* tp_alloc */
+ PyType_GenericNew /* tp_new */
+};
diff --git a/gdb/python/python-symbol.c b/gdb/python/python-symbol.c
new file mode 100644
index 0000000..c7fda5c
--- /dev/null
+++ b/gdb/python/python-symbol.c
@@ -0,0 +1,337 @@
+/* Python interface to symbols.
+
+ Copyright (C) 2008 Free Software Foundation, Inc.
+
+ This file is part of GDB.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include "defs.h"
+#include "block.h"
+#include "exceptions.h"
+#include "frame.h"
+#include "symtab.h"
+#include "python-internal.h"
+
+typedef struct {
+ PyObject_HEAD
+ struct symbol *symbol;
+} symbol_object;
+
+
+static PyObject *
+sympy_str (PyObject *self)
+{
+ int ret;
+ char *s;
+ PyObject *result;
+
+ ret = asprintf (&s, "symbol for %s",
+ SYMBOL_PRINT_NAME (((symbol_object *) self)->symbol));
+ if (ret < 0)
+ Py_RETURN_NONE;
+
+ result = PyString_FromString (s);
+ xfree (s);
+
+ return result;
+}
+
+static PyObject *
+sympy_get_value (PyObject *self, void *closure)
+{
+ symbol_object *self_sym = (symbol_object *) self;
+
+ switch (SYMBOL_CLASS (self_sym->symbol))
+ {
+ case LOC_BLOCK:
+ return block_to_block_object (SYMBOL_BLOCK_VALUE (self_sym->symbol));
+ }
+
+ PyErr_SetString (PyExc_NotImplementedError,
+ "Symbol type not yet supported in Python scripts.");
+ return NULL;
+}
+
+static PyObject *
+sympy_get_symtab (PyObject *self, void *closure)
+{
+ symbol_object *self_sym = (symbol_object *) self;
+
+ return symtab_to_symtab_object (SYMBOL_SYMTAB (self_sym->symbol));
+}
+
+static PyObject *
+sympy_get_name (PyObject *self, void *closure)
+{
+ symbol_object *self_sym = (symbol_object *) self;
+
+ return PyString_FromString (SYMBOL_NATURAL_NAME (self_sym->symbol));
+}
+
+static PyObject *
+sympy_get_linkage_name (PyObject *self, void *closure)
+{
+ symbol_object *self_sym = (symbol_object *) self;
+
+ return PyString_FromString (SYMBOL_LINKAGE_NAME (self_sym->symbol));
+}
+
+static PyObject *
+sympy_get_print_name (PyObject *self, void *closure)
+{
+ symbol_object *self_sym = (symbol_object *) self;
+
+ return PyString_FromString (SYMBOL_PRINT_NAME (self_sym->symbol));
+}
+
+static PyObject *
+sympy_get_addr_class (PyObject *self, void *closure)
+{
+ symbol_object *self_sym = (symbol_object *) self;
+
+ return PyInt_FromLong (SYMBOL_CLASS (self_sym->symbol));
+}
+
+static PyObject *
+sympy_is_argument (PyObject *self, void *closure)
+{
+ symbol_object *self_sym = (symbol_object *) self;
+
+ return PyBool_FromLong (SYMBOL_IS_ARGUMENT (self_sym->symbol));
+}
+
+static PyObject *
+sympy_is_constant (PyObject *self, void *closure)
+{
+ symbol_object *self_sym = (symbol_object *) self;
+ enum address_class class = SYMBOL_CLASS (self_sym->symbol);
+
+ return PyBool_FromLong (class == LOC_CONST || class == LOC_CONST_BYTES);
+}
+
+static PyObject *
+sympy_is_function (PyObject *self, void *closure)
+{
+ symbol_object *self_sym = (symbol_object *) self;
+ enum address_class class = SYMBOL_CLASS (self_sym->symbol);
+
+ return PyBool_FromLong (class == LOC_BLOCK);
+}
+
+static PyObject *
+sympy_is_variable (PyObject *self, void *closure)
+{
+ symbol_object *self_sym = (symbol_object *) self;
+ enum address_class class = SYMBOL_CLASS (self_sym->symbol);
+
+ return PyBool_FromLong (!SYMBOL_IS_ARGUMENT (self_sym->symbol)
+ && (class == LOC_LOCAL || class == LOC_REGISTER || class == LOC_STATIC
+ || class == LOC_COMPUTED || class == LOC_OPTIMIZED_OUT));
+}
+
+PyObject *
+symbol_to_symbol_object (struct symbol *sym)
+{
+ symbol_object *sym_obj;
+
+ sym_obj = PyObject_New (symbol_object, &symbol_object_type);
+ if (sym_obj == NULL)
+ {
+ PyErr_SetString (PyExc_MemoryError, "Could not allocate symbol object.");
+ return NULL;
+ }
+
+ sym_obj->symbol = sym;
+
+ return (PyObject *) sym_obj;
+}
+
+struct symbol *
+symbol_object_to_symbol (PyObject *obj)
+{
+ if (! PyObject_TypeCheck (obj, &symbol_object_type))
+ return NULL;
+ return ((symbol_object *) obj)->symbol;
+}
+
+/* Implementation of
+ gdb.lookup_symbol (name [, block] [, domain]) -> (symbol, is_field_of_this)
+ A tuple with 2 elements is always returned. The first is the symbol
+ object or None, the second is a boolean with the value of
+ is_a_field_of_this (see comment in lookup_symbol_in_language). */
+
+PyObject *gdbpy_lookup_symbol (PyObject *self, PyObject *args, PyObject *kw)
+{
+ int domain = VAR_DOMAIN, is_a_field_of_this = 0;
+ const char *name;
+ static char *keywords[] = { "name", "block", "domain", NULL };
+ struct symbol *symbol;
+ PyObject *block_obj = NULL, *ret_tuple, *sym_obj, *bool_obj;
+ struct block *block = NULL;
+
+ if (! PyArg_ParseTupleAndKeywords (args, kw, "s|O!i", keywords, &name,
+ &block_object_type, &block_obj, &domain))
+ return NULL;
+
+ if (block_obj)
+ block = block_object_to_block (block_obj);
+ else
+ {
+ struct frame_info *selected_frame;
+ volatile struct gdb_exception except;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ selected_frame = get_selected_frame (_("No frame selected."));
+ block = block_for_pc (get_frame_address_in_block (selected_frame));
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+ }
+
+ symbol = lookup_symbol (name, block, domain, &is_a_field_of_this);
+
+ ret_tuple = PyTuple_New (2);
+ if (!ret_tuple)
+ {
+ PyErr_SetString (PyExc_MemoryError, "Could not allocate tuple object.");
+ return NULL;
+ }
+
+ if (symbol)
+ {
+ sym_obj = symbol_to_symbol_object (symbol);
+ if (!sym_obj)
+ {
+ Py_DECREF (ret_tuple);
+ return NULL;
+ }
+ }
+ else
+ {
+ sym_obj = Py_None;
+ Py_INCREF (Py_None);
+ }
+ PyTuple_SET_ITEM (ret_tuple, 0, sym_obj);
+
+ bool_obj = is_a_field_of_this? Py_True : Py_False;
+ Py_INCREF (bool_obj);
+ PyTuple_SET_ITEM (ret_tuple, 1, bool_obj);
+
+ return ret_tuple;
+}
+
+void
+gdbpy_initialize_symbols (void)
+{
+ symbol_object_type.tp_new = PyType_GenericNew;
+ if (PyType_Ready (&symbol_object_type) < 0)
+ return;
+
+ /* FIXME: These would probably be best exposed as class attributes of Symbol,
+ but I don't know how to do it except by messing with the type's dictionary.
+ That seems too messy. */
+ /* FIXME 2: Some of these were removed from GDB since I first wrote this code,
+ so it's probably a good idea not to expose them to Python. */
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_UNDEF", LOC_UNDEF);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_CONST", LOC_CONST);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_STATIC", LOC_STATIC);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_REGISTER", LOC_REGISTER);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_ARG", LOC_ARG);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_REF_ARG", LOC_REF_ARG);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_LOCAL", LOC_LOCAL);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_TYPEDEF", LOC_TYPEDEF);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_LABEL", LOC_LABEL);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_BLOCK", LOC_BLOCK);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_CONST_BYTES",
+ LOC_CONST_BYTES);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_UNRESOLVED", LOC_UNRESOLVED);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_OPTIMIZED_OUT",
+ LOC_OPTIMIZED_OUT);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_COMPUTED", LOC_COMPUTED);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_REGPARM_ADDR",
+ LOC_REGPARM_ADDR);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_UNDEF_DOMAIN", UNDEF_DOMAIN);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_VAR_DOMAIN", VAR_DOMAIN);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_STRUCT_DOMAIN", STRUCT_DOMAIN);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LABEL_DOMAIN", LABEL_DOMAIN);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_VARIABLES_DOMAIN",
+ VARIABLES_DOMAIN);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_FUNCTIONS_DOMAIN",
+ FUNCTIONS_DOMAIN);
+ PyModule_AddIntConstant (gdb_module, "SYMBOL_TYPES_DOMAIN", TYPES_DOMAIN);
+
+ Py_INCREF (&symbol_object_type);
+ PyModule_AddObject (gdb_module, "Symbol", (PyObject *) &symbol_object_type);
+}
+
+
+
+static PyGetSetDef symbol_object_getset[] = {
+ { "value", sympy_get_value, NULL, "Value of the symbol.", NULL },
+ { "symtab", sympy_get_symtab, NULL,
+ "Symbol table in which the symbol appears.", NULL },
+ { "name", sympy_get_name, NULL,
+ "Name of the symbol, as it appears in the source code.", NULL },
+ { "linkage_name", sympy_get_linkage_name, NULL,
+ "Name of the symbol, as used by the linker (i.e., may be mangled).", NULL },
+ { "print_name", sympy_get_print_name, NULL,
+ "Name of the symbol in a form suitable for output.\n\
+This is either name or linkage_name, depending on whether the user asked GDB\n\
+to display demangled or mangled names.", NULL },
+ { "addr_class", sympy_get_addr_class, NULL, "Address class of the symbol." },
+ { "is_argument", sympy_is_argument, NULL,
+ "True if the symbol is an argument of a function." },
+ { "is_constant", sympy_is_constant, NULL,
+ "True if the symbol is a constant." },
+ { "is_function", sympy_is_function, NULL,
+ "True if the symbol is a function or method." },
+ { "is_variable", sympy_is_variable, NULL,
+ "True if the symbol is a variable." },
+ { NULL } /* Sentinel */
+};
+
+PyTypeObject symbol_object_type = {
+ PyObject_HEAD_INIT (NULL)
+ 0, /*ob_size*/
+ "gdb.Symbol", /*tp_name*/
+ sizeof (symbol_object), /*tp_basicsize*/
+ 0, /*tp_itemsize*/
+ 0, /*tp_dealloc*/
+ 0, /*tp_print*/
+ 0, /*tp_getattr*/
+ 0, /*tp_setattr*/
+ 0, /*tp_compare*/
+ 0, /*tp_repr*/
+ 0, /*tp_as_number*/
+ 0, /*tp_as_sequence*/
+ 0, /*tp_as_mapping*/
+ 0, /*tp_hash */
+ 0, /*tp_call*/
+ sympy_str, /*tp_str*/
+ 0, /*tp_getattro*/
+ 0, /*tp_setattro*/
+ 0, /*tp_as_buffer*/
+ Py_TPFLAGS_DEFAULT, /*tp_flags*/
+ "GDB symbol object", /* tp_doc */
+ 0, /* tp_traverse */
+ 0, /* tp_clear */
+ 0, /* tp_richcompare */
+ 0, /* tp_weaklistoffset */
+ 0, /* tp_iter */
+ 0, /* tp_iternext */
+ 0, /* tp_methods */
+ 0, /* tp_members */
+ symbol_object_getset /* tp_getset */
+};
diff --git a/gdb/python/python-symtab.c b/gdb/python/python-symtab.c
new file mode 100644
index 0000000..a48c38c
--- /dev/null
+++ b/gdb/python/python-symtab.c
@@ -0,0 +1,311 @@
+/* Python interface to symbol tables.
+
+ Copyright (C) 2008 Free Software Foundation, Inc.
+
+ This file is part of GDB.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include "defs.h"
+#include "charset.h"
+#include "symtab.h"
+#include "source.h"
+#include "python-internal.h"
+
+typedef struct {
+ PyObject_HEAD
+ struct symtab *symtab;
+} symtab_object;
+
+static PyTypeObject symtab_object_type;
+
+typedef struct {
+ PyObject_HEAD
+ symtab_object *symtab;
+ struct symtab_and_line *sal;
+} sal_object;
+
+static PyTypeObject sal_object_type;
+
+
+static PyObject *
+stpy_str (PyObject *self)
+{
+ int ret;
+ char *s;
+ PyObject *result;
+
+ ret = asprintf (&s, "symbol table for %s",
+ ((symtab_object *) self)->symtab->filename);
+ if (ret < 0)
+ Py_RETURN_NONE;
+
+ result = PyString_FromString (s);
+ xfree (s);
+
+ return result;
+}
+
+static PyObject *
+stpy_get_filename (PyObject *self, void *closure)
+{
+ symtab_object *self_symtab = (symtab_object *) self;
+ PyObject *str_obj;
+
+ /* FIXME: Can symtab->filename really be NULL? */
+ if (self_symtab->symtab->filename)
+ str_obj = PyString_Decode (self_symtab->symtab->filename,
+ strlen (self_symtab->symtab->filename),
+ host_charset (), NULL);
+ else
+ {
+ str_obj = Py_None;
+ Py_INCREF (Py_None);
+ }
+
+ return str_obj;
+}
+
+static PyObject *
+stpy_fullname (PyObject *self, PyObject *args)
+{
+ char *fullname;
+
+ fullname = symtab_to_fullname (((symtab_object *) self)->symtab);
+ if (fullname)
+ return PyString_Decode (fullname, strlen (fullname), host_charset (), NULL);
+
+ Py_RETURN_NONE;
+}
+
+static PyObject *
+salpy_str (PyObject *self)
+{
+ int ret;
+ char *s, *filename;
+ sal_object *sal_obj;
+ PyObject *result;
+
+ sal_obj = (sal_object *) self;
+ filename = (sal_obj->symtab == (symtab_object *) Py_None)? "<unknown>" :
+ sal_obj->symtab->symtab->filename;
+ ret = asprintf (&s, "symbol and line for %s, line %d", filename,
+ sal_obj->sal->line);
+ if (ret < 0)
+ Py_RETURN_NONE;
+
+ result = PyString_FromString (s);
+ xfree (s);
+
+ return result;
+}
+
+static PyObject *
+salpy_get_pc (PyObject *self, void *closure)
+{
+ return PyLong_FromUnsignedLongLong (((sal_object *) self)->sal->pc);
+}
+
+static PyObject *
+salpy_get_line (PyObject *self, void *closure)
+{
+ return PyLong_FromUnsignedLongLong (((sal_object *) self)->sal->line);
+}
+
+static PyObject *
+salpy_get_symtab (PyObject *self, void *closure)
+{
+ sal_object *self_sal = (sal_object *) self;
+
+ Py_INCREF (self_sal->symtab);
+
+ return (PyObject *) self_sal->symtab;
+}
+
+static void
+salpy_dealloc (PyObject *self)
+{
+ sal_object *self_sal = (sal_object *) self;
+
+ Py_DECREF (self_sal->symtab);
+ xfree (self_sal->sal);
+ self_sal->ob_type->tp_free (self);
+}
+
+PyObject *
+symtab_and_line_to_sal_object (struct symtab_and_line sal)
+{
+ sal_object *sal_obj;
+ symtab_object *symtab_obj;
+
+ sal_obj = PyObject_New (sal_object, &sal_object_type);
+ if (sal_obj == NULL)
+ {
+ PyErr_SetString (PyExc_MemoryError,
+ "Could not allocate Symtab_and_line object.");
+ return NULL;
+ }
+
+ if (sal.symtab)
+ {
+ symtab_obj = (symtab_object *) symtab_to_symtab_object (sal.symtab);
+ if (symtab_obj == NULL)
+ {
+ Py_DECREF (sal_obj);
+ return NULL;
+ }
+
+ symtab_obj->symtab = sal.symtab;
+ }
+ else
+ {
+ symtab_obj = (symtab_object *) Py_None;
+ Py_INCREF (Py_None);
+ }
+
+ sal_obj->sal = (struct symtab_and_line *)
+ xmalloc (sizeof (struct symtab_and_line));
+ *(sal_obj->sal) = sal;
+ sal_obj->symtab = symtab_obj;
+
+ return (PyObject *) sal_obj;
+}
+
+PyObject *
+symtab_to_symtab_object (struct symtab *symtab)
+{
+ symtab_object *symtab_obj;
+
+ symtab_obj = PyObject_New (symtab_object, &symtab_object_type);
+ if (symtab_obj == NULL)
+ {
+ PyErr_SetString (PyExc_MemoryError,
+ "Could not allocate Symtab object.");
+
+ return NULL;
+ }
+
+ symtab_obj->symtab = symtab;
+
+ return (PyObject *) symtab_obj;
+}
+
+void
+gdbpy_initialize_symtabs (void)
+{
+ symtab_object_type.tp_new = PyType_GenericNew;
+ if (PyType_Ready (&symtab_object_type) < 0)
+ return;
+
+ sal_object_type.tp_new = PyType_GenericNew;
+ if (PyType_Ready (&sal_object_type) < 0)
+ return;
+
+ Py_INCREF (&symtab_object_type);
+ PyModule_AddObject (gdb_module, "Symtab", (PyObject *) &symtab_object_type);
+
+ Py_INCREF (&sal_object_type);
+ PyModule_AddObject (gdb_module, "Symtab_and_line",
+ (PyObject *) &sal_object_type);
+}
+
+
+
+static PyGetSetDef symtab_object_getset[] = {
+ { "filename", stpy_get_filename, NULL,
+ "The symbol table's source filename.", NULL },
+ {NULL} /* Sentinel */
+};
+
+static PyMethodDef symtab_object_methods[] = {
+ { "fullname", stpy_fullname, METH_NOARGS,
+ "Return the symtab's full source filename." },
+ {NULL} /* Sentinel */
+};
+
+static PyTypeObject symtab_object_type = {
+ PyObject_HEAD_INIT (NULL)
+ 0, /*ob_size*/
+ "gdb.Symtab", /*tp_name*/
+ sizeof (symtab_object), /*tp_basicsize*/
+ 0, /*tp_itemsize*/
+ 0, /*tp_dealloc*/
+ 0, /*tp_print*/
+ 0, /*tp_getattr*/
+ 0, /*tp_setattr*/
+ 0, /*tp_compare*/
+ 0, /*tp_repr*/
+ 0, /*tp_as_number*/
+ 0, /*tp_as_sequence*/
+ 0, /*tp_as_mapping*/
+ 0, /*tp_hash */
+ 0, /*tp_call*/
+ stpy_str, /*tp_str*/
+ 0, /*tp_getattro*/
+ 0, /*tp_setattro*/
+ 0, /*tp_as_buffer*/
+ Py_TPFLAGS_DEFAULT, /*tp_flags*/
+ "GDB symtab object", /* tp_doc */
+ 0, /* tp_traverse */
+ 0, /* tp_clear */
+ 0, /* tp_richcompare */
+ 0, /* tp_weaklistoffset */
+ 0, /* tp_iter */
+ 0, /* tp_iternext */
+ symtab_object_methods, /* tp_methods */
+ 0, /* tp_members */
+ symtab_object_getset /* tp_getset */
+};
+
+static PyGetSetDef sal_object_getset[] = {
+ { "symtab", salpy_get_symtab, NULL, "Symtab object.", NULL },
+ { "pc", salpy_get_pc, NULL, "Return the symtab_and_line's pc.", NULL },
+ { "line", salpy_get_line, NULL,
+ "Return the symtab_and_line's line.", NULL },
+ {NULL} /* Sentinel */
+};
+
+static PyTypeObject sal_object_type = {
+ PyObject_HEAD_INIT (NULL)
+ 0, /*ob_size*/
+ "gdb.Symtab_and_line", /*tp_name*/
+ sizeof (sal_object), /*tp_basicsize*/
+ 0, /*tp_itemsize*/
+ salpy_dealloc, /*tp_dealloc*/
+ 0, /*tp_print*/
+ 0, /*tp_getattr*/
+ 0, /*tp_setattr*/
+ 0, /*tp_compare*/
+ 0, /*tp_repr*/
+ 0, /*tp_as_number*/
+ 0, /*tp_as_sequence*/
+ 0, /*tp_as_mapping*/
+ 0, /*tp_hash */
+ 0, /*tp_call*/
+ salpy_str, /*tp_str*/
+ 0, /*tp_getattro*/
+ 0, /*tp_setattro*/
+ 0, /*tp_as_buffer*/
+ Py_TPFLAGS_DEFAULT, /*tp_flags*/
+ "GDB symtab_and_line object", /* tp_doc */
+ 0, /* tp_traverse */
+ 0, /* tp_clear */
+ 0, /* tp_richcompare */
+ 0, /* tp_weaklistoffset */
+ 0, /* tp_iter */
+ 0, /* tp_iternext */
+ 0, /* tp_methods */
+ 0, /* tp_members */
+ sal_object_getset /* tp_getset */
+};
diff --git a/gdb/python/python-type.c b/gdb/python/python-type.c
new file mode 100644
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
index 0000000..fcf6b82
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- /dev/null
+++ b/gdb/python/python-type.c
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -0,0 +1,836 @@
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+/* Python interface to types.
+
+ Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+
+ This file is part of GDB.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include "defs.h"
+#include "value.h"
+#include "exceptions.h"
+#include "python-internal.h"
+#include "charset.h"
+#include "gdbtypes.h"
+#include "cp-support.h"
+#include "demangle.h"
+#include "objfiles.h"
+#include "gdb_assert.h"
+
+typedef struct pyty_type_object
+{
+ PyObject_HEAD
+ struct type *type;
+
+ /* If a Type object is associated with an objfile, it is kept on a
+ doubly-linked list, rooted in the objfile. This lets us copy the
+ underlying struct type when the objfile is deleted. */
+ struct pyty_type_object *prev;
+ struct pyty_type_object *next;
+} type_object;
+
+static PyTypeObject type_object_type;
+
+/* A Field object. */
+typedef struct pyty_field_object
+{
+ PyObject_HEAD
+
+ /* Dictionary holding our attributes. */
+ PyObject *dict;
+} field_object;
+
+static PyTypeObject field_object_type;
+
+/* This is used to initialize various gdb.TYPE_ constants. */
+struct pyty_code
+{
+ /* The code. */
+ enum type_code code;
+ /* The name. */
+ const char *name;
+};
+
+#define ENTRY(X) { X, #X }
+
+static struct pyty_code pyty_codes[] =
+{
+ ENTRY (TYPE_CODE_PTR),
+ ENTRY (TYPE_CODE_ARRAY),
+ ENTRY (TYPE_CODE_STRUCT),
+ ENTRY (TYPE_CODE_UNION),
+ ENTRY (TYPE_CODE_ENUM),
+ ENTRY (TYPE_CODE_FLAGS),
+ ENTRY (TYPE_CODE_FUNC),
+ ENTRY (TYPE_CODE_INT),
+ ENTRY (TYPE_CODE_FLT),
+ ENTRY (TYPE_CODE_VOID),
+ ENTRY (TYPE_CODE_SET),
+ ENTRY (TYPE_CODE_RANGE),
+ ENTRY (TYPE_CODE_STRING),
+ ENTRY (TYPE_CODE_BITSTRING),
+ ENTRY (TYPE_CODE_ERROR),
+ ENTRY (TYPE_CODE_METHOD),
+ ENTRY (TYPE_CODE_METHODPTR),
+ ENTRY (TYPE_CODE_MEMBERPTR),
+ ENTRY (TYPE_CODE_REF),
+ ENTRY (TYPE_CODE_CHAR),
+ ENTRY (TYPE_CODE_BOOL),
+ ENTRY (TYPE_CODE_COMPLEX),
+ ENTRY (TYPE_CODE_TYPEDEF),
+ ENTRY (TYPE_CODE_NAMESPACE),
+ ENTRY (TYPE_CODE_DECFLOAT),
+ ENTRY (TYPE_CODE_INTERNAL_FUNCTION),
+ { TYPE_CODE_UNDEF, NULL }
+};
+
+
+
+static void
+field_dealloc (PyObject *obj)
+{
+ field_object *f = (field_object *) obj;
+ Py_XDECREF (f->dict);
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ f->ob_type->tp_free (obj);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+}
+
+static PyObject *
+field_new (void)
+{
+ field_object *result = PyObject_New (field_object, &field_object_type);
+ if (result)
+ {
+ result->dict = PyDict_New ();
+ if (!result->dict)
+ {
+ Py_DECREF (result);
+ result = NULL;
+ }
+ }
+ return (PyObject *) result;
+}
+
+
+
+/* Return the code for this type. */
+static PyObject *
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+typy_get_code (PyObject *self, void *closure)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+{
+ struct type *type = ((type_object *) self)->type;
+ return PyInt_FromLong (TYPE_CODE (type));
+}
+
+/* Helper function for typy_fields which converts a single field to a
+ dictionary. Returns NULL on error. */
+static PyObject *
+convert_field (struct type *type, int field)
+{
+ PyObject *result = field_new ();
+ PyObject *arg;
+
+ if (!result)
+ return NULL;
+
+ if (!field_is_static (&TYPE_FIELD (type, field)))
+ {
+ arg = PyLong_FromLong (TYPE_FIELD_BITPOS (type, field));
+ if (!arg)
+ goto fail;
+
+ if (PyObject_SetAttrString (result, "bitpos", arg) < 0)
+ goto failarg;
+ }
+
+ if (TYPE_FIELD_NAME (type, field))
+ arg = PyString_FromString (TYPE_FIELD_NAME (type, field));
+ else
+ {
+ arg = Py_None;
+ Py_INCREF (arg);
+ }
+ if (!arg)
+ goto fail;
+ if (PyObject_SetAttrString (result, "name", arg) < 0)
+ goto failarg;
+
+ arg = TYPE_FIELD_ARTIFICIAL (type, field) ? Py_True : Py_False;
+ Py_INCREF (arg);
+ if (PyObject_SetAttrString (result, "artificial", arg) < 0)
+ goto failarg;
+
+ arg = PyLong_FromLong (TYPE_FIELD_BITSIZE (type, field));
+ if (!arg)
+ goto fail;
+ if (PyObject_SetAttrString (result, "bitsize", arg) < 0)
+ goto failarg;
+
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
+ /* A field can have a NULL type in some situations. */
+ if (TYPE_FIELD_TYPE (type, field) == NULL)
+ {
+ arg = Py_None;
+ Py_INCREF (arg);
+ }
+ else
+ arg = type_to_type_object (TYPE_FIELD_TYPE (type, field));
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ if (!arg)
+ goto fail;
+ if (PyObject_SetAttrString (result, "type", arg) < 0)
+ goto failarg;
+
+ return result;
+
+ failarg:
+ Py_DECREF (arg);
+ fail:
+ Py_DECREF (result);
+ return NULL;
+}
+
+/* Return a sequence of all fields. Each field is a dictionary with
+ some pre-defined keys. */
+static PyObject *
+typy_fields (PyObject *self, PyObject *args)
+{
+ PyObject *result;
+ int i;
+ struct type *type = ((type_object *) self)->type;
+
+ /* We would like to make a tuple here, make fields immutable, and
+ then memoize the result (and perhaps make Field.type() lazy).
+ However, that can lead to cycles. */
+ result = PyList_New (0);
+
+ for (i = 0; i < TYPE_NFIELDS (type); ++i)
+ {
+ PyObject *dict = convert_field (type, i);
+ if (!dict)
+ {
+ Py_DECREF (result);
+ return NULL;
+ }
+ if (PyList_Append (result, dict))
+ {
+ Py_DECREF (dict);
+ Py_DECREF (result);
+ return NULL;
+ }
+ }
+
+ return result;
+}
+
+/* Return the type's tag, or None. */
+static PyObject *
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+typy_get_tag (PyObject *self, void *closure)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+{
+ struct type *type = ((type_object *) self)->type;
+ if (!TYPE_TAG_NAME (type))
+ Py_RETURN_NONE;
+ return PyString_FromString (TYPE_TAG_NAME (type));
+}
+
+/* Return the type, stripped of typedefs. */
+static PyObject *
+typy_strip_typedefs (PyObject *self, PyObject *args)
+{
+ struct type *type = ((type_object *) self)->type;
+
+ return type_to_type_object (check_typedef (type));
+}
+
+/* Return a Type object which represents a pointer to SELF. */
+static PyObject *
+typy_pointer (PyObject *self, PyObject *args)
+{
+ struct type *type = ((type_object *) self)->type;
+ volatile struct gdb_exception except;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ type = lookup_pointer_type (type);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ return type_to_type_object (type);
+}
+
+/* Return a Type object which represents a reference to SELF. */
+static PyObject *
+typy_reference (PyObject *self, PyObject *args)
+{
+ struct type *type = ((type_object *) self)->type;
+ volatile struct gdb_exception except;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ type = lookup_reference_type (type);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ return type_to_type_object (type);
+}
+
+/* Return a Type object which represents the target type of SELF. */
+static PyObject *
+typy_target (PyObject *self, PyObject *args)
+{
+ struct type *type = ((type_object *) self)->type;
+
+ if (!TYPE_TARGET_TYPE (type))
+ {
+ PyErr_SetString (PyExc_RuntimeError, "type does not have a target");
+ return NULL;
+ }
+
+ return type_to_type_object (TYPE_TARGET_TYPE (type));
+}
+
+/* Return a const-qualified type variant. */
+static PyObject *
+typy_const (PyObject *self, PyObject *args)
+{
+ struct type *type = ((type_object *) self)->type;
+ volatile struct gdb_exception except;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ type = make_cv_type (1, 0, type, NULL);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ return type_to_type_object (type);
+}
+
+/* Return a volatile-qualified type variant. */
+static PyObject *
+typy_volatile (PyObject *self, PyObject *args)
+{
+ struct type *type = ((type_object *) self)->type;
+ volatile struct gdb_exception except;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ type = make_cv_type (0, 1, type, NULL);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ return type_to_type_object (type);
+}
+
+/* Return an unqualified type variant. */
+static PyObject *
+typy_unqualified (PyObject *self, PyObject *args)
+{
+ struct type *type = ((type_object *) self)->type;
+ volatile struct gdb_exception except;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ type = make_cv_type (0, 0, type, NULL);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ return type_to_type_object (type);
+}
+
+/* Return the size of the type represented by SELF, in bytes. */
+static PyObject *
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+typy_get_sizeof (PyObject *self, void *closure)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+{
+ struct type *type = ((type_object *) self)->type;
+ volatile struct gdb_exception except;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ check_typedef (type);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ }
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ /* Ignore exceptions. */
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+ return PyLong_FromLong (TYPE_LENGTH (type));
+}
+
+static struct type *
+typy_lookup_typename (char *type_name, struct block *block)
+{
+ struct type *type = NULL;
+ volatile struct gdb_exception except;
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ if (!strncmp (type_name, "struct ", 7))
+ type = lookup_struct (type_name + 7, block);
+ else if (!strncmp (type_name, "union ", 6))
+ type = lookup_union (type_name + 6, block);
+ else if (!strncmp (type_name, "enum ", 5))
+ type = lookup_enum (type_name + 5, block);
+ else
+ type = lookup_typename (type_name, block, 0);
+ }
+ if (except.reason < 0)
+ {
+ PyErr_Format (except.reason == RETURN_QUIT
+ ? PyExc_KeyboardInterrupt : PyExc_RuntimeError,
+ "%s", except.message);
+ return NULL;
+ }
+
+ return type;
+}
+
+static struct type *
+typy_lookup_type (struct demangle_component *demangled,
+ struct block *block)
+{
+ struct type *type;
+ char *type_name;
+ enum demangle_component_type demangled_type;
+
+ /* Save the type: typy_lookup_type() may (indirectly) overwrite
+ memory pointed by demangled. */
+ demangled_type = demangled->type;
+
+ if (demangled_type == DEMANGLE_COMPONENT_POINTER
+ || demangled_type == DEMANGLE_COMPONENT_REFERENCE
+ || demangled_type == DEMANGLE_COMPONENT_CONST
+ || demangled_type == DEMANGLE_COMPONENT_VOLATILE)
+ {
+ type = typy_lookup_type (demangled->u.s_binary.left, block);
+ if (! type)
+ return NULL;
+
+ switch (demangled_type)
+ {
+ case DEMANGLE_COMPONENT_REFERENCE:
+ return lookup_reference_type (type);
+ case DEMANGLE_COMPONENT_POINTER:
+ return lookup_pointer_type (type);
+ case DEMANGLE_COMPONENT_CONST:
+ return make_cv_type (1, 0, type, NULL);
+ case DEMANGLE_COMPONENT_VOLATILE:
+ return make_cv_type (0, 1, type, NULL);
+ }
+ }
+
+ type_name = cp_comp_to_string (demangled, 10);
+ type = typy_lookup_typename (type_name, block);
+ xfree (type_name);
+
+ return type;
+}
+
+static PyObject *
+typy_template_argument (PyObject *self, PyObject *args)
+{
+ int i, argno, n_pointers;
+ struct type *type = ((type_object *) self)->type;
+ struct demangle_component *demangled;
+ const char *err;
+ struct type *argtype;
+ struct block *block = NULL;
+ PyObject *block_obj = NULL;
+
+ if (! PyArg_ParseTuple (args, "i|O", &argno, &block_obj))
+ return NULL;
+
+ if (block_obj)
+ {
+ block = block_object_to_block (block_obj);
+ if (! block)
+ {
+ PyErr_SetString (PyExc_RuntimeError,
+ "second argument must be block");
+ return NULL;
+ }
+ }
+
+ type = check_typedef (type);
+ if (TYPE_CODE (type) == TYPE_CODE_REF)
+ type = check_typedef (TYPE_TARGET_TYPE (type));
+
+ if (TYPE_NAME (type) == NULL)
+ {
+ PyErr_SetString (PyExc_RuntimeError, "null type name");
+ return NULL;
+ }
+
+ /* Note -- this is not thread-safe. */
+ demangled = cp_demangled_name_to_comp (TYPE_NAME (type), &err);
+ if (! demangled)
+ {
+ PyErr_SetString (PyExc_RuntimeError, err);
+ return NULL;
+ }
+
+ /* Strip off component names. */
+ while (demangled->type == DEMANGLE_COMPONENT_QUAL_NAME
+ || demangled->type == DEMANGLE_COMPONENT_LOCAL_NAME)
+ demangled = demangled->u.s_binary.right;
+
+ if (demangled->type != DEMANGLE_COMPONENT_TEMPLATE)
+ {
+ PyErr_SetString (PyExc_RuntimeError, "type is not a template");
+ return NULL;
+ }
+
+ /* Skip from the template to the arguments. */
+ demangled = demangled->u.s_binary.right;
+
+ for (i = 0; demangled && i < argno; ++i)
+ demangled = demangled->u.s_binary.right;
+
+ if (! demangled)
+ {
+ PyErr_Format (PyExc_RuntimeError, "no argument %d in template",
+ argno);
+ return NULL;
+ }
+
+ argtype = typy_lookup_type (demangled->u.s_binary.left, block);
+ if (! argtype)
+ return NULL;
+
+ return type_to_type_object (argtype);
+}
+
+static PyObject *
+typy_str (PyObject *self)
+{
+ volatile struct gdb_exception except;
+ char *thetype = NULL;
+ PyObject *result;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ struct cleanup *old_chain;
+ struct ui_file *stb;
+ long length;
+
+ stb = mem_fileopen ();
+ old_chain = make_cleanup_ui_file_delete (stb);
+
+ type_print (type_object_to_type (self), "", stb, -1);
+
+ thetype = ui_file_xstrdup (stb, &length);
+ do_cleanups (old_chain);
+ }
+ if (except.reason < 0)
+ {
+ xfree (thetype);
+ GDB_PY_HANDLE_EXCEPTION (except);
+ }
+
+ result = PyUnicode_Decode (thetype, strlen (thetype), host_charset (), NULL);
+ xfree (thetype);
+
+ return result;
+}
+
+
+
+static const struct objfile_data *typy_objfile_data_key;
+
+static void
+clean_up_objfile_types (struct objfile *objfile, void *datum)
+{
+ type_object *obj = datum;
+ htab_t copied_types;
+ struct cleanup *cleanup;
+ PyGILState_STATE state;
+
+ /* This prevents another thread from freeing the objects we're
+ operating on. */
+ state = PyGILState_Ensure ();
+ cleanup = make_cleanup_py_restore_gil (&state);
+
+ copied_types = create_copied_types_hash (objfile);
+
+ while (obj)
+ {
+ type_object *next = obj->next;
+
+ htab_empty (copied_types);
+
+ /* No need to decref the old type here, since we know it has no
+ reference count. */
+ gdb_assert (objfile == TYPE_OBJFILE (obj->type));
+ obj->type = copy_type_recursive (obj->type, copied_types);
+ type_incref (obj->type);
+
+ obj->next = NULL;
+ obj->prev = NULL;
+
+ obj = next;
+ }
+
+ htab_delete (copied_types);
+
+ do_cleanups (cleanup);
+}
+
+static void
+set_type (type_object *obj, struct type *type)
+{
+ obj->type = type;
+ type_incref (type);
+ obj->prev = NULL;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ if (type && !OBJFILE_IS_VIRTUAL (TYPE_OBJFILE (type)))
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ {
+ struct objfile *objfile = TYPE_OBJFILE (type);
+
+ obj->next = objfile_data (objfile, typy_objfile_data_key);
+ if (obj->next)
+ obj->next->prev = obj;
+ set_objfile_data (objfile, typy_objfile_data_key, obj);
+ }
+ else
+ obj->next = NULL;
+}
+
+static void
+typy_dealloc (PyObject *obj)
+{
+ type_object *type = (type_object *) obj;
+
+ if (type->type)
+ type_decref (type->type);
+
+ if (type->prev)
+ type->prev->next = type->next;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ else if (type->type && !OBJFILE_IS_VIRTUAL (TYPE_OBJFILE (type->type)))
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ {
+ /* Must reset head of list. */
+ struct objfile *objfile = TYPE_OBJFILE (type->type);
+ if (objfile)
+ set_objfile_data (objfile, typy_objfile_data_key, type->next);
+ }
+ if (type->next)
+ type->next->prev = type->prev;
+
+ type->ob_type->tp_free (type);
+}
+
+/* Create a new Type referring to TYPE. */
+PyObject *
+type_to_type_object (struct type *type)
+{
+ type_object *type_obj;
+
+ type_obj = PyObject_New (type_object, &type_object_type);
+ if (type_obj)
+ set_type (type_obj, type);
+
+ return (PyObject *) type_obj;
+}
+
+struct type *
+type_object_to_type (PyObject *obj)
+{
+ if (! PyObject_TypeCheck (obj, &type_object_type))
+ return NULL;
+ return ((type_object *) obj)->type;
+}
+
+
+
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+/* Implementation of gdb.lookup_type. */
+PyObject *
+gdbpy_lookup_type (PyObject *self, PyObject *args, PyObject *kw)
+{
+ static char *keywords[] = { "name", "block", NULL };
+ char *type_name = NULL;
+ struct type *type = NULL;
+ PyObject *block_obj = NULL;
+ struct block *block = NULL;
+
+ if (! PyArg_ParseTupleAndKeywords (args, kw, "s|O", keywords,
+ &type_name, &block_obj))
+ return NULL;
+
+ if (block_obj)
+ {
+ block = block_object_to_block (block_obj);
+ if (! block)
+ {
+ PyErr_SetString (PyExc_RuntimeError,
+ "'block' argument must be a Block");
+ return NULL;
+ }
+ }
+
+ type = typy_lookup_typename (type_name, block);
+ if (! type)
+ return NULL;
+
+ return (PyObject *) type_to_type_object (type);
+}
+
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+void
+gdbpy_initialize_types (void)
+{
+ int i;
+
+ typy_objfile_data_key
+ = register_objfile_data_with_cleanup (clean_up_objfile_types);
+
+ if (PyType_Ready (&type_object_type) < 0)
+ return;
+ if (PyType_Ready (&field_object_type) < 0)
+ return;
+
+ for (i = 0; pyty_codes[i].name; ++i)
+ {
+ if (PyModule_AddIntConstant (gdb_module,
+ /* Cast needed for Python 2.4. */
+ (char *) pyty_codes[i].name,
+ pyty_codes[i].code) < 0)
+ return;
+ }
+
+ Py_INCREF (&type_object_type);
+ PyModule_AddObject (gdb_module, "Type", (PyObject *) &type_object_type);
+
+ Py_INCREF (&field_object_type);
+ PyModule_AddObject (gdb_module, "Field", (PyObject *) &field_object_type);
+}
+
+
+
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+static PyGetSetDef type_object_getset[] =
+{
+ { "code", typy_get_code, NULL,
+ "The code for this type.", NULL },
+ { "sizeof", typy_get_sizeof, NULL,
+ "The size of this type, in bytes.", NULL },
+ { "tag", typy_get_tag, NULL,
+ "The tag name for this type, or None.", NULL },
+ { NULL }
+};
+
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+static PyMethodDef type_object_methods[] =
+{
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ { "const", typy_const, METH_NOARGS,
+ "const () -> Type\n\
+Return a const variant of this type." },
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ { "fields", typy_fields, METH_NOARGS,
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ "field () -> list\n\
+Return a sequence holding all the fields of this type.\n\
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+Each field is a dictionary." },
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ { "pointer", typy_pointer, METH_NOARGS,
+ "pointer () -> Type\n\
+Return a type of pointer to this type." },
+ { "reference", typy_reference, METH_NOARGS,
+ "reference () -> Type\n\
+Return a type of reference to this type." },
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ { "strip_typedefs", typy_strip_typedefs, METH_NOARGS,
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ "strip_typedefs () -> Type\n\
+Return a type formed by stripping this type of all typedefs."},
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ { "target", typy_target, METH_NOARGS,
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ "target () -> Type\n\
+Return the target type of this type." },
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ { "template_argument", typy_template_argument, METH_VARARGS,
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ "template_argument (arg) -> Type\n\
+Return the type of a template argument." },
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ { "unqualified", typy_unqualified, METH_NOARGS,
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ "unqualified () -> Type\n\
+Return a variant of this type without const or volatile attributes." },
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ { "volatile", typy_volatile, METH_NOARGS,
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ "volatile () -> Type\n\
+Return a volatile variant of this type" },
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ { NULL }
+};
+
+static PyTypeObject type_object_type =
+{
+ PyObject_HEAD_INIT (NULL)
+ 0, /*ob_size*/
+ "gdb.Type", /*tp_name*/
+ sizeof (type_object), /*tp_basicsize*/
+ 0, /*tp_itemsize*/
+ typy_dealloc, /*tp_dealloc*/
+ 0, /*tp_print*/
+ 0, /*tp_getattr*/
+ 0, /*tp_setattr*/
+ 0, /*tp_compare*/
+ 0, /*tp_repr*/
+ 0, /*tp_as_number*/
+ 0, /*tp_as_sequence*/
+ 0, /*tp_as_mapping*/
+ 0, /*tp_hash */
+ 0, /*tp_call*/
+ typy_str, /*tp_str*/
+ 0, /*tp_getattro*/
+ 0, /*tp_setattro*/
+ 0, /*tp_as_buffer*/
+ Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_ITER, /*tp_flags*/
+ "GDB type object", /* tp_doc */
+ 0, /* tp_traverse */
+ 0, /* tp_clear */
+ 0, /* tp_richcompare */
+ 0, /* tp_weaklistoffset */
+ 0, /* tp_iter */
+ 0, /* tp_iternext */
+ type_object_methods, /* tp_methods */
+ 0, /* tp_members */
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ type_object_getset, /* tp_getset */
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ 0, /* tp_base */
+ 0, /* tp_dict */
+ 0, /* tp_descr_get */
+ 0, /* tp_descr_set */
+ 0, /* tp_dictoffset */
+ 0, /* tp_init */
+ 0, /* tp_alloc */
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ 0, /* tp_new */
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+};
+
+static PyTypeObject field_object_type =
+{
+ PyObject_HEAD_INIT (NULL)
+ 0, /*ob_size*/
+ "gdb.Field", /*tp_name*/
+ sizeof (field_object), /*tp_basicsize*/
+ 0, /*tp_itemsize*/
+ field_dealloc, /*tp_dealloc*/
+ 0, /*tp_print*/
+ 0, /*tp_getattr*/
+ 0, /*tp_setattr*/
+ 0, /*tp_compare*/
+ 0, /*tp_repr*/
+ 0, /*tp_as_number*/
+ 0, /*tp_as_sequence*/
+ 0, /*tp_as_mapping*/
+ 0, /*tp_hash */
+ 0, /*tp_call*/
+ 0, /*tp_str*/
+ 0, /*tp_getattro*/
+ 0, /*tp_setattro*/
+ 0, /*tp_as_buffer*/
+ Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_ITER, /*tp_flags*/
+ "GDB field object", /* tp_doc */
+ 0, /* tp_traverse */
+ 0, /* tp_clear */
+ 0, /* tp_richcompare */
+ 0, /* tp_weaklistoffset */
+ 0, /* tp_iter */
+ 0, /* tp_iternext */
+ 0, /* tp_methods */
+ 0, /* tp_members */
+ 0, /* tp_getset */
+ 0, /* tp_base */
+ 0, /* tp_dict */
+ 0, /* tp_descr_get */
+ 0, /* tp_descr_set */
+ offsetof (field_object, dict), /* tp_dictoffset */
+ 0, /* tp_init */
+ 0, /* tp_alloc */
+ 0, /* tp_new */
+};
diff --git a/gdb/python/python-utils.c b/gdb/python/python-utils.c
index ddac2f5..f9c9486 100644
--- a/gdb/python/python-utils.c
+++ b/gdb/python/python-utils.c
@@ -19,6 +19,7 @@
#include "defs.h"
#include "charset.h"
+#include "value.h"
#include "python-internal.h"
@@ -99,8 +100,8 @@ python_string_to_unicode (PyObject *obj)
}
/* Returns a newly allocated string with the contents of the given unicode
- string object converted to CHARSET. If an error occurs during the
- conversion, NULL will be returned and a python exception will be set.
+ string object converted to a named charset. If an error occurs during
+ the conversion, NULL will be returned and a python exception will be set.
The caller is responsible for xfree'ing the string. */
static char *
@@ -191,3 +192,48 @@ gdbpy_is_string (PyObject *obj)
{
return PyString_Check (obj) || PyUnicode_Check (obj);
}
+
+/* Converts OBJ to a CORE_ADDR value.
+
+ Returns 1 on success or 0 on failure, with a Python exception set. This
+ function can also throw GDB exceptions. */
+
+int
+get_addr_from_python (PyObject *obj, CORE_ADDR *addr)
+{
+ if (gdbpy_is_value_object (obj))
+ *addr = value_as_address (value_object_to_value (obj));
+ else if (PyLong_Check (obj))
+ {
+ /* Assume CORE_ADDR corresponds to unsigned long. */
+ *addr = PyLong_AsUnsignedLong (obj);
+ if (PyErr_Occurred () != NULL)
+ return 0;
+ }
+ else if (PyInt_Check (obj))
+ {
+ long val;
+
+ /* Assume CORE_ADDR corresponds to unsigned long. */
+ val = PyInt_AsLong (obj);
+
+ if (val >= 0)
+ *addr = val;
+ else
+ {
+ /* If no error ocurred, VAL is indeed negative. */
+ if (PyErr_Occurred () != NULL)
+ return 0;
+
+ PyErr_SetString (PyExc_ValueError, "negative address");
+ return 0;
+ }
+ }
+ else
+ {
+ PyErr_SetString (PyExc_TypeError, "invalid type for address");
+ return 0;
+ }
+
+ return 1;
+}
diff --git a/gdb/python/python-value.c b/gdb/python/python-value.c
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
index bc077b6..e26880a 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/python/python-value.c
+++ b/gdb/python/python-value.c
@@ -52,6 +52,10 @@ struct value *values_in_python = NULL;
/* Python's long type corresponds to C's long long type. */
#define builtin_type_pylong builtin_type (current_gdbarch)->builtin_long_long
+/* Python's long type corresponds to C's long long type. Unsigned version. */
+#define builtin_type_upylong builtin_type \
+ (current_gdbarch)->builtin_unsigned_long_long
+
#define builtin_type_pybool \
language_bool_type (current_language, current_gdbarch)
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -59,6 +63,8 @@ typedef struct {
PyObject_HEAD
struct value *value;
int owned_by_gdb;
+ PyObject *address;
+ PyObject *type;
} value_object;
/* Called by the Python interpreter when deallocating a value object. */
@@ -71,6 +77,18 @@ valpy_dealloc (PyObject *obj)
if (!self->owned_by_gdb)
value_free (self->value);
+
+ if (self->address)
+ /* Use braces to appease gcc warning. *sigh* */
+ {
+ Py_DECREF (self->address);
+ }
+
+ if (self->type)
+ {
+ Py_DECREF (self->type);
+ }
+
self->ob_type->tp_free (self);
}
@@ -105,6 +123,8 @@ valpy_new (PyTypeObject *subtype, PyObject *args, PyObject *keywords)
value_obj->value = value;
value_obj->owned_by_gdb = 0;
+ value_obj->address = NULL;
+ value_obj->type = NULL;
release_value (value);
value_prepend_to_list (&values_in_python, value);
@@ -129,24 +149,55 @@ valpy_dereference (PyObject *self, PyObject *args)
/* Return "&value". */
static PyObject *
-valpy_address (PyObject *self, PyObject *args)
+valpy_get_address (PyObject *self, void *closure)
{
struct value *res_val = NULL; /* Initialize to appease gcc warning. */
+ value_object *val_obj = (value_object *) self;
volatile struct gdb_exception except;
- TRY_CATCH (except, RETURN_MASK_ALL)
+ if (!val_obj->address)
{
- res_val = value_addr (((value_object *) self)->value);
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ res_val = value_addr (val_obj->value);
+ }
+ if (except.reason < 0)
+ {
+ val_obj->address = Py_None;
+ Py_INCREF (Py_None);
+ }
+ else
+ val_obj->address = value_to_value_object (res_val);
}
- GDB_PY_HANDLE_EXCEPTION (except);
- return value_to_value_object (res_val);
+ Py_INCREF (val_obj->address);
+
+ return val_obj->address;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
-/* Return Unicode string with value contents (assumed to be encoded in the
- target's charset). */
+/* Return type of the value. */
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
static PyObject *
-valpy_string (PyObject *self, PyObject *args)
+valpy_get_type (PyObject *self, void *closure)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+{
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ value_object *obj = (value_object *) self;
+ if (!obj->type)
+ {
+ obj->type = type_to_type_object (value_type (obj->value));
+ if (!obj->type)
+ {
+ obj->type = Py_None;
+ Py_INCREF (obj->type);
+ }
+ }
+ Py_INCREF (obj->type);
+ return obj->type;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+}
+
+/* Implementation of gdb.Value.string ([encoding] [, errors]) -> string
+ Return Unicode string with value contents. If ENCODING is not given,
+ the string is assumed to be encoded in the target's charset. */
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+static PyObject *
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+valpy_string (PyObject *self, PyObject *args, PyObject *kw)
{
int length, ret = 0;
gdb_byte *buffer;
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -157,8 +208,10 @@ valpy_string (PyObject *self, PyObject *args)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
const char *errors = NULL;
const char *user_encoding = NULL;
const char *la_encoding = NULL;
+ static char *keywords[] = { "encoding", "errors" };
- if (!PyArg_ParseTuple (args, "|ss", &user_encoding, &errors))
+ if (!PyArg_ParseTupleAndKeywords (args, kw, "|ss", keywords,
+ &user_encoding, &errors))
return NULL;
TRY_CATCH (except, RETURN_MASK_ALL)
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -174,6 +227,34 @@ valpy_string (PyObject *self, PyObject *args)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return unicode;
}
+/* Cast a value to a given type. */
+static PyObject *
+valpy_cast (PyObject *self, PyObject *args)
+{
+ PyObject *type_obj;
+ struct type *type;
+ struct value *res_val = NULL; /* Initialize to appease gcc warning. */
+ volatile struct gdb_exception except;
+
+ if (! PyArg_ParseTuple (args, "O", &type_obj))
+ return NULL;
+
+ type = type_object_to_type (type_obj);
+ if (! type)
+ {
+ PyErr_SetString (PyExc_RuntimeError, "argument must be a Type");
+ return NULL;
+ }
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ res_val = value_cast (type, ((value_object *) self)->value);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ return value_to_value_object (res_val);
+}
+
static Py_ssize_t
valpy_length (PyObject *self)
{
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -269,6 +350,18 @@ valpy_str (PyObject *self)
return result;
}
+/* Implements gdb.Value.is_optimized_out. */
+static PyObject *
+valpy_get_is_optimized_out (PyObject *self, void *closure)
+{
+ struct value *value = ((value_object *) self)->value;
+
+ if (value_optimized_out (value))
+ Py_RETURN_TRUE;
+
+ Py_RETURN_FALSE;
+}
+
enum valpy_opcode
{
VALPY_ADD,
@@ -306,11 +399,11 @@ valpy_binop (enum valpy_opcode opcode, PyObject *self, PyObject *other)
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
a gdb.Value object and need to convert it from python as well. */
arg1 = convert_value_from_python (self);
if (arg1 == NULL)
- return NULL;
+ break;
arg2 = convert_value_from_python (other);
if (arg2 == NULL)
- return NULL;
+ break;
switch (opcode)
{
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -387,7 +480,7 @@ valpy_binop (enum valpy_opcode opcode, PyObject *self, PyObject *other)
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
}
GDB_PY_HANDLE_EXCEPTION (except);
- return value_to_value_object (res_val);
+ return res_val ? value_to_value_object (res_val) : NULL;
}
static PyObject *
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -711,6 +804,8 @@ value_to_value_object (struct value *val)
{
val_obj->value = val;
val_obj->owned_by_gdb = 0;
+ val_obj->address = NULL;
+ val_obj->type = NULL;
release_value (val);
value_prepend_to_list (&values_in_python, val);
}
@@ -718,6 +813,17 @@ value_to_value_object (struct value *val)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return (PyObject *) val_obj;
}
+/* Returns value structure corresponding to the given value object. */
+struct value *
+value_object_to_value (PyObject *self)
+{
+ value_object *real;
+ if (! PyObject_TypeCheck (self, &value_object_type))
+ return NULL;
+ real = (value_object *) self;
+ return real->value;
+}
+
/* Try to convert a Python value to a gdb value. If the value cannot
be converted, set a Python exception and return NULL. */
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -751,7 +857,34 @@ convert_value_from_python (PyObject *obj)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
{
LONGEST l = PyLong_AsLongLong (obj);
- if (! PyErr_Occurred ())
+ if (PyErr_Occurred ())
+ {
+ /* If the error was an overflow, we can try converting to
+ ULONGEST instead. */
+ if (PyErr_ExceptionMatches (PyExc_OverflowError))
+ {
+ PyObject *etype, *evalue, *etraceback, *zero;
+
+ PyErr_Fetch (&etype, &evalue, &etraceback);
+ zero = PyInt_FromLong (0);
+
+ /* Check whether obj is positive. */
+ if (PyObject_RichCompareBool (obj, zero, Py_GT) > 0)
+ {
+ ULONGEST ul;
+
+ ul = PyLong_AsUnsignedLongLong (obj);
+ if (! PyErr_Occurred ())
+ value = value_from_ulongest (builtin_type_upylong, ul);
+ }
+ else
+ /* There's nothing we can do. */
+ PyErr_Restore (etype, evalue, etraceback);
+
+ Py_DECREF (zero);
+ }
+ }
+ else
value = value_from_longest (builtin_type_pylong, l);
}
else if (PyFloat_Check (obj))
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -774,7 +907,7 @@ convert_value_from_python (PyObject *obj)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
}
else if (PyObject_TypeCheck (obj, &value_object_type))
- value = ((value_object *) obj)->value;
+ value = value_copy (((value_object *) obj)->value);
else
PyErr_Format (PyExc_TypeError, _("Could not convert Python object: %s"),
PyString_AsString (PyObject_Str (obj)));
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -810,6 +943,14 @@ gdbpy_history (PyObject *self, PyObject *args)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return value_to_value_object (res_val);
}
+/* Returns 1 in OBJ is a gdb.Value object, 0 otherwise. */
+
+int
+gdbpy_is_value_object (PyObject *obj)
+{
+ return PyObject_TypeCheck (obj, &value_object_type);
+}
+
void
gdbpy_initialize_values (void)
{
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -822,11 +963,24 @@ gdbpy_initialize_values (void)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
values_in_python = NULL;
}
+
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+
+static PyGetSetDef value_object_getset[] = {
+ { "address", valpy_get_address, NULL, "The address of the value.",
+ NULL },
+ { "is_optimized_out", valpy_get_is_optimized_out, NULL,
+ "Boolean telling whether the value is optimized out (i.e., not available).",
+ NULL },
+ { "type", valpy_get_type, NULL, "Type of the value.", NULL },
+ {NULL} /* Sentinel */
+};
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
static PyMethodDef value_object_methods[] = {
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
- { "address", valpy_address, METH_NOARGS, "Return the address of the value." },
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ { "cast", valpy_cast, METH_VARARGS, "Cast the value to the supplied type." },
{ "dereference", valpy_dereference, METH_NOARGS, "Dereferences the value." },
- { "string", valpy_string, METH_VARARGS,
- "Return Unicode string representation of the value." },
+ { "string", (PyCFunction) valpy_string, METH_VARARGS | METH_KEYWORDS,
+ "string ([encoding] [, errors]) -> string\n\
+Return Unicode string representation of the value." },
{NULL} /* Sentinel */
};
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -893,7 +1047,7 @@ PyTypeObject value_object_type = {
0, /* tp_iternext */
value_object_methods, /* tp_methods */
0, /* tp_members */
- 0, /* tp_getset */
+ value_object_getset, /* tp_getset */
0, /* tp_base */
0, /* tp_dict */
0, /* tp_descr_get */
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/python/python.c b/gdb/python/python.c
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
index b3a27d6..995835b 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/python/python.c
+++ b/gdb/python/python.c
@@ -22,6 +22,12 @@
#include "ui-out.h"
#include "cli/cli-script.h"
#include "gdbcmd.h"
+#include "objfiles.h"
+#include "observer.h"
+#include "gdb_regex.h"
+#include "language.h"
+#include "valprint.h"
+#include "event-loop.h"
#include <ctype.h>
@@ -29,6 +35,10 @@
false otherwise. */
static int gdbpy_should_print_stack = 1;
+/* This is true if we should auto-load python code when an objfile is
+ opened, false otherwise. */
+static int gdbpy_auto_load = 1;
+
#ifdef HAVE_PYTHON
#include "python.h"
@@ -36,16 +46,29 @@ static int gdbpy_should_print_stack = 1;
#include "cli/cli-decode.h"
#include "charset.h"
#include "top.h"
+#include "solib.h"
#include "exceptions.h"
#include "python-internal.h"
+#include "linespec.h"
+#include "symtab.h"
+#include "source.h"
#include "version.h"
+#include "inferior.h"
+#include "gdbthread.h"
#include "target.h"
#include "gdbthread.h"
+#include "event-top.h"
+
+static PyMethodDef GdbMethods[];
static PyMethodDef GdbMethods[];
PyObject *gdb_module;
+/* Some string constants we may wish to use. */
+PyObject *gdbpy_to_string_cst;
+PyObject *gdbpy_children_cst;
+PyObject *gdbpy_display_hint_cst;
PyObject *gdbpy_doc_cst;
/* Given a command_line, return a command string suitable for passing
@@ -143,10 +166,10 @@ python_command (char *arg, int from_tty)
NULL (and set a Python exception) on error. Helper function for
get_parameter. */
-static PyObject *
-parameter_to_python (struct cmd_list_element *cmd)
+PyObject *
+gdbpy_parameter_value (enum var_types type, void *var)
{
- switch (cmd->var_type)
+ switch (type)
{
case var_string:
case var_string_noescape:
@@ -154,7 +177,7 @@ parameter_to_python (struct cmd_list_element *cmd)
case var_filename:
case var_enum:
{
- char *str = * (char **) cmd->var;
+ char *str = * (char **) var;
if (! str)
str = "";
return PyString_Decode (str, strlen (str), host_charset (), NULL);
@@ -162,7 +185,7 @@ parameter_to_python (struct cmd_list_element *cmd)
case var_boolean:
{
- if (* (int *) cmd->var)
+ if (* (int *) var)
Py_RETURN_TRUE;
else
Py_RETURN_FALSE;
@@ -170,7 +193,7 @@ parameter_to_python (struct cmd_list_element *cmd)
case var_auto_boolean:
{
- enum auto_boolean ab = * (enum auto_boolean *) cmd->var;
+ enum auto_boolean ab = * (enum auto_boolean *) var;
if (ab == AUTO_BOOLEAN_TRUE)
Py_RETURN_TRUE;
else if (ab == AUTO_BOOLEAN_FALSE)
@@ -180,15 +203,15 @@ parameter_to_python (struct cmd_list_element *cmd)
}
case var_integer:
- if ((* (int *) cmd->var) == INT_MAX)
+ if ((* (int *) var) == INT_MAX)
Py_RETURN_NONE;
/* Fall through. */
case var_zinteger:
- return PyLong_FromLong (* (int *) cmd->var);
+ return PyLong_FromLong (* (int *) var);
case var_uinteger:
{
- unsigned int val = * (unsigned int *) cmd->var;
+ unsigned int val = * (unsigned int *) var;
if (val == UINT_MAX)
Py_RETURN_NONE;
return PyLong_FromUnsignedLong (val);
@@ -202,10 +225,11 @@ parameter_to_python (struct cmd_list_element *cmd)
value. */
static PyObject *
-get_parameter (PyObject *self, PyObject *args)
+gdbpy_parameter (PyObject *self, PyObject *args)
{
struct cmd_list_element *alias, *prefix, *cmd;
char *arg, *newarg;
+ int found = -1;
volatile struct gdb_exception except;
if (! PyArg_ParseTuple (args, "s", &arg))
@@ -215,19 +239,17 @@ get_parameter (PyObject *self, PyObject *args)
TRY_CATCH (except, RETURN_MASK_ALL)
{
- if (! lookup_cmd_composition (newarg, &alias, &prefix, &cmd))
- {
- xfree (newarg);
- return PyErr_Format (PyExc_RuntimeError,
- "could not find variable `%s'", arg);
- }
+ found = lookup_cmd_composition (newarg, &alias, &prefix, &cmd);
}
xfree (newarg);
GDB_PY_HANDLE_EXCEPTION (except);
+ if (!found)
+ return PyErr_Format (PyExc_RuntimeError,
+ "could not find parameter `%s'", arg);
if (! cmd->var)
- return PyErr_Format (PyExc_RuntimeError, "`%s' is not a variable", arg);
- return parameter_to_python (cmd);
+ return PyErr_Format (PyExc_RuntimeError, "`%s' is not a parameter", arg);
+ return gdbpy_parameter_value (cmd->var_type, cmd->var);
}
/* A Python function which evaluates a string using the gdb CLI. */
@@ -266,6 +288,570 @@ execute_gdb_command (PyObject *self, PyObject *args)
Py_RETURN_NONE;
}
+/* Implementation of gdb.solib_address (Long) -> String.
+ Returns the name of the shared library holding a given address, or None. */
+
+static PyObject *
+gdbpy_solib_address (PyObject *self, PyObject *args)
+{
+ unsigned long long pc;
+ char *soname;
+ PyObject *str_obj;
+
+ if (!PyArg_ParseTuple (args, "K", &pc))
+ return NULL;
+
+ soname = solib_address (pc);
+ if (soname)
+ str_obj = PyString_Decode (soname, strlen (soname), host_charset (), NULL);
+ else
+ {
+ str_obj = Py_None;
+ Py_INCREF (Py_None);
+ }
+
+ return str_obj;
+}
+
+static PyObject *
+gdbpy_find_pc_function (PyObject *self, PyObject *args)
+{
+ unsigned long long pc;
+ struct symbol *sym;
+ PyObject *sym_obj;
+
+ if (!PyArg_ParseTuple (args, "K", &pc))
+ return NULL;
+
+ sym = find_pc_function (pc);
+ if (sym)
+ return symbol_to_symbol_object (sym);
+
+ Py_RETURN_NONE;
+}
+
+/* Adds GDB value V to the pattern buffer in *PATTERN_BUF. If SIZE is not zero,
+ it specifies the number of bytes from V to copy to *PATTERN_BUF. The
+ function increases the size of *PATTERN_BUF as necessary, adjusting
+ *PATTERN_BUF_END and *PATTERN_BUF_SIZE in the process. */
+
+static void
+add_value_pattern (struct value *v, int size, char **pattern_buf,
+ char **pattern_buf_end, ULONGEST *pattern_buf_size)
+{
+ int val_bytes;
+
+ if (size)
+ {
+ LONGEST x = value_as_long (v);
+
+ if (size == 1)
+ *(*pattern_buf_end)++ = x;
+ else
+ {
+ put_bits (x, *pattern_buf_end, size * 8,
+ gdbarch_byte_order (current_gdbarch) == BFD_ENDIAN_BIG);
+ *pattern_buf_end += size;
+ }
+ }
+ else
+ {
+ val_bytes = TYPE_LENGTH (value_type (v));
+
+ increase_pattern_buffer (pattern_buf, pattern_buf_end,
+ pattern_buf_size, val_bytes);
+
+ memcpy (*pattern_buf_end, value_contents_raw (v), val_bytes);
+ *pattern_buf_end += val_bytes;
+ }
+}
+
+/* This function does the actual work of constructing the pattern buffer from
+ OBJ. If OBJ is an object which implements the read buffer protocol (such
+ as a string, a byte array or gdb.Membuf), then its contents are directly
+ copied to *PATTERN_BUF. If it is a list, then this function is recursively
+ called for each of its elements. If OBJ is an object which can be converted
+ to a GDB value, then the contents of the value are copied to PATTERN_BUF.
+ If SIZE is different than zero, then it limits the number of bytes which
+ are copied to the buffer in case OBJ is converted to a GDB value. That
+ means that SIZE influences only Python scalars and gdb.Value objects.
+ The function increases the size of *PATTERN_BUF as necessary, adjusting
+ *PATTERN_BUF_END and *PATTERN_BUF_SIZE in the process.
+
+ Returns 1 on success or 0 on failure, with a Python exception set. This
+ function can also throw GDB exceptions. */
+
+static int
+add_pattern_element (PyObject *obj, int size, char **pattern_buf,
+ char **pattern_buf_end, ULONGEST *pattern_buf_size)
+{
+ if (PyObject_CheckReadBuffer (obj))
+ {
+ /* Handle string, Unicode string, byte array, gdb.Membuf and any other
+ object implementing the buffer protocol. The SIZE parameter is
+ ignored in this case. */
+
+ Py_ssize_t val_bytes;
+ const void *buffer;
+
+ if (PyObject_AsReadBuffer (obj, &buffer, &val_bytes) == -1)
+ return 0;
+
+ increase_pattern_buffer (pattern_buf, pattern_buf_end,
+ pattern_buf_size, val_bytes);
+
+ memcpy (*pattern_buf_end, buffer, val_bytes);
+ *pattern_buf_end += val_bytes;
+ }
+ else if (gdbpy_is_value_object (obj))
+ add_value_pattern (value_object_to_value (obj), size, pattern_buf,
+ pattern_buf_end, pattern_buf_size);
+ else if (PySequence_Check (obj))
+ {
+ /* Handle lists and tuples. */
+
+ Py_ssize_t i, num_objs;
+
+ num_objs = PySequence_Size (obj);
+ for (i = 0; i < num_objs; i++)
+ if (!add_pattern_element (PySequence_GetItem (obj, i), size,
+ pattern_buf, pattern_buf_end,
+ pattern_buf_size))
+ return 0;
+ }
+ else
+ {
+ /* See if we can convert from a Python object to a GDB value. */
+
+ struct value *v = convert_value_from_python (obj);
+
+ if (v)
+ add_value_pattern (v, size, pattern_buf, pattern_buf_end,
+ pattern_buf_size);
+ else
+ return 0;
+ }
+
+ return 1;
+}
+
+/* Constructs the search pattern from OBJ, putting it in *PATTERN_BUFP, and its
+ size in *PATTERN_LENP. See the function add_pattern_element to learn how
+ the search pattern is obtained from OBJ.
+
+ Returns 1 on success or 0 on failure, with a Python exception set. This
+ function can also throw GDB exceptions. */
+
+static int
+get_search_pattern (PyObject *obj, int size, char **pattern_bufp,
+ ULONGEST *pattern_lenp)
+{
+ /* Buffer to hold the search pattern. */
+ char *pattern_buf;
+ /* Current size of search pattern buffer.
+ We realloc space as needed. */
+ ULONGEST pattern_buf_size;
+ /* Pointer to one past the last in-use part of pattern_buf. */
+ char *pattern_buf_end;
+ struct cleanup *old_cleanups;
+
+ allocate_pattern_buffer (&pattern_buf, &pattern_buf_end, &pattern_buf_size);
+ old_cleanups = make_cleanup (free_current_contents, &pattern_buf);
+
+ if (!add_pattern_element (obj, size, &pattern_buf, &pattern_buf_end,
+ &pattern_buf_size))
+ {
+ do_cleanups (old_cleanups);
+
+ return 0;
+ }
+
+ *pattern_bufp = pattern_buf;
+ *pattern_lenp = pattern_buf_end - pattern_buf;
+
+ discard_cleanups (old_cleanups);
+
+ return 1;
+}
+
+/* Implementation of
+ gdb.search_memory (address, length, pattern [, size] [, max_count]).
+ The third argument may be either a pattern, or a list or tupple of patterns
+ to be searched. Size is the size in bytes of each search query value, either
+ 1, 2, 4 or 8. Returns a list of the addresses where matches were found. */
+
+PyObject *
+gdbpy_search_memory (PyObject *self, PyObject *args, PyObject *kw)
+{
+ int size = 0;
+ long length;
+ unsigned int found_count = 0;
+ long max_count = 0;
+ CORE_ADDR start_addr;
+ char *pattern_buf;
+ static char *keywords[] = { "address", "length", "pattern", "size",
+ "max_count", NULL };
+ ULONGEST pattern_len, search_space_len;
+ PyObject *pattern, *list = NULL, *start_addr_obj;
+ volatile struct gdb_exception except;
+
+ /* Assume CORE_ADDR corresponds to unsigned long. */
+ if (! PyArg_ParseTupleAndKeywords (args, kw, "OlO|il", keywords,
+ &start_addr_obj, &length, &pattern,
+ &size, &max_count))
+ return NULL;
+
+ if (!max_count)
+ max_count = LONG_MAX;
+
+ if (!length)
+ {
+ PyErr_SetString (PyExc_ValueError, "empty search range");
+ return NULL;
+ }
+ else if (length < 0)
+ {
+ PyErr_SetString (PyExc_ValueError, "invalid search range");
+ return NULL;
+ }
+ else
+ {
+ /* Watch for overflows. */
+ if (length > CORE_ADDR_MAX
+ || (start_addr + length - 1) < start_addr)
+ {
+ PyErr_SetString (PyExc_ValueError, "search range too large");
+ return NULL;
+ }
+
+ search_space_len = length;
+ }
+
+ if (size != 0 && size != 1 && size != 2 && size != 4 && size != 8)
+ {
+ PyErr_SetString (PyExc_ValueError, "invalid pattern size");
+ return NULL;
+ }
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ if (get_addr_from_python (start_addr_obj, &start_addr))
+ {
+ if (get_search_pattern (pattern, size, &pattern_buf, &pattern_len))
+ {
+ /* Any cleanups get automatically executed on an exception. */
+ struct cleanup *cleanups = make_cleanup (xfree, pattern_buf);
+
+ list = PyList_New (0);
+
+ while (search_space_len >= pattern_len && found_count < max_count)
+ {
+ CORE_ADDR found_addr;
+ int found;
+
+ found = search_memory (&start_addr, &search_space_len,
+ pattern_buf, pattern_len, &found_addr);
+ if (found <= 0)
+ break;
+
+ PyList_Append (list, PyLong_FromUnsignedLong (found_addr));
+ ++found_count;
+ }
+
+ do_cleanups (cleanups);
+ }
+ }
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ return list;
+}
+
+/* A Python function which is a wrapper for decode_line_1. */
+
+static PyObject *
+gdbpy_decode_line (PyObject *self, PyObject *args)
+{
+ struct symtabs_and_lines sals = { NULL, 0 }; /* Initialize to appease gcc. */
+ struct symtab_and_line sal;
+ char *arg = NULL;
+ int free_sals = 0, i;
+ PyObject *result = NULL;
+ volatile struct gdb_exception except;
+
+ if (! PyArg_ParseTuple (args, "|s", &arg))
+ return NULL;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ if (arg)
+ {
+ char *copy;
+
+ arg = strdup (arg);
+ copy = arg;
+
+ sals = decode_line_1 (&copy, 0, 0, 0, 0, 0);
+ free_sals = 1;
+ }
+ else
+ {
+ set_default_source_symtab_and_line ();
+ sal = get_current_source_symtab_and_line ();
+ sals.sals = &sal;
+ sals.nelts = 1;
+ }
+ }
+ if (arg)
+ xfree (arg);
+
+ if (except.reason < 0)
+ {
+ if (free_sals)
+ xfree (sals.sals);
+ /* We know this will always throw. */
+ GDB_PY_HANDLE_EXCEPTION (except);
+ }
+
+ if (sals.nelts)
+ {
+ result = PyTuple_New (sals.nelts);
+ for (i = 0; i < sals.nelts; ++i)
+ {
+ PyObject *obj;
+ char *str;
+
+ obj = symtab_and_line_to_sal_object (sals.sals[i]);
+ if (! obj)
+ {
+ Py_DECREF (result);
+ result = NULL;
+ break;
+ }
+
+ PyTuple_SetItem (result, i, obj);
+ }
+ }
+
+ if (free_sals)
+ xfree (sals.sals);
+
+ if (result)
+ return result;
+ Py_RETURN_NONE;
+}
+
+/* Parse a string and evaluate it as an expression. */
+static PyObject *
+gdbpy_parse_and_eval (PyObject *self, PyObject *args)
+{
+ char *expr_str;
+ struct value *result = NULL;
+ volatile struct gdb_exception except;
+
+ if (!PyArg_ParseTuple (args, "s", &expr_str))
+ return NULL;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ result = parse_and_eval (expr_str);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ return value_to_value_object (result);
+}
+
+
+
+/* Posting and handling events. */
+
+/* A single event. */
+struct gdbpy_event
+{
+ /* The Python event. This is just a callable object. */
+ PyObject *event;
+ /* The next event. */
+ struct gdbpy_event *next;
+};
+
+/* All pending events. */
+static struct gdbpy_event *gdbpy_event_list;
+/* The final link of the event list. */
+static struct gdbpy_event **gdbpy_event_list_end;
+
+/* We use a file handler, and not an async handler, so that we can
+ wake up the main thread even when it is blocked in poll(). */
+static int gdbpy_event_fds[2];
+
+/* The file handler callback. This reads from the internal pipe, and
+ then processes the Python event queue. This will always be run in
+ the main gdb thread. */
+static void
+gdbpy_run_events (int err, gdb_client_data ignore)
+{
+ PyGILState_STATE state;
+ char buffer[100];
+ int r;
+
+ state = PyGILState_Ensure ();
+
+ /* Just read whatever is available on the fd. It is relatively
+ harmless if there are any bytes left over. */
+ r = read (gdbpy_event_fds[0], buffer, sizeof (buffer));
+
+ while (gdbpy_event_list)
+ {
+ /* Dispatching the event might push a new element onto the event
+ loop, so we update here "atomically enough". */
+ struct gdbpy_event *item = gdbpy_event_list;
+ gdbpy_event_list = gdbpy_event_list->next;
+ if (gdbpy_event_list == NULL)
+ gdbpy_event_list_end = &gdbpy_event_list;
+
+ /* Ignore errors. */
+ PyObject_CallObject (item->event, NULL);
+
+ Py_DECREF (item->event);
+ xfree (item);
+ }
+
+ PyGILState_Release (state);
+}
+
+/* Submit an event to the gdb thread. */
+static PyObject *
+gdbpy_post_event (PyObject *self, PyObject *args)
+{
+ struct gdbpy_event *event;
+ PyObject *func;
+ int wakeup;
+
+ if (!PyArg_ParseTuple (args, "O", &func))
+ return NULL;
+
+ if (!PyCallable_Check (func))
+ {
+ PyErr_SetString (PyExc_RuntimeError, "Posted event is not callable");
+ return NULL;
+ }
+
+ Py_INCREF (func);
+
+ /* From here until the end of the function, we have the GIL, so we
+ can operate on our global data structures without worrying. */
+ wakeup = gdbpy_event_list == NULL;
+
+ event = XNEW (struct gdbpy_event);
+ event->event = func;
+ event->next = NULL;
+ *gdbpy_event_list_end = event;
+ gdbpy_event_list_end = &event->next;
+
+ /* Wake up gdb when needed. */
+ if (wakeup)
+ {
+ char c = 'q'; /* Anything. */
+ if (write (gdbpy_event_fds[1], &c, 1) != 1)
+ return PyErr_SetFromErrno (PyExc_IOError);
+ }
+
+ Py_RETURN_NONE;
+}
+
+/* Initialize the Python event handler. */
+static void
+gdbpy_initialize_events (void)
+{
+ if (!pipe (gdbpy_event_fds))
+ {
+ gdbpy_event_list_end = &gdbpy_event_list;
+ add_file_handler (gdbpy_event_fds[0], gdbpy_run_events, NULL);
+ }
+}
+
+
+
+/* Threads. */
+
+/* Callback function for use with iterate_over_threads. This function
+ just counts the number of threads. */
+
+static int
+count_callback (struct thread_info *info, void *user_data)
+{
+ int *count = (int *) user_data;
+ ++*count;
+ return 0;
+}
+
+/* Structure for storing some state when iterating over threads. */
+
+struct set_thread_info
+{
+ PyObject *tuple;
+ int index;
+};
+
+/* Callback function for use with iterate_over_threads. This function
+ stores the thread ID into a Python tuple. */
+
+static int
+update_tuple_callback (struct thread_info *info, void *user_data)
+{
+ struct set_thread_info *tinfo = (struct set_thread_info *) user_data;
+ PyTuple_SetItem (tinfo->tuple, tinfo->index, PyInt_FromLong (info->num));
+ ++tinfo->index;
+ return 0;
+}
+
+/* Python function which yields a tuple holding all valid thread IDs. */
+
+static PyObject *
+gdbpy_threads (PyObject *unused1, PyObject *unused2)
+{
+ int thread_count = 0;
+ struct set_thread_info info;
+ PyObject *result;
+
+ prune_threads ();
+ target_find_new_threads ();
+
+ iterate_over_threads (count_callback, &thread_count);
+
+ if (!thread_count)
+ Py_RETURN_NONE;
+
+ result = PyTuple_New (thread_count);
+ info.tuple = result;
+ info.index = 0;
+ iterate_over_threads (update_tuple_callback, &info);
+ return result;
+}
+
+/* Python function that returns the current thread's ID. */
+
+static PyObject *
+gdbpy_current_thread (PyObject *unused1, PyObject *unused2)
+{
+ if (PIDGET (inferior_ptid) == 0)
+ Py_RETURN_NONE;
+ return PyInt_FromLong (pid_to_thread_id (inferior_ptid));
+}
+
+/* Python function for switching to a given thread. */
+
+static PyObject *
+gdbpy_switch_to_thread (PyObject *self, PyObject *args)
+{
+ int id;
+ if (! PyArg_ParseTuple (args, "i", &id))
+ return NULL;
+ if (! valid_thread_id (id))
+ return PyErr_Format (PyExc_RuntimeError, "invalid thread id");
+ switch_to_thread (thread_id_to_pid (id));
+ Py_RETURN_NONE;
+}
+
/* Printing. */
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -302,6 +888,769 @@ gdbpy_print_stack (void)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
PyErr_Clear ();
}
+
+
+/* Script interface. */
+
+/* True if 'gdb -P' was used, false otherwise. */
+static int running_python_script;
+
+/* True if we are currently in a call to 'gdb.cli', false otherwise. */
+static int in_cli;
+
+/* Enter the command loop. */
+
+static PyObject *
+gdbpy_cli (PyObject *unused1, PyObject *unused2)
+{
+ if (! running_python_script || in_cli)
+ return PyErr_Format (PyExc_RuntimeError, "cannot invoke CLI recursively");
+
+ in_cli = 1;
+ cli_command_loop ();
+ in_cli = 0;
+
+ Py_RETURN_NONE;
+}
+
+/* Set up the Python argument vector and evaluate a script. This is
+ used to implement 'gdb -P'. */
+
+void
+run_python_script (int argc, char **argv)
+{
+ FILE *input;
+ PyGILState_STATE state;
+
+ /* We never free this, since we plan to exit at the end. */
+ state = PyGILState_Ensure ();
+
+ running_python_script = 1;
+ PySys_SetArgv (argc - 1, argv + 1);
+ input = fopen (argv[0], "r");
+ if (! input)
+ {
+ fprintf (stderr, "could not open %s: %s\n", argv[0], strerror (errno));
+ exit (1);
+ }
+ PyRun_SimpleFile (input, argv[0]);
+ fclose (input);
+ exit (0);
+}
+
+void
+source_python_script (FILE *stream, char *file)
+{
+ PyGILState_STATE state;
+
+ state = PyGILState_Ensure ();
+
+ PyRun_SimpleFile (stream, file);
+
+ fclose (stream);
+ PyGILState_Release (state);
+}
+
+
+
+/* The "current" objfile. This is set when gdb detects that a new
+ objfile has been loaded. It is only set for the duration of a call
+ to gdbpy_new_objfile; it is NULL at other times. */
+static struct objfile *gdbpy_current_objfile;
+
+/* The file name we attempt to read. */
+#define GDBPY_AUTO_FILENAME "-gdb.py"
+
+/* This is a new_objfile observer callback which loads python code
+ based on the path to the objfile. */
+static void
+gdbpy_new_objfile (struct objfile *objfile)
+{
+ char *realname;
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ char *filename, *debugfile;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ int len;
+ FILE *input;
+ PyGILState_STATE state;
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ struct cleanup *cleanups;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+ if (!gdbpy_auto_load || !objfile || !objfile->name)
+ return;
+
+ state = PyGILState_Ensure ();
+
+ gdbpy_current_objfile = objfile;
+
+ realname = gdb_realpath (objfile->name);
+ len = strlen (realname);
+ filename = xmalloc (len + sizeof (GDBPY_AUTO_FILENAME));
+ memcpy (filename, realname, len);
+ strcpy (filename + len, GDBPY_AUTO_FILENAME);
+
+ input = fopen (filename, "r");
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ debugfile = filename;
+
+ cleanups = make_cleanup (xfree, filename);
+ make_cleanup (xfree, realname);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+ if (!input && debug_file_directory)
+ {
+ /* Also try the same file in the separate debug info directory. */
+ debugfile = xmalloc (strlen (filename)
+ + strlen (debug_file_directory) + 1);
+ strcpy (debugfile, debug_file_directory);
+ /* FILENAME is absolute, so we don't need a "/" here. */
+ strcat (debugfile, filename);
+
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ make_cleanup (xfree, debugfile);
+ input = fopen (debugfile, "r");
+ }
+
+ if (!input && gdb_datadir)
+ {
+ /* Also try the same file in a subdirectory of gdb's data
+ directory. */
+ debugfile = xmalloc (strlen (gdb_datadir) + strlen (filename)
+ + strlen ("/auto-load") + 1);
+ strcpy (debugfile, gdb_datadir);
+ strcat (debugfile, "/auto-load");
+ /* FILENAME is absolute, so we don't need a "/" here. */
+ strcat (debugfile, filename);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ make_cleanup (xfree, debugfile);
+ input = fopen (debugfile, "r");
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ }
+
+ if (input)
+ {
+ /* We don't want to throw an exception here -- but the user
+ would like to know that something went wrong. */
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ if (PyRun_SimpleFile (input, debugfile))
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ gdbpy_print_stack ();
+ fclose (input);
+ }
+
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ do_cleanups (cleanups);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ gdbpy_current_objfile = NULL;
+
+ PyGILState_Release (state);
+}
+
+/* Return the current Objfile, or None if there isn't one. */
+static PyObject *
+gdbpy_get_current_objfile (PyObject *unused1, PyObject *unused2)
+{
+ PyObject *result;
+
+ if (! gdbpy_current_objfile)
+ Py_RETURN_NONE;
+
+ result = objfile_to_objfile_object (gdbpy_current_objfile);
+ if (result)
+ Py_INCREF (result);
+ return result;
+}
+
+/* Return a sequence holding all the Objfiles. */
+static PyObject *
+gdbpy_objfiles (PyObject *unused1, PyObject *unused2)
+{
+ struct objfile *objf;
+ PyObject *list;
+
+ list = PyList_New (0);
+ if (!list)
+ return NULL;
+
+ ALL_OBJFILES (objf)
+ {
+ PyObject *item = objfile_to_objfile_object (objf);
+ if (!item || PyList_Append (list, item) == -1)
+ {
+ Py_DECREF (list);
+ return NULL;
+ }
+ }
+
+ return list;
+}
+
+
+
+/* Helper function for find_pretty_printer which iterates over a
+ list, calls each function and inspects output. */
+static PyObject *
+search_pp_list (PyObject *list, PyObject *value)
+{
+ Py_ssize_t pp_list_size, list_index;
+ PyObject *function, *printer = NULL;
+
+ pp_list_size = PyList_Size (list);
+ for (list_index = 0; list_index < pp_list_size; list_index++)
+ {
+ function = PyList_GetItem (list, list_index);
+ if (! function)
+ return NULL;
+
+ /* gdbpy_instantiate_printer can return three possible return
+ values: NULL on error; Py_None if the pretty-printer
+ in the list cannot print the value; or a printer instance if
+ the printer can print the value. */
+ printer = gdbpy_instantiate_printer (function, value);
+ if (! printer)
+ return NULL;
+ else if (printer != Py_None)
+ return printer;
+
+ Py_DECREF (printer);
+ }
+
+ Py_RETURN_NONE;
+}
+
+/* Find the pretty-printing constructor function for TYPE. If no
+ pretty-printer exists, return NULL. If one exists, return a new
+ reference. */
+static PyObject *
+find_pretty_printer (PyObject *value)
+{
+ PyObject *pp_list = NULL;
+ PyObject *function = NULL;
+ struct objfile *obj;
+ volatile struct gdb_exception except;
+
+ /* Look at the pretty-printer dictionary for each objfile. */
+ ALL_OBJFILES (obj)
+ {
+ PyObject *objf = objfile_to_objfile_object (obj);
+ if (!objf)
+ continue;
+
+ pp_list = objfpy_get_printers (objf, NULL);
+ function = search_pp_list (pp_list, value);
+
+ /* If there is an error in any objfile list, abort the search and
+ exit. */
+ if (! function)
+ {
+ Py_XDECREF (pp_list);
+ return NULL;
+ }
+
+ if (function != Py_None)
+ goto done;
+
+ /* In this loop, if function is not an instantiation of a
+ pretty-printer, and it is not null, then it is a return of
+ Py_RETURN_NONE, which must be decremented. */
+ Py_DECREF (function);
+ Py_XDECREF (pp_list);
+ }
+
+ pp_list = NULL;
+ /* Fetch the global pretty printer dictionary. */
+ if (! PyObject_HasAttrString (gdb_module, "pretty_printers"))
+ goto done;
+ pp_list = PyObject_GetAttrString (gdb_module, "pretty_printers");
+ if (! pp_list)
+ goto done;
+ if (! PyList_Check (pp_list))
+ goto done;
+
+ function = search_pp_list (pp_list, value);
+
+ done:
+ Py_XDECREF (pp_list);
+
+ return function;
+}
+
+/* Pretty-print a single value, via the printer object PRINTER. If
+ the function returns a string, an xmalloc()d copy is returned.
+ Otherwise, if the function returns a value, a *OUT_VALUE is set to
+ the value, and NULL is returned. On error, *OUT_VALUE is set to
+ NULL and NULL is returned. */
+static char *
+pretty_print_one_value (PyObject *printer, struct value **out_value)
+{
+ char *output = NULL;
+ volatile struct gdb_exception except;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ PyObject *result;
+
+ result = PyObject_CallMethodObjArgs (printer, gdbpy_to_string_cst, NULL);
+ if (result)
+ {
+ if (gdbpy_is_string (result))
+ output = python_string_to_host_string (result);
+ else if (PyObject_TypeCheck (result, &value_object_type))
+ {
+ /* If we just call convert_value_from_python for this
+ type, we won't know who owns the result. For this
+ one case we need to copy the resulting value. */
+ struct value *v = value_object_to_value (result);
+ *out_value = value_copy (v);
+ }
+ else
+ *out_value = convert_value_from_python (result);
+ Py_DECREF (result);
+ }
+ }
+
+ return output;
+}
+
+/* Instantiate a pretty-printer given a constructor, CONS, and a
+ value, VAL. Return NULL on error. Ownership of the object
+ instance is transferred to the reciever */
+PyObject *
+gdbpy_instantiate_printer (PyObject *cons, PyObject *value)
+{
+ PyObject *result;
+ result = PyObject_CallFunctionObjArgs (cons, value, NULL);
+ return result;
+}
+
+/* Return the display hint for the object printer, PRINTER. Return
+ NULL if there is no display_hint method, or if the method did not
+ return a string. On error, print stack trace and return NULL. On
+ success, return an xmalloc()d string. */
+char *
+gdbpy_get_display_hint (PyObject *printer)
+{
+ PyObject *hint;
+ char *result = NULL;
+
+ if (! PyObject_HasAttr (printer, gdbpy_display_hint_cst))
+ return NULL;
+
+ hint = PyObject_CallMethodObjArgs (printer, gdbpy_display_hint_cst, NULL);
+ if (gdbpy_is_string (hint))
+ result = python_string_to_host_string (hint);
+ if (hint)
+ Py_DECREF (hint);
+ else
+ gdbpy_print_stack ();
+
+ return result;
+}
+
+/* Helper for apply_val_pretty_printer which calls to_string and
+ formats the result. */
+static void
+print_string_repr (PyObject *printer, const char *hint,
+ struct ui_file *stream, int recurse,
+ const struct value_print_options *options,
+ const struct language_defn *language)
+{
+ char *output;
+ struct value *replacement = NULL;
+
+ output = pretty_print_one_value (printer, &replacement);
+ if (output)
+ {
+ if (hint && !strcmp (hint, "string"))
+ {
+ struct type *string_char_type;
+
+ /* OUTPUT is already in the hosts's charset. */
+ string_char_type = language_string_char_type (language,
+ current_gdbarch);
+ LA_PRINT_STRING (stream, string_char_type, (gdb_byte *) output,
+ strlen (output), 0, options);
+ }
+ else
+ fputs_filtered (output, stream);
+ xfree (output);
+ }
+ else if (replacement)
+ common_val_print (replacement, stream, recurse, options, language);
+ else
+ gdbpy_print_stack ();
+}
+
+static void
+py_restore_tstate (void *p)
+{
+ PyFrameObject *frame = p;
+ PyThreadState *tstate = PyThreadState_GET ();
+ tstate->frame = frame;
+}
+
+/* Create a dummy PyFrameObject, needed to work around
+ a Python-2.4 bug with generators. */
+static PyObject *
+push_dummy_python_frame ()
+{
+ PyObject *empty_string, *null_tuple, *globals;
+ PyCodeObject *code;
+ PyFrameObject *frame;
+ PyThreadState *tstate;
+
+ empty_string = PyString_FromString ("");
+ if (!empty_string)
+ return NULL;
+
+ null_tuple = PyTuple_New (0);
+ if (!null_tuple)
+ {
+ Py_DECREF (empty_string);
+ return NULL;
+ }
+
+ code = PyCode_New (0, /* argcount */
+ 0, /* nlocals */
+ 0, /* stacksize */
+ 0, /* flags */
+ empty_string, /* code */
+ null_tuple, /* consts */
+ null_tuple, /* names */
+ null_tuple, /* varnames */
+#if PYTHON_API_VERSION >= 1010
+ null_tuple, /* freevars */
+ null_tuple, /* cellvars */
+#endif
+ empty_string, /* filename */
+ empty_string, /* name */
+ 1, /* firstlineno */
+ empty_string /* lnotab */
+ );
+
+ Py_DECREF (empty_string);
+ Py_DECREF (null_tuple);
+
+ if (!code)
+ return NULL;
+
+ globals = PyDict_New ();
+ if (!globals)
+ {
+ Py_DECREF (code);
+ return NULL;
+ }
+
+ tstate = PyThreadState_GET ();
+
+ frame = PyFrame_New (tstate, code, globals, NULL);
+
+ Py_DECREF (globals);
+ Py_DECREF (code);
+
+ if (!frame)
+ return NULL;
+
+ tstate->frame = frame;
+ make_cleanup (py_restore_tstate, frame->f_back);
+ return (PyObject *) frame;
+}
+
+/* Helper for apply_val_pretty_printer that formats children of the
+ printer, if any exist. */
+static void
+print_children (PyObject *printer, const char *hint,
+ struct ui_file *stream, int recurse,
+ const struct value_print_options *options,
+ const struct language_defn *language)
+{
+ int is_map, is_array, done_flag, pretty;
+ unsigned int i;
+ PyObject *children, *iter, *frame;
+ struct cleanup *cleanups;
+
+ if (! PyObject_HasAttr (printer, gdbpy_children_cst))
+ return;
+
+ /* If we are printing a map or an array, we want some special
+ formatting. */
+ is_map = hint && ! strcmp (hint, "map");
+ is_array = hint && ! strcmp (hint, "array");
+
+ children = PyObject_CallMethodObjArgs (printer, gdbpy_children_cst,
+ NULL);
+ if (! children)
+ {
+ gdbpy_print_stack ();
+ return;
+ }
+
+ cleanups = make_cleanup_py_decref (children);
+
+ iter = PyObject_GetIter (children);
+ if (!iter)
+ {
+ gdbpy_print_stack ();
+ goto done;
+ }
+ make_cleanup_py_decref (iter);
+
+ /* Use the prettyprint_arrays option if we are printing an array,
+ and the pretty option otherwise. */
+ pretty = is_array ? options->prettyprint_arrays : options->pretty;
+
+ /* Manufacture a dummy Python frame to work around Python 2.4 bug,
+ where it insists on having a non-NULL tstate->frame when
+ a generator is called. */
+ frame = push_dummy_python_frame ();
+ if (!frame)
+ {
+ gdbpy_print_stack ();
+ goto done;
+ }
+ make_cleanup_py_decref (frame);
+
+ done_flag = 0;
+ for (i = 0; i < options->print_max; ++i)
+ {
+ PyObject *py_v, *item = PyIter_Next (iter);
+ char *name;
+ struct cleanup *inner_cleanup;
+
+ if (! item)
+ {
+ if (PyErr_Occurred ())
+ gdbpy_print_stack ();
+ /* Set a flag so we can know whether we printed all the
+ available elements. */
+ else
+ done_flag = 1;
+ break;
+ }
+
+ if (! PyArg_ParseTuple (item, "sO", &name, &py_v))
+ {
+ gdbpy_print_stack ();
+ Py_DECREF (item);
+ continue;
+ }
+ inner_cleanup = make_cleanup_py_decref (item);
+
+ /* Print initial "{". For other elements, there are three
+ cases:
+ 1. Maps. Print a "," after each value element.
+ 2. Arrays. Always print a ",".
+ 3. Other. Always print a ",". */
+ if (i == 0)
+ fputs_filtered (" = {", stream);
+ else if (! is_map || i % 2 == 0)
+ fputs_filtered (pretty ? "," : ", ", stream);
+
+ /* In summary mode, we just want to print "= {...}" if there is
+ a value. */
+ if (options->summary)
+ {
+ /* This increment tricks the post-loop logic to print what
+ we want. */
+ ++i;
+ /* Likewise. */
+ pretty = 0;
+ break;
+ }
+
+ if (! is_map || i % 2 == 0)
+ {
+ if (pretty)
+ {
+ fputs_filtered ("\n", stream);
+ print_spaces_filtered (2 + 2 * recurse, stream);
+ }
+ else
+ wrap_here (n_spaces (2 + 2 *recurse));
+ }
+
+ if (is_map && i % 2 == 0)
+ fputs_filtered ("[", stream);
+ else if (is_array)
+ {
+ /* We print the index, not whatever the child method
+ returned as the name. */
+ if (options->print_array_indexes)
+ fprintf_filtered (stream, "[%d] = ", i);
+ }
+ else if (! is_map)
+ {
+ fputs_filtered (name, stream);
+ fputs_filtered (" = ", stream);
+ }
+
+ if (gdbpy_is_string (py_v))
+ {
+ char *text = python_string_to_host_string (py_v);
+ if (! text)
+ gdbpy_print_stack ();
+ else
+ {
+ fputs_filtered (text, stream);
+ xfree (text);
+ }
+ }
+ else
+ {
+ struct value *value = convert_value_from_python (py_v);
+
+ if (value == NULL)
+ {
+ gdbpy_print_stack ();
+ error (_("Error while executing Python code."));
+ }
+ else
+ common_val_print (value, stream, recurse + 1, options, language);
+ }
+
+ if (is_map && i % 2 == 0)
+ fputs_filtered ("] = ", stream);
+
+ do_cleanups (inner_cleanup);
+ }
+
+ if (i)
+ {
+ if (!done_flag)
+ {
+ if (pretty)
+ {
+ fputs_filtered ("\n", stream);
+ print_spaces_filtered (2 + 2 * recurse, stream);
+ }
+ fputs_filtered ("...", stream);
+ }
+ if (pretty)
+ {
+ fputs_filtered ("\n", stream);
+ print_spaces_filtered (2 * recurse, stream);
+ }
+ fputs_filtered ("}", stream);
+ }
+
+ done:
+ do_cleanups (cleanups);
+}
+
+int
+apply_val_pretty_printer (struct type *type, const gdb_byte *valaddr,
+ int embedded_offset, CORE_ADDR address,
+ struct ui_file *stream, int recurse,
+ const struct value_print_options *options,
+ const struct language_defn *language)
+{
+ PyObject *printer = NULL;
+ PyObject *val_obj = NULL;
+ struct value *value;
+ char *hint = NULL;
+ struct cleanup *cleanups;
+ int result = 0;
+ PyGILState_STATE state;
+
+ state = PyGILState_Ensure ();
+ cleanups = make_cleanup_py_restore_gil (&state);
+
+ /* Instantiate the printer. */
+ if (valaddr)
+ valaddr += embedded_offset;
+ value = value_from_contents_and_address (type, valaddr, address);
+
+ val_obj = value_to_value_object (value);
+ if (! val_obj)
+ goto done;
+
+ /* Find the constructor. */
+ printer = find_pretty_printer (val_obj);
+ Py_DECREF (val_obj);
+ make_cleanup_py_decref (printer);
+ if (! printer || printer == Py_None)
+ goto done;
+
+ /* If we are printing a map, we want some special formatting. */
+ hint = gdbpy_get_display_hint (printer);
+ make_cleanup (free_current_contents, &hint);
+
+ /* Print the section */
+ print_string_repr (printer, hint, stream, recurse, options, language);
+ print_children (printer, hint, stream, recurse, options, language);
+ result = 1;
+
+
+ done:
+ if (PyErr_Occurred ())
+ gdbpy_print_stack ();
+ do_cleanups (cleanups);
+ return result;
+}
+
+/* Apply a pretty-printer for the varobj code. PRINTER_OBJ is the
+ print object. It must have a 'to_string' method (but this is
+ checked by varobj, not here) which takes no arguments and
+ returns a string. This function returns an xmalloc()d string if
+ the printer returns a string. The printer may return a replacement
+ value instead; in this case *REPLACEMENT is set to the replacement
+ value, and this function returns NULL. On error, *REPLACEMENT is
+ set to NULL and this function also returns NULL. */
+char *
+apply_varobj_pretty_printer (PyObject *printer_obj,
+ struct value **replacement)
+{
+ char *result;
+ PyGILState_STATE state = PyGILState_Ensure ();
+
+ *replacement = NULL;
+ result = pretty_print_one_value (printer_obj, replacement);
+ if (result == NULL);
+ gdbpy_print_stack ();
+ PyGILState_Release (state);
+
+ return result;
+}
+
+/* Find a pretty-printer object for the varobj module. Returns a new
+ reference to the object if successful; returns NULL if not. VALUE
+ is the value for which a printer tests to determine if it
+ can pretty-print the value. */
+PyObject *
+gdbpy_get_varobj_pretty_printer (struct value *value)
+{
+ PyObject *val_obj;
+ PyObject *pretty_printer = NULL;
+ volatile struct gdb_exception except;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ value = value_copy (value);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+
+ val_obj = value_to_value_object (value);
+ if (! val_obj)
+ return NULL;
+
+ pretty_printer = find_pretty_printer (val_obj);
+ Py_DECREF (val_obj);
+ return pretty_printer;
+}
+
+/* A Python function which wraps find_pretty_printer and instantiates
+ the resulting class. This accepts a Value argument and returns a
+ pretty printer instance, or None. This function is useful as an
+ argument to the MI command -var-set-visualizer. */
+static PyObject *
+gdbpy_default_visualizer (PyObject *self, PyObject *args)
+{
+ PyObject *val_obj;
+ PyObject *cons, *printer = NULL;
+ struct value *value;
+
+ if (! PyArg_ParseTuple (args, "O", &val_obj))
+ return NULL;
+ value = value_object_to_value (val_obj);
+ if (! value)
+ {
+ PyErr_SetString (PyExc_TypeError, "argument must be a gdb.Value");
+ return NULL;
+ }
+
+ cons = find_pretty_printer (val_obj);
+ return cons;
+}
+
#else /* HAVE_PYTHON */
/* Dummy implementation of the gdb "python" command. */
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -328,6 +1677,24 @@ eval_python_from_control_command (struct command_line *cmd)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
error (_("Python scripting is not supported in this copy of GDB."));
}
+int
+apply_val_pretty_printer (struct type *type, const gdb_byte *valaddr,
+ int embedded_offset, CORE_ADDR address,
+ struct ui_file *stream, int format,
+ int deref_ref, int recurse,
+ enum val_prettyprint pretty,
+ const struct language_defn *language)
+{
+ return 0;
+}
+
+void
+source_python_script (FILE *stream)
+{
+ fclose (stream);
+ error (_("Python scripting is not supported in this copy of GDB."));
+}
+
#endif /* HAVE_PYTHON */
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -355,9 +1722,6 @@ show_python (char *args, int from_tty)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
/* Initialize the Python code. */
-/* Provide a prototype to silence -Wmissing-prototypes. */
-extern initialize_file_ftype _initialize_python;
-
void
_initialize_python (void)
{
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -400,6 +1764,15 @@ Enables or disables printing of Python stack traces."),
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
&set_python_list,
&show_python_list);
+ add_setshow_boolean_cmd ("auto-load", class_maintenance,
+ &gdbpy_auto_load, _("\
+Enable or disable auto-loading of Python code when an object is opened."), _("\
+Show whether Python code will be auto-loaded when an object is opened."), _("\
+Enables or disables auto-loading of Python code when an object is opened."),
+ NULL, NULL,
+ &set_python_list,
+ &show_python_list);
+
#ifdef HAVE_PYTHON
Py_Initialize ();
PyEval_InitThreads ();
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -410,11 +1783,36 @@ Enables or disables printing of Python stack traces."),
PyModule_AddStringConstant (gdb_module, "VERSION", (char*) version);
PyModule_AddStringConstant (gdb_module, "HOST_CONFIG", (char*) host_name);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
PyModule_AddStringConstant (gdb_module, "TARGET_CONFIG", (char*) target_name);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+#ifdef PYTHONDIR
+ PyModule_AddStringConstant (gdb_module, "pythondir", PYTHONDIR);
+#else
+ if (gdb_datadir)
+ PyModule_AddStringConstant (gdb_module, "datadir", gdb_datadir);
+#endif
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
gdbpy_initialize_values ();
+ gdbpy_initialize_breakpoints ();
+ gdbpy_initialize_frames ();
+ gdbpy_initialize_symtabs ();
gdbpy_initialize_commands ();
+ gdbpy_initialize_symbols ();
+ gdbpy_initialize_blocks ();
+ gdbpy_initialize_functions ();
+ gdbpy_initialize_types ();
+ gdbpy_initialize_parameters ();
+ gdbpy_initialize_objfile ();
+ gdbpy_initialize_events ();
+ gdbpy_initialize_membuf ();
PyRun_SimpleString ("import gdb");
+ PyRun_SimpleString ("gdb.pretty_printers = []");
+
+ observer_attach_new_objfile (gdbpy_new_objfile);
+
+ gdbpy_to_string_cst = PyString_FromString ("to_string");
+ gdbpy_children_cst = PyString_FromString ("children");
+ gdbpy_display_hint_cst = PyString_FromString ("display_hint");
+ gdbpy_doc_cst = PyString_FromString ("__doc__");
gdbpy_doc_cst = PyString_FromString ("__doc__");
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -442,6 +1840,15 @@ class GdbOutputFile:\n\
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
\n\
sys.stderr = GdbOutputFile()\n\
sys.stdout = GdbOutputFile()\n\
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+if hasattr (gdb, 'datadir'):\n\
+ gdb.pythondir = gdb.datadir + '/python'\n\
+if hasattr (gdb, 'pythondir'):\n\
+ sys.path.insert(0, gdb.pythondir)\n\
+ gdb.__path__ = [gdb.pythondir + '/gdb']\n\
+ from os.path import exists\n\
+ ipy = gdb.pythondir + '/gdb/__init__.py'\n\
+ if exists (ipy):\n\
+ execfile (ipy)\n\
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
");
/* Release the GIL while gdb runs. */
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -461,9 +1868,84 @@ static PyMethodDef GdbMethods[] =
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
"Get a value from history" },
{ "execute", execute_gdb_command, METH_VARARGS,
"Execute a gdb command" },
- { "get_parameter", get_parameter, METH_VARARGS,
+ { "cli", gdbpy_cli, METH_NOARGS,
+ "Enter the gdb CLI" },
+ { "parameter", gdbpy_parameter, METH_VARARGS,
"Return a gdb parameter's value" },
+ { "breakpoints", gdbpy_breakpoints, METH_NOARGS,
+ "Return a tuple of all breakpoint objects" },
+
+ { "default_visualizer", gdbpy_default_visualizer, METH_VARARGS,
+ "Find the default visualizer for a Value." },
+
+ { "current_objfile", gdbpy_get_current_objfile, METH_NOARGS,
+ "Return the current Objfile being loaded, or None." },
+ { "objfiles", gdbpy_objfiles, METH_NOARGS,
+ "Return a sequence of all loaded objfiles." },
+
+ { "frames", gdbpy_frames, METH_NOARGS,
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ "frames () -> (gdb.Frame, ...).\n\
+Return a tuple of all frame objects." },
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ { "newest_frame", gdbpy_newest_frame, METH_NOARGS,
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ "newest_frame () -> gdb.Frame.\n\
+Return the newest frame object." },
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ { "selected_frame", gdbpy_selected_frame, METH_NOARGS,
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ "selected_frame () -> gdb.Frame.\n\
+Return the selected frame object." },
+ { "frame_stop_reason_string", gdbpy_frame_stop_reason_string, METH_VARARGS,
+ "stop_reason_string (Integer) -> String.\n\
+Return a string explaining unwind stop reason." },
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ { "lookup_type", (PyCFunction) gdbpy_lookup_type,
+ METH_VARARGS | METH_KEYWORDS,
+ "lookup_type (name [, block]) -> type\n\
+Return a Type corresponding to the given name." },
+
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ { "lookup_symbol", (PyCFunction) gdbpy_lookup_symbol,
+ METH_VARARGS | METH_KEYWORDS,
+ "lookup_symbol (name [, block] [, domain]) -> (symbol, is_field_of_this)\n\
+Return a tuple with the symbol corresponding to the given name (or None) and\n\
+a boolean indicating if name is a field of the current implied argument\n\
+`this' (when the current language is object-oriented)." },
+ { "solib_address", gdbpy_solib_address, METH_VARARGS,
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ "solib_address (Long) -> String.\n\
+Return the name of the shared library holding a given address, or None." },
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+ { "find_pc_function", gdbpy_find_pc_function, METH_VARARGS,
+ "Return the function containing the given pc value, or None." },
+
+ { "block_for_pc", gdbpy_block_for_pc, METH_VARARGS,
+ "Return the block containing the given pc value, or None." },
+
+ { "decode_line", gdbpy_decode_line, METH_VARARGS,
+ "Decode a string argument the way that 'break' or 'edit' does.\n\
+Return a tuple holding the file name (or None) and line number (or None).\n\
+Note: may later change to return an object." },
+
+ { "threads", gdbpy_threads, METH_NOARGS,
+ "Return a tuple holding all the valid thread IDs." },
+ { "current_thread", gdbpy_current_thread, METH_NOARGS,
+ "Return the thread ID of the current thread." },
+ { "switch_to_thread", gdbpy_switch_to_thread, METH_VARARGS,
+ "Switch to a thread, given the thread ID." },
+
+ { "parse_and_eval", gdbpy_parse_and_eval, METH_VARARGS,
+ "Parse a string as an expression, evaluate it, and return the result." },
+
+ { "post_event", gdbpy_post_event, METH_VARARGS,
+ "Post an event into gdb's event loop." },
+
+ { "read_memory", gdbpy_read_memory, METH_VARARGS,
+ "read_memory (address, length) -> buffer\n\
+Return a buffer object for reading from the inferior's memory." },
+ { "write_memory", gdbpy_write_memory, METH_VARARGS,
+ "write_memory (address, buffer [, length])\n\
+Write the given buffer object to the inferior's memory." },
+ { "search_memory", (PyCFunction) gdbpy_search_memory, METH_VARARGS | METH_KEYWORDS,
+ "search_memory (address, length, pattern [, size] [, max_count]) -> list\n\
+Return a list with the addresses where matches were found." },
+
{ "write", gdbpy_write, METH_VARARGS,
"Write a string using gdb's filtered stream." },
{ "flush", gdbpy_flush, METH_NOARGS,
diff --git a/gdb/python/python.h b/gdb/python/python.h
index e63c447..767af86 100644
--- a/gdb/python/python.h
+++ b/gdb/python/python.h
@@ -26,4 +26,14 @@ extern struct value *values_in_python;
void eval_python_from_control_command (struct command_line *);
+void source_python_script (FILE *stream, char *file);
+
+void run_python_script (int argc, char **argv);
+
+int apply_val_pretty_printer (struct type *type, const gdb_byte *valaddr,
+ int embedded_offset, CORE_ADDR address,
+ struct ui_file *stream, int recurse,
+ const struct value_print_options *options,
+ const struct language_defn *language);
+
#endif /* GDB_PYTHON_H */
diff --git a/gdb/scm-lang.c b/gdb/scm-lang.c
index 345befd..e2568c8 100644
--- a/gdb/scm-lang.c
+++ b/gdb/scm-lang.c
@@ -43,14 +43,14 @@ static int in_eval_c (void);
struct type *builtin_type_scm;
void
-scm_printchar (int c, struct ui_file *stream)
+scm_printchar (int c, struct type *type, struct ui_file *stream)
{
fprintf_filtered (stream, "#\\%c", c);
}
static void
-scm_printstr (struct ui_file *stream, const gdb_byte *string,
- unsigned int length, int width, int force_ellipses,
+scm_printstr (struct ui_file *stream, struct type *type, const gdb_byte *string,
+ unsigned int length, int force_ellipses,
const struct value_print_options *options)
{
fprintf_filtered (stream, "\"%s\"", string);
diff --git a/gdb/scm-lang.h b/gdb/scm-lang.h
index 6bf88f5..1798b2f 100644
--- a/gdb/scm-lang.h
+++ b/gdb/scm-lang.h
@@ -59,7 +59,7 @@ extern void scm_scmval_print (LONGEST, struct ui_file *, int,
extern int is_scmvalue_type (struct type *);
-extern void scm_printchar (int, struct ui_file *);
+extern void scm_printchar (int, struct type *, struct ui_file *);
extern struct value *scm_evaluate_string (char *, int);
diff --git a/gdb/scm-valprint.c b/gdb/scm-valprint.c
index f0a7642..a32add5 100644
--- a/gdb/scm-valprint.c
+++ b/gdb/scm-valprint.c
@@ -187,7 +187,8 @@ taloop:
if (SCM_ICHRP (svalue))
{
svalue = SCM_ICHR (svalue);
- scm_printchar (svalue, stream);
+ scm_printchar (svalue, builtin_type (current_gdbarch)->builtin_char,
+ stream);
break;
}
else if (SCM_IFLAGP (svalue)
diff --git a/gdb/stabsread.c b/gdb/stabsread.c
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
index 2d7eb15..3b8eb29 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/stabsread.c
+++ b/gdb/stabsread.c
@@ -322,7 +322,7 @@ dbx_alloc_type (int typenums[2], struct objfile *objfile)
if (typenums[0] == -1)
{
- return (alloc_type (objfile));
+ return (alloc_type (objfile, NULL));
}
type_addr = dbx_lookup_type (typenums);
@@ -332,7 +332,7 @@ dbx_alloc_type (int typenums[2], struct objfile *objfile)
We will fill it in later if we find out how. */
if (*type_addr == 0)
{
- *type_addr = alloc_type (objfile);
+ *type_addr = alloc_type (objfile, NULL);
}
return (*type_addr);
@@ -589,6 +589,7 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type,
int deftype;
int synonym = 0;
int i;
+ char *new_name = NULL;
/* We would like to eliminate nameless symbols, but keep their types.
E.g. stab entry ":t10=*2" should produce a type 10, which is a pointer
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -683,9 +684,24 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
{
normal:
SYMBOL_LANGUAGE (sym) = current_subfile->language;
- SYMBOL_SET_NAMES (sym, string, p - string, objfile);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ if (current_subfile->language == language_cplus)
+ {
+ char *name = alloca (p - string + 1);
+ memcpy (name, string, p - string);
+ name[p - string] = '\0';
+ new_name = cp_canonicalize_string (name);
+ }
+
+ if (new_name != NULL)
+ {
+ SYMBOL_SET_NAMES (sym, new_name, strlen (new_name), objfile);
+ xfree (new_name);
+ }
+ else
+ SYMBOL_SET_NAMES (sym, string, p - string, objfile);
+
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
if (SYMBOL_LANGUAGE (sym) == language_cplus)
- cp_scan_for_anonymous_namespaces (sym);
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
+ cp_scan_for_anonymous_namespaces (sym);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
p++;
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
@@ -1519,18 +1535,35 @@ again:
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
if (*p != ':')
return error_type (pp, objfile);
}
- to = type_name =
- (char *) obstack_alloc (&objfile->objfile_obstack, p - *pp + 1);
-
- /* Copy the name. */
- from = *pp + 1;
- while (from < p)
- *to++ = *from++;
- *to = '\0';
+ type_name = NULL;
+ if (current_subfile->language == language_cplus)
+ {
+ char *new_name, *name = alloca (p - *pp + 1);
+ memcpy (name, *pp, p - *pp);
+ name[p - *pp] = '\0';
+ new_name = cp_canonicalize_string (name);
+ if (new_name != NULL)
+ {
+ type_name = obsavestring (new_name, strlen (new_name),
+ &objfile->objfile_obstack);
+ xfree (new_name);
+ }
+ }
+ if (type_name == NULL)
+ {
+ to = type_name =
+ (char *) obstack_alloc (&objfile->objfile_obstack, p - *pp + 1);
+
+ /* Copy the name. */
+ from = *pp + 1;
+ while (from < p)
+ *to++ = *from++;
+ *to = '\0';
+ }
/* Set the pointer ahead of the name which we just read, and
the colon. */
- *pp = from + 1;
+ *pp = p + 1;
}
/* If this type has already been declared, then reuse the same
diff --git a/gdb/stack.c b/gdb/stack.c
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
index 3bcf758..094a4ce 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/stack.c
+++ b/gdb/stack.c
@@ -380,6 +380,7 @@ print_frame_args (struct symbol *func, struct frame_info *frame,
get_raw_print_options (&opts);
opts.deref_ref = 0;
+ opts.summary = 1;
common_val_print (val, stb->stream, 2,
&opts, language);
ui_out_field_stream (uiout, "value", stb);
@@ -579,20 +580,16 @@ print_frame_info (struct frame_info *frame, int print_level,
gdb_flush (gdb_stdout);
}
-static void
-print_frame (struct frame_info *frame, int print_level,
- enum print_what print_what, int print_args,
- struct symtab_and_line sal)
+/* Attempt to obtain the FUNNAME and FUNLANG of the function corresponding
+ to FRAME. */
+void
+find_frame_funname (struct frame_info *frame, char **funname,
+ enum language *funlang)
{
struct symbol *func;
- char *funname = NULL;
- enum language funlang = language_unknown;
- struct ui_stream *stb;
- struct cleanup *old_chain, *list_chain;
- struct value_print_options opts;
- stb = ui_out_stream_new (uiout);
- old_chain = make_cleanup_ui_out_stream_delete (stb);
+ *funname = NULL;
+ *funlang = language_unknown;
func = find_pc_function (get_frame_address_in_block (frame));
if (func)
@@ -625,24 +622,24 @@ print_frame (struct frame_info *frame, int print_level,
/* We also don't know anything about the function besides
its address and name. */
func = 0;
- funname = SYMBOL_PRINT_NAME (msymbol);
- funlang = SYMBOL_LANGUAGE (msymbol);
+ *funname = SYMBOL_PRINT_NAME (msymbol);
+ *funlang = SYMBOL_LANGUAGE (msymbol);
}
else
{
- funname = SYMBOL_PRINT_NAME (func);
- funlang = SYMBOL_LANGUAGE (func);
- if (funlang == language_cplus)
+ *funname = SYMBOL_PRINT_NAME (func);
+ *funlang = SYMBOL_LANGUAGE (func);
+ if (*funlang == language_cplus)
{
/* It seems appropriate to use SYMBOL_PRINT_NAME() here,
to display the demangled name that we already have
stored in the symbol table, but we stored a version
with DMGL_PARAMS turned on, and here we don't want to
display parameters. So remove the parameters. */
- char *func_only = cp_remove_params (funname);
+ char *func_only = cp_remove_params (*funname);
if (func_only)
{
- funname = func_only;
+ *funname = func_only;
make_cleanup (xfree, func_only);
}
}
@@ -655,10 +652,27 @@ print_frame (struct frame_info *frame, int print_level,
if (msymbol != NULL)
{
- funname = SYMBOL_PRINT_NAME (msymbol);
- funlang = SYMBOL_LANGUAGE (msymbol);
+ *funname = SYMBOL_PRINT_NAME (msymbol);
+ *funlang = SYMBOL_LANGUAGE (msymbol);
}
}
+}
+
+static void
+print_frame (struct frame_info *frame, int print_level,
+ enum print_what print_what, int print_args,
+ struct symtab_and_line sal)
+{
+ char *funname = NULL;
+ enum language funlang = language_unknown;
+ struct ui_stream *stb;
+ struct cleanup *old_chain, *list_chain;
+ struct value_print_options opts;
+
+ stb = ui_out_stream_new (uiout);
+ old_chain = make_cleanup_ui_out_stream_delete (stb);
+
+ find_frame_funname (frame, &funname, &funlang);
annotate_frame_begin (print_level ? frame_relative_level (frame) : 0,
get_frame_pc (frame));
@@ -694,7 +708,7 @@ print_frame (struct frame_info *frame, int print_level,
struct print_args_args args;
struct cleanup *args_list_chain;
args.frame = frame;
- args.func = func;
+ args.func = find_pc_function (get_frame_address_in_block (frame));
args.stream = gdb_stdout;
args_list_chain = make_cleanup_ui_out_list_begin_end (uiout, "args");
catch_errors (print_args_stub, &args, "", RETURN_MASK_ERROR);
@@ -1208,24 +1222,24 @@ backtrace_command_1 (char *count_exp, int show_locals, int from_tty)
else
count = -1;
- if (info_verbose)
- {
- struct partial_symtab *ps;
-
- /* Read in symbols for all of the frames. Need to do this in a
- separate pass so that "Reading in symbols for xxx" messages
- don't screw up the appearance of the backtrace. Also if
- people have strong opinions against reading symbols for
- backtrace this may have to be an option. */
- i = count;
- for (fi = trailing; fi != NULL && i--; fi = get_prev_frame (fi))
- {
- QUIT;
- ps = find_pc_psymtab (get_frame_address_in_block (fi));
- if (ps)
- PSYMTAB_TO_SYMTAB (ps); /* Force syms to come in. */
- }
- }
+ {
+ struct partial_symtab *ps;
+
+ /* Read in symbols for all of the frames. Need to do this
+ unconditionally to ensure that psymbols are read. Also need to
+ do this in a separate pass so that "Reading in symbols for xxx"
+ messages don't screw up the appearance of the backtrace. Also
+ if people have strong opinions against reading symbols for
+ backtrace this may have to be an option. */
+ i = count;
+ for (fi = trailing; fi != NULL && i--; fi = get_prev_frame (fi))
+ {
+ QUIT;
+ ps = find_pc_psymtab (get_frame_address_in_block (fi));
+ if (info_verbose && ps)
+ PSYMTAB_TO_SYMTAB (ps); /* Force syms to come in. */
+ }
+ }
for (i = 0, fi = trailing; fi && count--; i++, fi = get_prev_frame (fi))
{
@@ -1373,6 +1387,8 @@ print_block_frame_locals (struct block *b, struct frame_info *frame,
case LOC_COMPUTED:
if (SYMBOL_IS_ARGUMENT (sym))
break;
+ if (SYMBOL_DOMAIN (sym) == COMMON_BLOCK_DOMAIN)
+ break;
values_printed = 1;
print_variable_and_value (NULL, sym, frame, stream, 4 * num_tabs);
break;
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -1796,18 +1812,27 @@ return_command (char *retval_exp, int from_tty)
message. */
if (retval_exp)
{
+ struct expression *retval_expr = parse_expression (retval_exp);
+ struct cleanup *old_chain = make_cleanup (xfree, retval_expr);
struct type *return_type = NULL;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
/* Compute the return value. Should the computation fail, this
call throws an error. */
- return_value = parse_and_eval (retval_exp);
+ return_value = evaluate_expression (retval_expr);
/* Cast return value to the return type of the function. Should
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
the cast fail, this call throws an error. */
if (thisfun != NULL)
return_type = TYPE_TARGET_TYPE (SYMBOL_TYPE (thisfun));
if (return_type == NULL)
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
- return_type = builtin_type (get_frame_arch (thisframe))->builtin_int;
+ {
+ if (retval_expr->elts[0].opcode != UNOP_CAST)
+ error (_("Return value type not available for selected "
+ "stack frame.\n"
+ "Please use an explicit cast of the value to return."));
+ return_type = value_type (return_value);
+ }
+ do_cleanups (old_chain);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
CHECK_TYPEDEF (return_type);
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
return_value = value_cast (return_type, return_value);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/stack.h b/gdb/stack.h
index 973a57f..56b1d91 100644
--- a/gdb/stack.h
+++ b/gdb/stack.h
@@ -22,4 +22,9 @@
void select_frame_command (char *level_exp, int from_tty);
+/* Attempt to obtain the FUNNAME and FUNLANG of the function corresponding
+ to FRAME. */
+void find_frame_funname (struct frame_info *frame, char **funname,
+ enum language *funlang);
+
#endif /* #ifndef STACK_H */
diff --git a/gdb/symfile.c b/gdb/symfile.c
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
index 63b5c1d..b047e94 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/symfile.c
+++ b/gdb/symfile.c
@@ -929,6 +929,17 @@ new_symfile_objfile (struct objfile *objfile, int mainline, int verbo)
clear_complaints (&symfile_complaints, 0, verbo);
}
+/* A helper function which returns true if OBJFILE has any debug
+ symbols, and false otherwise. */
+static int
+has_any_debug_symbols (struct objfile *objfile)
+{
+ return (objfile->psymtabs || objfile->quick_addrmap
+ || (objfile->separate_debug_objfile
+ && (objfile->separate_debug_objfile->psymtabs
+ || objfile->separate_debug_objfile->quick_addrmap)));
+}
+
/* Process a symbol file, as either the main file or as a dynamically
loaded file.
@@ -965,13 +976,15 @@ symbol_file_add_with_addrs_or_offsets (bfd *abfd, int from_tty,
/* Give user a chance to burp if we'd be
interactively wiping out any existing symbols. */
- if ((have_full_symbols () || have_partial_symbols ())
- && mainline
+ if (mainline
&& from_tty
+ && (have_full_symbols () || have_partial_symbols ())
&& !query (_("Load new symbol table from \"%s\"? "), name))
error (_("Not confirmed."));
objfile = allocate_objfile (abfd, flags);
+ if (mainline)
+ objfile->flags |= OBJF_MAIN;
discard_cleanups (my_cleanups);
if (addrs)
@@ -1007,6 +1020,8 @@ symbol_file_add_with_addrs_or_offsets (bfd *abfd, int from_tty,
if ((flags & OBJF_READNOW) || readnow_symbol_files)
{
+ require_partial_symbols (objfile);
+
if ((from_tty || info_verbose) && print_symbol_loading)
{
printf_unfiltered (_("expanding to full symbols..."));
@@ -1025,7 +1040,7 @@ symbol_file_add_with_addrs_or_offsets (bfd *abfd, int from_tty,
/* If the file has its own symbol tables it has no separate debug info.
`.dynsym'/`.symtab' go to MSYMBOLS, `.debug_info' goes to SYMTABS/PSYMTABS.
`.gnu_debuglink' may no longer be present with `.note.gnu.build-id'. */
- if (objfile->psymtabs == NULL)
+ if (!has_any_debug_symbols (objfile))
debugfile = find_separate_debug_file (objfile);
if (debugfile)
{
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
@@ -1049,8 +1064,10 @@ symbol_file_add_with_addrs_or_offsets (bfd *abfd, int from_tty,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
xfree (debugfile);
}
- if (!have_partial_symbols () && !have_full_symbols ()
- && print_symbol_loading)
+ /* has_any_debug_symbols is not fully compatible with the former calls which
+ would just be needlessly expensive here. */
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
+ if ((from_tty || info_verbose) && print_symbol_loading
+ && !has_any_debug_symbols (objfile) && mainline)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
{
wrap_here ("");
printf_unfiltered (_("(no debugging symbols found)"));
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
@@ -2423,13 +2440,15 @@ reread_symbols (void)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
zero is OK since dbxread.c also does what it needs to do if
objfile->global_psymbols.size is 0. */
(*objfile->sf->sym_read) (objfile, 0);
- if (!have_partial_symbols () && !have_full_symbols ())
+ if (!has_any_debug_symbols (objfile))
{
wrap_here ("");
printf_unfiltered (_("(no debugging symbols found)\n"));
wrap_here ("");
}
+ objfile->flags &= ~OBJF_SYMTABS_READ;
+
/* We're done reading the symbol file; finish off complaints. */
clear_complaints (&symfile_complaints, 0, 1);
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
@@ -2726,7 +2745,7 @@ allocate_symtab (char *filename, struct objfile *objfile)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
}
struct partial_symtab *
-allocate_psymtab (char *filename, struct objfile *objfile)
+allocate_psymtab (const char *filename, struct objfile *objfile)
{
struct partial_symtab *psymtab;
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
@@ -3040,7 +3059,8 @@ again2:
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
struct partial_symtab *
start_psymtab_common (struct objfile *objfile,
- struct section_offsets *section_offsets, char *filename,
+ struct section_offsets *section_offsets,
+ const char *filename,
CORE_ADDR textlow, struct partial_symbol **global_syms,
struct partial_symbol **static_syms)
{
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/symfile.h b/gdb/symfile.h
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
index 88f8326..50671c1 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/symfile.h
+++ b/gdb/symfile.h
@@ -140,6 +140,12 @@ struct sym_fns
void (*sym_read) (struct objfile *, int);
+ /* Read the partial symbols for an objfile. This may be NULL, in
+ which case gdb assumes that sym_read already read the partial
+ symbols. */
+
+ void (*sym_read_psymbols) (struct objfile *);
+
/* Called when we are finished with an objfile. Should do all
cleanup that is specific to the object file format for the
particular objfile. */
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -250,7 +256,7 @@ extern void free_section_addr_info (struct section_addr_info *);
extern struct partial_symtab *start_psymtab_common (struct objfile *,
struct section_offsets *,
- char *, CORE_ADDR,
+ const char *, CORE_ADDR,
struct partial_symbol **,
struct partial_symbol **);
@@ -300,7 +306,7 @@ extern int auto_solib_limit;
extern void set_initial_language (void);
-extern struct partial_symtab *allocate_psymtab (char *, struct objfile *);
+extern struct partial_symtab *allocate_psymtab (const char *, struct objfile *);
extern void discard_psymtab (struct partial_symtab *);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
@@ -369,7 +375,7 @@ void free_symfile_segment_data (struct symfile_segment_data *data);
/* From dwarf2read.c */
extern int dwarf2_has_info (struct objfile *);
-
+extern void dwarf2_create_quick_addrmap (struct objfile *);
extern void dwarf2_build_psymtabs (struct objfile *, int);
extern void dwarf2_build_frame_info (struct objfile *);
diff --git a/gdb/symtab.c b/gdb/symtab.c
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
index d2ba1f3..f9d27b2 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/symtab.c
+++ b/gdb/symtab.c
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -42,6 +42,7 @@
#include "ada-lang.h"
#include "p-lang.h"
#include "addrmap.h"
+#include "cp-support.h"
#include "hashtab.h"
@@ -55,6 +56,7 @@
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
#include "gdb_stat.h"
#include <ctype.h>
#include "cp-abi.h"
+#include "cp-support.h"
#include "observer.h"
#include "gdb_assert.h"
#include "solist.h"
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -273,7 +275,7 @@ lookup_partial_symtab (const char *name)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
make_cleanup (xfree, real_path);
}
- ALL_PSYMTABS (objfile, pst)
+ ALL_PSYMTABS_REQUIRED (objfile, pst)
{
if (FILENAME_CMP (name, pst->filename) == 0)
{
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -870,7 +872,13 @@ find_pc_sect_psymtab (CORE_ADDR pc, struct obj_section *section)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
than the later used TEXTLOW/TEXTHIGH one. */
ALL_OBJFILES (objfile)
- if (objfile->psymtabs_addrmap != NULL)
+ {
+ if (objfile->quick_addrmap)
+ {
+ if (!addrmap_find (objfile->quick_addrmap, pc))
+ continue;
+ }
+ if (require_partial_symbols (objfile)->psymtabs_addrmap != NULL)
{
struct partial_symtab *pst;
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -903,6 +911,7 @@ find_pc_sect_psymtab (CORE_ADDR pc, struct obj_section *section)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return pst;
}
}
+ }
/* Existing PSYMTABS_ADDRMAP mapping is present even for PARTIAL_SYMTABs
which still have no corresponding full SYMTABs read. But it is not
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -1170,6 +1179,22 @@ fixup_psymbol_section (struct partial_symbol *psym, struct objfile *objfile)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return psym;
}
+/* Ensure that the partial symbols for OBJFILE have been loaded. This
+ function always returns its argument, as a convenience. */
+
+struct objfile *
+require_partial_symbols (struct objfile *objfile)
+{
+ if ((objfile->flags & OBJF_SYMTABS_READ) == 0)
+ {
+ objfile->flags |= OBJF_SYMTABS_READ;
+
+ if (objfile->sf->sym_read_psymbols)
+ (*objfile->sf->sym_read_psymbols) (objfile);
+ }
+ return objfile;
+}
+
/* Find the definition for a specified symbol name NAME
in domain DOMAIN, visible from lexical block BLOCK.
Returns the struct symbol pointer, or zero if no symbol is found.
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -1200,6 +1225,11 @@ lookup_symbol_in_language (const char *name, const struct block *block,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
int needtofreename = 0;
struct symbol *returnval;
+ if(strncmp(name, "::", 2) == 0){/* this must be a global name */
+ name = name+2;
+ block = NULL;
+ }
+
modified_name = name;
/* If we are using C++ or Java, demangle the name before doing a lookup, so
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -1213,6 +1243,17 @@ lookup_symbol_in_language (const char *name, const struct block *block,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
modified_name = demangled_name;
needtofreename = 1;
}
+ else
+ {
+ /* If we were given a non-mangled name, canonicalize it
+ according to the language (so far only for C++). */
+ demangled_name = cp_canonicalize_string (name);
+ if (demangled_name)
+ {
+ modified_name = demangled_name;
+ needtofreename = 1;
+ }
+ }
}
else if (lang == language_java)
{
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -1296,13 +1337,15 @@ lookup_symbol_aux (const char *name, const char *linkage_name,
&& block != NULL)
{
struct symbol *sym = NULL;
+ const struct block *function_block = block;
+
/* 'this' is only defined in the function's block, so find the
enclosing function block. */
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
- for (; block && !BLOCK_FUNCTION (block);
- block = BLOCK_SUPERBLOCK (block));
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ for (; function_block && !BLOCK_FUNCTION (function_block);
+ function_block = BLOCK_SUPERBLOCK (function_block));
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
- if (block && !dict_empty (BLOCK_DICT (block)))
- sym = lookup_block_symbol (block, langdef->la_name_of_this,
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ if (function_block && !dict_empty (BLOCK_DICT (function_block)))
+ sym = lookup_block_symbol (function_block, langdef->la_name_of_this,
NULL, VAR_DOMAIN);
if (sym)
{
@@ -1361,22 +1404,24 @@ lookup_symbol_aux_local (const char *name, const char *linkage_name,
const domain_enum domain)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
{
struct symbol *sym;
- const struct block *static_block = block_static_block (block);
+ const struct block *global_block = block_global_block (block);
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
+ const struct block *block_iterator = block;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
/* Check if either no block is specified or it's a global block. */
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
- if (static_block == NULL)
+ if (global_block == NULL)
return NULL;
- while (block != static_block)
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
+ while (block_iterator != global_block)
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
{
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
- sym = lookup_symbol_aux_block (name, linkage_name, block, domain);
+ sym = lookup_symbol_aux_block (name, linkage_name, block_iterator, domain);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
if (sym != NULL)
return sym;
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
- block = BLOCK_SUPERBLOCK (block);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
+ block_iterator = BLOCK_SUPERBLOCK (block_iterator);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
}
- /* We've reached the static block without finding a result. */
+ /* We've reached the global block without finding a result. */
return NULL;
}
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -1450,6 +1495,7 @@ lookup_global_symbol_from_objfile (const struct objfile *objfile,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
/* Now go through psymtabs. */
+ require_partial_symbols ((struct objfile *) objfile);
ALL_OBJFILE_PSYMTABS (objfile, ps)
{
if (!ps->readin
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -1520,7 +1566,7 @@ lookup_symbol_aux_psymtabs (int block_index, const char *name,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
struct symtab *s;
const int psymtab_index = (block_index == GLOBAL_BLOCK ? 1 : 0);
- ALL_PSYMTABS (objfile, ps)
+ ALL_PSYMTABS_REQUIRED (objfile, ps)
{
if (!ps->readin
&& lookup_partial_symbol (ps, name, linkage_name,
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -1805,7 +1851,11 @@ basic_lookup_transparent_type (const char *name)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
}
- ALL_PSYMTABS (objfile, ps)
+ /* FIXME: .debug_pubnames should be read in.
+
+ One may also try to the first pass without the require_partial_symbols
+ call but that would behave nondeterministically. */
+ ALL_PSYMTABS_REQUIRED (objfile, ps)
{
if (!ps->readin && lookup_partial_symbol (ps, name, NULL,
1, STRUCT_DOMAIN))
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -1853,7 +1903,12 @@ basic_lookup_transparent_type (const char *name)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
}
- ALL_PSYMTABS (objfile, ps)
+ /* FIXME: Something like .debug_pubnames containing also static symbols
+ should be read in. Compiler needs to be taught to generate it first.
+
+ One may also try to the first pass without the require_partial_symbols
+ call but that would behave nondeterministically. */
+ ALL_PSYMTABS_REQUIRED (objfile, ps)
{
if (!ps->readin && lookup_partial_symbol (ps, name, NULL, 0, STRUCT_DOMAIN))
{
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -1894,7 +1949,21 @@ find_main_psymtab (void)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
struct partial_symtab *pst;
struct objfile *objfile;
- ALL_PSYMTABS (objfile, pst)
+ ALL_OBJFILES (objfile)
+ {
+ if ((objfile->flags & OBJF_MAIN) == 0)
+ continue;
+ require_partial_symbols (objfile);
+ ALL_OBJFILE_PSYMTABS (objfile, pst)
+ {
+ if (lookup_partial_symbol (pst, main_name (), NULL, 1, VAR_DOMAIN))
+ {
+ return pst;
+ }
+ }
+ }
+
+ ALL_PSYMTABS_REQUIRED (objfile, pst)
{
if (lookup_partial_symbol (pst, main_name (), NULL, 1, VAR_DOMAIN))
{
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -3085,7 +3154,7 @@ search_symbols (char *regexp, domain_enum kind, int nfiles, char *files[],
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
matching the regexp. That way we don't have to reproduce all of
the machinery below. */
- ALL_PSYMTABS (objfile, ps)
+ ALL_PSYMTABS_REQUIRED (objfile, ps)
{
struct partial_symbol **bound, **gbound, **sbound;
int keep_going = 1;
diff --git a/gdb/symtab.h b/gdb/symtab.h
- Archer update to the snapshot: d144a3633454046aaeae3e2c369c271834431d36 - Archer backport: a2c49b7640ebe7ce1376902d48d5bbbee600996b - Fixup compilation older GCCs. - Archer backport: fe48224ce1bd22f37a7fa6d111d54c1a340392bf - KFAIL 4 cases of: gdb.arch/powerpc-power7.exp - Archer backport: d144a3633454046aaeae3e2c369c271834431d36 - Fix C local extern variables (requires gcc-4.4.0-0.30).
2009-03-30 17:32:01 +00:00
index 8b086f3..801cd2b 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/symtab.h
+++ b/gdb/symtab.h
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -171,9 +171,6 @@ extern CORE_ADDR symbol_overlayed_address (CORE_ADDR, struct obj_section *);
#define SYMBOL_SECTION(symbol) (symbol)->ginfo.section
#define SYMBOL_OBJ_SECTION(symbol) (symbol)->ginfo.obj_section
-#define SYMBOL_CPLUS_DEMANGLED_NAME(symbol) \
- (symbol)->ginfo.language_specific.cplus_specific.demangled_name
-
/* Initializes the language dependent portion of a symbol
depending upon the language for the symbol. */
#define SYMBOL_INIT_LANGUAGE_SPECIFIC(symbol,language) \
@@ -394,7 +391,10 @@ typedef enum domain_enum_tag
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
FUNCTIONS_DOMAIN,
/* All defined types */
- TYPES_DOMAIN
+ TYPES_DOMAIN,
+
+ /* Fortran common blocks. Their naming must be separate from VAR_DOMAIN. */
+ COMMON_BLOCK_DOMAIN
}
domain_enum;
- Archer update to the snapshot: d144a3633454046aaeae3e2c369c271834431d36 - Archer backport: a2c49b7640ebe7ce1376902d48d5bbbee600996b - Fixup compilation older GCCs. - Archer backport: fe48224ce1bd22f37a7fa6d111d54c1a340392bf - KFAIL 4 cases of: gdb.arch/powerpc-power7.exp - Archer backport: d144a3633454046aaeae3e2c369c271834431d36 - Fix C local extern variables (requires gcc-4.4.0-0.30).
2009-03-30 17:32:01 +00:00
@@ -472,7 +472,13 @@ enum address_class
in another object file or runtime common storage.
The linker might even remove the minimal symbol if the global
symbol is never referenced, in which case the symbol remains
- unresolved. */
+ unresolved.
+
+ GDB would normally find the symbol in the minimal symbol table if it will
+ not find it in the full symbol table. But a reference to an external
+ symbol in a local block shadowing other definition requires full symbol
+ without possibly having its address available for LOC_STATIC. Testcase
+ is provided as `gdb.dwarf2/dw2-unresolved.exp'. */
LOC_UNRESOLVED,
@@ -1027,6 +1033,8 @@ extern void clear_pc_function_cache (void);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
/* from symtab.c: */
+struct objfile *require_partial_symbols (struct objfile *);
+
/* lookup partial symbol table by filename */
extern struct partial_symtab *lookup_partial_symtab (const char *);
diff --git a/gdb/syscalls/gdb-syscalls.dtd b/gdb/syscalls/gdb-syscalls.dtd
new file mode 100644
index 0000000..0d40ab4
--- /dev/null
+++ b/gdb/syscalls/gdb-syscalls.dtd
@@ -0,0 +1,21 @@
+<!-- Copyright (C) 2007, 2008 Free Software Foundation, Inc.
+
+ Copying and distribution of this file, with or without modification,
+ are permitted in any medium without royalty provided the copyright
+ notice and this notice are preserved. -->
+
+<!-- The root element of a syscall info is <syscalls_info>. -->
+
+<!ELEMENT syscalls_info (syscall*)>
+
+<!-- Maybe the 'number' attribute will have to be changed from
+ ID to CDATA. -->
+<!ELEMENT syscall EMPTY>
+<!ATTLIST syscall
+ name CDATA #REQUIRED
+ number ID #REQUIRED>
+
+<!ELEMENT xi:include (EMPTY)>
+<!ATTLIST xi:include
+ xmlns:xi CDATA #FIXED "http://www.w3.org/2001/XInclude"
+ href CDATA #REQUIRED>
diff --git a/gdb/syscalls/i386-linux.xml b/gdb/syscalls/i386-linux.xml
new file mode 100644
index 0000000..6f2beee
--- /dev/null
+++ b/gdb/syscalls/i386-linux.xml
@@ -0,0 +1,334 @@
+<?xml version="1.0"?>
+<!-- Copyright (C) 2007, 2008 Free Software Foundation, Inc.
+
+ Copying and distribution of this file, with or without modification,
+ are permitted in any medium without royalty provided the copyright
+ notice and this notice are preserved. -->
+
+<!DOCTYPE feature SYSTEM "gdb-syscalls.dtd">
+
+<syscalls_info>
+ <syscall name="restart_syscall" number="0"/>
+ <syscall name="exit" number="1"/>
+ <syscall name="fork" number="2"/>
+ <syscall name="read" number="3"/>
+ <syscall name="write" number="4"/>
+ <syscall name="open" number="5"/>
+ <syscall name="close" number="6"/>
+ <syscall name="waitpid" number="7"/>
+ <syscall name="creat" number="8"/>
+ <syscall name="link" number="9"/>
+ <syscall name="unlink" number="10"/>
+ <syscall name="execve" number="11"/>
+ <syscall name="chdir" number="12"/>
+ <syscall name="time" number="13"/>
+ <syscall name="mknod" number="14"/>
+ <syscall name="chmod" number="15"/>
+ <syscall name="lchown" number="16"/>
+ <syscall name="break" number="17"/>
+ <syscall name="oldstat" number="18"/>
+ <syscall name="lseek" number="19"/>
+ <syscall name="getpid" number="20"/>
+ <syscall name="mount" number="21"/>
+ <syscall name="umount" number="22"/>
+ <syscall name="setuid" number="23"/>
+ <syscall name="getuid" number="24"/>
+ <syscall name="stime" number="25"/>
+ <syscall name="ptrace" number="26"/>
+ <syscall name="alarm" number="27"/>
+ <syscall name="oldfstat" number="28"/>
+ <syscall name="pause" number="29"/>
+ <syscall name="utime" number="30"/>
+ <syscall name="stty" number="31"/>
+ <syscall name="gtty" number="32"/>
+ <syscall name="access" number="33"/>
+ <syscall name="nice" number="34"/>
+ <syscall name="ftime" number="35"/>
+ <syscall name="sync" number="36"/>
+ <syscall name="kill" number="37"/>
+ <syscall name="rename" number="38"/>
+ <syscall name="mkdir" number="39"/>
+ <syscall name="rmdir" number="40"/>
+ <syscall name="dup" number="41"/>
+ <syscall name="pipe" number="42"/>
+ <syscall name="times" number="43"/>
+ <syscall name="prof" number="44"/>
+ <syscall name="brk" number="45"/>
+ <syscall name="setgid" number="46"/>
+ <syscall name="getgid" number="47"/>
+ <syscall name="signal" number="48"/>
+ <syscall name="geteuid" number="49"/>
+ <syscall name="getegid" number="50"/>
+ <syscall name="acct" number="51"/>
+ <syscall name="umount2" number="52"/>
+ <syscall name="lock" number="53"/>
+ <syscall name="ioctl" number="54"/>
+ <syscall name="fcntl" number="55"/>
+ <syscall name="mpx" number="56"/>
+ <syscall name="setpgid" number="57"/>
+ <syscall name="ulimit" number="58"/>
+ <syscall name="oldolduname" number="59"/>
+ <syscall name="umask" number="60"/>
+ <syscall name="chroot" number="61"/>
+ <syscall name="ustat" number="62"/>
+ <syscall name="dup2" number="63"/>
+ <syscall name="getppid" number="64"/>
+ <syscall name="getpgrp" number="65"/>
+ <syscall name="setsid" number="66"/>
+ <syscall name="sigaction" number="67"/>
+ <syscall name="sgetmask" number="68"/>
+ <syscall name="ssetmask" number="69"/>
+ <syscall name="setreuid" number="70"/>
+ <syscall name="setregid" number="71"/>
+ <syscall name="sigsuspend" number="72"/>
+ <syscall name="sigpending" number="73"/>
+ <syscall name="sethostname" number="74"/>
+ <syscall name="setrlimit" number="75"/>
+ <syscall name="getrlimit" number="76"/>
+ <syscall name="getrusage" number="77"/>
+ <syscall name="gettimeofday" number="78"/>
+ <syscall name="settimeofday" number="79"/>
+ <syscall name="getgroups" number="80"/>
+ <syscall name="setgroups" number="81"/>
+ <syscall name="select" number="82"/>
+ <syscall name="symlink" number="83"/>
+ <syscall name="oldlstat" number="84"/>
+ <syscall name="readlink" number="85"/>
+ <syscall name="uselib" number="86"/>
+ <syscall name="swapon" number="87"/>
+ <syscall name="reboot" number="88"/>
+ <syscall name="readdir" number="89"/>
+ <syscall name="mmap" number="90"/>
+ <syscall name="munmap" number="91"/>
+ <syscall name="truncate" number="92"/>
+ <syscall name="ftruncate" number="93"/>
+ <syscall name="fchmod" number="94"/>
+ <syscall name="fchown" number="95"/>
+ <syscall name="getpriority" number="96"/>
+ <syscall name="setpriority" number="97"/>
+ <syscall name="profil" number="98"/>
+ <syscall name="statfs" number="99"/>
+ <syscall name="fstatfs" number="100"/>
+ <syscall name="ioperm" number="101"/>
+ <syscall name="socketcall" number="102"/>
+ <syscall name="syslog" number="103"/>
+ <syscall name="setitimer" number="104"/>
+ <syscall name="getitimer" number="105"/>
+ <syscall name="stat" number="106"/>
+ <syscall name="lstat" number="107"/>
+ <syscall name="fstat" number="108"/>
+ <syscall name="olduname" number="109"/>
+ <syscall name="iopl" number="110"/>
+ <syscall name="vhangup" number="111"/>
+ <syscall name="idle" number="112"/>
+ <syscall name="vm86old" number="113"/>
+ <syscall name="wait4" number="114"/>
+ <syscall name="swapoff" number="115"/>
+ <syscall name="sysinfo" number="116"/>
+ <syscall name="ipc" number="117"/>
+ <syscall name="fsync" number="118"/>
+ <syscall name="sigreturn" number="119"/>
+ <syscall name="clone" number="120"/>
+ <syscall name="setdomainname" number="121"/>
+ <syscall name="uname" number="122"/>
+ <syscall name="modify_ldt" number="123"/>
+ <syscall name="adjtimex" number="124"/>
+ <syscall name="mprotect" number="125"/>
+ <syscall name="sigprocmask" number="126"/>
+ <syscall name="create_module" number="127"/>
+ <syscall name="init_module" number="128"/>
+ <syscall name="delete_module" number="129"/>
+ <syscall name="get_kernel_syms" number="130"/>
+ <syscall name="quotactl" number="131"/>
+ <syscall name="getpgid" number="132"/>
+ <syscall name="fchdir" number="133"/>
+ <syscall name="bdflush" number="134"/>
+ <syscall name="sysfs" number="135"/>
+ <syscall name="personality" number="136"/>
+ <syscall name="afs_syscall" number="137"/>
+ <syscall name="setfsuid" number="138"/>
+ <syscall name="setfsgid" number="139"/>
+ <syscall name="_llseek" number="140"/>
+ <syscall name="getdents" number="141"/>
+ <syscall name="_newselect" number="142"/>
+ <syscall name="flock" number="143"/>
+ <syscall name="msync" number="144"/>
+ <syscall name="readv" number="145"/>
+ <syscall name="writev" number="146"/>
+ <syscall name="getsid" number="147"/>
+ <syscall name="fdatasync" number="148"/>
+ <syscall name="_sysctl" number="149"/>
+ <syscall name="mlock" number="150"/>
+ <syscall name="munlock" number="151"/>
+ <syscall name="mlockall" number="152"/>
+ <syscall name="munlockall" number="153"/>
+ <syscall name="sched_setparam" number="154"/>
+ <syscall name="sched_getparam" number="155"/>
+ <syscall name="sched_setscheduler" number="156"/>
+ <syscall name="sched_getscheduler" number="157"/>
+ <syscall name="sched_yield" number="158"/>
+ <syscall name="sched_get_priority_max" number="159"/>
+ <syscall name="sched_get_priority_min" number="160"/>
+ <syscall name="sched_rr_get_interval" number="161"/>
+ <syscall name="nanosleep" number="162"/>
+ <syscall name="mremap" number="163"/>
+ <syscall name="setresuid" number="164"/>
+ <syscall name="getresuid" number="165"/>
+ <syscall name="vm86" number="166"/>
+ <syscall name="query_module" number="167"/>
+ <syscall name="poll" number="168"/>
+ <syscall name="nfsservctl" number="169"/>
+ <syscall name="setresgid" number="170"/>
+ <syscall name="getresgid" number="171"/>
+ <syscall name="prctl" number="172"/>
+ <syscall name="rt_sigreturn" number="173"/>
+ <syscall name="rt_sigaction" number="174"/>
+ <syscall name="rt_sigprocmask" number="175"/>
+ <syscall name="rt_sigpending" number="176"/>
+ <syscall name="rt_sigtimedwait" number="177"/>
+ <syscall name="rt_sigqueueinfo" number="178"/>
+ <syscall name="rt_sigsuspend" number="179"/>
+ <syscall name="pread64" number="180"/>
+ <syscall name="pwrite64" number="181"/>
+ <syscall name="chown" number="182"/>
+ <syscall name="getcwd" number="183"/>
+ <syscall name="capget" number="184"/>
+ <syscall name="capset" number="185"/>
+ <syscall name="sigaltstack" number="186"/>
+ <syscall name="sendfile" number="187"/>
+ <syscall name="getpmsg" number="188"/>
+ <syscall name="putpmsg" number="189"/>
+ <syscall name="vfork" number="190"/>
+ <syscall name="ugetrlimit" number="191"/>
+ <syscall name="mmap2" number="192"/>
+ <syscall name="truncate64" number="193"/>
+ <syscall name="ftruncate64" number="194"/>
+ <syscall name="stat64" number="195"/>
+ <syscall name="lstat64" number="196"/>
+ <syscall name="fstat64" number="197"/>
+ <syscall name="lchown32" number="198"/>
+ <syscall name="getuid32" number="199"/>
+ <syscall name="getgid32" number="200"/>
+ <syscall name="geteuid32" number="201"/>
+ <syscall name="getegid32" number="202"/>
+ <syscall name="setreuid32" number="203"/>
+ <syscall name="setregid32" number="204"/>
+ <syscall name="getgroups32" number="205"/>
+ <syscall name="setgroups32" number="206"/>
+ <syscall name="fchown32" number="207"/>
+ <syscall name="setresuid32" number="208"/>
+ <syscall name="getresuid32" number="209"/>
+ <syscall name="setresgid32" number="210"/>
+ <syscall name="getresgid32" number="211"/>
+ <syscall name="chown32" number="212"/>
+ <syscall name="setuid32" number="213"/>
+ <syscall name="setgid32" number="214"/>
+ <syscall name="setfsuid32" number="215"/>
+ <syscall name="setfsgid32" number="216"/>
+ <syscall name="pivot_root" number="217"/>
+ <syscall name="mincore" number="218"/>
+ <syscall name="madvise" number="219"/>
+ <syscall name="madvise1" number="220"/>
+ <syscall name="getdents64" number="221"/>
+ <syscall name="fcntl64" number="222"/>
+ <syscall name="gettid" number="224"/>
+ <syscall name="readahead" number="225"/>
+ <syscall name="setxattr" number="226"/>
+ <syscall name="lsetxattr" number="227"/>
+ <syscall name="fsetxattr" number="228"/>
+ <syscall name="getxattr" number="229"/>
+ <syscall name="lgetxattr" number="230"/>
+ <syscall name="fgetxattr" number="231"/>
+ <syscall name="listxattr" number="232"/>
+ <syscall name="llistxattr" number="233"/>
+ <syscall name="flistxattr" number="234"/>
+ <syscall name="removexattr" number="235"/>
+ <syscall name="lremovexattr" number="236"/>
+ <syscall name="fremovexattr" number="237"/>
+ <syscall name="tkill" number="238"/>
+ <syscall name="sendfile64" number="239"/>
+ <syscall name="futex" number="240"/>
+ <syscall name="sched_setaffinity" number="241"/>
+ <syscall name="sched_getaffinity" number="242"/>
+ <syscall name="set_thread_area" number="243"/>
+ <syscall name="get_thread_area" number="244"/>
+ <syscall name="io_setup" number="245"/>
+ <syscall name="io_destroy" number="246"/>
+ <syscall name="io_getevents" number="247"/>
+ <syscall name="io_submit" number="248"/>
+ <syscall name="io_cancel" number="249"/>
+ <syscall name="fadvise64" number="250"/>
+ <syscall name="exit_group" number="252"/>
+ <syscall name="lookup_dcookie" number="253"/>
+ <syscall name="epoll_create" number="254"/>
+ <syscall name="epoll_ctl" number="255"/>
+ <syscall name="epoll_wait" number="256"/>
+ <syscall name="remap_file_pages" number="257"/>
+ <syscall name="set_tid_address" number="258"/>
+ <syscall name="timer_create" number="259"/>
+ <syscall name="timer_settime" number="260"/>
+ <syscall name="timer_gettime" number="261"/>
+ <syscall name="timer_getoverrun" number="262"/>
+ <syscall name="timer_delete" number="263"/>
+ <syscall name="clock_settime" number="264"/>
+ <syscall name="clock_gettime" number="265"/>
+ <syscall name="clock_getres" number="266"/>
+ <syscall name="clock_nanosleep" number="267"/>
+ <syscall name="statfs64" number="268"/>
+ <syscall name="fstatfs64" number="269"/>
+ <syscall name="tgkill" number="270"/>
+ <syscall name="utimes" number="271"/>
+ <syscall name="fadvise64_64" number="272"/>
+ <syscall name="vserver" number="273"/>
+ <syscall name="mbind" number="274"/>
+ <syscall name="get_mempolicy" number="275"/>
+ <syscall name="set_mempolicy" number="276"/>
+ <syscall name="mq_open" number="277"/>
+ <syscall name="mq_unlink" number="278"/>
+ <syscall name="mq_timedsend" number="279"/>
+ <syscall name="mq_timedreceive" number="280"/>
+ <syscall name="mq_notify" number="281"/>
+ <syscall name="mq_getsetattr" number="282"/>
+ <syscall name="kexec_load" number="283"/>
+ <syscall name="waitid" number="284"/>
+ <syscall name="add_key" number="286"/>
+ <syscall name="request_key" number="287"/>
+ <syscall name="keyctl" number="288"/>
+ <syscall name="ioprio_set" number="289"/>
+ <syscall name="ioprio_get" number="290"/>
+ <syscall name="inotify_init" number="291"/>
+ <syscall name="inotify_add_watch" number="292"/>
+ <syscall name="inotify_rm_watch" number="293"/>
+ <syscall name="migrate_pages" number="294"/>
+ <syscall name="openat" number="295"/>
+ <syscall name="mkdirat" number="296"/>
+ <syscall name="mknodat" number="297"/>
+ <syscall name="fchownat" number="298"/>
+ <syscall name="futimesat" number="299"/>
+ <syscall name="fstatat64" number="300"/>
+ <syscall name="unlinkat" number="301"/>
+ <syscall name="renameat" number="302"/>
+ <syscall name="linkat" number="303"/>
+ <syscall name="symlinkat" number="304"/>
+ <syscall name="readlinkat" number="305"/>
+ <syscall name="fchmodat" number="306"/>
+ <syscall name="faccessat" number="307"/>
+ <syscall name="pselect6" number="308"/>
+ <syscall name="ppoll" number="309"/>
+ <syscall name="unshare" number="310"/>
+ <syscall name="set_robust_list" number="311"/>
+ <syscall name="get_robust_list" number="312"/>
+ <syscall name="splice" number="313"/>
+ <syscall name="sync_file_range" number="314"/>
+ <syscall name="tee" number="315"/>
+ <syscall name="vmsplice" number="316"/>
+ <syscall name="move_pages" number="317"/>
+ <syscall name="getcpu" number="318"/>
+ <syscall name="epoll_pwait" number="319"/>
+ <syscall name="utimensat" number="320"/>
+ <syscall name="signalfd" number="321"/>
+ <syscall name="timerfd_create" number="322"/>
+ <syscall name="eventfd" number="323"/>
+ <syscall name="fallocate" number="324"/>
+ <syscall name="timerfd_settime" number="325"/>
+</syscalls_info>
diff --git a/gdb/syscalls/ppc-linux.xml b/gdb/syscalls/ppc-linux.xml
new file mode 100644
index 0000000..f09fabd
--- /dev/null
+++ b/gdb/syscalls/ppc-linux.xml
@@ -0,0 +1,304 @@
+<?xml version="1.0"?>
+<!-- Copyright (C) 2007, 2008 Free Software Foundation, Inc.
+
+ Copying and distribution of this file, with or without modification,
+ are permitted in any medium without royalty provided the copyright
+ notice and this notice are preserved. -->
+
+<!DOCTYPE feature SYSTEM "gdb-syscalls.dtd">
+
+<syscalls_info>
+ <syscall name="restart_syscall" number="0"/>
+ <syscall name="exit" number="1"/>
+ <syscall name="fork" number="2"/>
+ <syscall name="read" number="3"/>
+ <syscall name="write" number="4"/>
+ <syscall name="open" number="5"/>
+ <syscall name="close" number="6"/>
+ <syscall name="waitpid" number="7"/>
+ <syscall name="creat" number="8"/>
+ <syscall name="link" number="9"/>
+ <syscall name="unlink" number="10"/>
+ <syscall name="execve" number="11"/>
+ <syscall name="chdir" number="12"/>
+ <syscall name="time" number="13"/>
+ <syscall name="mknod" number="14"/>
+ <syscall name="chmod" number="15"/>
+ <syscall name="lchown" number="16"/>
+ <syscall name="break" number="17"/>
+ <syscall name="oldstat" number="18"/>
+ <syscall name="lseek" number="19"/>
+ <syscall name="getpid" number="20"/>
+ <syscall name="mount" number="21"/>
+ <syscall name="umount" number="22"/>
+ <syscall name="setuid" number="23"/>
+ <syscall name="getuid" number="24"/>
+ <syscall name="stime" number="25"/>
+ <syscall name="ptrace" number="26"/>
+ <syscall name="alarm" number="27"/>
+ <syscall name="oldfstat" number="28"/>
+ <syscall name="pause" number="29"/>
+ <syscall name="utime" number="30"/>
+ <syscall name="stty" number="31"/>
+ <syscall name="gtty" number="32"/>
+ <syscall name="access" number="33"/>
+ <syscall name="nice" number="34"/>
+ <syscall name="ftime" number="35"/>
+ <syscall name="sync" number="36"/>
+ <syscall name="kill" number="37"/>
+ <syscall name="rename" number="38"/>
+ <syscall name="mkdir" number="39"/>
+ <syscall name="rmdir" number="40"/>
+ <syscall name="dup" number="41"/>
+ <syscall name="pipe" number="42"/>
+ <syscall name="times" number="43"/>
+ <syscall name="prof" number="44"/>
+ <syscall name="brk" number="45"/>
+ <syscall name="setgid" number="46"/>
+ <syscall name="getgid" number="47"/>
+ <syscall name="signal" number="48"/>
+ <syscall name="geteuid" number="49"/>
+ <syscall name="getegid" number="50"/>
+ <syscall name="acct" number="51"/>
+ <syscall name="umount2" number="52"/>
+ <syscall name="lock" number="53"/>
+ <syscall name="ioctl" number="54"/>
+ <syscall name="fcntl" number="55"/>
+ <syscall name="mpx" number="56"/>
+ <syscall name="setpgid" number="57"/>
+ <syscall name="ulimit" number="58"/>
+ <syscall name="oldolduname" number="59"/>
+ <syscall name="umask" number="60"/>
+ <syscall name="chroot" number="61"/>
+ <syscall name="ustat" number="62"/>
+ <syscall name="dup2" number="63"/>
+ <syscall name="getppid" number="64"/>
+ <syscall name="getpgrp" number="65"/>
+ <syscall name="setsid" number="66"/>
+ <syscall name="sigaction" number="67"/>
+ <syscall name="sgetmask" number="68"/>
+ <syscall name="ssetmask" number="69"/>
+ <syscall name="setreuid" number="70"/>
+ <syscall name="setregid" number="71"/>
+ <syscall name="sigsuspend" number="72"/>
+ <syscall name="sigpending" number="73"/>
+ <syscall name="sethostname" number="74"/>
+ <syscall name="setrlimit" number="75"/>
+ <syscall name="getrlimit" number="76"/>
+ <syscall name="getrusage" number="77"/>
+ <syscall name="gettimeofday" number="78"/>
+ <syscall name="settimeofday" number="79"/>
+ <syscall name="getgroups" number="80"/>
+ <syscall name="setgroups" number="81"/>
+ <syscall name="select" number="82"/>
+ <syscall name="symlink" number="83"/>
+ <syscall name="oldlstat" number="84"/>
+ <syscall name="readlink" number="85"/>
+ <syscall name="uselib" number="86"/>
+ <syscall name="swapon" number="87"/>
+ <syscall name="reboot" number="88"/>
+ <syscall name="readdir" number="89"/>
+ <syscall name="mmap" number="90"/>
+ <syscall name="munmap" number="91"/>
+ <syscall name="truncate" number="92"/>
+ <syscall name="ftruncate" number="93"/>
+ <syscall name="fchmod" number="94"/>
+ <syscall name="fchown" number="95"/>
+ <syscall name="getpriority" number="96"/>
+ <syscall name="setpriority" number="97"/>
+ <syscall name="profil" number="98"/>
+ <syscall name="statfs" number="99"/>
+ <syscall name="fstatfs" number="100"/>
+ <syscall name="ioperm" number="101"/>
+ <syscall name="socketcall" number="102"/>
+ <syscall name="syslog" number="103"/>
+ <syscall name="setitimer" number="104"/>
+ <syscall name="getitimer" number="105"/>
+ <syscall name="stat" number="106"/>
+ <syscall name="lstat" number="107"/>
+ <syscall name="fstat" number="108"/>
+ <syscall name="olduname" number="109"/>
+ <syscall name="iopl" number="110"/>
+ <syscall name="vhangup" number="111"/>
+ <syscall name="idle" number="112"/>
+ <syscall name="vm86" number="113"/>
+ <syscall name="wait4" number="114"/>
+ <syscall name="swapoff" number="115"/>
+ <syscall name="sysinfo" number="116"/>
+ <syscall name="ipc" number="117"/>
+ <syscall name="fsync" number="118"/>
+ <syscall name="sigreturn" number="119"/>
+ <syscall name="clone" number="120"/>
+ <syscall name="setdomainname" number="121"/>
+ <syscall name="uname" number="122"/>
+ <syscall name="modify_ldt" number="123"/>
+ <syscall name="adjtimex" number="124"/>
+ <syscall name="mprotect" number="125"/>
+ <syscall name="sigprocmask" number="126"/>
+ <syscall name="create_module" number="127"/>
+ <syscall name="init_module" number="128"/>
+ <syscall name="delete_module" number="129"/>
+ <syscall name="get_kernel_syms" number="130"/>
+ <syscall name="quotactl" number="131"/>
+ <syscall name="getpgid" number="132"/>
+ <syscall name="fchdir" number="133"/>
+ <syscall name="bdflush" number="134"/>
+ <syscall name="sysfs" number="135"/>
+ <syscall name="personality" number="136"/>
+ <syscall name="afs_syscall" number="137"/>
+ <syscall name="setfsuid" number="138"/>
+ <syscall name="setfsgid" number="139"/>
+ <syscall name="_llseek" number="140"/>
+ <syscall name="getdents" number="141"/>
+ <syscall name="_newselect" number="142"/>
+ <syscall name="flock" number="143"/>
+ <syscall name="msync" number="144"/>
+ <syscall name="readv" number="145"/>
+ <syscall name="writev" number="146"/>
+ <syscall name="getsid" number="147"/>
+ <syscall name="fdatasync" number="148"/>
+ <syscall name="_sysctl" number="149"/>
+ <syscall name="mlock" number="150"/>
+ <syscall name="munlock" number="151"/>
+ <syscall name="mlockall" number="152"/>
+ <syscall name="munlockall" number="153"/>
+ <syscall name="sched_setparam" number="154"/>
+ <syscall name="sched_getparam" number="155"/>
+ <syscall name="sched_setscheduler" number="156"/>
+ <syscall name="sched_getscheduler" number="157"/>
+ <syscall name="sched_yield" number="158"/>
+ <syscall name="sched_get_priority_max" number="159"/>
+ <syscall name="sched_get_priority_min" number="160"/>
+ <syscall name="sched_rr_get_interval" number="161"/>
+ <syscall name="nanosleep" number="162"/>
+ <syscall name="mremap" number="163"/>
+ <syscall name="setresuid" number="164"/>
+ <syscall name="getresuid" number="165"/>
+ <syscall name="query_module" number="166"/>
+ <syscall name="poll" number="167"/>
+ <syscall name="nfsservctl" number="168"/>
+ <syscall name="setresgid" number="169"/>
+ <syscall name="getresgid" number="170"/>
+ <syscall name="prctl" number="171"/>
+ <syscall name="rt_sigreturn" number="172"/>
+ <syscall name="rt_sigaction" number="173"/>
+ <syscall name="rt_sigprocmask" number="174"/>
+ <syscall name="rt_sigpending" number="175"/>
+ <syscall name="rt_sigtimedwait" number="176"/>
+ <syscall name="rt_sigqueueinfo" number="177"/>
+ <syscall name="rt_sigsuspend" number="178"/>
+ <syscall name="pread64" number="179"/>
+ <syscall name="pwrite64" number="180"/>
+ <syscall name="chown" number="181"/>
+ <syscall name="getcwd" number="182"/>
+ <syscall name="capget" number="183"/>
+ <syscall name="capset" number="184"/>
+ <syscall name="sigaltstack" number="185"/>
+ <syscall name="sendfile" number="186"/>
+ <syscall name="getpmsg" number="187"/>
+ <syscall name="putpmsg" number="188"/>
+ <syscall name="vfork" number="189"/>
+ <syscall name="ugetrlimit" number="190"/>
+ <syscall name="readahead" number="191"/>
+ <syscall name="mmap2" number="192"/>
+ <syscall name="truncate64" number="193"/>
+ <syscall name="ftruncate64" number="194"/>
+ <syscall name="stat64" number="195"/>
+ <syscall name="lstat64" number="196"/>
+ <syscall name="fstat64" number="197"/>
+ <syscall name="pciconfig_read" number="198"/>
+ <syscall name="pciconfig_write" number="199"/>
+ <syscall name="pciconfig_iobase" number="200"/>
+ <syscall name="multiplexer" number="201"/>
+ <syscall name="getdents64" number="202"/>
+ <syscall name="pivot_root" number="203"/>
+ <syscall name="fcntl64" number="204"/>
+ <syscall name="madvise" number="205"/>
+ <syscall name="mincore" number="206"/>
+ <syscall name="gettid" number="207"/>
+ <syscall name="tkill" number="208"/>
+ <syscall name="setxattr" number="209"/>
+ <syscall name="lsetxattr" number="210"/>
+ <syscall name="fsetxattr" number="211"/>
+ <syscall name="getxattr" number="212"/>
+ <syscall name="lgetxattr" number="213"/>
+ <syscall name="fgetxattr" number="214"/>
+ <syscall name="listxattr" number="215"/>
+ <syscall name="llistxattr" number="216"/>
+ <syscall name="flistxattr" number="217"/>
+ <syscall name="removexattr" number="218"/>
+ <syscall name="lremovexattr" number="219"/>
+ <syscall name="fremovexattr" number="220"/>
+ <syscall name="futex" number="221"/>
+ <syscall name="sched_setaffinity" number="222"/>
+ <syscall name="sched_getaffinity" number="223"/>
+ <syscall name="tuxcall" number="225"/>
+ <syscall name="sendfile64" number="226"/>
+ <syscall name="io_setup" number="227"/>
+ <syscall name="io_destroy" number="228"/>
+ <syscall name="io_getevents" number="229"/>
+ <syscall name="io_submit" number="230"/>
+ <syscall name="io_cancel" number="231"/>
+ <syscall name="set_tid_address" number="232"/>
+ <syscall name="fadvise64" number="233"/>
+ <syscall name="exit_group" number="234"/>
+ <syscall name="lookup_dcookie" number="235"/>
+ <syscall name="epoll_create" number="236"/>
+ <syscall name="epoll_ctl" number="237"/>
+ <syscall name="epoll_wait" number="238"/>
+ <syscall name="remap_file_pages" number="239"/>
+ <syscall name="timer_create" number="240"/>
+ <syscall name="timer_settime" number="241"/>
+ <syscall name="timer_gettime" number="242"/>
+ <syscall name="timer_getoverrun" number="243"/>
+ <syscall name="timer_delete" number="244"/>
+ <syscall name="clock_settime" number="245"/>
+ <syscall name="clock_gettime" number="246"/>
+ <syscall name="clock_getres" number="247"/>
+ <syscall name="clock_nanosleep" number="248"/>
+ <syscall name="swapcontext" number="249"/>
+ <syscall name="tgkill" number="250"/>
+ <syscall name="utimes" number="251"/>
+ <syscall name="statfs64" number="252"/>
+ <syscall name="fstatfs64" number="253"/>
+ <syscall name="fadvise64_64" number="254"/>
+ <syscall name="rtas" number="255"/>
+ <syscall name="sys_debug_setcontext" number="256"/>
+ <syscall name="mbind" number="259"/>
+ <syscall name="get_mempolicy" number="260"/>
+ <syscall name="set_mempolicy" number="261"/>
+ <syscall name="mq_open" number="262"/>
+ <syscall name="mq_unlink" number="263"/>
+ <syscall name="mq_timedsend" number="264"/>
+ <syscall name="mq_timedreceive" number="265"/>
+ <syscall name="mq_notify" number="266"/>
+ <syscall name="mq_getsetattr" number="267"/>
+ <syscall name="kexec_load" number="268"/>
+ <syscall name="add_key" number="269"/>
+ <syscall name="request_key" number="270"/>
+ <syscall name="keyctl" number="271"/>
+ <syscall name="waitid" number="272"/>
+ <syscall name="ioprio_set" number="273"/>
+ <syscall name="ioprio_get" number="274"/>
+ <syscall name="inotify_init" number="275"/>
+ <syscall name="inotify_add_watch" number="276"/>
+ <syscall name="inotify_rm_watch" number="277"/>
+ <syscall name="spu_run" number="278"/>
+ <syscall name="spu_create" number="279"/>
+ <syscall name="pselect6" number="280"/>
+ <syscall name="ppoll" number="281"/>
+ <syscall name="unshare" number="282"/>
+ <syscall name="openat" number="286"/>
+ <syscall name="mkdirat" number="287"/>
+ <syscall name="mknodat" number="288"/>
+ <syscall name="fchownat" number="289"/>
+ <syscall name="futimesat" number="290"/>
+ <syscall name="fstatat64" number="291"/>
+ <syscall name="unlinkat" number="292"/>
+ <syscall name="renameat" number="293"/>
+ <syscall name="linkat" number="294"/>
+ <syscall name="symlinkat" number="295"/>
+ <syscall name="readlinkat" number="296"/>
+ <syscall name="fchmodat" number="297"/>
+ <syscall name="faccessat" number="298"/>
+</syscalls_info>
diff --git a/gdb/syscalls/ppc64-linux.xml b/gdb/syscalls/ppc64-linux.xml
new file mode 100644
index 0000000..7ee929c
--- /dev/null
+++ b/gdb/syscalls/ppc64-linux.xml
@@ -0,0 +1,289 @@
+<?xml version="1.0"?>
+<!-- Copyright (C) 2007, 2008 Free Software Foundation, Inc.
+
+ Copying and distribution of this file, with or without modification,
+ are permitted in any medium without royalty provided the copyright
+ notice and this notice are preserved. -->
+
+<!DOCTYPE feature SYSTEM "gdb-syscalls.dtd">
+
+<syscalls_info>
+ <syscall name="restart_syscall" number="0"/>
+ <syscall name="exit" number="1"/>
+ <syscall name="fork" number="2"/>
+ <syscall name="read" number="3"/>
+ <syscall name="write" number="4"/>
+ <syscall name="open" number="5"/>
+ <syscall name="close" number="6"/>
+ <syscall name="waitpid" number="7"/>
+ <syscall name="creat" number="8"/>
+ <syscall name="link" number="9"/>
+ <syscall name="unlink" number="10"/>
+ <syscall name="execve" number="11"/>
+ <syscall name="chdir" number="12"/>
+ <syscall name="time" number="13"/>
+ <syscall name="mknod" number="14"/>
+ <syscall name="chmod" number="15"/>
+ <syscall name="lchown" number="16"/>
+ <syscall name="break" number="17"/>
+ <syscall name="oldstat" number="18"/>
+ <syscall name="lseek" number="19"/>
+ <syscall name="getpid" number="20"/>
+ <syscall name="mount" number="21"/>
+ <syscall name="umount" number="22"/>
+ <syscall name="setuid" number="23"/>
+ <syscall name="getuid" number="24"/>
+ <syscall name="stime" number="25"/>
+ <syscall name="ptrace" number="26"/>
+ <syscall name="alarm" number="27"/>
+ <syscall name="oldfstat" number="28"/>
+ <syscall name="pause" number="29"/>
+ <syscall name="utime" number="30"/>
+ <syscall name="stty" number="31"/>
+ <syscall name="gtty" number="32"/>
+ <syscall name="access" number="33"/>
+ <syscall name="nice" number="34"/>
+ <syscall name="ftime" number="35"/>
+ <syscall name="sync" number="36"/>
+ <syscall name="kill" number="37"/>
+ <syscall name="rename" number="38"/>
+ <syscall name="mkdir" number="39"/>
+ <syscall name="rmdir" number="40"/>
+ <syscall name="dup" number="41"/>
+ <syscall name="pipe" number="42"/>
+ <syscall name="times" number="43"/>
+ <syscall name="prof" number="44"/>
+ <syscall name="brk" number="45"/>
+ <syscall name="setgid" number="46"/>
+ <syscall name="getgid" number="47"/>
+ <syscall name="signal" number="48"/>
+ <syscall name="geteuid" number="49"/>
+ <syscall name="getegid" number="50"/>
+ <syscall name="acct" number="51"/>
+ <syscall name="umount2" number="52"/>
+ <syscall name="lock" number="53"/>
+ <syscall name="ioctl" number="54"/>
+ <syscall name="fcntl" number="55"/>
+ <syscall name="mpx" number="56"/>
+ <syscall name="setpgid" number="57"/>
+ <syscall name="ulimit" number="58"/>
+ <syscall name="oldolduname" number="59"/>
+ <syscall name="umask" number="60"/>
+ <syscall name="chroot" number="61"/>
+ <syscall name="ustat" number="62"/>
+ <syscall name="dup2" number="63"/>
+ <syscall name="getppid" number="64"/>
+ <syscall name="getpgrp" number="65"/>
+ <syscall name="setsid" number="66"/>
+ <syscall name="sigaction" number="67"/>
+ <syscall name="sgetmask" number="68"/>
+ <syscall name="ssetmask" number="69"/>
+ <syscall name="setreuid" number="70"/>
+ <syscall name="setregid" number="71"/>
+ <syscall name="sigsuspend" number="72"/>
+ <syscall name="sigpending" number="73"/>
+ <syscall name="sethostname" number="74"/>
+ <syscall name="setrlimit" number="75"/>
+ <syscall name="getrlimit" number="76"/>
+ <syscall name="getrusage" number="77"/>
+ <syscall name="gettimeofday" number="78"/>
+ <syscall name="settimeofday" number="79"/>
+ <syscall name="getgroups" number="80"/>
+ <syscall name="setgroups" number="81"/>
+ <syscall name="select" number="82"/>
+ <syscall name="symlink" number="83"/>
+ <syscall name="oldlstat" number="84"/>
+ <syscall name="readlink" number="85"/>
+ <syscall name="uselib" number="86"/>
+ <syscall name="swapon" number="87"/>
+ <syscall name="reboot" number="88"/>
+ <syscall name="readdir" number="89"/>
+ <syscall name="mmap" number="90"/>
+ <syscall name="munmap" number="91"/>
+ <syscall name="truncate" number="92"/>
+ <syscall name="ftruncate" number="93"/>
+ <syscall name="fchmod" number="94"/>
+ <syscall name="fchown" number="95"/>
+ <syscall name="getpriority" number="96"/>
+ <syscall name="setpriority" number="97"/>
+ <syscall name="profil" number="98"/>
+ <syscall name="statfs" number="99"/>
+ <syscall name="fstatfs" number="100"/>
+ <syscall name="ioperm" number="101"/>
+ <syscall name="socketcall" number="102"/>
+ <syscall name="syslog" number="103"/>
+ <syscall name="setitimer" number="104"/>
+ <syscall name="getitimer" number="105"/>
+ <syscall name="stat" number="106"/>
+ <syscall name="lstat" number="107"/>
+ <syscall name="fstat" number="108"/>
+ <syscall name="olduname" number="109"/>
+ <syscall name="iopl" number="110"/>
+ <syscall name="vhangup" number="111"/>
+ <syscall name="idle" number="112"/>
+ <syscall name="vm86" number="113"/>
+ <syscall name="wait4" number="114"/>
+ <syscall name="swapoff" number="115"/>
+ <syscall name="sysinfo" number="116"/>
+ <syscall name="ipc" number="117"/>
+ <syscall name="fsync" number="118"/>
+ <syscall name="sigreturn" number="119"/>
+ <syscall name="clone" number="120"/>
+ <syscall name="setdomainname" number="121"/>
+ <syscall name="uname" number="122"/>
+ <syscall name="modify_ldt" number="123"/>
+ <syscall name="adjtimex" number="124"/>
+ <syscall name="mprotect" number="125"/>
+ <syscall name="sigprocmask" number="126"/>
+ <syscall name="create_module" number="127"/>
+ <syscall name="init_module" number="128"/>
+ <syscall name="delete_module" number="129"/>
+ <syscall name="get_kernel_syms" number="130"/>
+ <syscall name="quotactl" number="131"/>
+ <syscall name="getpgid" number="132"/>
+ <syscall name="fchdir" number="133"/>
+ <syscall name="bdflush" number="134"/>
+ <syscall name="sysfs" number="135"/>
+ <syscall name="personality" number="136"/>
+ <syscall name="afs_syscall" number="137"/>
+ <syscall name="setfsuid" number="138"/>
+ <syscall name="setfsgid" number="139"/>
+ <syscall name="_llseek" number="140"/>
+ <syscall name="getdents" number="141"/>
+ <syscall name="_newselect" number="142"/>
+ <syscall name="flock" number="143"/>
+ <syscall name="msync" number="144"/>
+ <syscall name="readv" number="145"/>
+ <syscall name="writev" number="146"/>
+ <syscall name="getsid" number="147"/>
+ <syscall name="fdatasync" number="148"/>
+ <syscall name="_sysctl" number="149"/>
+ <syscall name="mlock" number="150"/>
+ <syscall name="munlock" number="151"/>
+ <syscall name="mlockall" number="152"/>
+ <syscall name="munlockall" number="153"/>
+ <syscall name="sched_setparam" number="154"/>
+ <syscall name="sched_getparam" number="155"/>
+ <syscall name="sched_setscheduler" number="156"/>
+ <syscall name="sched_getscheduler" number="157"/>
+ <syscall name="sched_yield" number="158"/>
+ <syscall name="sched_get_priority_max" number="159"/>
+ <syscall name="sched_get_priority_min" number="160"/>
+ <syscall name="sched_rr_get_interval" number="161"/>
+ <syscall name="nanosleep" number="162"/>
+ <syscall name="mremap" number="163"/>
+ <syscall name="setresuid" number="164"/>
+ <syscall name="getresuid" number="165"/>
+ <syscall name="query_module" number="166"/>
+ <syscall name="poll" number="167"/>
+ <syscall name="nfsservctl" number="168"/>
+ <syscall name="setresgid" number="169"/>
+ <syscall name="getresgid" number="170"/>
+ <syscall name="prctl" number="171"/>
+ <syscall name="rt_sigreturn" number="172"/>
+ <syscall name="rt_sigaction" number="173"/>
+ <syscall name="rt_sigprocmask" number="174"/>
+ <syscall name="rt_sigpending" number="175"/>
+ <syscall name="rt_sigtimedwait" number="176"/>
+ <syscall name="rt_sigqueueinfo" number="177"/>
+ <syscall name="rt_sigsuspend" number="178"/>
+ <syscall name="pread64" number="179"/>
+ <syscall name="pwrite64" number="180"/>
+ <syscall name="chown" number="181"/>
+ <syscall name="getcwd" number="182"/>
+ <syscall name="capget" number="183"/>
+ <syscall name="capset" number="184"/>
+ <syscall name="sigaltstack" number="185"/>
+ <syscall name="sendfile" number="186"/>
+ <syscall name="getpmsg" number="187"/>
+ <syscall name="putpmsg" number="188"/>
+ <syscall name="vfork" number="189"/>
+ <syscall name="ugetrlimit" number="190"/>
+ <syscall name="readahead" number="191"/>
+ <syscall name="pciconfig_read" number="198"/>
+ <syscall name="pciconfig_write" number="199"/>
+ <syscall name="pciconfig_iobase" number="200"/>
+ <syscall name="multiplexer" number="201"/>
+ <syscall name="getdents64" number="202"/>
+ <syscall name="pivot_root" number="203"/>
+ <syscall name="madvise" number="205"/>
+ <syscall name="mincore" number="206"/>
+ <syscall name="gettid" number="207"/>
+ <syscall name="tkill" number="208"/>
+ <syscall name="setxattr" number="209"/>
+ <syscall name="lsetxattr" number="210"/>
+ <syscall name="fsetxattr" number="211"/>
+ <syscall name="getxattr" number="212"/>
+ <syscall name="lgetxattr" number="213"/>
+ <syscall name="fgetxattr" number="214"/>
+ <syscall name="listxattr" number="215"/>
+ <syscall name="llistxattr" number="216"/>
+ <syscall name="flistxattr" number="217"/>
+ <syscall name="removexattr" number="218"/>
+ <syscall name="lremovexattr" number="219"/>
+ <syscall name="fremovexattr" number="220"/>
+ <syscall name="futex" number="221"/>
+ <syscall name="sched_setaffinity" number="222"/>
+ <syscall name="sched_getaffinity" number="223"/>
+ <syscall name="tuxcall" number="225"/>
+ <syscall name="io_setup" number="227"/>
+ <syscall name="io_destroy" number="228"/>
+ <syscall name="io_getevents" number="229"/>
+ <syscall name="io_submit" number="230"/>
+ <syscall name="io_cancel" number="231"/>
+ <syscall name="set_tid_address" number="232"/>
+ <syscall name="fadvise64" number="233"/>
+ <syscall name="exit_group" number="234"/>
+ <syscall name="lookup_dcookie" number="235"/>
+ <syscall name="epoll_create" number="236"/>
+ <syscall name="epoll_ctl" number="237"/>
+ <syscall name="epoll_wait" number="238"/>
+ <syscall name="remap_file_pages" number="239"/>
+ <syscall name="timer_create" number="240"/>
+ <syscall name="timer_settime" number="241"/>
+ <syscall name="timer_gettime" number="242"/>
+ <syscall name="timer_getoverrun" number="243"/>
+ <syscall name="timer_delete" number="244"/>
+ <syscall name="clock_settime" number="245"/>
+ <syscall name="clock_gettime" number="246"/>
+ <syscall name="clock_getres" number="247"/>
+ <syscall name="clock_nanosleep" number="248"/>
+ <syscall name="swapcontext" number="249"/>
+ <syscall name="tgkill" number="250"/>
+ <syscall name="utimes" number="251"/>
+ <syscall name="statfs64" number="252"/>
+ <syscall name="fstatfs64" number="253"/>
+ <syscall name="rtas" number="255"/>
+ <syscall name="sys_debug_setcontext" number="256"/>
+ <syscall name="mbind" number="259"/>
+ <syscall name="get_mempolicy" number="260"/>
+ <syscall name="set_mempolicy" number="261"/>
+ <syscall name="mq_open" number="262"/>
+ <syscall name="mq_unlink" number="263"/>
+ <syscall name="mq_timedsend" number="264"/>
+ <syscall name="mq_timedreceive" number="265"/>
+ <syscall name="mq_notify" number="266"/>
+ <syscall name="mq_getsetattr" number="267"/>
+ <syscall name="kexec_load" number="268"/>
+ <syscall name="add_key" number="269"/>
+ <syscall name="request_key" number="270"/>
+ <syscall name="keyctl" number="271"/>
+ <syscall name="waitid" number="272"/>
+ <syscall name="ioprio_set" number="273"/>
+ <syscall name="ioprio_get" number="274"/>
+ <syscall name="inotify_init" number="275"/>
+ <syscall name="inotify_add_watch" number="276"/>
+ <syscall name="inotify_rm_watch" number="277"/>
+ <syscall name="spu_run" number="278"/>
+ <syscall name="spu_create" number="279"/>
+ <syscall name="pselect6" number="280"/>
+ <syscall name="ppoll" number="281"/>
+ <syscall name="unshare" number="282"/>
+ <syscall name="unlinkat" number="286"/>
+ <syscall name="renameat" number="287"/>
+ <syscall name="linkat" number="288"/>
+ <syscall name="symlinkat" number="289"/>
+ <syscall name="readlinkat" number="290"/>
+ <syscall name="fchmodat" number="291"/>
+ <syscall name="faccessat" number="292"/>
+</syscalls_info>
diff --git a/gdb/target.c b/gdb/target.c
index b89d551..831070c 100644
--- a/gdb/target.c
+++ b/gdb/target.c
@@ -443,6 +443,8 @@ update_current_target (void)
/* Do not inherit to_follow_fork. */
INHERIT (to_insert_exec_catchpoint, t);
INHERIT (to_remove_exec_catchpoint, t);
+ INHERIT (to_passed_by_entrypoint, t);
+ INHERIT (to_set_syscall_catchpoint, t);
INHERIT (to_has_exited, t);
/* Do not inherit to_mourn_inferiour. */
INHERIT (to_can_run, t);
@@ -586,9 +588,15 @@ update_current_target (void)
de_fault (to_insert_exec_catchpoint,
(void (*) (int))
tcomplain);
+ de_fault (to_passed_by_entrypoint,
+ (int (*) (void))
+ tcomplain);
de_fault (to_remove_exec_catchpoint,
(int (*) (int))
tcomplain);
+ de_fault (to_set_syscall_catchpoint,
+ (int (*) (int, int, int, int, int *))
+ tcomplain);
de_fault (to_has_exited,
(int (*) (int, int, int *))
return_zero);
@@ -2677,9 +2685,9 @@ target_waitstatus_to_string (const struct target_waitstatus *ws)
case TARGET_WAITKIND_EXECD:
return xstrprintf ("%sexecd", kind_str);
case TARGET_WAITKIND_SYSCALL_ENTRY:
- return xstrprintf ("%ssyscall-entry", kind_str);
+ return xstrprintf ("%sentered syscall", kind_str);
case TARGET_WAITKIND_SYSCALL_RETURN:
- return xstrprintf ("%ssyscall-return", kind_str);
+ return xstrprintf ("%sexited syscall", kind_str);
case TARGET_WAITKIND_SPURIOUS:
return xstrprintf ("%sspurious", kind_str);
case TARGET_WAITKIND_IGNORE:
diff --git a/gdb/target.h b/gdb/target.h
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
index 7f4cd8f..8dcc3d6 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/target.h
+++ b/gdb/target.h
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -140,18 +140,34 @@ struct target_waitstatus
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
{
enum target_waitkind kind;
- /* Forked child pid, execd pathname, exit status or signal number. */
+ /* Forked child pid, execd pathname, exit status, signal number or
+ syscall name. */
union
{
int integer;
enum target_signal sig;
ptid_t related_pid;
char *execd_pathname;
- int syscall_id;
+ int syscall_number;
}
value;
};
+/* The structure below stores information about a system call.
+ It is basically used in the "catch syscall" command, and in
+ every function that gives information about a system call.
+
+ It's also good to mention that its fields represent everything
+ that we currently know about a syscall in GDB. */
+struct syscall
+ {
+ /* The syscall number. */
+ int number;
+
+ /* The syscall name. */
+ const char *name;
+ };
+
/* Return a pretty printed form of target_waitstatus.
Space for the result is malloc'd, caller must free. */
extern char *target_waitstatus_to_string (const struct target_waitstatus *);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -392,6 +408,8 @@ struct target_ops
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
int (*to_follow_fork) (struct target_ops *, int);
void (*to_insert_exec_catchpoint) (int);
int (*to_remove_exec_catchpoint) (int);
+ int (*to_passed_by_entrypoint) (void);
+ int (*to_set_syscall_catchpoint) (int, int, int, int, int *);
int (*to_has_exited) (int, int, int *);
void (*to_mourn_inferior) (struct target_ops *);
int (*to_can_run) (void);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -723,6 +741,8 @@ extern int inferior_has_vforked (ptid_t pid, ptid_t *child_pid);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
extern int inferior_has_execd (ptid_t pid, char **execd_pathname);
+extern int inferior_has_called_syscall (ptid_t pid, int *syscall_number);
+
/* From exec.c */
extern void print_section_info (struct target_ops *, bfd *);
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -881,6 +901,21 @@ int target_follow_fork (int follow_child);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
#define target_remove_exec_catchpoint(pid) \
(*current_target.to_remove_exec_catchpoint) (pid)
+/* Has the inferior already passed through its entrypoint? */
+#define target_passed_by_entrypoint() \
+ (*current_target.to_passed_by_entrypoint) ()
+
+/* Syscall catch. NEEDED is nonzero if any syscall catch (of any
+ kind) is requested. ANY_COUNT is nonzero if a generic
+ (filter-less) syscall catch is being requested. TABLE is an array
+ of ints, indexed by syscall number. An element in this array is
+ nonzero if that syscall should be caught. TABLE_SIZE is the number
+ of elements in TABLE. */
+
+#define target_set_syscall_catchpoint(pid, needed, any_count, table_size, table) \
+ (*current_target.to_set_syscall_catchpoint) (pid, needed, any_count, \
+ table_size, table)
+
/* Returns TRUE if PID has exited. And, also sets EXIT_STATUS to the
exit code of PID, if any. */
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -1146,6 +1181,20 @@ extern int target_search_memory (CORE_ADDR start_addr,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
ULONGEST pattern_len,
CORE_ADDR *found_addrp);
+/* Utility functions which can be used by search_memory implementations. */
+
+void allocate_pattern_buffer (char **pattern_bufp, char **pattern_buf_end,
+ ULONGEST *pattern_buf_size);
+
+void increase_pattern_buffer (char **pattern_bufp, char **pattern_buf_end,
+ ULONGEST *pattern_buf_size, int val_bytes);
+
+int search_memory (CORE_ADDR *start_addr, ULONGEST *search_space_len,
+ const char *pattern_buf, ULONGEST pattern_len,
+ CORE_ADDR *found_addr);
+
+void put_bits (bfd_uint64_t data, char *buf, int bits, bfd_boolean big_p);
+
/* Command logging facility. */
#define target_log_command(p) \
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index e3aaeab..e886869 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2009-03-05 Pedro Alves <pedro@codesourcery.com>
+
+ * gdb.arch/i386-permbkpt.S, gdb.arch/i386-permbkpt.exp: New.
+
2009-02-18 Jan Kratochvil <jan.kratochvil@redhat.com>
* gdb.base/macscp.exp (objfile): Move it to ${objdir}/${subdir}/.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/testsuite/configure.ac b/gdb/testsuite/configure.ac
index 3d8fae4..5fb9067 100644
--- a/gdb/testsuite/configure.ac
+++ b/gdb/testsuite/configure.ac
@@ -1,7 +1,7 @@
# -*- Autoconf -*-
# Process this file with autoconf to produce a configure script.
-# Copyright 2002, 2003, 2004, 2005
+# Copyright 2002, 2003, 2004, 2005, 2008
# Free Software Foundation, Inc.
#
# This program is free software; you can redistribute it and/or modify
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
diff --git a/gdb/testsuite/gdb.arch/i386-permbkpt.S b/gdb/testsuite/gdb.arch/i386-permbkpt.S
new file mode 100644
index 0000000..02a31d6
--- /dev/null
+++ b/gdb/testsuite/gdb.arch/i386-permbkpt.S
@@ -0,0 +1,30 @@
+/* Copyright 2009 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+ This file is part of the gdb testsuite. */
+
+#define CONCAT1(a, b) CONCAT2(a, b)
+#define CONCAT2(a, b) a ## b
+
+#ifdef SYMBOL_PREFIX
+# define SYMBOL(str) CONCAT1(SYMBOL_PREFIX, str)
+#else
+# define SYMBOL(str) str
+#endif
+
+ .global SYMBOL(main)
+SYMBOL(main):
+ int3
+ ret
diff --git a/gdb/testsuite/gdb.arch/i386-permbkpt.exp b/gdb/testsuite/gdb.arch/i386-permbkpt.exp
new file mode 100644
index 0000000..f1930e5
--- /dev/null
+++ b/gdb/testsuite/gdb.arch/i386-permbkpt.exp
@@ -0,0 +1,52 @@
+# Copyright (C) 2009 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+
+# This file is part of the gdb testsuite.
+
+if $tracelevel {
+ strace $tracelevel
+}
+
+# Test inserting breakpoints over permanent breakpoints on i386 and amd64.
+
+if { ![istarget "i?86-*-*"] && ![istarget "x86_64-*-*"] } then {
+ verbose "Skipping i386 test for multi break at permanent breakpoint location."
+ return
+}
+
+set testfile "i386-permbkpt"
+set srcfile ${testfile}.S
+set binfile ${objdir}/${subdir}/${testfile}
+
+# Some targets have leading underscores on assembly symbols.
+# TODO: detect this automatically
+set additional_flags ""
+if { [istarget "*-*-cygwin*"] || [istarget "*-*-mingw*"] } then {
+ set additional_flags "additional_flags=-DSYMBOL_PREFIX=_"
+}
+
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug $additional_flags]] != "" } {
+ untested i386-permbkpt.exp
+ return -1
+}
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+gdb_test "break main" "" "First permanent break"
+gdb_test "break main" "" "Second permanent break"
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
diff --git a/gdb/testsuite/gdb.arch/powerpc-power7.exp b/gdb/testsuite/gdb.arch/powerpc-power7.exp
new file mode 100644
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
index 0000000..d9c48f9
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
--- /dev/null
+++ b/gdb/testsuite/gdb.arch/powerpc-power7.exp
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
@@ -0,0 +1,166 @@
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+# Copyright 2009 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+# Test PowerPC Power7 instructions disassembly.
+
+if {![istarget "powerpc*-*-*"]} then {
+ verbose "Skipping PowerPC Power7 instructions disassembly."
+ return
+}
+
+set testfile "powerpc-power7"
+set srcfile ${testfile}.s
+set objfile ${objdir}/${subdir}/${testfile}.o
+
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${objfile}" object {debug}] != "" } {
+ untested "PowerPC Power7 instructions disassembly"
+ return -1
+}
+
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${objfile}
+
+
+# Disassemble the function.
+
+set test "disass func"
+gdb_test_multiple $test $test {
+ -re "\r\nDump of assembler code for function func:(\r\n.*\r\n)End of assembler dump.\r\n$gdb_prompt $" {
+ set func $expect_out(1,string)
+ pass $test
+ }
+}
+
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
+proc func_check {offset instr} {
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ global func
+
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
+ # 0x0000000000000018 <func+24>: stxvd2x vs43,r4,r5
+ set patt ".*\r\n[string map {0x 0x0*} $offset] <func\\+?\[0-9\]*>:\[ \t\]*[string map [list { } "\[ \t\]+" . {\.}] $instr]\[ \t\]*\r\n.*"
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ set test "Found $offset: $instr"
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
+ if [regexp -nocase -line $patt $func] {
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+ pass $test
+ } else {
+ fail $test
+ }
+}
+
+func_check 0x0 "lxvd2x vs3,r4,r5"
+func_check 0x4 "lxvd2ux vs3,r4,r5"
+func_check 0x8 "lxvd2x vs43,r4,r5"
+func_check 0xc "lxvd2ux vs43,r4,r5"
+func_check 0x10 "stxvd2x vs3,r4,r5"
+func_check 0x14 "stxvd2ux vs3,r4,r5"
+func_check 0x18 "stxvd2x vs43,r4,r5"
+func_check 0x1c "stxvd2ux vs43,r4,r5"
+func_check 0x20 "xxmrghd vs3,vs4,vs5"
+func_check 0x24 "xxmrghd vs43,vs44,vs45"
+func_check 0x28 "xxmrgld vs3,vs4,vs5"
+func_check 0x2c "xxmrgld vs43,vs44,vs45"
+func_check 0x30 "xxmrghd vs3,vs4,vs5"
+func_check 0x34 "xxmrghd vs43,vs44,vs45"
+func_check 0x38 "xxmrgld vs3,vs4,vs5"
+func_check 0x3c "xxmrgld vs43,vs44,vs45"
+func_check 0x40 "xxpermdi vs3,vs4,vs5,1"
+func_check 0x44 "xxpermdi vs43,vs44,vs45,1"
+func_check 0x48 "xxpermdi vs3,vs4,vs5,2"
+func_check 0x4c "xxpermdi vs43,vs44,vs45,2"
+func_check 0x50 "xvmovdp vs3,vs4"
+func_check 0x54 "xvmovdp vs43,vs44"
+func_check 0x58 "xvmovdp vs3,vs4"
+func_check 0x5c "xvmovdp vs43,vs44"
+func_check 0x60 "xvcpsgndp vs3,vs4,vs5"
+func_check 0x64 "xvcpsgndp vs43,vs44,vs45"
+func_check 0x68 "wait"
+func_check 0x6c "wait"
+func_check 0x70 "waitrsv"
+func_check 0x74 "waitrsv"
+func_check 0x78 "waitimpl"
+func_check 0x7c "waitimpl"
+func_check 0x80 "doze"
+func_check 0x84 "nap"
+func_check 0x88 "sleep"
+func_check 0x8c "rvwinkle"
+func_check 0x90 "prtyw r3,r4"
+func_check 0x94 "prtyd r13,r14"
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
+func_check 0x98 "mfcfar r10"
+func_check 0x9c "mtcfar r11"
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+func_check 0xa0 "cmpb r3,r4,r5"
+func_check 0xa4 "lwzcix r10,r11,r12"
+func_check 0xa8 "dadd f16,f17,f18"
+func_check 0xac "daddq f20,f22,f24"
+func_check 0xb0 "dss 3"
+func_check 0xb4 "dssall"
+func_check 0xb8 "dst r5,r4,1"
+func_check 0xbc "dstt r8,r7,0"
+func_check 0xc0 "dstst r5,r6,3"
+func_check 0xc4 "dststt r4,r5,2"
+func_check 0xc8 "divwe r10,r11,r12"
+func_check 0xcc "divwe. r11,r12,r13"
+func_check 0xd0 "divweo r12,r13,r14"
+func_check 0xd4 "divweo. r13,r14,r15"
+func_check 0xd8 "divweu r10,r11,r12"
+func_check 0xdc "divweu. r11,r12,r13"
+func_check 0xe0 "divweuo r12,r13,r14"
+func_check 0xe4 "divweuo. r13,r14,r15"
+func_check 0xe8 "bpermd r7,r17,r27"
+func_check 0xec "popcntw r10,r20"
+func_check 0xf0 "popcntd r10,r20"
+func_check 0xf4 "ldbrx r20,r21,r22"
+func_check 0xf8 "stdbrx r20,r21,r22"
+func_check 0xfc "lfiwzx f10,0,r10"
+func_check 0x100 "lfiwzx f10,r9,r10"
+func_check 0x104 "fcfids f4,f5"
+func_check 0x108 "fcfids. f4,f5"
+func_check 0x10c "fcfidus f4,f5"
+func_check 0x110 "fcfidus. f4,f5"
+func_check 0x114 "fctiwu f4,f5"
+func_check 0x118 "fctiwu. f4,f5"
+func_check 0x11c "fctiwuz f4,f5"
+func_check 0x120 "fctiwuz. f4,f5"
+func_check 0x124 "fctidu f4,f5"
+func_check 0x128 "fctidu. f4,f5"
+func_check 0x12c "fctiduz f4,f5"
+func_check 0x130 "fctiduz. f4,f5"
+func_check 0x134 "fcfidu f4,f5"
+func_check 0x138 "fcfidu. f4,f5"
+func_check 0x13c "ftdiv cr0,f10,f11"
+func_check 0x140 "ftdiv cr7,f10,f11"
+func_check 0x144 "ftsqrt cr0,f10"
+func_check 0x148 "ftsqrt cr7,f10"
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
+func_check 0x14c "dcbtt r8,r9"
+func_check 0x150 "dcbtstt r8,r9"
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+func_check 0x154 "dcffix f10,f12"
+func_check 0x158 "dcffix. f20,f22"
+func_check 0x15c "lbarx r10,r11,r12"
+func_check 0x160 "lbarx r10,r11,r12"
+func_check 0x164 "lbarx r10,r11,r12,1"
+func_check 0x168 "lharx r20,r21,r22"
+func_check 0x16c "lharx r20,r21,r22"
+func_check 0x170 "lharx r20,r21,r22,1"
+func_check 0x174 "stbcx. r10,r11,r12"
+func_check 0x178 "sthcx. r10,r11,r12"
+func_check 0x17c "fre f14,f15"
+func_check 0x180 "fre. f14,f15"
+func_check 0x184 "fres f14,f15"
+func_check 0x188 "fres. f14,f15"
+func_check 0x18c "frsqrte f14,f15"
+func_check 0x190 "frsqrte. f14,f15"
+func_check 0x194 "frsqrtes f14,f15"
+func_check 0x198 "frsqrtes. f14,f15"
+func_check 0x19c "isel r2,r3,r4,28"
diff --git a/gdb/testsuite/gdb.arch/powerpc-power7.s b/gdb/testsuite/gdb.arch/powerpc-power7.s
new file mode 100644
index 0000000..98b2e79
--- /dev/null
+++ b/gdb/testsuite/gdb.arch/powerpc-power7.s
@@ -0,0 +1,107 @@
+ .text
+ .globl func
+func:
+ .long 0x7c642e98 /* 0: lxvd2x vs3,r4,r5 */
+ .long 0x7c642ed8 /* 4: lxvd2ux vs3,r4,r5 */
+ .long 0x7d642e99 /* 8: lxvd2x vs43,r4,r5 */
+ .long 0x7d642ed9 /* c: lxvd2ux vs43,r4,r5 */
+ .long 0x7c642f98 /* 10: stxvd2x vs3,r4,r5 */
+ .long 0x7c642fd8 /* 14: stxvd2ux vs3,r4,r5 */
+ .long 0x7d642f99 /* 18: stxvd2x vs43,r4,r5 */
+ .long 0x7d642fd9 /* 1c: stxvd2ux vs43,r4,r5 */
+ .long 0xf0642850 /* 20: xxmrghd vs3,vs4,vs5 */
+ .long 0xf16c6857 /* 24: xxmrghd vs43,vs44,vs45 */
+ .long 0xf0642b50 /* 28: xxmrgld vs3,vs4,vs5 */
+ .long 0xf16c6b57 /* 2c: xxmrgld vs43,vs44,vs45 */
+ .long 0xf0642850 /* 30: xxmrghd vs3,vs4,vs5 */
+ .long 0xf16c6857 /* 34: xxmrghd vs43,vs44,vs45 */
+ .long 0xf0642b50 /* 38: xxmrgld vs3,vs4,vs5 */
+ .long 0xf16c6b57 /* 3c: xxmrgld vs43,vs44,vs45 */
+ .long 0xf0642950 /* 40: xxpermdi vs3,vs4,vs5,1 */
+ .long 0xf16c6957 /* 44: xxpermdi vs43,vs44,vs45,1 */
+ .long 0xf0642a50 /* 48: xxpermdi vs3,vs4,vs5,2 */
+ .long 0xf16c6a57 /* 4c: xxpermdi vs43,vs44,vs45,2 */
+ .long 0xf0642780 /* 50: xvmovdp vs3,vs4 */
+ .long 0xf16c6787 /* 54: xvmovdp vs43,vs44 */
+ .long 0xf0642780 /* 58: xvmovdp vs3,vs4 */
+ .long 0xf16c6787 /* 5c: xvmovdp vs43,vs44 */
+ .long 0xf0642f80 /* 60: xvcpsgndp vs3,vs4,vs5 */
+ .long 0xf16c6f87 /* 64: xvcpsgndp vs43,vs44,vs45 */
+ .long 0x7c00007c /* 68: wait */
+ .long 0x7c00007c /* 6c: wait */
+ .long 0x7c20007c /* 70: waitrsv */
+ .long 0x7c20007c /* 74: waitrsv */
+ .long 0x7c40007c /* 78: waitimpl */
+ .long 0x7c40007c /* 7c: waitimpl */
+ .long 0x4c000324 /* 80: doze */
+ .long 0x4c000364 /* 84: nap */
+ .long 0x4c0003a4 /* 88: sleep */
+ .long 0x4c0003e4 /* 8c: rvwinkle */
+ .long 0x7c830134 /* 90: prtyw r3,r4 */
+ .long 0x7dcd0174 /* 94: prtyd r13,r14 */
+ .long 0x7d5c02a6 /* 98: mfcfar r10 */
+ .long 0x7d7c03a6 /* 9c: mtcfar r11 */
+ .long 0x7c832bf8 /* a0: cmpb r3,r4,r5 */
+ .long 0x7d4b662a /* a4: lwzcix r10,r11,r12 */
+ .long 0xee119004 /* a8: dadd f16,f17,f18 */
+ .long 0xfe96c004 /* ac: daddq f20,f22,f24 */
+ .long 0x7c60066c /* b0: dss 3 */
+ .long 0x7e00066c /* b4: dssall */
+ .long 0x7c2522ac /* b8: dst r5,r4,1 */
+ .long 0x7e083aac /* bc: dstt r8,r7,0 */
+ .long 0x7c6532ec /* c0: dstst r5,r6,3 */
+ .long 0x7e442aec /* c4: dststt r4,r5,2 */
+ .long 0x7d4b6356 /* c8: divwe r10,r11,r12 */
+ .long 0x7d6c6b57 /* cc: divwe. r11,r12,r13 */
+ .long 0x7d8d7756 /* d0: divweo r12,r13,r14 */
+ .long 0x7dae7f57 /* d4: divweo. r13,r14,r15 */
+ .long 0x7d4b6316 /* d8: divweu r10,r11,r12 */
+ .long 0x7d6c6b17 /* dc: divweu. r11,r12,r13 */
+ .long 0x7d8d7716 /* e0: divweuo r12,r13,r14 */
+ .long 0x7dae7f17 /* e4: divweuo. r13,r14,r15 */
+ .long 0x7e27d9f8 /* e8: bpermd r7,r17,r27 */
+ .long 0x7e8a02f4 /* ec: popcntw r10,r20 */
+ .long 0x7e8a03f4 /* f0: popcntd r10,r20 */
+ .long 0x7e95b428 /* f4: ldbrx r20,r21,r22 */
+ .long 0x7e95b528 /* f8: stdbrx r20,r21,r22 */
+ .long 0x7d4056ee /* fc: lfiwzx f10,0,r10 */
+ .long 0x7d4956ee /* 100: lfiwzx f10,r9,r10 */
+ .long 0xec802e9c /* 104: fcfids f4,f5 */
+ .long 0xec802e9d /* 108: fcfids. f4,f5 */
+ .long 0xec802f9c /* 10c: fcfidus f4,f5 */
+ .long 0xec802f9d /* 110: fcfidus. f4,f5 */
+ .long 0xfc80291c /* 114: fctiwu f4,f5 */
+ .long 0xfc80291d /* 118: fctiwu. f4,f5 */
+ .long 0xfc80291e /* 11c: fctiwuz f4,f5 */
+ .long 0xfc80291f /* 120: fctiwuz. f4,f5 */
+ .long 0xfc802f5c /* 124: fctidu f4,f5 */
+ .long 0xfc802f5d /* 128: fctidu. f4,f5 */
+ .long 0xfc802f5e /* 12c: fctiduz f4,f5 */
+ .long 0xfc802f5f /* 130: fctiduz. f4,f5 */
+ .long 0xfc802f9c /* 134: fcfidu f4,f5 */
+ .long 0xfc802f9d /* 138: fcfidu. f4,f5 */
+ .long 0xfc0a5900 /* 13c: ftdiv cr0,f10,f11 */
+ .long 0xff8a5900 /* 140: ftdiv cr7,f10,f11 */
+ .long 0xfc005140 /* 144: ftsqrt cr0,f10 */
+ .long 0xff805140 /* 148: ftsqrt cr7,f10 */
+ .long 0x7e084a2c /* 14c: dcbtt r8,r9 */
+ .long 0x7e0849ec /* 150: dcbtstt r8,r9 */
+ .long 0xed406644 /* 154: dcffix f10,f12 */
+ .long 0xee80b645 /* 158: dcffix. f20,f22 */
+ .long 0x7d4b6068 /* 15c: lbarx r10,r11,r12 */
+ .long 0x7d4b6068 /* 160: lbarx r10,r11,r12 */
+ .long 0x7d4b6069 /* 164: lbarx r10,r11,r12,1 */
+ .long 0x7e95b0e8 /* 168: lharx r20,r21,r22 */
+ .long 0x7e95b0e8 /* 16c: lharx r20,r21,r22 */
+ .long 0x7e95b0e9 /* 170: lharx r20,r21,r22,1 */
+ .long 0x7d4b656d /* 174: stbcx. r10,r11,r12 */
+ .long 0x7d4b65ad /* 178: sthcx. r10,r11,r12 */
+ .long 0xfdc07830 /* 17c: fre f14,f15 */
+ .long 0xfdc07831 /* 180: fre. f14,f15 */
+ .long 0xedc07830 /* 184: fres f14,f15 */
+ .long 0xedc07831 /* 188: fres. f14,f15 */
+ .long 0xfdc07834 /* 18c: frsqrte f14,f15 */
+ .long 0xfdc07835 /* 190: frsqrte. f14,f15 */
+ .long 0xedc07834 /* 194: frsqrtes f14,f15 */
+ .long 0xedc07835 /* 198: frsqrtes. f14,f15 */
+ .long 0x7c43271e /* 19c: isel r2,r3,r4,28 */
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/testsuite/gdb.arch/x86_64-vla-typedef-foo.S b/gdb/testsuite/gdb.arch/x86_64-vla-typedef-foo.S
new file mode 100644
index 0000000..66f7a39
--- /dev/null
+++ b/gdb/testsuite/gdb.arch/x86_64-vla-typedef-foo.S
@@ -0,0 +1,455 @@
+ .file "x86_64-vla-typedef.c"
+ .section .debug_abbrev,"",@progbits
+.Ldebug_abbrev0:
+ .section .debug_info,"",@progbits
+.Ldebug_info0:
+ .section .debug_line,"",@progbits
+.Ldebug_line0:
+ .text
+.Ltext0:
+.globl foo
+ .type foo, @function
+foo:
+.LFB2:
+ .file 1 "x86_64-vla-typedef.c"
+ .loc 1 22 0
+ pushq %rbp
+.LCFI0:
+ movq %rsp, %rbp
+.LCFI1:
+ subq $64, %rsp
+.LCFI2:
+ movl %edi, -36(%rbp)
+ .loc 1 22 0
+ movq %rsp, %rax
+ movq %rax, -48(%rbp)
+ .loc 1 23 0
+ movl -36(%rbp), %edx
+ movslq %edx,%rax
+ subq $1, %rax
+ movq %rax, -24(%rbp)
+ .loc 1 24 0
+ movslq %edx,%rax
+ addq $15, %rax
+ addq $15, %rax
+ shrq $4, %rax
+ salq $4, %rax
+ subq %rax, %rsp
+ movq %rsp, -56(%rbp)
+ movq -56(%rbp), %rax
+ addq $15, %rax
+ shrq $4, %rax
+ salq $4, %rax
+ movq %rax, -56(%rbp)
+ movq -56(%rbp), %rax
+ movq %rax, -16(%rbp)
+ .loc 1 27 0
+ movl $0, -4(%rbp)
+ jmp .L2
+.L3:
+ .loc 1 28 0
+ movl -4(%rbp), %esi
+ movl -4(%rbp), %eax
+ movl %eax, %ecx
+ movq -16(%rbp), %rdx
+ movslq %esi,%rax
+ movb %cl, (%rdx,%rax)
+ .loc 1 27 0
+ addl $1, -4(%rbp)
+.L2:
+ movl -4(%rbp), %eax
+ cmpl -36(%rbp), %eax
+ jl .L3
+ .loc 1 30 0
+ .globl break_here
+break_here:
+ movq -16(%rbp), %rax
+ movb $0, (%rax)
+ movq -48(%rbp), %rsp
+ .loc 1 31 0
+ leave
+ ret
+.LFE2:
+ .size foo, .-foo
+ .section .debug_frame,"",@progbits
+.Lframe0:
+ .long .LECIE0-.LSCIE0
+.LSCIE0:
+ .long 0xffffffff
+ .byte 0x1
+ .string ""
+ .uleb128 0x1
+ .sleb128 -8
+ .byte 0x10
+ .byte 0xc
+ .uleb128 0x7
+ .uleb128 0x8
+ .byte 0x90
+ .uleb128 0x1
+ .align 8
+.LECIE0:
+.LSFDE0:
+ .long .LEFDE0-.LASFDE0
+.LASFDE0:
+ .long .Lframe0
+ .quad .LFB2
+ .quad .LFE2-.LFB2
+ .byte 0x4
+ .long .LCFI0-.LFB2
+ .byte 0xe
+ .uleb128 0x10
+ .byte 0x86
+ .uleb128 0x2
+ .byte 0x4
+ .long .LCFI1-.LCFI0
+ .byte 0xd
+ .uleb128 0x6
+ .align 8
+.LEFDE0:
+ .section .eh_frame,"a",@progbits
+.Lframe1:
+ .long .LECIE1-.LSCIE1
+.LSCIE1:
+ .long 0x0
+ .byte 0x1
+ .string "zR"
+ .uleb128 0x1
+ .sleb128 -8
+ .byte 0x10
+ .uleb128 0x1
+ .byte 0x3
+ .byte 0xc
+ .uleb128 0x7
+ .uleb128 0x8
+ .byte 0x90
+ .uleb128 0x1
+ .align 8
+.LECIE1:
+.LSFDE1:
+ .long .LEFDE1-.LASFDE1
+.LASFDE1:
+ .long .LASFDE1-.Lframe1
+ .long .LFB2
+ .long .LFE2-.LFB2
+ .uleb128 0x0
+ .byte 0x4
+ .long .LCFI0-.LFB2
+ .byte 0xe
+ .uleb128 0x10
+ .byte 0x86
+ .uleb128 0x2
+ .byte 0x4
+ .long .LCFI1-.LCFI0
+ .byte 0xd
+ .uleb128 0x6
+ .align 8
+.LEFDE1:
+ .text
+.Letext0:
+ .section .debug_loc,"",@progbits
+.Ldebug_loc0:
+.LLST0:
+ .quad .LFB2-.Ltext0
+ .quad .LCFI0-.Ltext0
+ .value 0x2
+ .byte 0x77
+ .sleb128 8
+ .quad .LCFI0-.Ltext0
+ .quad .LCFI1-.Ltext0
+ .value 0x2
+ .byte 0x77
+ .sleb128 16
+ .quad .LCFI1-.Ltext0
+ .quad .LFE2-.Ltext0
+ .value 0x2
+ .byte 0x76
+ .sleb128 16
+ .quad 0x0
+ .quad 0x0
+ .section .debug_info
+ .long .Ldebug_end - .Ldebug_start
+.Ldebug_start:
+ .value 0x2
+ .long .Ldebug_abbrev0
+ .byte 0x8
+ .uleb128 0x1
+ .long .LASF2
+ .byte 0x1
+ .long .LASF3
+ .long .LASF4
+ .quad .Ltext0
+ .quad .Letext0
+ .long .Ldebug_line0
+ .uleb128 0x2
+ .byte 0x1
+ .string "foo"
+ .byte 0x1
+ .byte 0x16
+ .byte 0x1
+ .quad .LFB2
+ .quad .LFE2
+ .long .LLST0
+ .long 0x83
+ .uleb128 0x3
+ .long .LASF5
+ .byte 0x1
+ .byte 0x15
+ .long 0x83
+ .byte 0x2
+ .byte 0x91
+ .sleb128 -52
+.Ltag_typedef:
+ .uleb128 0x4
+ .long .LASF6
+ .byte 0x1
+ .byte 0x17
+ .long .Ltag_array_type - .debug_info
+ .uleb128 0x5 /* Abbrev Number: 5 (DW_TAG_variable) */
+ .long .LASF0
+ .byte 0x1
+ .byte 0x18
+#if 1
+ .long .Ltag_typedef - .debug_info
+#else
+ /* Debugging only: Skip the typedef indirection. */
+ .long .Ltag_array_type - .debug_info
+#endif
+ /* DW_AT_location: DW_FORM_block1: start */
+ .byte 0x3
+ .byte 0x91
+ .sleb128 -32
+#if 0
+ .byte 0x6 /* DW_OP_deref */
+#else
+ .byte 0x96 /* DW_OP_nop */
+#endif
+ /* DW_AT_location: DW_FORM_block1: end */
+ .uleb128 0x6
+ .string "i"
+ .byte 0x1
+ .byte 0x19
+ .long 0x83
+ .byte 0x2
+ .byte 0x91
+ .sleb128 -20
+ .byte 0x0
+ .uleb128 0x7
+ .byte 0x4
+ .byte 0x5
+ .string "int"
+.Ltag_array_type:
+ .uleb128 0x8 /* Abbrev Number: 8 (DW_TAG_array_type) */
+ .long 0xa0 + (2f - 1f) /* DW_AT_type: DW_FORM_ref4 */
+ .long 0x9d + (2f - 1f) /* DW_AT_sibling: DW_FORM_ref4 */
+1: /* DW_AT_data_location: DW_FORM_block1: start */
+ .byte 2f - 3f /* length */
+3:
+ .byte 0x97 /* DW_OP_push_object_address */
+ .byte 0x6 /* DW_OP_deref */
+2: /* DW_AT_data_location: DW_FORM_block1: end */
+ .uleb128 0x9
+ .long 0x9d + (2b - 1b) /* DW_AT_type: DW_FORM_ref4 */
+ .byte 0x3
+ .byte 0x91
+ .sleb128 -40
+ .byte 0x6
+ .byte 0x0
+ .uleb128 0xa
+ .byte 0x8
+ .byte 0x7
+ .uleb128 0xb
+ .byte 0x1
+ .byte 0x6
+ .long .LASF1
+ .byte 0x0
+.Ldebug_end:
+ .section .debug_abbrev
+ .uleb128 0x1
+ .uleb128 0x11
+ .byte 0x1
+ .uleb128 0x25
+ .uleb128 0xe
+ .uleb128 0x13
+ .uleb128 0xb
+ .uleb128 0x3
+ .uleb128 0xe
+ .uleb128 0x1b
+ .uleb128 0xe
+ .uleb128 0x11
+ .uleb128 0x1
+ .uleb128 0x12
+ .uleb128 0x1
+ .uleb128 0x10
+ .uleb128 0x6
+ .byte 0x0
+ .byte 0x0
+ .uleb128 0x2
+ .uleb128 0x2e
+ .byte 0x1
+ .uleb128 0x3f
+ .uleb128 0xc
+ .uleb128 0x3
+ .uleb128 0x8
+ .uleb128 0x3a
+ .uleb128 0xb
+ .uleb128 0x3b
+ .uleb128 0xb
+ .uleb128 0x27
+ .uleb128 0xc
+ .uleb128 0x11
+ .uleb128 0x1
+ .uleb128 0x12
+ .uleb128 0x1
+ .uleb128 0x40
+ .uleb128 0x6
+ .uleb128 0x1
+ .uleb128 0x13
+ .byte 0x0
+ .byte 0x0
+ .uleb128 0x3
+ .uleb128 0x5
+ .byte 0x0
+ .uleb128 0x3
+ .uleb128 0xe
+ .uleb128 0x3a
+ .uleb128 0xb
+ .uleb128 0x3b
+ .uleb128 0xb
+ .uleb128 0x49
+ .uleb128 0x13
+ .uleb128 0x2
+ .uleb128 0xa
+ .byte 0x0
+ .byte 0x0
+ .uleb128 0x4
+ .uleb128 0x16
+ .byte 0x0
+ .uleb128 0x3
+ .uleb128 0xe
+ .uleb128 0x3a
+ .uleb128 0xb
+ .uleb128 0x3b
+ .uleb128 0xb
+ .uleb128 0x49
+ .uleb128 0x13
+ .byte 0x0
+ .byte 0x0
+ .uleb128 0x5
+ .uleb128 0x34
+ .byte 0x0
+ .uleb128 0x3
+ .uleb128 0xe
+ .uleb128 0x3a
+ .uleb128 0xb
+ .uleb128 0x3b
+ .uleb128 0xb
+ .uleb128 0x49
+ .uleb128 0x13
+ .uleb128 0x2
+ .uleb128 0xa
+ .byte 0x0
+ .byte 0x0
+ .uleb128 0x6
+ .uleb128 0x34
+ .byte 0x0
+ .uleb128 0x3
+ .uleb128 0x8
+ .uleb128 0x3a
+ .uleb128 0xb
+ .uleb128 0x3b
+ .uleb128 0xb
+ .uleb128 0x49
+ .uleb128 0x13
+ .uleb128 0x2
+ .uleb128 0xa
+ .byte 0x0
+ .byte 0x0
+ .uleb128 0x7
+ .uleb128 0x24
+ .byte 0x0
+ .uleb128 0xb
+ .uleb128 0xb
+ .uleb128 0x3e
+ .uleb128 0xb
+ .uleb128 0x3
+ .uleb128 0x8
+ .byte 0x0
+ .byte 0x0
+ .uleb128 0x8 /* Abbrev Number: 8 (DW_TAG_array_type) */
+ .uleb128 0x1
+ .byte 0x1
+ .uleb128 0x49 /* DW_AT_type */
+ .uleb128 0x13 /* DW_FORM_ref4 */
+ .uleb128 0x1 /* DW_AT_sibling */
+ .uleb128 0x13 /* DW_FORM_ref4 */
+ .uleb128 0x50 /* DW_AT_data_location */
+ .uleb128 0xa /* DW_FORM_block1 */
+ .byte 0x0
+ .byte 0x0
+ .uleb128 0x9
+ .uleb128 0x21
+ .byte 0x0
+ .uleb128 0x49 /* DW_AT_type */
+ .uleb128 0x13 /* DW_FORM_ref4 */
+ .uleb128 0x2f
+ .uleb128 0xa
+ .byte 0x0
+ .byte 0x0
+ .uleb128 0xa
+ .uleb128 0x24
+ .byte 0x0
+ .uleb128 0xb
+ .uleb128 0xb
+ .uleb128 0x3e
+ .uleb128 0xb
+ .byte 0x0
+ .byte 0x0
+ .uleb128 0xb
+ .uleb128 0x24
+ .byte 0x0
+ .uleb128 0xb
+ .uleb128 0xb
+ .uleb128 0x3e
+ .uleb128 0xb
+ .uleb128 0x3
+ .uleb128 0xe
+ .byte 0x0
+ .byte 0x0
+ .byte 0x0
+ .section .debug_pubnames,"",@progbits
+ .long 0x16
+ .value 0x2
+ .long .Ldebug_info0
+ .long 0xa8
+ .long 0x2d
+ .string "foo"
+ .long 0x0
+ .section .debug_aranges,"",@progbits
+ .long 0x2c
+ .value 0x2
+ .long .Ldebug_info0
+ .byte 0x8
+ .byte 0x0
+ .value 0x0
+ .value 0x0
+ .quad .Ltext0
+ .quad .Letext0-.Ltext0
+ .quad 0x0
+ .quad 0x0
+ .section .debug_str,"MS",@progbits,1
+.LASF0:
+ .string "array"
+.LASF5:
+ .string "size"
+.LASF3:
+ .string "x86_64-vla-typedef.c"
+.LASF6:
+ .string "array_t"
+.LASF1:
+ .string "char"
+.LASF4:
+ .string "gdb.arch"
+.LASF2:
+ .string "GNU C 4.3.2 20081105 (Red Hat 4.3.2-7)"
+ .ident "GCC: (GNU) 4.3.2 20081105 (Red Hat 4.3.2-7)"
+ .section .note.GNU-stack,"",@progbits
diff --git a/gdb/testsuite/gdb.arch/x86_64-vla-typedef.c b/gdb/testsuite/gdb.arch/x86_64-vla-typedef.c
new file mode 100644
index 0000000..b809c4e
--- /dev/null
+++ b/gdb/testsuite/gdb.arch/x86_64-vla-typedef.c
@@ -0,0 +1,43 @@
+/* This testcase is part of GDB, the GNU debugger.
+
+ Copyright 2008 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#if 0
+
+void
+foo (int size)
+{
+ typedef char array_t[size];
+ array_t array;
+ int i;
+
+ for (i = 0; i < size; i++)
+ array[i] = i;
+
+ array[0] = 0; /* break-here */
+}
+
+#else
+
+int
+main (void)
+{
+ foo (26);
+ foo (78);
+ return 0;
+}
+
+#endif
diff --git a/gdb/testsuite/gdb.arch/x86_64-vla-typedef.exp b/gdb/testsuite/gdb.arch/x86_64-vla-typedef.exp
new file mode 100644
index 0000000..534120a
--- /dev/null
+++ b/gdb/testsuite/gdb.arch/x86_64-vla-typedef.exp
@@ -0,0 +1,64 @@
+# Copyright 2009 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+# Test DW_AT_data_location accessed through DW_TAG_typedef intermediate.
+
+if ![istarget "x86_64-*-*"] then {
+ verbose "Skipping over gdb.arch/x86_64-vla-typedef.exp test made only for x86_64."
+ return
+}
+
+set testfile x86_64-vla-typedef
+set srcasmfile ${testfile}-foo.S
+set srcfile ${testfile}.c
+set binfile ${objdir}/${subdir}/${testfile}
+set binobjfile ${objdir}/${subdir}/${testfile}-foo.o
+if { [gdb_compile "${srcdir}/${subdir}/${srcasmfile}" "${binobjfile}" object {}] != "" } {
+ untested "Couldn't compile test program"
+ return -1
+}
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile} ${binobjfile}" "${binfile}" executable {debug}] != "" } {
+ untested "Couldn't compile test program"
+ return -1
+}
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+if ![runto_main] {
+ untested x86_64-vla-typedef
+ return -1
+}
+
+gdb_breakpoint "break_here"
+
+gdb_continue_to_breakpoint "break_here"
+
+gdb_test "whatis array" "type = array_t" "first: whatis array"
+
+gdb_test "ptype array" "type = char \\\[26\\\]" "first: ptype array"
+
+gdb_test "p array\[1\]" "\\$\[0-9\] = 1 '\\\\1'"
+gdb_test "p array\[2\]" "\\$\[0-9\] = 2 '\\\\2'"
+gdb_test "p array\[3\]" "\\$\[0-9\] = 3 '\\\\3'"
+gdb_test "p array\[4\]" "\\$\[0-9\] = 4 '\\\\4'"
+
+gdb_continue_to_breakpoint "break_here"
+
+gdb_test "whatis array" "type = array_t" "second: whatis array"
+
+gdb_test "ptype array" "type = char \\\[78\\\]" "second: ptype array"
diff --git a/gdb/testsuite/gdb.base/Makefile.in b/gdb/testsuite/gdb.base/Makefile.in
index 9f382db..12db521 100644
--- a/gdb/testsuite/gdb.base/Makefile.in
+++ b/gdb/testsuite/gdb.base/Makefile.in
@@ -12,7 +12,7 @@ EXECUTABLES = all-types annota1 bitfields break \
scope section_command setshow setvar shmain sigall signals \
solib solib_sl so-impl-ld so-indr-cl \
step-line step-test structs structs2 \
- twice-tmp varargs vforked-prog watchpoint whatis
+ twice-tmp varargs vforked-prog watchpoint whatis catch-syscall
MISCELLANEOUS = coremmap.data ../foobar.baz \
shr1.sl shr2.sl solib_sl.sl solib1.sl solib2.sl
diff --git a/gdb/testsuite/gdb.base/call-rt-st.exp b/gdb/testsuite/gdb.base/call-rt-st.exp
index 3359c70..f73dd7f 100644
--- a/gdb/testsuite/gdb.base/call-rt-st.exp
+++ b/gdb/testsuite/gdb.base/call-rt-st.exp
@@ -186,7 +186,7 @@ if {![gdb_skip_float_test "print print_two_floats(*f3)"] && \
if ![gdb_skip_stdio_test "print print_bit_flags_char(*cflags)"] {
print_struct_call "print_bit_flags_char(*cflags)" \
- ".*alpha\[ \r\n\]+gamma\[ \r\n\]+epsilon\[ \r\n\]+.\[0-9\]+ = \\{alpha = 1 '\\\\001', beta = 0 '\\\\0', gamma = 1 '\\\\001', delta = 0 '\\\\0', epsilon = 1 '\\\\001', omega = 0 '\\\\0'\\}"
+ ".*alpha\[ \r\n\]+gamma\[ \r\n\]+epsilon\[ \r\n\]+.\[0-9\]+ = \\{alpha = 1 '\\\\1', beta = 0 '\\\\0', gamma = 1 '\\\\1', delta = 0 '\\\\0', epsilon = 1 '\\\\1', omega = 0 '\\\\0'\\}"
}
if ![gdb_skip_stdio_test "print print_bit_flags_short(*sflags)"] {
diff --git a/gdb/testsuite/gdb.base/callfuncs.exp b/gdb/testsuite/gdb.base/callfuncs.exp
index 6d8aa45..be6a872 100644
--- a/gdb/testsuite/gdb.base/callfuncs.exp
+++ b/gdb/testsuite/gdb.base/callfuncs.exp
@@ -437,7 +437,7 @@ gdb_test "print t_small_values(1,3,5,7,9,11,13,15,17,19)" \
"The program being debugged stopped while.*" \
"stop at nested call level 4"
gdb_test "backtrace" \
- "\#0 t_small_values \\(arg1=1 '.001', arg2=3, arg3=5, arg4=7 '.a', arg5=9, arg6=11 '.v', arg7=13, arg8=15, arg9=17, arg10=19\\).*\#2 sum10 \\(i0=2, i1=4, i2=6, i3=8, i4=10, i5=12, i6=14, i7=16, i8=18, i9=20\\).*\#3 <function called from gdb>.*\#4 add \\(a=4, b=5\\).*\#5 <function called from gdb>.*\#6 add \\(a=2, b=3\\).*\#7 <function called from gdb>.*\#8 main.*" \
+ "\#0 t_small_values \\(arg1=1 '.1', arg2=3, arg3=5, arg4=7 '.a', arg5=9, arg6=11 '.v', arg7=13, arg8=15, arg9=17, arg10=19\\).*\#2 sum10 \\(i0=2, i1=4, i2=6, i3=8, i4=10, i5=12, i6=14, i7=16, i8=18, i9=20\\).*\#3 <function called from gdb>.*\#4 add \\(a=4, b=5\\).*\#5 <function called from gdb>.*\#6 add \\(a=2, b=3\\).*\#7 <function called from gdb>.*\#8 main.*" \
"backtrace at nested call level 4"
gdb_test "finish" "Value returned is .* = 100" \
"Finish from nested call level 4"
diff --git a/gdb/testsuite/gdb.base/catch-syscall.c b/gdb/testsuite/gdb.base/catch-syscall.c
new file mode 100644
index 0000000..64850de
--- /dev/null
+++ b/gdb/testsuite/gdb.base/catch-syscall.c
@@ -0,0 +1,25 @@
+/* This file is used to test the 'catch syscall' feature on GDB.
+
+ Please, if you are going to edit this file DO NOT change the syscalls
+ being called (nor the order of them). If you really must do this, then
+ take a look at catch-syscall.exp and modify there too.
+
+ Written by Sergio Durigan Junior <sergiodj@linux.vnet.ibm.com>
+ September, 2008 */
+
+#include <unistd.h>
+#include <fcntl.h>
+#include <sys/stat.h>
+
+int
+main (void)
+{
+ /* A close() with a wrong argument. We are only
+ interested in the syscall. */
+ close (-1);
+
+ chroot (".");
+
+ /* The last syscall. Do not change this. */
+ _exit (0);
+}
diff --git a/gdb/testsuite/gdb.base/catch-syscall.exp b/gdb/testsuite/gdb.base/catch-syscall.exp
new file mode 100644
index 0000000..a9f6937
--- /dev/null
+++ b/gdb/testsuite/gdb.base/catch-syscall.exp
@@ -0,0 +1,386 @@
+# Copyright 1997, 1999, 2007, 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+
+# This program tests the 'catch syscall' functionality.
+#
+# It was written by Sergio Durigan Junior <sergiodj@linux.vnet.ibm.com>
+# on September/2008.
+
+if { [is_remote target] || ![isnative] } then {
+ continue
+}
+
+set prms_id 0
+set bug_id 0
+
+global srcfile
+set testfile "catch-syscall"
+set srcfile ${testfile}.c
+set binfile ${objdir}/${subdir}/${testfile}
+
+# All (but the last) syscalls from the example code
+# They are ordered according to the file, so do not change this.
+set all_syscalls { "close" "chroot" }
+# The last syscall (exit()) does not return, so
+# we cannot expect the catchpoint to be triggered
+# twice. It is a special case.
+set last_syscall "exit_group"
+
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
+ untested catch-syscall.exp
+ return -1
+}
+
+# Until "catch syscall" is implemented on other targets...
+if {![istarget "hppa*-hp-hpux*"] && ![istarget "*-linux*"]} then {
+ continue
+}
+
+# This shall be updated whenever 'catch syscall' is implemented
+# on some architecture.
+#if { ![istarget "x86_64-*-linux*"] && ![istarget "i\[34567\]86-*-linux*"]
+if { ![istarget "i\[34567\]86-*-linux*"]
+ && ![istarget "powerpc-*-linux*"] && ![istarget "powerpc64-*-linux*"] } {
+ continue
+}
+
+# Internal procedure used to check if, before any syscall is caught,
+# the command 'info breakpoints' correctly lists the catchpoints AND
+# says that nothing was caught yet.
+proc check_init_info_breakpoints {} {
+ global gdb_prompt
+
+ # Verifying that the catchpoint appears in the 'info breakpoints'
+ # command, but with "<any syscall>".
+ set thistest "catch syscall appears in 'info breakpoints'"
+ gdb_test "info breakpoints" ".*catchpoint.*keep y.*syscall \"<any syscall>\".*" $thistest
+}
+
+# This procedure checks if, after a syscall catchpoint is hit, the
+# command 'info breakpoints' correctly lists the syscall name.
+proc check_info_breakpoints { syscall } {
+ global gdb_prompt
+
+ set thistest "syscall $syscall appears in 'info breakpoints'"
+ gdb_test "info breakpoints" ".*catchpoint.*keep y.*syscall (.)?${syscall}(.)?.*" $thistest
+}
+
+# This procedure checks if there was a call to a syscall.
+proc check_call_to_syscall { syscall } {
+ global gdb_prompt
+
+ set thistest "program has called $syscall"
+ gdb_test "continue" "Catchpoint .*(call to syscall .?${syscall}.?).*" $thistest
+
+ # Checking if the syscall is reported to be caught in
+ # 'info breakpoints'.
+ check_info_breakpoints "$syscall"
+}
+
+# This procedure checks if the syscall returned.
+proc check_return_from_syscall { syscall } {
+ global gdb_prompt
+
+ set thistest "syscall $syscall has returned"
+ gdb_test "continue" "Catchpoint .*(returned from syscall (.)?${syscall}(.)?).*" $thistest
+
+ # Checking if the syscall is reported to be caught in
+ # 'info breakpoints'.
+ check_info_breakpoints "$syscall"
+}
+
+# Internal procedure that performs two 'continue' commands and checks if
+# a syscall call AND return occur.
+proc check_continue { syscall } {
+ global gdb_prompt
+
+ # Testing if the 'continue' stops at the
+ # specified syscall_name. If it does, then it should
+ # first print that the infeior has called the syscall,
+ # and after print that the syscall has returned.
+
+ # Testing if the inferiorr has called the syscall.
+ check_call_to_syscall $syscall
+ # And now, that the syscall has returned.
+ check_return_from_syscall $syscall
+}
+
+# Inserts a syscall catchpoint with an argument.
+proc insert_catch_syscall_with_arg { syscall } {
+ global gdb_prompt
+
+ # Trying to set the syscall
+ set thistest "catch syscall with arguments ($syscall)"
+ gdb_test "catch syscall $syscall" "Catchpoint .*(syscall\[(\]s\[)\] (.)?${syscall}(.)?).*" $thistest
+}
+
+proc check_for_program_end {} {
+ global gdb_prompt
+
+ # Deleting the catchpoints
+ delete_breakpoints
+
+ set thistest "successful program end"
+ gdb_test "continue" "Program exited normally.*" $thistest
+
+}
+
+proc test_catch_syscall_without_args {} {
+ global gdb_prompt all_syscalls last_syscall
+
+ # Trying to set the syscall
+ set thistest "setting catch syscall without arguments"
+ gdb_test "catch syscall" "Catchpoint .*(syscall).*" $thistest
+
+ check_init_info_breakpoints
+
+ # We have to check every syscall
+ foreach name $all_syscalls {
+ check_continue $name
+ }
+
+ # At last but not least, we check if the inferior
+ # has called the last (exit) syscall.
+ check_call_to_syscall $last_syscall
+
+ # Now let's see if the inferior correctly finishes.
+ check_for_program_end
+}
+
+proc test_catch_syscall_with_args {} {
+ global gdb_prompt
+ set syscall_name "close"
+
+ insert_catch_syscall_with_arg $syscall_name
+ check_init_info_breakpoints
+
+ # Can we continue until we catch the syscall?
+ check_continue $syscall_name
+
+ # Now let's see if the inferior correctly finishes.
+ check_for_program_end
+}
+
+proc test_catch_syscall_with_wrong_args {} {
+ global gdb_prompt
+ # mlock is not called from the source
+ set syscall_name "mlock"
+
+ insert_catch_syscall_with_arg $syscall_name
+ check_init_info_breakpoints
+
+ # Now, we must verify if the program stops with a continue.
+ # If it doesn't, everything is right (since we don't have
+ # a syscall named "mlock" in it). Otherwise, this is a failure.
+ set thistest "catch syscall with unused syscall ($syscall_name)"
+ gdb_test "continue" "Program exited normally.*" $thistest
+}
+
+proc test_catch_syscall_restarting_inferior {} {
+ global gdb_prompt
+ set syscall_name "chroot"
+
+ insert_catch_syscall_with_arg $syscall_name
+ check_init_info_breakpoints
+
+ # Let's first reach the call of the syscall.
+ check_call_to_syscall $syscall_name
+
+ # Now, restart the program
+ rerun_to_main
+
+ # And check for call/return
+ check_continue $syscall_name
+
+ # Can we finish?
+ check_for_program_end
+}
+
+proc do_syscall_tests {} {
+ global gdb_prompt srcdir
+
+ # First, we need to set GDB datadir.
+ send_gdb "maintenance set gdb_datadir $srcdir/..\n"
+ gdb_expect 10 {
+ -re "$gdb_prompt $" {
+ verbose "Setting GDB datadir to $srcdir/..." 2
+ }
+ timeout {
+ error "Couldn't set GDB datadir."
+ }
+ }
+
+ # Verify that the 'catch syscall' help is available
+ set thistest "help catch syscall"
+ gdb_test "help catch syscall" "Catch system calls.*" $thistest
+
+ # Try to set a catchpoint to a nonsense syscall
+ set thistest "catch syscall to a nonsense syscall is prohibited"
+ gdb_test "catch syscall nonsense_syscall" "Unknown syscall name .*" $thistest
+
+ # Testing the 'catch syscall' command without arguments.
+ # This test should catch any syscalls.
+ if [runto_main] then { test_catch_syscall_without_args }
+
+ # Testing the 'catch syscall' command with arguments.
+ # This test should only catch the specified syscall.
+ if [runto_main] then { test_catch_syscall_with_args }
+
+ # Testing the 'catch syscall' command with WRONG arguments.
+ # This test should not trigger any catchpoints.
+ if [runto_main] then { test_catch_syscall_with_wrong_args }
+
+ # Testing the 'catch' syscall command during a restart of
+ # the inferior.
+ if [runto_main] then { test_catch_syscall_restarting_inferior }
+}
+
+proc test_catch_syscall_fail_noxml {} {
+ global gdb_prompt
+
+ # Sanitizing.
+ delete_breakpoints
+
+ # Testing to see if we receive a warning when calling "catch syscall"
+ # without XML support.
+ set thistest "Catch syscall displays a warning when there is no XML support"
+ gdb_test "catch syscall" "warning: Could not open .*warning: Could not load the syscall XML file .*GDB will not be able to display syscall names.*Catchpoint .*(syscall).*" $thistest
+
+ # Since the catchpoint was set, we must check if it's present at
+ # "info breakpoints"
+ check_init_info_breakpoints
+
+ # Sanitizing.
+ delete_breakpoints
+}
+
+proc test_catch_syscall_without_args_noxml {} {
+ # We will need the syscall names even not using it
+ # because we need to know know many syscalls are in
+ # the example file.
+ global gdb_prompt all_syscalls last_syscall
+
+ delete_breakpoints
+
+ set thistest "Catch syscall without arguments and without XML support"
+ gdb_test "catch syscall" "Catchpoint .*(syscall).*"
+
+ # Now, we should be able to set a catchpoint,
+ # and GDB shall not display the warning anymore.
+ foreach name $all_syscalls {
+ # Unfortunately, we don't know the syscall number
+ # that will be caught because this information is
+ # arch-dependent. Thus, we try to catch anything
+ # similar to a number.
+ check_continue "\[0-9\]*"
+ }
+
+ # At last but not least, we check if the inferior
+ # has called the last (exit) syscall.
+ check_call_to_syscall "\[0-9\]*"
+
+ delete_breakpoints
+}
+
+proc test_catch_syscall_with_args_noxml {} {
+ global gdb_prompt
+
+ # The number of the "close" syscall. This is our
+ # options for a "long-estabilished" syscall in all
+ # Linux architectures, but unfortunately x86_64 and
+ # a few other platforms don't "follow the convention".
+ # Because of this, we need this ugly check :-(.
+ set close_number ""
+ if { [istarget "x86_64-*-linux*"] } {
+ set close_number "3"
+ } else {
+ set close_number "6"
+ }
+
+ delete_breakpoints
+
+ insert_catch_syscall_with_arg $close_number
+ check_init_info_breakpoints
+
+ check_continue $close_number
+
+ delete_breakpoints
+}
+
+proc test_catch_syscall_with_wrong_args_noxml {} {
+ global gdb_prompt
+
+ delete_breakpoints
+
+ # Even without XML support, GDB should not accept unknown
+ # syscall names for the catchpoint.
+ set thistest "Catch a nonsense syscall without XML support"
+ gdb_test "catch syscall nonsense_syscall" "Unknown syscall name .nonsense_syscall.*" $thistest
+
+ delete_breakpoints
+}
+
+proc do_syscall_tests_without_xml {} {
+ global gdb_prompt srcdir
+
+ # In this case, we don't need to set GDB's datadir because
+ # we want GDB to display only numbers, not names. So, let's
+ # begin with the tests.
+
+ # The first test is to see if GDB displays a warning when we
+ # try to catch syscalls without the XML support.
+ test_catch_syscall_fail_noxml
+
+ # Now, let's test if we can catch syscalls without XML support.
+ # We should succeed, but GDB is not supposed to print syscall names.
+ if [runto_main] then { test_catch_syscall_without_args_noxml }
+
+ # The only valid argument "catch syscall" should accept is the
+ # syscall number, and not the name (since it can't translate a
+ # name to a number).
+ #
+ # It's worth mentioning that we only try to catch the syscall
+ # close(). This is because the syscall number is an arch-dependent
+ # information, so we can't assume that we know every syscall number
+ # in this system. Therefore, we have decided to use a "long-estabilished"
+ # system call, and close() just sounded the right choice :-).
+ if [runto_main] then { test_catch_syscall_with_args_noxml }
+
+ # Now, we'll try to provide a syscall name (valid or not) to the command,
+ # and expect it to fail.
+ if [runto_main] then { test_catch_syscall_with_wrong_args_noxml }
+}
+
+# Start with a fresh gdb
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+# Execute the tests, using XML support
+do_syscall_tests
+
+# Restart gdb
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+# Execute the tests, without XML support. In this case, GDB will
+# only display syscall numbers, and not syscall names.
+do_syscall_tests_without_xml
diff --git a/gdb/testsuite/gdb.base/charset.c b/gdb/testsuite/gdb.base/charset.c
index b640702..55a50ce 100644
--- a/gdb/testsuite/gdb.base/charset.c
+++ b/gdb/testsuite/gdb.base/charset.c
@@ -20,11 +20,6 @@
Please email any bugs, comments, and/or additions to this file to:
bug-gdb@gnu.org */
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-
-
/* X_string is a null-terminated string in the X charset whose
elements are as follows. X should be the name the `set charset'
command uses for the character set, in lower-case, with any
@@ -54,6 +49,21 @@ char iso_8859_1_string[NUM_CHARS];
char ebcdic_us_string[NUM_CHARS];
char ibm1047_string[NUM_CHARS];
+/* We make a phony wchar_t and then pretend that this platform uses
+ UCS-4 (or UCS-2, depending on the size -- same difference for the
+ purposes of this test). */
+typedef unsigned int wchar_t;
+wchar_t ucs_4_string[NUM_CHARS];
+
+/* We also define a couple phony types for testing the u'' and U''
+ support. It is ok if these have the wrong size on some platforms
+ -- the test case will skip the tests in that case. */
+typedef unsigned short char16_t;
+typedef unsigned int char32_t;
+
+/* Make sure to use the typedefs. */
+char16_t uvar;
+char32_t Uvar;
void
init_string (char string[],
@@ -62,7 +72,10 @@ init_string (char string[],
char line_feed, char carriage_return, char horizontal_tab,
char vertical_tab, char cent, char misc_ctrl)
{
- memset (string, x, NUM_CHARS);
+ int i;
+
+ for (i = 0; i < NUM_CHARS; ++i)
+ string[i] = x;
string[0] = alert;
string[1] = backspace;
string[2] = form_feed;
@@ -85,13 +98,21 @@ fill_run (char string[], int start, int len, int first)
}
+void
+init_ucs4 ()
+{
+ int i;
+
+ for (i = 0; i < NUM_CHARS; ++i)
+ ucs_4_string[i] = iso_8859_1_string[i] & 0xff;
+}
+
int main ()
{
#ifdef usestubs
set_debug_traps();
breakpoint();
#endif
- (void) malloc (1);
/* Initialize ascii_string. */
init_string (ascii_string,
120,
@@ -146,5 +167,7 @@ int main ()
/* The digits, at least, are contiguous. */
fill_run (ibm1047_string, 59, 10, 240);
- puts ("All set!"); /* all strings initialized */
+ init_ucs4 ();
+
+ return 0; /* all strings initialized */
}
diff --git a/gdb/testsuite/gdb.base/charset.exp b/gdb/testsuite/gdb.base/charset.exp
index fa26521..93f66c0 100644
--- a/gdb/testsuite/gdb.base/charset.exp
+++ b/gdb/testsuite/gdb.base/charset.exp
@@ -47,13 +47,7 @@ proc parse_show_charset_output {testname} {
global gdb_prompt
gdb_expect {
- -re "The current host and target character set is `(.*)'\\.\[\r\n\]+$gdb_prompt $" {
- set host_charset $expect_out(1,string)
- set target_charset $expect_out(1,string)
- set retlist [list $host_charset $target_charset]
- pass $testname
- }
- -re "The current host character set is `(.*)'\\.\[\r\n\]+The current target character set is `(.*)'\\.\[\r\n\]+$gdb_prompt $" {
+ -re "The host character set is \"(.*)\"\\.\[\r\n\]+The target character set is \"(.*)\"\\.\[\r\n\]+The target wide character set is \"(.*)\"\\.\[\r\n\]+$gdb_prompt $" {
set host_charset $expect_out(1,string)
set target_charset $expect_out(2,string)
set retlist [list $host_charset $target_charset]
@@ -81,79 +75,35 @@ proc parse_show_charset_output {testname} {
}
-# Try the various `show charset' commands. These are all aliases of each
-# other; `show target-charset' and `show host-charset' actually print
-# both the host and target charsets.
+# Try the various `show charset' commands.
send_gdb "show charset\n"
set show_charset [parse_show_charset_output "show charset"]
send_gdb "show target-charset\n"
-set show_target_charset [parse_show_charset_output "show target-charset"]
+set show_target_charset \
+ [lindex [parse_show_charset_output "show target-charset"] 0]
-if {[lsearch $show_charset $show_target_charset] >= 0} {
+if {[lsearch -exact $show_charset $show_target_charset] >= 0} {
pass "check `show target-charset' against `show charset'"
} else {
fail "check `show target-charset' against `show charset'"
}
send_gdb "show host-charset\n"
-set show_host_charset [parse_show_charset_output "show host-charset"]
+set show_host_charset \
+ [lindex [parse_show_charset_output "show host-charset"] 0]
-if {[lsearch $show_charset $show_host_charset] >= 0} {
+if {[lsearch -exact $show_charset $show_host_charset] >= 0} {
pass "check `show host-charset' against `show charset'"
} else {
fail "check `show host-charset' against `show charset'"
}
-
-# Get the list of supported (host) charsets as possible completions.
-send_gdb "set charset \t\t"
-
-# Check that we can at least use ASCII as a host character set.
-sleep 1
-gdb_expect {
- -re "^set charset .*\r\nASCII.*\r\n$gdb_prompt set charset " {
- # We got the output that we wanted, including ASCII as possible
- # charset. Send a newline to get us back to the prompt. This will
- # also generate an error message. Let's not check here that the error
- # message makes sense, we do that below, as a separate testcase.
- send_gdb "\n"
- gdb_expect {
- -re ".*Requires an argument.*$gdb_prompt $" {
- pass "get valid character sets"
- }
- -re ".*$gdb_prompt $" {
- send_gdb "\n"
- gdb_expect {
- -re ".*$gdb_prompt $" {
- fail "get valid character sets"
- }
- }
- }
- timeout {
- fail "(timeout) get valid character sets"
- }
- }
- }
- -re ".*$gdb_prompt $" {
- # We got some output that ended with a regular prompt
- fail "get valid character sets"
- }
- -re ".*$gdb_prompt set charset.*$" {
- # We got some other output, send a cntrl-c to gdb to get us back
- # to the prompt.
- send_gdb "\003"
- fail "get valid character sets"
- }
- timeout {
- fail "get valid character sets (timeout)"
- }
-}
-
# Try a malformed `set charset'.
+# Also check that we can at least use ASCII as a host character set.
gdb_test "set charset" \
- "Requires an argument. Valid arguments are.*" \
+ "Requires an argument. Valid arguments are.* ASCII,.*" \
"try malformed `set charset'"
# Try using `set host-charset' on an invalid character set.
@@ -244,8 +194,10 @@ gdb_expect {
}
}
-# Make sure that GDB supports every host/target charset combination.
-foreach host_charset [all_charset_names] {
+# We don't want to test all the charset names here, since that would
+# be too many combinations. We we pick a subset.
+set charset_subset {ASCII ISO-8859-1 EBCDIC-US IBM1047}
+foreach host_charset $charset_subset {
if {[valid_host_charset $host_charset]} {
set testname "try `set host-charset $host_charset'"
@@ -279,7 +231,7 @@ foreach host_charset [all_charset_names] {
# Now try setting every possible target character set,
# given that host charset.
- foreach target_charset [all_charset_names] {
+ foreach target_charset $charset_subset {
set testname "try `set target-charset $target_charset'"
send_gdb "set target-charset $target_charset\n"
gdb_expect {
@@ -404,23 +356,42 @@ gdb_expect {
}
+# We only try the wide character tests on machines where the wchar_t
+# typedef in the test case has the right size.
+set wchar_size [get_sizeof wchar_t 99]
+set wchar_ok 0
+if {$wchar_size == 2} {
+ lappend charset_subset UCS-2
+ set wchar_ok 1
+} elseif {$wchar_size == 4} {
+ lappend charset_subset UCS-4
+ set wchar_ok 1
+}
+
gdb_test "set host-charset ASCII" ""
-foreach target_charset [all_charset_names] {
- send_gdb "set target-charset $target_charset\n"
+foreach target_charset $charset_subset {
+ if {$target_charset == "UCS-4" || $target_charset == "UCS-2"} {
+ set param target-wide-charset
+ set L L
+ } else {
+ set param target-charset
+ set L ""
+ }
+ send_gdb "set $param $target_charset\n"
gdb_expect {
-re "$gdb_prompt $" {
- pass "set target-charset $target_charset"
+ pass "set $param $target_charset"
}
timeout {
- fail "set target-charset $target_charset (timeout)"
+ fail "set $param $target_charset (timeout)"
}
}
# Try printing the null character. There seems to be a bug in
# gdb_test that requires us to use gdb_expect here.
- send_gdb "print '\\0'\n"
+ send_gdb "print $L'\\0'\n"
gdb_expect {
- -re "\\\$${decimal} = 0 '\\\\0'\[\r\n\]+$gdb_prompt $" {
+ -re "\\\$${decimal} = 0 $L'\\\\0'\[\r\n\]+$gdb_prompt $" {
pass "print the null character in ${target_charset}"
}
-re "$gdb_prompt $" {
@@ -435,8 +406,14 @@ foreach target_charset [all_charset_names] {
# a string in $target_charset. The variable's name is the
# character set's name, in lower-case, with all non-identifier
# characters replaced with '_', with "_string" stuck on the end.
- set var_name [string tolower "${target_charset}_string"]
- regsub -all -- "\[^a-z0-9_\]" $var_name "_" var_name
+ if {$target_charset == "UCS-2"} {
+ # We still use the ucs_4_string variable -- but the size is
+ # correct for UCS-2.
+ set var_name ucs_4_string
+ } else {
+ set var_name [string tolower "${target_charset}_string"]
+ regsub -all -- "\[^a-z0-9_\]" $var_name "_" var_name
+ }
# Compute a regexp matching the results we expect. This is static,
# but it's easier than writing it out.
@@ -444,12 +421,12 @@ foreach target_charset [all_charset_names] {
set uppercase "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
set lowercase "abcdefghijklmnopqrstuvwxyz"
set digits "0123456789"
- set octal_escape "\\\\\[0-9\]\[0-9\]\[0-9\]"
+ set octal_escape "\\\\\[0-9\]+"
send_gdb "print $var_name\n"
# ${escapes}${uppercase}${lowercase}${digits}${octal}${octal}
gdb_expect {
- -re ".* = \"(\\\\a|x)(\\\\b|x)(\\\\f|x)(\\\\n|x)(\\\\r|x)(\\\\t|x)(\\\\v|x)${uppercase}${lowercase}${digits}(\\\\\[0-9\]\[0-9\]\[0-9\]|x)(\\\\\[0-9\]\[0-9\]\[0-9\]|x).*\"\[\r\n\]+$gdb_prompt $" {
+ -re ".* = $L\"(\\\\a|x)(\\\\b|x)(\\\\f|x)(\\\\n|x)(\\\\r|x)(\\\\t|x)(\\\\v|x)${uppercase}${lowercase}${digits}(${octal_escape}|x)+\"\[\r\n\]+$gdb_prompt $" {
pass "print string in $target_charset"
}
-re "$gdb_prompt $" {
@@ -461,22 +438,22 @@ foreach target_charset [all_charset_names] {
}
# Try entering a character literal, and see if it comes back unchanged.
- gdb_test "print 'A'" \
- " = \[0-9-\]+ 'A'" \
+ gdb_test "print $L'A'" \
+ " = \[0-9-\]+ $L'A'" \
"parse character literal in ${target_charset}"
# Check that the character literal was encoded correctly.
- gdb_test "print 'A' == $var_name\[7\]" \
+ gdb_test "print $L'A' == $var_name\[7\]" \
" = 1" \
"check value of parsed character literal in ${target_charset}"
# Try entering a string literal, and see if it comes back unchanged.
- gdb_test "print \"abcdefABCDEF012345\"" \
- " = \"abcdefABCDEF012345\"" \
+ gdb_test "print $L\"abcdefABCDEF012345\"" \
+ " = $L\"abcdefABCDEF012345\"" \
"parse string literal in ${target_charset}"
# Check that the string literal was encoded correctly.
- gdb_test "print \"q\"\[0\] == $var_name\[49\]" \
+ gdb_test "print $L\"q\"\[0\] == $var_name\[49\]" \
" = 1" \
"check value of parsed string literal in ${target_charset}"
@@ -509,7 +486,7 @@ foreach target_charset [all_charset_names] {
send_gdb "print $var_name\[$i\]\n"
set have_escape 1
gdb_expect {
- -re "= \[0-9-\]+ '\\\\${escape}'\[\r\n\]+$gdb_prompt $" {
+ -re "= \[0-9-\]+ $L'\\\\${escape}'\[\r\n\]+$gdb_prompt $" {
pass "try printing '\\${escape}' in ${target_charset}"
}
-re "= \[0-9-\]+ 'x'\[\r\n\]+$gdb_prompt $" {
@@ -527,12 +504,12 @@ foreach target_charset [all_charset_names] {
if {$have_escape} {
# Try parsing a backslash escape in a character literal.
- gdb_test "print '\\${escape}' == $var_name\[$i\]" \
+ gdb_test "print $L'\\${escape}' == $var_name\[$i\]" \
" = 1" \
"check value of '\\${escape}' in ${target_charset}"
# Try parsing a backslash escape in a string literal.
- gdb_test "print \"\\${escape}\"\[0\] == $var_name\[$i\]" \
+ gdb_test "print $L\"\\${escape}\"\[0\] == $var_name\[$i\]" \
" = 1" \
"check value of \"\\${escape}\" in ${target_charset}"
}
@@ -540,10 +517,73 @@ foreach target_charset [all_charset_names] {
# Try printing a character escape that doesn't exist. We should
# get the unescaped character, in the target character set.
- gdb_test "print '\\q'" " = \[0-9-\]+ 'q'" \
+ gdb_test "print $L'\\q'" " = \[0-9-\]+ $L'q'" \
"print escape that doesn't exist in $target_charset"
- gdb_test "print '\\q' == $var_name\[49\]" " = 1" \
+ gdb_test "print $L'\\q' == $var_name\[49\]" " = 1" \
"check value of escape that doesn't exist in $target_charset"
}
+# Reset the target charset.
+gdb_test "set target-charset UTF-8" ""
+
+# \242 is not a valid UTF-8 character.
+gdb_test "print \"\\242\"" " = \"\\\\242\"" \
+ "non-representable target character"
+
+gdb_test "print '\\x'" "\\\\x escape without a following hex digit."
+gdb_test "print '\\u'" "\\\\u escape without a following hex digit."
+gdb_test "print '\\9'" " = \[0-9\]+ '9'"
+
+# Tests for wide- or unicode- strings. L is the prefix letter to use,
+# either "L" (for wide strings), "u" (for UCS-2), or "U" (for UCS-4).
+# NAME is used in the test names and should be related to the prefix
+# letter in some easy-to-undestand way.
+proc test_wide_or_unicode {L name} {
+ gdb_test "print $L\"ab\" $L\"c\"" " = $L\"abc\"" \
+ "basic $name string concatenation"
+ gdb_test "print $L\"ab\" \"c\"" " = $L\"abc\"" \
+ "narrow and $name string concatenation"
+ gdb_test "print \"ab\" $L\"c\"" " = $L\"abc\"" \
+ "$name and narrow string concatenation"
+ gdb_test "print $L\"\\xe\" $L\"c\"" " = $L\"\\\\16c\"" \
+ "$name string concatenation with escape"
+ gdb_test "print $L\"\" \"abcdef\" \"g\"" \
+ "$L\"abcdefg\"" \
+ "concatenate three strings with empty $name string"
+
+ gdb_test "print $L'a'" "= \[0-9\]+ $L'a'" \
+ "basic $name character"
+}
+
+if {$wchar_ok} {
+ test_wide_or_unicode L wide
+}
+
+set ucs2_ok [expr {[get_sizeof char16_t 99] == 2}]
+if {$ucs2_ok} {
+ test_wide_or_unicode u UCS-2
+}
+
+set ucs4_ok [expr {[get_sizeof char32_t 99] == 4}]
+if {$ucs4_ok} {
+ test_wide_or_unicode U UCS-4
+}
+
+# Test an invalid string combination.
+proc test_combination {L1 name1 L2 name2} {
+ gdb_test "print $L1\"abc\" $L2\"def\"" \
+ "Undefined string concatenation." \
+ "undefined concatenation of $name1 and $name2"
+}
+
+if {$wchar_ok && $ucs2_ok} {
+ test_combination L wide u UCS-2
+}
+if {$wchar_ok && $ucs4_ok} {
+ test_combination L wide U UCS-4
+}
+if {$ucs2_ok && $ucs4_ok} {
+ test_combination u UCS-2 U UCS-4
+}
+
gdb_exit
diff --git a/gdb/testsuite/gdb.base/constvars.exp b/gdb/testsuite/gdb.base/constvars.exp
index d53a826..6d1bd12 100644
--- a/gdb/testsuite/gdb.base/constvars.exp
+++ b/gdb/testsuite/gdb.base/constvars.exp
@@ -161,7 +161,7 @@ proc do_constvar_tests {} {
gdb_test "print laconic" " = 65 'A'"
local_compiler_xfail_check
gdb_test "ptype laconic" "type = const char"
- gdb_test "print laggard" " = 1 '.001'"
+ gdb_test "print laggard" " = 1 '.1'"
local_compiler_xfail_check
gdb_test "ptype laggard" "type = const unsigned char"
gdb_test "print lagoon" " = 2"
@@ -209,7 +209,7 @@ proc do_constvar_tests {} {
gdb_test "print *lewd" " = 65 'A'"
local_compiler_xfail_check
gdb_test "ptype lewd" "type = const char \\* const"
- gdb_test "print *lexicographer" " = 1 '.001'"
+ gdb_test "print *lexicographer" " = 1 '.1'"
local_compiler_xfail_check
gdb_test "ptype lexicographer" "type = const unsigned char \\* const"
gdb_test "print *lexicon" " = 2"
@@ -233,7 +233,7 @@ proc do_constvar_tests {} {
gdb_test "print *languish" " = 65 'A'"
local_compiler_xfail_check
gdb_test "ptype languish" "type = const char \\*"
- gdb_test "print *languor" " = 1 '.001'"
+ gdb_test "print *languor" " = 1 '.1'"
local_compiler_xfail_check
gdb_test "ptype languor" "type = const unsigned char \\*"
gdb_test "print *lank" " = 2"
diff --git a/gdb/testsuite/gdb.base/display.exp b/gdb/testsuite/gdb.base/display.exp
index d62e8bf..aa65373 100644
--- a/gdb/testsuite/gdb.base/display.exp
+++ b/gdb/testsuite/gdb.base/display.exp
@@ -180,8 +180,12 @@ gdb_test "printf \"%p\\n\", 1" "0x1"
# play with "print", too
#
-gdb_test "print/r j" ".*Undefined output format.*"
-gdb_test "print j" ".*" "debug test output"
+gdb_test "print/z j" ".*Undefined output format.*"
+gdb_test "print/d j" " = 0\[\\r\\n\]+" "debug test output 1"
+gdb_test "print/r j" " = 0\[\\r\\n\]+" "debug test output 1a"
+gdb_test "print/x j" " = 0x0\[\\r\\n\]+" "debug test output 2"
+gdb_test "print/r j" " = 0x0\[\\r\\n\]+" "debug test output 2a"
+gdb_test "print j" " = 0\[\\r\\n\]+" "debug test output 3"
# x/0 j doesn't produce any output and terminates PA64 process when testing
if [istarget "hppa2.0w-hp-hpux11*"] {
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
diff --git a/gdb/testsuite/gdb.base/ending-run.exp b/gdb/testsuite/gdb.base/ending-run.exp
index 42b4577..cf33602 100644
--- a/gdb/testsuite/gdb.base/ending-run.exp
+++ b/gdb/testsuite/gdb.base/ending-run.exp
@@ -69,7 +69,7 @@ gdb_expect {
gdb_test "b ending-run.c:1" ".*Breakpoint.*4.*"
gdb_test "b ending-run.c:14" ".*Note.*also.*Breakpoint.*5.*" "b ending-run.c:14, two"
gdb_test "cle ending-run.c:14" \
- ".*Deleted breakpoints 4 5.*" "Cleared 2 by line"
+ ".*Deleted breakpoint 5.*" "Cleared 2 by line"
send_gdb "inf line ending-run.c:14\n"
gdb_expect {
@@ -77,7 +77,7 @@ gdb_expect {
set line_nine $expect_out(1,string)
gdb_test "b ending-run.c:14" ".*Breakpoint 6.*ending-run.c, line 14.*"
gdb_test "b *$line_nine" ".*Note.*also.*Breakpoint 7.*" "Breakpoint 7 at *ending-run.c:14"
- gdb_test "cle" ".*Deleted breakpoints 6 7.*" "Clear 2 by default"
+ gdb_test "cle" ".*Deleted breakpoints 4 6 7.*" "Clear 2 by default"
}
-re ".*$gdb_prompt $" {
fail "need to fix test for new compile outcome"
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/testsuite/gdb.base/help.exp b/gdb/testsuite/gdb.base/help.exp
index 4618a2c..40830c3 100644
--- a/gdb/testsuite/gdb.base/help.exp
+++ b/gdb/testsuite/gdb.base/help.exp
@@ -603,7 +603,7 @@ gdb_test "help stepi" "Step one instruction exactly\.\[\r\n\]+Argument N means d
gdb_test "help signal" "Continue program giving it signal.*" "help signal"
# test help source
# vxgdb reads .vxgdbinit
-gdb_test "help source" "Read commands from a file named FILE\.\[\r\n\]+Optional -v switch \\(before the filename\\) causes each command in\[\r\n\]+FILE to be echoed as it is executed\.\[\r\n\]+Note that the file \"\[^\"\]*\" is read automatically in this way\[\r\n\]+when GDB is started\." "help source"
+gdb_test "help source" "Read commands from a file named FILE\.\[\r\n\]+Optional -v switch \\(before the filename\\) causes each command in\[\r\n\]+FILE to be echoed as it is executed\.\[\r\n\]+Note that the file \"\[^\"\]*\" is read automatically in this way\[\r\n\]+when GDB is started\.\[\r\n\]+Optional -p switch \\(before the filename\\) causes FILE to be evaluated\[\r\n\]+as Python code\." "help source"
# test help stack
test_class_help "stack" {
"Examining the stack\..*\[\r\n\]+"
diff --git a/gdb/testsuite/gdb.base/lineno-makeup-func.c b/gdb/testsuite/gdb.base/lineno-makeup-func.c
new file mode 100644
index 0000000..1a0220e
--- /dev/null
+++ b/gdb/testsuite/gdb.base/lineno-makeup-func.c
@@ -0,0 +1,21 @@
+/* This testcase is part of GDB, the GNU debugger.
+
+ Copyright 2009 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+void
+func (void)
+{
+}
diff --git a/gdb/testsuite/gdb.base/lineno-makeup.c b/gdb/testsuite/gdb.base/lineno-makeup.c
new file mode 100644
index 0000000..bb20e98
--- /dev/null
+++ b/gdb/testsuite/gdb.base/lineno-makeup.c
@@ -0,0 +1,35 @@
+/* This testcase is part of GDB, the GNU debugger.
+
+ Copyright 2009 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+/* DW_AT_low_pc-DW_AT_high_pc should cover the function without line number
+ information (.debug_line) so we cannot use an external object file.
+
+ It must not be just a label as it would alias on the next function even for
+ correct GDB. Therefore some stub data must be placed there.
+
+ We need to provide a real stub function body as at least s390
+ (s390_analyze_prologue) would skip the whole body till reaching `main'. */
+
+extern void func (void);
+asm ("func: .incbin \"gdb.base/lineno-makeup-func.bin\"");
+
+int
+main (void)
+{
+ func ();
+ return 0;
+}
diff --git a/gdb/testsuite/gdb.base/lineno-makeup.exp b/gdb/testsuite/gdb.base/lineno-makeup.exp
new file mode 100644
index 0000000..0c75b84
--- /dev/null
+++ b/gdb/testsuite/gdb.base/lineno-makeup.exp
@@ -0,0 +1,78 @@
+# Copyright 2009 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+set testfile "lineno-makeup"
+set srcfuncfile ${testfile}-func.c
+set srcfile ${testfile}.c
+set objfuncfile ${objdir}/${subdir}/${testfile}-func.o
+set binfuncfile ${objdir}/${subdir}/${testfile}-func.bin
+set binfile ${objdir}/${subdir}/${testfile}
+
+if { [gdb_compile "${srcdir}/${subdir}/${srcfuncfile}" "${objfuncfile}" object {}] != "" } {
+ gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
+}
+
+set objcopy [catch "exec objcopy -O binary --only-section .text ${objfuncfile} ${binfuncfile}" output]
+verbose -log "objcopy=$objcopy: $output"
+if { $objcopy != 0 } {
+ gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
+}
+set binfuncfilesize [file size $binfuncfile]
+verbose -log "file size $binfuncfile = $binfuncfilesize"
+
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
+ gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
+}
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+set b_addr ""
+set test "break func"
+gdb_test_multiple $test $test {
+ -re "Breakpoint \[0-9\]+ at (0x\[0-9a-f\]+)\r\n$gdb_prompt $" {
+ set b_addr $expect_out(1,string)
+ pass $test
+ }
+ -re "Breakpoint \[0-9\]+ at (0x\[0-9a-f\]+): .*\r\n$gdb_prompt $" {
+ set b_addr $expect_out(1,string)
+ fail $test
+ }
+}
+verbose -log "b_addr=<$b_addr>"
+
+set p_addr ""
+set test "print func"
+gdb_test_multiple $test $test {
+ -re "\\$\[0-9\]+ = {<text variable, no debug info>} (0x\[0-9a-f\]+) <func>\r\n$gdb_prompt $" {
+ set p_addr $expect_out(1,string)
+ pass $test
+ }
+}
+verbose -log "p_addr=<$p_addr>"
+
+set test "break address belongs to func"
+if {$b_addr == $p_addr} {
+ pass "$test (exact match)"
+} else {
+ set skip [expr $b_addr - $p_addr]
+ if {$skip > 0 && $skip < $binfuncfilesize} {
+ pass "$test (prologue skip by $skip bytes)"
+ } else {
+ fail $test
+ }
+}
diff --git a/gdb/testsuite/gdb.base/long_long.exp b/gdb/testsuite/gdb.base/long_long.exp
index d0ad5ba..5189324 100644
--- a/gdb/testsuite/gdb.base/long_long.exp
+++ b/gdb/testsuite/gdb.base/long_long.exp
@@ -210,7 +210,7 @@ gdb_test_char "p/o *(char *)c" "01"
gdb_test_char "p/t *(char *)c" "1"
gdb_test_char "p/a *(char *)c" "0x1( <.*>)?"
gdb_test_char "p/f *(char *)c" "1"
-gdb_test_char "p/c *(char *)c" "1 '.001'"
+gdb_test_char "p/c *(char *)c" "1 '.1'"
gdb_test_short "p/x *(short *)s" "" "0x123" ""
gdb_test_short "p/d *(short *)s" "" "291" ""
@@ -257,7 +257,7 @@ gdb_test "x/u w" "19088743"
gdb_test "x/o w" "0110642547"
gdb_test "x/t w" "00000001001000110100010101100111"
gdb_test_xptr "x/a" { b "" } { h "" } { w "0x1234567" } { g "0x123456789abcdef" }
-gdb_test "x/c b" "1 '.001'"
+gdb_test "x/c b" "1 '.1'"
if { $sizeof_double == 8 || $sizeof_long_double == 8 } {
gdb_test "x/f &val.oct" "-5.9822653797615723e-120"
} else {
@@ -273,7 +273,7 @@ gdb_test "x/2u g" "81985529216486895.*12046818088235383159"
gdb_test "x/2o g" "04432126361152746757.*01234567123456701234567"
gdb_test "x/2t g" "0000000100100011010001010110011110001001101010111100110111101111.*1010011100101110111001010011100101110111000001010011100101110111"
gdb_test_xptr "x/2a" { b "" } { h "" } { w "0x1234567.*0xa72ee539" } { g "0x123456789abcdef.*0xa72ee53977053977" }
-gdb_test "x/2c b" "1 '.001'.*-89 '.'"
+gdb_test "x/2c b" "1 '.1'.*-89 '.\[0-9\]*'"
if { $sizeof_double == 8 || $sizeof_long_double == 8 } {
gdb_test "x/2f &val.oct" "-5.9822653797615723e-120.*-5.9041889495880968e-100"
} else {
@@ -288,7 +288,7 @@ gdb_test "x/2bu b" "1.*167"
gdb_test "x/2bo b" "01.*0247"
gdb_test "x/2bt b" "00000001.*10100111"
gdb_test_ptr "x/2ba b" "" "" "0x1.*0xffffffa7" "0x1.*0xffffffffffffffa7"
-gdb_test "x/2bc b" "1 '.001'.*-89 '.'"
+gdb_test "x/2bc b" "1 '.1'.*-89 '.\[0-9\]*'"
gdb_test "x/2bf b" "1.*-89"
gdb_test "x/2hx h" "0x0123.*0xa72e"
@@ -315,7 +315,7 @@ gdb_test "x/2gu g" "81985529216486895.*12046818088235383159"
gdb_test "x/2go g" "04432126361152746757.*01234567123456701234567"
gdb_test "x/2gt g" "0000000100100011010001010110011110001001101010111100110111101111.*1010011100101110111001010011100101110111000001010011100101110111"
gdb_test_ptr "x/2ga g" "" "" "0x89abcdef.*0x77053977" "0x123456789abcdef.*0xa72ee53977053977"
-gdb_test "x/2gc g" "-17 '.'.*119 'w'"
+gdb_test "x/2gc g" "-17 '.\[0-9\]*'.*119 'w'"
gdb_test "x/2gf g" "3.5127005640885037e-303.*-5.9822653797615723e-120"
gdb_exit
diff --git a/gdb/testsuite/gdb.base/macscp.exp b/gdb/testsuite/gdb.base/macscp.exp
index 7086e90..dd196d7 100644
--- a/gdb/testsuite/gdb.base/macscp.exp
+++ b/gdb/testsuite/gdb.base/macscp.exp
@@ -26,13 +26,21 @@ set testfile "macscp"
set objfile ${objdir}/${subdir}/${testfile}.o
set binfile ${objdir}/${subdir}/${testfile}
-set options { debug }
+set options { debug additional_flags=-DFROM_COMMANDLINE=ARG}
get_compiler_info ${binfile}
if [test_compiler_info gcc*] {
lappend options additional_flags=-g3
}
+# Workaround ccache making lineno non-zero for command-line definitions.
+if {[find_gcc] == "gcc" && [file executable "/usr/bin/gcc"]} {
+ set result [catch "exec which gcc" output]
+ if {$result == 0 && [string first "/ccache/" $output] >= -1} {
+ lappend options "compiler=/usr/bin/gcc"
+ }
+}
+
# Generate the intermediate object file. This is required by Darwin to
# have access to the .debug_macinfo section.
if {[gdb_compile "${srcdir}/${subdir}/macscp1.c" "${objfile}" \
@@ -79,11 +87,15 @@ proc info_macro {macro} {
if {$debug_me} {exp_internal 1}
gdb_expect {
- -re "Defined at \[^\r\n\]*(${filepat}):${decimal}\[\r\n\]" {
+ -re "Defined at \[^\r\n\]*(${filepat}):(${decimal})\[\r\n\]" {
# `location' and `definition' should be empty when we see
# this message.
if {[llength $location] == 0 && [llength $definition] == 0} {
set location $expect_out(1,string)
+ # Definitions from gcc command-line get suffixed by the lineno.
+ if {$expect_out(2,string) == "0" } {
+ set location "$location:$expect_out(2,string)"
+ }
exp_continue
} else {
# Exit this expect loop, with a result indicating failure.
@@ -198,6 +210,8 @@ proc list_and_check_macro {func macro expected} {
}
+list_and_check_macro main FROM_COMMANDLINE "macscp1.c:0 ARG"
+
if {[list_and_check_macro main WHERE {macscp1.c {before macscp1_3}}]} {
return 0
}
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
diff --git a/gdb/testsuite/gdb.base/multi-forks.exp b/gdb/testsuite/gdb.base/multi-forks.exp
index ac56fb0..f853180 100644
--- a/gdb/testsuite/gdb.base/multi-forks.exp
+++ b/gdb/testsuite/gdb.base/multi-forks.exp
@@ -51,7 +51,62 @@ global gdb_prompt
# This is a test of gdb's ability to follow the parent, child or both
# parent and child of multiple Unix fork() system calls.
-#
+
+set exit_bp_loc [gdb_get_line_number "Set exit breakpoint here."]
+
+# Insert a breakpoint at the location provided by the exit_bp_loc global
+# and resume the execution until hitting that breakpoint. We also make
+# sure to consume all the expected output from all processes as well,
+# to make sure it doesn't cause trouble during a subsequent test.
+
+proc continue_to_exit_bp_loc {} {
+ global exit_bp_loc decimal gdb_prompt
+
+ gdb_breakpoint $exit_bp_loc
+
+ send_gdb "continue\n"
+
+ # The output from the child processes can be interleaved arbitrarily
+ # with the output from GDB and the parent process. If we don't
+ # consume it all now, it can confuse later interactions.
+ set seen_done 0
+ set seen_break 0
+ set seen_prompt 0
+ set seen_timeout 0
+ while { ($seen_done < 16 || ! $seen_prompt) && ! $seen_timeout } {
+ # We don't know what order the interesting things will arrive in.
+ # Using a pattern of the form 'x|y|z' instead of -re x ... -re y
+ # ... -re z ensures that expect always chooses the match that
+ # occurs leftmost in the input, and not the pattern appearing
+ # first in the script that occurs anywhere in the input, so that
+ # we don't skip anything.
+ gdb_expect {
+ -re "($decimal done)|(Breakpoint)|($gdb_prompt)" {
+ if {[info exists expect_out(1,string)]} {
+ incr seen_done
+ } elseif {[info exists expect_out(2,string)]} {
+ set seen_break 1
+ } elseif {[info exists expect_out(3,string)]} {
+ set seen_prompt 1
+ }
+ array unset expect_out
+ }
+ timeout { set seen_timeout 1 }
+ }
+ }
+
+ if { $seen_timeout } {
+ fail "run to exit 2 (timeout)"
+ } elseif { ! $seen_prompt } {
+ fail "run to exit 2 (no prompt)"
+ } elseif { ! $seen_break } {
+ fail "run to exit 2 (no breakpoint hit)"
+ } elseif { $seen_done != 16 } {
+ fail "run to exit 2 (missing done messages)"
+ } else {
+ pass "run to exit 2"
+ }
+}
# The inferior program builds a tree of processes by executing a loop
# four times, calling fork at each iteration. Thus, at each
@@ -66,69 +121,17 @@ global gdb_prompt
# The result should be that each of the 4 forks returns zero.
runto_main
-set exit_bp_loc [gdb_get_line_number "Set exit breakpoint here."]
-gdb_test "break $exit_bp_loc" "Breakpoint.* at .*" "Break at exit"
-gdb_test "set follow child" "" ""
-
-send_gdb "continue\n"
-gdb_expect {
- -re ".*Break.* main .*$gdb_prompt.*$" {}
- -re ".*$gdb_prompt $" {fail "run to exit 1"}
- default {fail "run to exit 1 (timeout)"}
-}
+gdb_test "set follow child"
+continue_to_exit_bp_loc
gdb_test "print pids" "\\$.* = \\{0, 0, 0, 0\\}.*" "follow child, print pids"
# Now set gdb to follow the parent.
# Result should be that none of the 4 forks returns zero.
-delete_breakpoints
runto_main
-gdb_test "break $exit_bp_loc" "Breakpoint.* at .*" "Break at exit"
gdb_test "set follow parent" "" ""
-
-send_gdb "continue\n"
-
-# The output from the child processes can be interleaved arbitrarily
-# with the output from GDB and the parent process. If we don't
-# consume it all now, it can confuse later interactions.
-set seen_done 0
-set seen_break 0
-set seen_prompt 0
-set seen_timeout 0
-while { ($seen_done < 16 || ! $seen_prompt) && ! $seen_timeout } {
- # We don't know what order the interesting things will arrive in.
- # Using a pattern of the form 'x|y|z' instead of -re x ... -re y
- # ... -re z ensures that expect always chooses the match that
- # occurs leftmost in the input, and not the pattern appearing
- # first in the script that occurs anywhere in the input, so that
- # we don't skip anything.
- gdb_expect {
- -re "($decimal done)|(Breakpoint)|($gdb_prompt)" {
- if {[info exists expect_out(1,string)]} {
- incr seen_done
- } elseif {[info exists expect_out(2,string)]} {
- set seen_break 1
- } elseif {[info exists expect_out(3,string)]} {
- set seen_prompt 1
- }
- array unset expect_out
- }
- timeout { set seen_timeout 1 }
- }
-}
-
-if { $seen_timeout } {
- fail "run to exit 2 (timeout)"
-} elseif { ! $seen_prompt } {
- fail "run to exit 2 (no prompt)"
-} elseif { ! $seen_break } {
- fail "run to exit 2 (no breakpoint hit)"
-} elseif { $seen_done != 16 } {
- fail "run to exit 2 (missing done messages)"
-} else {
- pass "run to exit 2"
-}
+continue_to_exit_bp_loc
gdb_test "print pids\[0\]==0 || pids\[1\]==0 || pids\[2\]==0 || pids\[3\]==0" \
" = 0" "follow parent, print pids"
@@ -138,7 +141,7 @@ gdb_test "print pids\[0\]==0 || pids\[1\]==0 || pids\[2\]==0 || pids\[3\]==0" \
#
runto_main
-gdb_test "break $exit_bp_loc" "Breakpoint.* at .*" ""
+gdb_breakpoint $exit_bp_loc
gdb_test "help set detach-on-fork" "whether gdb will detach the child.*" \
"help set detach"
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/testsuite/gdb.base/pointers.exp b/gdb/testsuite/gdb.base/pointers.exp
index 91838a2..2d0a70e 100644
--- a/gdb/testsuite/gdb.base/pointers.exp
+++ b/gdb/testsuite/gdb.base/pointers.exp
@@ -389,7 +389,7 @@ gdb_expect {
send_gdb "print *pUC\n"
gdb_expect {
- -re ".\[0-9\]* = 21 \'.025\'.*$gdb_prompt $" {
+ -re ".\[0-9\]* = 21 \'.25\'.*$gdb_prompt $" {
pass "print value of *pUC"
}
-re ".*$gdb_prompt $" { fail "print value of *pUC" }
diff --git a/gdb/testsuite/gdb.base/printcmds.exp b/gdb/testsuite/gdb.base/printcmds.exp
index 1e17da4..b6f8a1f 100644
--- a/gdb/testsuite/gdb.base/printcmds.exp
+++ b/gdb/testsuite/gdb.base/printcmds.exp
@@ -137,12 +137,12 @@ proc test_print_all_chars {} {
global gdb_prompt
gdb_test "p ctable1\[0\]" " = 0 '\\\\0'"
- gdb_test "p ctable1\[1\]" " = 1 '\\\\001'"
- gdb_test "p ctable1\[2\]" " = 2 '\\\\002'"
- gdb_test "p ctable1\[3\]" " = 3 '\\\\003'"
- gdb_test "p ctable1\[4\]" " = 4 '\\\\004'"
- gdb_test "p ctable1\[5\]" " = 5 '\\\\005'"
- gdb_test "p ctable1\[6\]" " = 6 '\\\\006'"
+ gdb_test "p ctable1\[1\]" " = 1 '\\\\1'"
+ gdb_test "p ctable1\[2\]" " = 2 '\\\\2'"
+ gdb_test "p ctable1\[3\]" " = 3 '\\\\3'"
+ gdb_test "p ctable1\[4\]" " = 4 '\\\\4'"
+ gdb_test "p ctable1\[5\]" " = 5 '\\\\5'"
+ gdb_test "p ctable1\[6\]" " = 6 '\\\\6'"
gdb_test "p ctable1\[7\]" " = 7 '\\\\a'"
gdb_test "p ctable1\[8\]" " = 8 '\\\\b'"
gdb_test "p ctable1\[9\]" " = 9 '\\\\t'"
@@ -150,24 +150,24 @@ proc test_print_all_chars {} {
gdb_test "p ctable1\[11\]" " = 11 '\\\\v'"
gdb_test "p ctable1\[12\]" " = 12 '\\\\f'"
gdb_test "p ctable1\[13\]" " = 13 '\\\\r'"
- gdb_test "p ctable1\[14\]" " = 14 '\\\\016'"
- gdb_test "p ctable1\[15\]" " = 15 '\\\\017'"
- gdb_test "p ctable1\[16\]" " = 16 '\\\\020'"
- gdb_test "p ctable1\[17\]" " = 17 '\\\\021'"
- gdb_test "p ctable1\[18\]" " = 18 '\\\\022'"
- gdb_test "p ctable1\[19\]" " = 19 '\\\\023'"
- gdb_test "p ctable1\[20\]" " = 20 '\\\\024'"
- gdb_test "p ctable1\[21\]" " = 21 '\\\\025'"
- gdb_test "p ctable1\[22\]" " = 22 '\\\\026'"
- gdb_test "p ctable1\[23\]" " = 23 '\\\\027'"
- gdb_test "p ctable1\[24\]" " = 24 '\\\\030'"
- gdb_test "p ctable1\[25\]" " = 25 '\\\\031'"
- gdb_test "p ctable1\[26\]" " = 26 '\\\\032'"
- gdb_test "p ctable1\[27\]" " = 27 '\\\\033'"
- gdb_test "p ctable1\[28\]" " = 28 '\\\\034'"
- gdb_test "p ctable1\[29\]" " = 29 '\\\\035'"
- gdb_test "p ctable1\[30\]" " = 30 '\\\\036'"
- gdb_test "p ctable1\[31\]" " = 31 '\\\\037'"
+ gdb_test "p ctable1\[14\]" " = 14 '\\\\16'"
+ gdb_test "p ctable1\[15\]" " = 15 '\\\\17'"
+ gdb_test "p ctable1\[16\]" " = 16 '\\\\20'"
+ gdb_test "p ctable1\[17\]" " = 17 '\\\\21'"
+ gdb_test "p ctable1\[18\]" " = 18 '\\\\22'"
+ gdb_test "p ctable1\[19\]" " = 19 '\\\\23'"
+ gdb_test "p ctable1\[20\]" " = 20 '\\\\24'"
+ gdb_test "p ctable1\[21\]" " = 21 '\\\\25'"
+ gdb_test "p ctable1\[22\]" " = 22 '\\\\26'"
+ gdb_test "p ctable1\[23\]" " = 23 '\\\\27'"
+ gdb_test "p ctable1\[24\]" " = 24 '\\\\30'"
+ gdb_test "p ctable1\[25\]" " = 25 '\\\\31'"
+ gdb_test "p ctable1\[26\]" " = 26 '\\\\32'"
+ gdb_test "p ctable1\[27\]" " = 27 '\\\\33'"
+ gdb_test "p ctable1\[28\]" " = 28 '\\\\34'"
+ gdb_test "p ctable1\[29\]" " = 29 '\\\\35'"
+ gdb_test "p ctable1\[30\]" " = 30 '\\\\36'"
+ gdb_test "p ctable1\[31\]" " = 31 '\\\\37'"
gdb_test "p ctable1\[32\]" " = 32 ' '"
gdb_test "p ctable1\[33\]" " = 33 '!'"
gdb_test "p ctable1\[34\]" " = 34 '\"'"
@@ -475,13 +475,13 @@ proc test_print_strings {} {
gdb_test "p &ctable1\[0\]" \
" = \\(unsigned char \\*\\) \"\""
gdb_test "p &ctable1\[1\]" \
- " = \\(unsigned char \\*\\) \"\\\\001\\\\002\\\\003\\\\004\\\\005\\\\006\\\\a\\\\b\"..."
+ " = \\(unsigned char \\*\\) \"\\\\1\\\\2\\\\3\\\\4\\\\5\\\\6\\\\a\\\\b\"..."
gdb_test "p &ctable1\[1*8\]" \
- " = \\(unsigned char \\*\\) \"\\\\b\\\\t\\\\n\\\\v\\\\f\\\\r\\\\016\\\\017\"..."
+ " = \\(unsigned char \\*\\) \"\\\\b\\\\t\\\\n\\\\v\\\\f\\\\r\\\\16\\\\17\"..."
gdb_test "p &ctable1\[2*8\]" \
- " = \\(unsigned char \\*\\) \"\\\\020\\\\021\\\\022\\\\023\\\\024\\\\025\\\\026\\\\027\"..."
+ " = \\(unsigned char \\*\\) \"\\\\20\\\\21\\\\22\\\\23\\\\24\\\\25\\\\26\\\\27\"..."
gdb_test "p &ctable1\[3*8\]" \
- " = \\(unsigned char \\*\\) \"\\\\030\\\\031\\\\032\\\\033\\\\034\\\\035\\\\036\\\\037\"..."
+ " = \\(unsigned char \\*\\) \"\\\\30\\\\31\\\\32\\\\33\\\\34\\\\35\\\\36\\\\37\"..."
gdb_test "p &ctable1\[4*8\]" \
" = \\(unsigned char \\*\\) \" !\\\\\"#\\\$%&'\"..."
gdb_test "p &ctable1\[5*8\]" \
@@ -622,7 +622,7 @@ proc test_print_string_constants {} {
set timeout 60;
gdb_test "p \"a string\"" " = \"a string\""
- gdb_test "p \"embedded \\000 null\"" " = \"embedded \\\\000 null\""
+ gdb_test "p \"embedded \\000 null\"" " = \"embedded \\\\0 null\""
gdb_test "p \"abcd\"\[2\]" " = 99 'c'"
gdb_test "p sizeof (\"abcdef\")" " = 7"
gdb_test "ptype \"foo\"" " = char \\\[4\\\]"
diff --git a/gdb/testsuite/gdb.base/return-nodebug.c b/gdb/testsuite/gdb.base/return-nodebug.c
new file mode 100644
index 0000000..e1211b3
--- /dev/null
+++ b/gdb/testsuite/gdb.base/return-nodebug.c
@@ -0,0 +1,49 @@
+/* This testcase is part of GDB, the GNU debugger.
+
+ Copyright 2009 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include <stdio.h>
+
+static TYPE
+init (void)
+{
+ return 0;
+}
+
+static TYPE
+func (void)
+{
+ return 31;
+}
+
+static void
+marker (void)
+{
+}
+
+int
+main (void)
+{
+ /* Preinitialize registers to 0 to avoid false PASS by leftover garbage. */
+ init ();
+
+ printf ("result=" FORMAT "\n", CAST func ());
+
+ /* Cannot `next' with no debug info. */
+ marker ();
+
+ return 0;
+}
diff --git a/gdb/testsuite/gdb.base/return-nodebug.exp b/gdb/testsuite/gdb.base/return-nodebug.exp
new file mode 100644
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
index 0000000..7d43776
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- /dev/null
+++ b/gdb/testsuite/gdb.base/return-nodebug.exp
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -0,0 +1,61 @@
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+# Copyright (C) 2009 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+proc do_test {type} {
+ set typenospace [string map {{ } -} $type]
+
+ global pf_prefix
+ set old_prefix $pf_prefix
+ lappend pf_prefix "$typenospace:"
+
+ if {[runto "func"]} {
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
+ # Verify that we do not crash when using "return" from a function with
+ # no debugging info. Such function has no `struct symbol'. It may
+ # still have an associated `struct minimal_symbol'.
+
+ gdb_test "return -1" \
+ "Return value type not available for selected stack frame\\.\r\nPlease use an explicit cast of the value to return\\." \
+ "return from function with no debug info without a cast"
+
+ # Cast of the result to the proper width must be done explicitely.
+ gdb_test "return ($type) -1" "#0 .* main \\(.*" \
+ "return from function with no debug info with a cast" \
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ "Make selected stack frame return now\\? \\(y or n\\) " "y"
+
+ # And if it returned the full width of the result.
+ gdb_test "adv marker" "\r\nresult=-1\r\n.* in marker \\(.*" \
+ "full width of the returned result"
+ }
+
+ set pf_prefix $old_prefix
+}
+
+foreach case {{{signed char} %d (int)} \
+ {{short} %d (int)} \
+ {{int} %d} \
+ {{long} %ld} \
+ {{long long} %lld}} {
+ set type [lindex $case 0]
+ set format [lindex $case 1]
+ set cast [lindex $case 2]
+
+ set typeesc [string map {{ } {\ }} $type]
+ set typenospace [string map {{ } -} $type]
+
+ if {[prepare_for_testing return-nodebug.exp "return-nodebug-$typenospace" "return-nodebug.c" \
+ [list "additional_flags=-DFORMAT=\"$format\" -DTYPE=$typeesc -DCAST=$cast"]] == 0} {
+ do_test $type
+ }
+}
diff --git a/gdb/testsuite/gdb.base/setvar.exp b/gdb/testsuite/gdb.base/setvar.exp
index 2350a33..3be8424 100644
--- a/gdb/testsuite/gdb.base/setvar.exp
+++ b/gdb/testsuite/gdb.base/setvar.exp
@@ -121,7 +121,7 @@ proc test_set { args } {
#
test_set "set variable v_char=0" "print v_char" ".\[0-9\]* = 0 \'.0\'" "set variable char=0"
-test_set "set variable v_char=1" "print v_char" ".\[0-9\]* = 1 \'.001\'" "set variable char=1"
+test_set "set variable v_char=1" "print v_char" ".\[0-9\]* = 1 \'.1\'" "set variable char=1"
test_set "set variable v_char=7" "print v_char" ".\[0-9\]* = 7 \'.a\'" "set variable char=7 (Bel)"
test_set "set variable v_char=32" "print v_char" ".\[0-9\]* = 32 \' \'" "set variable char=32 (SPC)"
test_set "set variable v_char=65" "print v_char" ".\[0-9\]* = 65 \'A\'" "set variable char=65 ('A')"
@@ -132,7 +132,7 @@ test_set "set variable v_char=127" "print v_char" ".\[0-9\]* = 127 \'.177\'"
# test "set variable" for type "signed char"
#
test_set "set variable v_char=0" "print v_signed_char" ".\[0-9\]* = 0 \'.0\'" "set variable signed char=0"
-test_set "set variable v_signed_char=1" "print v_signed_char" ".\[0-9\]* = 1 \'.001\'" "set variable signed char=1"
+test_set "set variable v_signed_char=1" "print v_signed_char" ".\[0-9\]* = 1 \'.1\'" "set variable signed char=1"
test_set "set variable v_signed_char=7" "print v_signed_char" ".\[0-9\]* = 7 \'.a\'" "set variable signed char=7 (Bel)"
test_set "set variable v_signed_char=32" "print v_signed_char" ".\[0-9\]* = 32 \' \'" "set variable signed char=32 (SPC)"
test_set "set variable v_signed_char=65" "print v_signed_char" ".\[0-9\]* = 65 \'A\'" "set variable signed char=65 ('A')"
@@ -151,7 +151,7 @@ gdb_test "print v_signed_char" ".\[0-9\]* = -1 \'.377\'" \
# test "set variable" for type "unsigned char"
#
test_set "set variable v_unsigned_char=0" "print v_unsigned_char" ".\[0-9\]* = 0 \'.0\'" "set variable unsigned char=0"
-test_set "set variable v_unsigned_char=1" "print v_unsigned_char" ".\[0-9\]* = 1 \'.001\'" "set variable unsigned char=1"
+test_set "set variable v_unsigned_char=1" "print v_unsigned_char" ".\[0-9\]* = 1 \'.1\'" "set variable unsigned char=1"
test_set "set variable v_unsigned_char=7" "print v_unsigned_char" ".\[0-9\]* = 7 \'.a\'" "set variable unsigned char=7 (Bel)"
test_set "set variable v_unsigned_char=32" "print v_unsigned_char" ".\[0-9\]* = 32 \' \'" "set variable unsigned char=32 (SPC)"
test_set "set variable v_unsigned_char=65" "print v_unsigned_char" ".\[0-9\]* = 65 \'A\'" "set variable unsigned char=65 ('A')"
diff --git a/gdb/testsuite/gdb.base/store.exp b/gdb/testsuite/gdb.base/store.exp
index 963bb19..feab6bd 100644
--- a/gdb/testsuite/gdb.base/store.exp
+++ b/gdb/testsuite/gdb.base/store.exp
@@ -74,7 +74,7 @@ proc check_set { t l r new add } {
"${prefix}; print incremented l, expecting ${add}"
}
-check_set "charest" "-1 .*" "-2 .*" "4 ..004." "2 ..002."
+check_set "charest" "-1 .*" "-2 .*" "4 ..4." "2 ..2."
check_set "short" "-1" "-2" "4" "2"
check_set "int" "-1" "-2" "4" "2"
check_set "long" "-1" "-2" "4" "2"
@@ -102,7 +102,7 @@ proc up_set { t l r new } {
"${prefix}; print new l, expecting ${new}"
}
-up_set "charest" "-1 .*" "-2 .*" "4 ..004."
+up_set "charest" "-1 .*" "-2 .*" "4 ..4."
up_set "short" "-1" "-2" "4"
up_set "int" "-1" "-2" "4"
up_set "long" "-1" "-2" "4"
diff --git a/gdb/testsuite/gdb.base/valgrind-attach.c b/gdb/testsuite/gdb.base/valgrind-attach.c
new file mode 100644
index 0000000..84b57db
--- /dev/null
+++ b/gdb/testsuite/gdb.base/valgrind-attach.c
@@ -0,0 +1,28 @@
+/* This testcase is part of GDB, the GNU debugger.
+
+ Copyright 2009 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include <stdlib.h>
+
+int
+main (void)
+{
+ int *a = malloc (1);
+
+ a[10] = 0; /* crash-here */
+
+ return 0;
+}
diff --git a/gdb/testsuite/gdb.base/valgrind-attach.exp b/gdb/testsuite/gdb.base/valgrind-attach.exp
new file mode 100644
index 0000000..1f9b26e
--- /dev/null
+++ b/gdb/testsuite/gdb.base/valgrind-attach.exp
@@ -0,0 +1,94 @@
+# Copyright 2009 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+set testfile valgrind-attach
+set shfile ${testfile}.sh
+set srcfile ${testfile}.c
+set binfile ${objdir}/${subdir}/${testfile}
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
+ untested "Couldn't compile test program"
+ return -1
+}
+
+gdb_exit
+gdb_stop_suppressing_tests;
+
+set VALGRIND "valgrind"
+
+# Syntax for ${shfile} is: <binfile> <valgrind> <db-command-arguments>
+set VALGRIND_SPAWN "sh ${srcdir}/${subdir}/${shfile} $binfile $VALGRIND $GDB $INTERNAL_GDBFLAGS $GDBFLAGS [host_info gdb_opts]"
+
+set test "spawn valgrind"
+verbose "Spawning $VALGRIND_SPAWN"
+
+if [info exists gdb_spawn_id] {
+ fail $test
+ return -1
+}
+
+if ![is_remote host] {
+ if { [which $VALGRIND] == 0 } then {
+ untested "Couldn't find $VALGRIND"
+ return -1
+ }
+}
+set res [remote_spawn host "$VALGRIND_SPAWN"]
+if { $res < 0 || $res == "" } {
+ perror "Spawning $VALGRIND_SPAWN failed."
+ return -1
+}
+set gdb_spawn_id -1;
+
+gdb_expect {
+ -re "---- Attach to debugger \\? --- \\\[Return/N/n/Y/y/C/c\\\] ---- $" {
+ pass $test
+ }
+ eof {
+ perror "(eof) $VALGRIND never initialized"
+ remote_close host
+ return -1
+ }
+ timeout {
+ perror "(timeout) $VALGRIND never initialized"
+ remote_close host
+ return -1
+ }
+}
+send_gdb "y\n"
+
+set test "spawn gdb"
+set test2 "crash line caught"
+gdb_expect {
+ -re "starting debugger with cmd:.* in main .* crash-here .*\[\r\n\]$gdb_prompt $" {
+ pass $test
+ pass $test2
+ }
+ -re "starting debugger with cmd:.*\[\r\n\]$gdb_prompt $" {
+ pass $test
+ fail $test2
+ }
+ eof {
+ perror "(eof) $GDB never initialized"
+ remote_close host
+ return -1
+ }
+ timeout {
+ perror "(timeout) $GDB never initialized"
+ remote_close host
+ return -1
+ }
+}
+
+remote_close host
diff --git a/gdb/testsuite/gdb.base/valgrind-attach.sh b/gdb/testsuite/gdb.base/valgrind-attach.sh
new file mode 100755
index 0000000..f02c6f7
--- /dev/null
+++ b/gdb/testsuite/gdb.base/valgrind-attach.sh
@@ -0,0 +1,20 @@
+#! /bin/sh
+
+# Copyright 2009 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+BINFILE="$1"; shift
+VALGRIND="$1"; shift
+"$VALGRIND" --db-attach=yes --db-command="$* %f %p" "$BINFILE"
diff --git a/gdb/testsuite/gdb.base/vla-overflow.c b/gdb/testsuite/gdb.base/vla-overflow.c
new file mode 100644
index 0000000..c5d5ee0
--- /dev/null
+++ b/gdb/testsuite/gdb.base/vla-overflow.c
@@ -0,0 +1,30 @@
+/* This testcase is part of GDB, the GNU debugger.
+
+ Copyright 2008 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include <stdlib.h>
+
+int
+main (int argc, char **argv)
+{
+ int array[argc];
+
+ array[0] = array[0];
+
+ abort ();
+
+ return 0;
+}
diff --git a/gdb/testsuite/gdb.base/vla-overflow.exp b/gdb/testsuite/gdb.base/vla-overflow.exp
new file mode 100644
index 0000000..7203a48
--- /dev/null
+++ b/gdb/testsuite/gdb.base/vla-overflow.exp
@@ -0,0 +1,108 @@
+# Copyright 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+# We could crash in:
+# #0 block_linkage_function (bl=0x0) at ../../gdb/block.c:69
+# #1 in dwarf_block_get_frame_base (...) at ../../gdb/dwarf2block.c:97
+# 97 framefunc = block_linkage_function (get_frame_block (frame, NULL));
+# #2 in execute_stack_op (...) at ../../gdb/dwarf2expr.c:496
+# #3 in dwarf_block_exec_core () at ../../gdb/dwarf2block.c:156
+# #4 dwarf_block_exec (...) at ../../gdb/dwarf2block.c:206
+# #5 in range_type_count_bound_internal (...) at ../../gdb/gdbtypes.c:1430
+# #6 in create_array_type (...) at ../../gdb/gdbtypes.c:840
+# ...
+# #21 in psymtab_to_symtab (...) at ../../gdb/symfile.c:292
+# ...
+# #29 in backtrace_command_1 () at ../../gdb/stack.c:1273
+
+set testfile vla-overflow
+set shfile ${objdir}/${subdir}/${testfile}-gdb.sh
+set srcfile ${testfile}.c
+set binfile ${objdir}/${subdir}/${testfile}
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
+ untested "Couldn't compile test program"
+ return -1
+}
+
+set f [open "|getconf PAGESIZE" "r"]
+gets $f pagesize
+close $f
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+set pid_of_gdb [exp_pid -i [board_info host fileid]]
+
+if { [runto_main] < 0 } {
+ untested vla-overflow
+ return -1
+}
+
+# Get the GDB memory size when we stay at main.
+
+proc memory_v_pages_get {} {
+ global pid_of_gdb pagesize
+ set fd [open "/proc/$pid_of_gdb/statm"]
+ gets $fd line
+ close $fd
+ # number of pages of virtual memory
+ scan $line "%d" drs
+ return $drs
+}
+
+set pages_found [memory_v_pages_get]
+
+set mb_reserve 10
+verbose -log "pages_found = $pages_found, mb_reserve = $mb_reserve"
+set kb_found [expr $pages_found * $pagesize / 1024]
+set kb_permit [expr $kb_found + 1 * 1024 + $mb_reserve * 1024]
+verbose -log "kb_found = $kb_found, kb_permit = $kb_permit"
+
+# Create the ulimit wrapper.
+set f [open $shfile "w"]
+puts $f "#! /bin/sh"
+puts $f "ulimit -v $kb_permit"
+puts $f "exec $GDB \"\$@\""
+close $f
+remote_exec host "chmod +x $shfile"
+
+gdb_exit
+set GDBold $GDB
+set GDB "$shfile"
+gdb_start
+set GDB $GDBold
+
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+set pid_of_gdb [exp_pid -i [board_info host fileid]]
+
+# Check the size again after the second run.
+# We must not stop in main as it would cache `array' and never crash later.
+
+gdb_run_cmd
+
+verbose -log "kb_found before abort() = [expr [memory_v_pages_get] * $pagesize / 1024]"
+
+gdb_test "" "Program received signal SIGABRT, Aborted..*" "Enter abort()"
+
+verbose -log "kb_found in abort() = [expr [memory_v_pages_get] * $pagesize / 1024]"
+
+# `abort' can get expressed as `*__GI_abort'.
+gdb_test "bt" "in \[^ \]*abort \\(.* in main \\(.*" "Backtrace after abort()"
+
+verbose -log "kb_found in bt after abort() = [expr [memory_v_pages_get] * $pagesize / 1024]"
diff --git a/gdb/testsuite/gdb.base/vla.c b/gdb/testsuite/gdb.base/vla.c
new file mode 100644
index 0000000..e1f3ed1
--- /dev/null
+++ b/gdb/testsuite/gdb.base/vla.c
@@ -0,0 +1,55 @@
+/* This testcase is part of GDB, the GNU debugger.
+
+ Copyright 2008 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include <string.h>
+
+void
+marker (void)
+{
+}
+
+void
+bar (char *a, char *b, char *c, int size)
+{
+ memset (a, '1', size);
+ memset (b, '2', size);
+ memset (c, '3', 48);
+}
+
+void
+foo (int size)
+{
+ char temp1[size];
+ char temp3[48];
+
+ temp1[size - 1] = '\0';
+ {
+ char temp2[size];
+
+ bar (temp1, temp2, temp3, size);
+
+ marker (); /* break-here */
+ }
+}
+
+int
+main (void)
+{
+ foo (26);
+ foo (78);
+ return 0;
+}
diff --git a/gdb/testsuite/gdb.base/vla.exp b/gdb/testsuite/gdb.base/vla.exp
new file mode 100644
index 0000000..5da7378
--- /dev/null
+++ b/gdb/testsuite/gdb.base/vla.exp
@@ -0,0 +1,62 @@
+# Copyright 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+set testfile vla
+set srcfile ${testfile}.c
+set binfile ${objdir}/${subdir}/${testfile}
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
+ untested "Couldn't compile test program"
+ return -1
+}
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+if ![runto_main] {
+ untested vla
+ return -1
+}
+
+gdb_breakpoint [gdb_get_line_number "break-here"]
+
+gdb_continue_to_breakpoint "break-here"
+
+gdb_test "whatis temp1" "type = char \\\[variable\\\]" "first: whatis temp1"
+gdb_test "whatis temp2" "type = char \\\[variable\\\]" "first: whatis temp2"
+gdb_test "whatis temp3" "type = char \\\[48\\\]" "first: whatis temp3"
+
+gdb_test "ptype temp1" "type = char \\\[26\\\]" "first: ptype temp1"
+gdb_test "ptype temp2" "type = char \\\[26\\\]" "first: ptype temp2"
+gdb_test "ptype temp3" "type = char \\\[48\\\]" "first: ptype temp3"
+
+gdb_test "p temp1" " = '1' <repeats 26 times>" "first: print temp1"
+gdb_test "p temp2" " = '2' <repeats 26 times>" "first: print temp2"
+gdb_test "p temp3" " = '3' <repeats 48 times>" "first: print temp3"
+
+gdb_continue_to_breakpoint "break-here"
+
+gdb_test "whatis temp1" "type = char \\\[variable\\\]" "second: whatis temp1"
+gdb_test "whatis temp2" "type = char \\\[variable\\\]" "second: whatis temp2"
+gdb_test "whatis temp3" "type = char \\\[48\\\]" "second: whatis temp3"
+
+gdb_test "ptype temp1" "type = char \\\[78\\\]" "second: ptype temp1"
+gdb_test "ptype temp2" "type = char \\\[78\\\]" "second: ptype temp2"
+gdb_test "ptype temp3" "type = char \\\[48\\\]" "second: ptype temp3"
+
+gdb_test "p temp1" " = '1' <repeats 78 times>" "second: print temp1"
+gdb_test "p temp2" " = '2' <repeats 78 times>" "second: print temp2"
+gdb_test "p temp3" " = '3' <repeats 48 times>" "second: print temp3"
diff --git a/gdb/testsuite/gdb.cp/Makefile.in b/gdb/testsuite/gdb.cp/Makefile.in
index 1787ad5..391bfc2 100644
--- a/gdb/testsuite/gdb.cp/Makefile.in
+++ b/gdb/testsuite/gdb.cp/Makefile.in
@@ -4,7 +4,7 @@ srcdir = @srcdir@
EXECUTABLES = ambiguous annota2 anon-union cplusfuncs cttiadd \
derivation inherit local member-ptr method misc \
overload ovldbreak ref-typ ref-typ2 templates userdef virtfunc namespace \
- ref-types ref-params method2 pr9594
+ ref-types ref-params method2 pr9594 gdb2495
all info install-info dvi install uninstall installcheck check:
@echo "Nothing to be done for $@..."
diff --git a/gdb/testsuite/gdb.cp/abstract-origin.cc b/gdb/testsuite/gdb.cp/abstract-origin.cc
new file mode 100644
index 0000000..e2de3fb
--- /dev/null
+++ b/gdb/testsuite/gdb.cp/abstract-origin.cc
@@ -0,0 +1,42 @@
+/* This testcase is part of GDB, the GNU debugger.
+
+ Copyright 2008 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+extern void f (int *);
+
+class A
+{
+public:
+ A(int i);
+};
+
+A::A(int i)
+{
+ static int *problem = new int(i);
+ f (problem); /* break-here */
+}
+
+void f (int *)
+{
+}
+
+int
+main (void)
+{
+ A a(42);
+ return 0;
+}
diff --git a/gdb/testsuite/gdb.cp/abstract-origin.exp b/gdb/testsuite/gdb.cp/abstract-origin.exp
new file mode 100644
index 0000000..92cc23c
--- /dev/null
+++ b/gdb/testsuite/gdb.cp/abstract-origin.exp
@@ -0,0 +1,40 @@
+# Copyright 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+set testfile abstract-origin
+set srcfile ${testfile}.cc
+set binfile ${objdir}/${subdir}/${testfile}
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } {
+ untested "Couldn't compile test program"
+ return -1
+}
+
+# Get things started.
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+if ![runto_main] {
+ untested abstract-origin
+ return -1
+}
+
+gdb_breakpoint [gdb_get_line_number "break-here"]
+gdb_continue_to_breakpoint "break-here"
+
+# The Bug was: No symbol "problem" in current context.
+gdb_test "p problem" " = \\(int \\*\\) 0x.*"
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
diff --git a/gdb/testsuite/gdb.cp/cplusfuncs.cc b/gdb/testsuite/gdb.cp/cplusfuncs.cc
index 7f033d6..1a50a32 100644
--- a/gdb/testsuite/gdb.cp/cplusfuncs.cc
+++ b/gdb/testsuite/gdb.cp/cplusfuncs.cc
@@ -191,6 +191,12 @@ char * dm_type_char_star (char * p) { return p; }
int dm_type_foo_ref (foo & foo) { return foo.ifoo; }
int * dm_type_int_star (int * p) { return p; }
long * dm_type_long_star (long * p) { return p; }
+int dm_type_short (short i) { return i; }
+int dm_type_long (long i) { return i; }
int dm_type_unsigned_int (unsigned int i) { return i; }
+int dm_type_unsigned_short (unsigned short i) { return i; }
+int dm_type_unsigned_long (unsigned long i) { return i; }
int dm_type_void (void) { return 0; }
void * dm_type_void_star (void * p) { return p; }
+typedef int myint;
+int dm_type_typedef (myint i) { return i; }
diff --git a/gdb/testsuite/gdb.cp/cplusfuncs.exp b/gdb/testsuite/gdb.cp/cplusfuncs.exp
index 5e08768..8c8e038 100644
--- a/gdb/testsuite/gdb.cp/cplusfuncs.exp
+++ b/gdb/testsuite/gdb.cp/cplusfuncs.exp
@@ -66,9 +66,25 @@ set dm_type_unsigned_int "unsigned"
set dm_type_void ""
set dm_type_void_star "void*"
+# Some other vagaries of GDB's type printing machinery. The integer types
+# may have unsigned before or after their length, and may have "int"
+# appended. The char* conversion operator may have name "char*" even if
+# the type is "char *", because the name comes from the debug information
+# and the type from GDB. Function types may not see through typedefs.
+
+set dm_type_short "short"
+set dm_type_long "long"
+set dm_type_unsigned_short "unsigned short"
+set dm_type_unsigned_long "unsigned long"
+set dm_operator_char_star "char*"
+set dm_operator_char_star_quoted "char\\*"
+set dm_type_typedef 0
+
proc probe_demangler { } {
global gdb_prompt
global dm_operator_comma
+ global dm_operator_char_star
+ global dm_operator_char_star_quoted
global dm_type_char_star
global dm_type_char_star_quoted
global dm_type_foo_ref
@@ -77,6 +93,11 @@ proc probe_demangler { } {
global dm_type_unsigned_int
global dm_type_void
global dm_type_void_star
+ global dm_type_short
+ global dm_type_unsigned_short
+ global dm_type_long
+ global dm_type_unsigned_long
+ global dm_type_typedef
send_gdb "print &'foo::operator,(foo&)'\n"
gdb_expect {
@@ -97,6 +118,26 @@ proc probe_demangler { } {
}
}
+ send_gdb "print &'foo::operator char*()'\n"
+ gdb_expect {
+ -re ".*foo::operator char \\*\\(void\\).*\r\n$gdb_prompt $" {
+ # v2 demangler or GDB type printer
+ set dm_operator_char_star "char *"
+ set dm_operator_char_star_quoted "char \\*"
+ pass "detect dm_operator_char_star"
+ }
+ -re ".*foo::operator char\\*\\(\\).*\r\n$gdb_prompt $" {
+ # v3 demangler
+ pass "detect dm_operator_char_star"
+ }
+ -re ".*$gdb_prompt $" {
+ fail "detect dm_operator_char_star"
+ }
+ timeout {
+ fail "detect dm_operator_char_star"
+ }
+ }
+
send_gdb "print &'dm_type_char_star'\n"
gdb_expect {
-re ".*dm_type_char_star\\(char \\*\\).*\r\n$gdb_prompt $" {
@@ -166,6 +207,11 @@ proc probe_demangler { } {
# v3 demangler
pass "detect dm_type_long_star"
}
+ -re ".*dm_type_long_star\\(long int \\*\\).*\r\n$gdb_prompt $" {
+ # GCC v3 and GDB's type printer
+ set dm_type_long_star "long int *"
+ pass "detect dm_type_long_star"
+ }
-re ".*$gdb_prompt $" {
fail "detect dm_type_long_star"
}
@@ -230,6 +276,101 @@ proc probe_demangler { } {
fail "detect dm_type_void_star (timeout)"
}
}
+
+ send_gdb "print &'dm_type_short'\n"
+ gdb_expect {
+ -re ".*dm_type_short\\(short\\).*\r\n$gdb_prompt $" {
+ # v2 and v3 demanglers
+ pass "detect dm_type_short"
+ }
+ -re ".*dm_type_short\\(short int\\).*\r\n$gdb_prompt $" {
+ # GDB type printer
+ set dm_type_short "short int"
+ pass "detect dm_type_short"
+ }
+ -re ".*$gdb_prompt $" {
+ fail "detect dm_type_short"
+ }
+ timeout {
+ fail "detect dm_type_short (timeout)"
+ }
+ }
+
+ send_gdb "print &'dm_type_unsigned_short'\n"
+ gdb_expect {
+ -re ".*dm_type_unsigned_short\\(unsigned short\\).*\r\n$gdb_prompt $" {
+ # v2 and v3 demanglers
+ pass "detect dm_type_unsigned_short"
+ }
+ -re ".*dm_type_unsigned_short\\(short unsigned int\\).*\r\n$gdb_prompt $" {
+ # GDB type printer
+ set dm_type_unsigned_short "short unsigned int"
+ pass "detect dm_type_unsigned_short"
+ }
+ -re ".*$gdb_prompt $" {
+ fail "detect dm_type_unsigned_short"
+ }
+ timeout {
+ fail "detect dm_type_unsigned_short (timeout)"
+ }
+ }
+
+ send_gdb "print &'dm_type_long'\n"
+ gdb_expect {
+ -re ".*dm_type_long\\(long\\).*\r\n$gdb_prompt $" {
+ # v2 and v3 demanglers
+ pass "detect dm_type_long"
+ }
+ -re ".*dm_type_long\\(long int\\).*\r\n$gdb_prompt $" {
+ # GDB type printer
+ set dm_type_long "long int"
+ pass "detect dm_type_long"
+ }
+ -re ".*$gdb_prompt $" {
+ fail "detect dm_type_long"
+ }
+ timeout {
+ fail "detect dm_type_long (timeout)"
+ }
+ }
+
+ send_gdb "print &'dm_type_unsigned_long'\n"
+ gdb_expect {
+ -re ".*dm_type_unsigned_long\\(unsigned long\\).*\r\n$gdb_prompt $" {
+ # v2 and v3 demanglers
+ pass "detect dm_type_unsigned_long"
+ }
+ -re ".*dm_type_unsigned_long\\(long unsigned int\\).*\r\n$gdb_prompt $" {
+ # GDB type printer
+ set dm_type_unsigned_long "long unsigned int"
+ pass "detect dm_type_unsigned_long"
+ }
+ -re ".*$gdb_prompt $" {
+ fail "detect dm_type_unsigned_long"
+ }
+ timeout {
+ fail "detect dm_type_unsigned_long (timeout)"
+ }
+ }
+
+ send_gdb "print &'dm_type_typedef'\n"
+ gdb_expect {
+ -re ".*dm_type_typedef\\(int\\).*\r\n$gdb_prompt $" {
+ # v2 and v3 demanglers
+ pass "detect dm_type_typedef"
+ }
+ -re ".*dm_type_typedef\\(myint\\).*\r\n$gdb_prompt $" {
+ # GDB type printer
+ set dm_type_typedef 1
+ pass "detect dm_type_typedef"
+ }
+ -re ".*$gdb_prompt $" {
+ fail "detect dm_type_typedef"
+ }
+ timeout {
+ fail "detect dm_type_typedef (timeout)"
+ }
+ }
}
#
@@ -345,8 +486,9 @@ proc print_addr { name } {
proc test_lookup_operator_functions {} {
global dm_operator_comma
+ global dm_operator_char_star
global dm_type_char_star
- global dm_type_char_star_quoted
+ global dm_operator_char_star_quoted
global dm_type_foo_ref
global dm_type_void
global dm_type_void_star
@@ -404,8 +546,8 @@ proc test_lookup_operator_functions {} {
info_func "operator int(" "int foo::operator int($dm_type_void);"
info_func "operator()(" "void foo::operator()($dm_type_foo_ref);"
- info_func "operator $dm_type_char_star_quoted\(" \
- "char *foo::operator $dm_type_char_star\($dm_type_void);"
+ info_func "operator $dm_operator_char_star_quoted\(" \
+ "char *foo::operator $dm_operator_char_star\($dm_type_void);"
}
@@ -420,6 +562,7 @@ proc test_paddr_operator_functions {} {
global dm_type_unsigned_int
global dm_type_void
global dm_type_void_star
+ global dm_operator_char_star
print_addr "foo::operator*($dm_type_foo_ref)"
print_addr "foo::operator%($dm_type_foo_ref)"
@@ -470,7 +613,7 @@ proc test_paddr_operator_functions {} {
}
print_addr "foo::operator int($dm_type_void)"
- print_addr "foo::operator $dm_type_char_star\($dm_type_void)"
+ print_addr "foo::operator $dm_operator_char_star\($dm_type_void)"
}
#
@@ -480,17 +623,21 @@ proc test_paddr_operator_functions {} {
proc test_paddr_overloaded_functions {} {
global dm_type_unsigned_int
global dm_type_void
+ global dm_type_short
+ global dm_type_unsigned_short
+ global dm_type_long
+ global dm_type_unsigned_long
print_addr "overload1arg($dm_type_void)"
print_addr "overload1arg(char)"
print_addr "overload1arg(signed char)"
print_addr "overload1arg(unsigned char)"
- print_addr "overload1arg(short)"
- print_addr "overload1arg(unsigned short)"
+ print_addr "overload1arg($dm_type_short)"
+ print_addr "overload1arg($dm_type_unsigned_short)"
print_addr "overload1arg(int)"
print_addr "overload1arg($dm_type_unsigned_int)"
- print_addr "overload1arg(long)"
- print_addr "overload1arg(unsigned long)"
+ print_addr "overload1arg($dm_type_long)"
+ print_addr "overload1arg($dm_type_unsigned_long)"
print_addr "overload1arg(float)"
print_addr "overload1arg(double)"
@@ -513,17 +660,31 @@ proc test_paddr_hairy_functions {} {
global dm_type_char_star
global dm_type_int_star
global dm_type_long_star
+ global dm_type_typedef
print_addr_2 "hairyfunc1" "hairyfunc1(int)"
- print_addr_2 "hairyfunc2" "hairyfunc2(int (*)($dm_type_char_star))"
- print_addr_2 "hairyfunc3" "hairyfunc3(int (*)(short (*)($dm_type_long_star)))"
- print_addr_2 "hairyfunc4" "hairyfunc4(int (*)(short (*)($dm_type_char_star)))"
-
- # gdb-gnats bug gdb/19:
- # "gdb v3 demangler fails on hairyfunc5 hairyfunc6 hairyfunc7"
- print_addr_2_kfail "hairyfunc5" "hairyfunc5(int (*(*)($dm_type_char_star))(long))" "hairyfunc5(int (*)(long) (*)(char*))" "gdb/19"
- print_addr_2_kfail "hairyfunc6" "hairyfunc6(int (*(*)($dm_type_int_star))(long))" "hairyfunc6(int (*)(long) (*)(int*))" "gdb/19"
- print_addr_2_kfail "hairyfunc7" "hairyfunc7(int (*(*)(int (*)($dm_type_char_star)))(long))" "hairyfunc7(int (*)(long) (*)(int (*)(char*)))" "gdb/19"
+
+ if {$dm_type_typedef == 0} {
+ print_addr_2 "hairyfunc2" "hairyfunc2(int (*)($dm_type_char_star))"
+ print_addr_2 "hairyfunc3" "hairyfunc3(int (*)(short (*)($dm_type_long_star)))"
+ print_addr_2 "hairyfunc4" "hairyfunc4(int (*)(short (*)($dm_type_char_star)))"
+
+ # gdb-gnats bug gdb/19:
+ # "gdb v3 demangler fails on hairyfunc5 hairyfunc6 hairyfunc7"
+ print_addr_2_kfail "hairyfunc5" "hairyfunc5(int (*(*)($dm_type_char_star))(long))" "hairyfunc5(int (*)(long) (*)(char*))" "gdb/19"
+ print_addr_2_kfail "hairyfunc6" "hairyfunc6(int (*(*)($dm_type_int_star))(long))" "hairyfunc6(int (*)(long) (*)(int*))" "gdb/19"
+ print_addr_2_kfail "hairyfunc7" "hairyfunc7(int (*(*)(int (*)($dm_type_char_star)))(long))" "hairyfunc7(int (*)(long) (*)(int (*)(char*)))" "gdb/19"
+ } else {
+ print_addr_2 "hairyfunc2" "hairyfunc2(PFPc_i)"
+ print_addr_2 "hairyfunc3" "hairyfunc3(PFPFPl_s_i)"
+ print_addr_2 "hairyfunc4" "hairyfunc4(PFPFPc_s_i)"
+
+ # gdb-gnats bug gdb/19:
+ # "gdb v3 demangler fails on hairyfunc5 hairyfunc6 hairyfunc7"
+ print_addr_2 "hairyfunc5" "hairyfunc5(PFPc_PFl_i)"
+ print_addr_2 "hairyfunc6" "hairyfunc6(PFPi_PFl_i)"
+ print_addr_2 "hairyfunc7" "hairyfunc7(PFPFPc_i_PFl_i)"
+ }
}
proc do_tests {} {
- Archer update to the snapshot: a99e30d08ade4a2df0f943b036cd653bcd12b04d - Fixes internal error on breaking at a multi-locations C++ caller (BZ 488572).
2009-03-09 22:23:48 +00:00
diff --git a/gdb/testsuite/gdb.cp/expand-sals.cc b/gdb/testsuite/gdb.cp/expand-sals.cc
new file mode 100644
index 0000000..6169a05
--- /dev/null
+++ b/gdb/testsuite/gdb.cp/expand-sals.cc
@@ -0,0 +1,53 @@
+/* This testcase is part of GDB, the GNU debugger.
+
+ Copyright (C) 2009 Free Software Foundation, Inc.
+
+ This file is part of GDB.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+int
+func ()
+{
+ return 42; /* func-line */
+}
+
+volatile int global_x;
+
+class A
+{
+public:
+ A ()
+ {
+ global_x = func (); /* caller-line */
+ }
+};
+
+/* class B is here just to make the `func' calling line above having multiple
+ instances - multiple locations. Template cannot be used as its instances
+ would have different function names which get discarded by GDB
+ expand_line_sal_maybe. */
+
+class B : public A
+{
+};
+
+int
+main (void)
+{
+ A a;
+ B b;
+
+ return 0; /* exit-line */
+}
diff --git a/gdb/testsuite/gdb.cp/expand-sals.exp b/gdb/testsuite/gdb.cp/expand-sals.exp
new file mode 100644
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
index 0000000..6e04cbf
- Archer update to the snapshot: a99e30d08ade4a2df0f943b036cd653bcd12b04d - Fixes internal error on breaking at a multi-locations C++ caller (BZ 488572).
2009-03-09 22:23:48 +00:00
--- /dev/null
+++ b/gdb/testsuite/gdb.cp/expand-sals.exp
@@ -0,0 +1,100 @@
+# Copyright 2009 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+if { [skip_cplus_tests] } { continue }
+
+set srcfile expand-sals.cc
+if { [prepare_for_testing expand-sals.exp expand-sals $srcfile {debug c++}] } {
+ return -1
+}
+if ![runto_main] {
+ return -1
+}
+
+gdb_breakpoint [gdb_get_line_number "exit-line"]
+
+gdb_breakpoint [gdb_get_line_number "func-line"]
+gdb_continue_to_breakpoint "func" ".*func-line.*"
+
+gdb_test "up" "caller-line.*"
+
+# PC should not be at the boundary of source lines to make the original bug
+# exploitable.
+
+set test "p/x \$pc"
+set pc {}
+gdb_test_multiple $test $test {
+ -re "\\$\[0-9\]+ = (0x\[0-9a-f\]+)\r\n$gdb_prompt $" {
+ set pc $expect_out(1,string)
+ pass $test
+ }
+}
+
+set test "info line"
+set end {}
+gdb_test_multiple $test $test {
+ -re "Line \[0-9\]+ of .* starts at address 0x\[0-9a-f\]+.* and ends at (0x\[0-9a-f\]+).*\\.\r\n$gdb_prompt $" {
+ set end $expect_out(1,string)
+ pass $test
+ }
+}
+
+set test "caller line has trailing code"
+if {$pc != $end} {
+ pass $test
+} else {
+ fail $test
+}
+
+# Original problem was an internal error here. Still sanity multiple locations
+# were found at this code place as otherwise this test would not test anything.
+set test "break"
+gdb_test_multiple $test $test {
+ -re "Breakpoint \[0-9\]+ at .*, line \[0-9\]+\\. \\(\[2-9\] locations\\)\r\n$gdb_prompt $" {
+ pass $test
+ }
+ -re "Breakpoint \[0-9\]+ at .*, line \[0-9\]+\\.\r\n$gdb_prompt $" {
+ # It just could not be decided if GDB is OK by this testcase.
+ setup_xfail *-*-*
+ fail $test
+ return 0
+ }
+}
+
+gdb_continue_to_breakpoint "caller" ".*caller-line.*"
+
+# Test GDB caught this return call and not the next one through B::B()
+gdb_test "bt" \
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
+ "#0 \[^\r\n\]* (A::)?A \[^\r\n\]*\r\n#1 \[^\r\n\]* main \[^\r\n\]*" \
- Archer update to the snapshot: a99e30d08ade4a2df0f943b036cd653bcd12b04d - Fixes internal error on breaking at a multi-locations C++ caller (BZ 488572).
2009-03-09 22:23:48 +00:00
+ "bt from A"
+
+gdb_continue_to_breakpoint "next caller instance" ".*caller-line.*"
+
+# Test that GDB caught now already A through B::B() in the other instance.
+# As discussed in GDB expand_line_sal_maybe it would more match the original
+# instance behavior to catch here the `func' breakpoint and catch the
+# multiple-locations breakpoint only during the call return. This is not the
+# case, expecting here to catch the breakpoint before the call happens.
+
+gdb_test "bt" \
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
+ "#0 \[^\r\n\]* (A::)?A \[^\r\n\]*\r\n#1 \[^\r\n\]* (B::)?B \[^\r\n\]*\r\n#2 \[^\r\n\]* main \[^\r\n\]*" \
- Archer update to the snapshot: a99e30d08ade4a2df0f943b036cd653bcd12b04d - Fixes internal error on breaking at a multi-locations C++ caller (BZ 488572).
2009-03-09 22:23:48 +00:00
+ "bt from B before the call"
+
+gdb_continue_to_breakpoint "next caller func" ".*func-line.*"
+
+# Verify GDB really could not catch the originally intended point of the return
+# from func.
+
+gdb_continue_to_breakpoint "uncaught return" ".*exit-line.*"
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/testsuite/gdb.cp/gdb1355.exp b/gdb/testsuite/gdb.cp/gdb1355.exp
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
index 77687a6..66d16cf 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/testsuite/gdb.cp/gdb1355.exp
+++ b/gdb/testsuite/gdb.cp/gdb1355.exp
@@ -68,11 +68,11 @@ set s_tail ".*"
set f_i "${ws}int m_int;"
set f_c "${ws}char m_char;"
-set f_li "${ws}long int m_long_int;"
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+set f_li "${ws}long m_long_int;"
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
set f_ui "${ws}unsigned int m_unsigned_int;"
-set f_lui "${ws}long unsigned int m_long_unsigned_int;"
-set f_si "${ws}short int m_short_int;"
-set f_sui "${ws}short unsigned int m_short_unsigned_int;"
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+set f_lui "${ws}unsigned long m_long_unsigned_int;"
+set f_si "${ws}short m_short_int;"
+set f_sui "${ws}unsigned short m_short_unsigned_int;"
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
set f_uc "${ws}unsigned char m_unsigned_char;"
set f_f "${ws}float m_float;"
set f_d "${ws}double m_double;"
diff --git a/gdb/testsuite/gdb.cp/gdb2495.cc b/gdb/testsuite/gdb.cp/gdb2495.cc
new file mode 100644
index 0000000..4df265f
--- /dev/null
+++ b/gdb/testsuite/gdb.cp/gdb2495.cc
@@ -0,0 +1,90 @@
+/* This testcase is part of GDB, the GNU debugger.
+
+ Copyright 2008 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <iostream>
+#include <signal.h>
+
+using namespace std;
+
+class SimpleException
+{
+
+public:
+
+ void raise_signal (int dummy)
+ {
+ if (dummy > 0)
+ raise(SIGABRT);
+ }
+
+ int no_throw_function ()
+ {
+ return 1;
+ }
+
+ void throw_function ()
+ {
+ throw 1;
+ }
+
+ int throw_function_with_handler ()
+ {
+ try
+ {
+ throw 1;
+ }
+ catch (...)
+ {
+ cout << "Handled" << endl;
+ }
+
+ return 2;
+ }
+
+ void call_throw_function_no_handler ()
+ {
+ throw_function ();
+ }
+
+ void call_throw_function_handler ()
+ {
+ throw_function_with_handler ();
+ }
+};
+SimpleException exceptions;
+
+int
+main()
+{
+ // Have to call all these functions
+ // so not optimized away.
+ exceptions.raise_signal (-1);
+ exceptions.no_throw_function ();
+ exceptions.throw_function_with_handler ();
+ exceptions.call_throw_function_handler ();
+ try
+ {
+ exceptions.throw_function ();
+ exceptions.call_throw_function_no_handler ();
+ }
+ catch (...)
+ {
+ }
+ return 0;
+}
+
diff --git a/gdb/testsuite/gdb.cp/gdb2495.exp b/gdb/testsuite/gdb.cp/gdb2495.exp
new file mode 100644
index 0000000..62c09c2
--- /dev/null
+++ b/gdb/testsuite/gdb.cp/gdb2495.exp
@@ -0,0 +1,160 @@
+# Copyright 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+
+# In gdb inferior function calls, if a C++ exception is raised in the
+# dummy-frame, and the exception handler is (normally, and expected to
+# be) out-of-frame, the default C++ handler will (wrongly) be called
+# in an inferior function call.
+# This is incorrect as an exception can normally and legally be handled
+# out-of-frame. The confines of the dummy frame prevent the unwinder
+# from finding the correct handler (or any handler, unless it is
+# in-frame). The default handler calls std::terminate. This will kill
+# the inferior. Assert that terminate should never be called in an
+# inferior function call. These tests test the functionality around
+# unwinding that sequence and also tests the flag behaviour gating this
+# functionality.
+
+# This test is largley based off gdb.base/callfuncs.exp.
+
+if $tracelevel then {
+ strace $tracelevel
+}
+
+if { [skip_cplus_tests] } { continue }
+
+set prms_id 2495
+set bug_id 0
+
+set testfile "gdb2495"
+set srcfile ${testfile}.cc
+set binfile $objdir/$subdir/$testfile
+
+# Create and source the file that provides information about the compiler
+# used to compile the test case.
+if [get_compiler_info ${binfile} "c++"] {
+ return -1
+}
+
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } {
+ untested gdb2495.exp
+ return -1
+}
+
+# Some targets can't do function calls, so don't even bother with this
+# test.
+if [target_info exists gdb,cannot_call_functions] {
+ setup_xfail "*-*-*" 2416
+ fail "This target can not call functions"
+ continue
+}
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+if ![runto_main] then {
+ perror "couldn't run to main"
+ continue
+}
+
+# See http://sources.redhat.com/gdb/bugs/2495
+
+# Test normal baseline behaviour. Call a function that
+# does not raise an exception ...
+gdb_test "p exceptions.no_throw_function()" " = 1"
+# And one that does but handles it in-frame ...
+gdb_test "p exceptions.throw_function_with_handler()" " = 2"
+# Both should return normally.
+
+# Test basic unwind. Call a function that raises an exception but
+# does not handle it. It should be rewound ...
+gdb_test "p exceptions.throw_function()" \
+ "The program being debugged entered a std::terminate call .*" \
+ "Call a function that raises an exception without a handler."
+
+# Make sure that after rewinding we are back at the call parent.
+gdb_test "bt" \
+ "#0 main.*" \
+ "bt after returning from a popped frame"
+
+# Make sure the only breakpoint is the one set via the runto_main
+# call and that the std::terminate breakpoint has evaporated and
+# cleaned-up.
+gdb_test "info breakpoints" \
+ "gdb.cp/gdb2495\.cc.*"
+
+# Turn off this new behaviour ...
+send_gdb "set unwind-on-terminating-exception off\n"
+gdb_expect {
+ -re "$gdb_prompt $" {pass "set unwind-on-terminating-exception"}
+ timeout {fail "(timeout) set unwind-on-terminating-exception"}
+}
+
+# Check that it is turned off ...
+gdb_test "show unwind-on-terminating-exception" \
+ "exception is unhandled while in a call dummy is off.*" \
+ "Turn off unwind on terminating exception flag"
+
+# Check that the old behaviour is restored.
+gdb_test "p exceptions.throw_function()" \
+ "The program being debugged stopped while in a function called .*" \
+ "Call a function that raises an exception with unwinding off.."
+
+
+# Restart back at main
+if ![runto_main] then {
+ perror "couldn't run to main"
+ continue
+}
+
+
+# Check to see if our new behaviour alters the unwind signal
+# behaviour. It should not. Test both on and off states.
+
+# Turn on unwind on signal behaviour ...
+send_gdb "set unwindonsignal on\n"
+gdb_expect {
+ -re "$gdb_prompt $" {pass "set unwindonsignal on"}
+ timeout {fail "(timeout) set unwindonsignal on"}
+}
+
+# Check that it is turned on ...
+gdb_test "show unwindonsignal" \
+ "signal is received while in a call dummy is on.*" \
+ "Turn on unwind on signal"
+
+# Check to see if new behaviour interferes with
+# normal signal handling in inferior function calls.
+gdb_test "p exceptions.raise_signal(1)" \
+ "To change this behavior use \"set unwindonsignal off\".*"
+
+# And reverse. Turn off
+send_gdb "set unwindonsignal off\n"
+gdb_expect {
+ -re "$gdb_prompt $" {pass "set unwindonsignal off"}
+ timeout {fail "(timeout) set unwindonsignal off"}
+}
+
+# Check that it is turned off ...
+gdb_test "show unwindonsignal" \
+ "signal is received while in a call dummy is off.*" \
+ "Turn off unwind on signal"
+
+# Check to see if new behaviour interferes with
+# normal signal handling in inferior function calls.
+gdb_test "p exceptions.raise_signal(1)" \
+ "To change this behavior use \"set unwindonsignal on\".*"
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
diff --git a/gdb/testsuite/gdb.cp/member-ptr.cc b/gdb/testsuite/gdb.cp/member-ptr.cc
index 1dff70a..648b2af 100644
--- a/gdb/testsuite/gdb.cp/member-ptr.cc
+++ b/gdb/testsuite/gdb.cp/member-ptr.cc
@@ -138,6 +138,7 @@ class Diamond : public Padding, public Left, public Right
{
public:
virtual int vget_base ();
+ int (*func_ptr) (int);
};
int Diamond::vget_base ()
@@ -145,6 +146,12 @@ int Diamond::vget_base ()
return this->Left::x + 2000;
}
+int
+func (int x)
+{
+ return 19 + x;
+}
+
int main ()
{
A a;
@@ -162,6 +169,7 @@ int main ()
int (Diamond::*right_vpmf) ();
int (Base::*base_vpmf) ();
int Diamond::*diamond_pmi;
+ int (* Diamond::*diamond_pfunc_ptr) (int);
PMI null_pmi;
PMF null_pmf;
@@ -179,6 +187,7 @@ int main ()
diamond.Left::x = 77;
diamond.Right::x = 88;
+ diamond.func_ptr = func;
/* Some valid pointer to members from a base class. */
left_pmf = (int (Diamond::*) ()) (int (Left::*) ()) (&Base::get_x);
@@ -193,11 +202,19 @@ int main ()
/* A pointer to data member from a base class. */
diamond_pmi = (int Diamond::*) (int Left::*) &Base::x;
+ /* A pointer to data member, where the member is itself a pointer to
+ a function. */
+ diamond_pfunc_ptr = (int (* Diamond::*) (int)) &Diamond::func_ptr;
+
null_pmi = NULL;
null_pmf = NULL;
pmi = NULL; /* Breakpoint 1 here. */
+ // Invalid (uses diamond_pfunc_ptr as a function):
+ // diamond.*diamond_pfunc_ptr (20);
+ (diamond.*diamond_pfunc_ptr) (20);
+
k = (a.*pmf)(3);
pmi = &A::jj;
diff --git a/gdb/testsuite/gdb.cp/member-ptr.exp b/gdb/testsuite/gdb.cp/member-ptr.exp
index b69d4ad..476711f 100644
--- a/gdb/testsuite/gdb.cp/member-ptr.exp
+++ b/gdb/testsuite/gdb.cp/member-ptr.exp
@@ -390,6 +390,33 @@ gdb_test_multiple "print ((int) pmi) == ((char *) &a.j - (char *) & a)" $name {
}
}
+# Check pointers to data members, which are themselves pointers to
+# functions. These behave like data members, not like pointers to
+# member functions.
+
+gdb_test "ptype diamond_pfunc_ptr" \
+ "type = int \\(\\*Diamond::\\*\\)\\(int\\)"
+
+gdb_test "ptype diamond.*diamond_pfunc_ptr" \
+ "type = int \\(\\*\\)\\(int\\)"
+
+# This one is invalid; () binds more tightly than .*, so it tries to
+# call the member pointer as a normal pointer-to-function.
+
+gdb_test "print diamond.*diamond_pfunc_ptr (20)" \
+ "Invalid data type for function to be called."
+
+# With parentheses, it is valid.
+
+gdb_test "print (diamond.*diamond_pfunc_ptr) (20)" \
+ "$vhn = 39"
+
+# Make sure that we do not interpret this as either a member pointer
+# call or a member function call.
+
+gdb_test "print diamond.func_ptr (20)" \
+ "$vhn = 39"
+
# ==========================
# pointer to member function
# ==========================
@@ -608,6 +635,9 @@ gdb_test_multiple "print (a.*pmf)(3)" $name {
}
}
+gdb_test "ptype a.*pmf" "type = int \\(A \\*, int\\)"
+gdb_test "ptype (a.*pmf)(3)" "type = int"
+
# Print out a pointer to data member which requires looking into
# a base class.
gdb_test "print diamond_pmi" "$vhn = &Base::x"
diff --git a/gdb/testsuite/gdb.cp/namespace-multiple-imports.cc b/gdb/testsuite/gdb.cp/namespace-multiple-imports.cc
new file mode 100644
index 0000000..6b180d6
--- /dev/null
+++ b/gdb/testsuite/gdb.cp/namespace-multiple-imports.cc
@@ -0,0 +1,20 @@
+namespace A {
+ int x = 11;
+ namespace{
+ int xx = 22;
+ }
+}
+
+using namespace A;
+
+namespace{
+ int xxx = 33;
+};
+
+int main()
+{
+ x;
+ xx;
+ xxx;
+ return 0;
+}
diff --git a/gdb/testsuite/gdb.cp/namespace-multiple-imports.exp b/gdb/testsuite/gdb.cp/namespace-multiple-imports.exp
new file mode 100644
index 0000000..e4bb9f8
--- /dev/null
+++ b/gdb/testsuite/gdb.cp/namespace-multiple-imports.exp
@@ -0,0 +1,49 @@
+# Copyright 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+if $tracelevel then {
+ strace $tracelevel
+}
+
+set prms_id 0
+set bug_id 0
+
+set testfile namespace-multiple-imports
+set srcfile ${testfile}.cc
+set binfile ${objdir}/${subdir}/${testfile}
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } {
+ untested "Couldn't compile test program"
+ return -1
+}
+
+# Get things started.
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+############################################
+# test printing of namespace imported within
+# the function.
+
+if ![runto_main] then {
+ perror "couldn't run to breakpoint main"
+ continue
+}
+
+gdb_test "print x" "\\$\[0-9\].* = 11"
+gdb_test "print xx" "\\$\[0-9\].* = 22"
+gdb_test "print xxx" "\\$\[0-9\].* = 33"
diff --git a/gdb/testsuite/gdb.cp/namespace-using.cc b/gdb/testsuite/gdb.cp/namespace-using.cc
new file mode 100644
index 0000000..97af850
--- /dev/null
+++ b/gdb/testsuite/gdb.cp/namespace-using.cc
@@ -0,0 +1,131 @@
+//--------------------------
+namespace M{
+ int x = 911;
+}
+
+namespace N{
+ int x = 912;
+}
+
+int marker10(){
+ using namespace M;
+ int y = x+1; // marker10 stop
+ using namespace N;
+ return y;
+}
+//--------------------------
+namespace J {
+ int jx = 44;
+}
+
+namespace K{
+ int marker9(){
+ //x;
+ return marker10();
+ }
+}
+
+namespace L{
+ using namespace J;
+ int marker8(){
+ jx;
+ return K::marker9();
+ }
+}
+//--------------------------
+
+//--------------------------
+namespace G{
+ namespace H {
+ int ghx = 6;
+ }
+}
+
+namespace I{
+
+ int marker7(){
+ using namespace G::H;
+ ghx;
+ return L::marker8();
+ }
+}
+//--------------------------
+
+//--------------------------
+namespace E{
+ namespace F{
+ int efx = 5;
+ }
+}
+using namespace E::F;
+int marker6(){
+ efx;
+ return I::marker7();
+}
+//--------------------------
+
+namespace A
+{
+ int _a = 1;
+ int x = 2;
+
+}
+
+namespace C
+{
+ int cc = 3;
+}
+
+namespace D
+{
+ int dx = 4;
+}
+
+using namespace C;
+int marker5()
+{
+ cc;
+ return marker6();
+}
+
+int marker4()
+{
+ using D::dx;
+ return marker5();
+}
+
+int marker3()
+{
+ return marker4();
+}
+
+int marker2()
+{
+ namespace B = A;
+ B::_a;
+ return marker3();
+}
+
+int marker1()
+{
+ int total = 0;
+ {
+ int b = 1;
+ {
+ using namespace A;
+ int c = 2;
+ {
+ int d = 3;
+ total = _a + b + c + d + marker2(); // marker1 stop
+ }
+ }
+ }
+ return total;
+}
+
+int main()
+{
+ using namespace A;
+ _a;
+ return marker1();
+}
diff --git a/gdb/testsuite/gdb.cp/namespace-using.exp b/gdb/testsuite/gdb.cp/namespace-using.exp
new file mode 100644
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
index 0000000..ab6e6a4
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
--- /dev/null
+++ b/gdb/testsuite/gdb.cp/namespace-using.exp
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
@@ -0,0 +1,183 @@
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+# Copyright 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+if $tracelevel then {
+ strace $tracelevel
+}
+
+set prms_id 0
+set bug_id 0
+
+set testfile namespace-using
+set srcfile ${testfile}.cc
+set binfile ${objdir}/${subdir}/${testfile}
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } {
+ untested "Couldn't compile test program"
+ return -1
+}
+
+# Get things started.
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+############################################
+# test printing of namespace imported within
+# the function.
+
+if ![runto_main] then {
+ perror "couldn't run to breakpoint main"
+ continue
+}
+
+gdb_test "print _a" "= 1"
+
+# Test that names are not printed when they
+# are not imported
+
+gdb_breakpoint marker3
+gdb_continue_to_breakpoint "marker3"
+
+#send_gdb "break marker3\n"
+#send_gdb "continue\n"
+
+gdb_test "print _a" "No symbol \"_a\" in current context." "Print _a without import"
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+
+############################################
+# test printing of namespace imported into
+# a scope containing the pc.
+
+if ![runto_main] then {
+ perror "couldn't run to breakpoint main"
+ continue
+}
+
+gdb_breakpoint [gdb_get_line_number "marker1 stop"]
+gdb_continue_to_breakpoint "marker1 stop"
+
+gdb_test "print _a" "= 1" "print _a in a nested scope"
+
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+############################################
+# test printing of namespace imported into
+# file scope.
+
+
+if ![runto marker5] then {
+ perror "couldn't run to breakpoint marker5"
+ continue
+}
+
+gdb_test "print cc" "= 3"
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+
+############################################
+# Test printing of namespace aliases
+
+if ![runto marker2] then {
+ perror "couldn't run to breakpoint marker2"
+ continue
+}
+
+gdb_test "print B::_a" "= 1"
+
+gdb_test "print _a" "No symbol \"_a\" in current context." "print _a in namespace alias scope"
+gdb_test "print x" "No symbol \"x\" in current context." "print x in namespace alias scope"
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+
+############################################
+# Test printing of namespace aliases
+
+if ![runto marker4] then {
+ perror "couldn't run to breakpoint marker4"
+ continue
+}
+
+gdb_test "print dx" "= 4"
+
+############################################
+# Test printing of namespace aliases
+
+if ![runto marker6] then {
+ perror "couldn't run to breakpoint marker6"
+ continue
+}
+
+gdb_test "print efx" "= 5"
+
+############################################
+# Test printing of variables imported from
+# nested namespaces
+
+if ![runto I::marker7] then {
+ perror "couldn't run to breakpoint I::marker7"
+ continue
+}
+
+gdb_test "print ghx" "= 6"
+
+############################################
+# Test that variables are not printed in a namespace
+# that is sibling to the namespace containing an import
+
+if ![runto L::marker8] then {
+ perror "couldn't run to breakpoint L::marker8"
+ continue
+}
+
+gdb_test "print jx" "= 44"
+
+gdb_breakpoint "K::marker9"
+gdb_continue_to_breakpoint "K::marker9"
+
+gdb_test "print jx" "No symbol \"jx\" in current context."
+
+############################################
+# Test that variables are only printed after the line
+# containing the import
+
+if ![runto_main] then {
+ perror "couldn't run to breakpoint main"
+ continue
+}
+
+gdb_breakpoint [gdb_get_line_number "marker10 stop"]
+gdb_continue_to_breakpoint "marker10 stop"
+
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
+# Assert that M::x is printed and not N::x
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+gdb_test "print x" "= 911" "print x (from M::x)"
diff --git a/gdb/testsuite/gdb.cp/namespace.exp b/gdb/testsuite/gdb.cp/namespace.exp
index 76b1b82..2042db2 100644
--- a/gdb/testsuite/gdb.cp/namespace.exp
+++ b/gdb/testsuite/gdb.cp/namespace.exp
@@ -24,6 +24,7 @@
# for namespaces.
# Note: As of 2000-06-03, they passed under g++ - djb
+load_lib "cp-support.exp"
if $tracelevel then {
strace $tracelevel
@@ -259,11 +260,16 @@ gdb_test "ptype E" "type = namespace C::D::E"
gdb_test "ptype CClass" "type = (class C::CClass \{\r\n public:|struct C::CClass \{)\r\n int x;\r\n\}"
gdb_test "ptype CClass::NestedClass" "type = (class C::CClass::NestedClass \{\r\n public:|struct C::CClass::NestedClass \{)\r\n int y;\r\n\}"
gdb_test "ptype NestedClass" "No symbol \"NestedClass\" in current context."
-setup_kfail "gdb/1448" "*-*-*"
-gdb_test "ptype ::C::CClass" "type = class C::CClass \{\r\n public:\r\n int x;\r\n\}"
-setup_kfail "gdb/1448" "*-*-*"
-gdb_test "ptype ::C::CClass::NestedClass" "type = class C::CClass::NestedClass \{\r\n public:\r\n int y;\r\n\}"
-setup_kfail "gdb/1448" "*-*-*"
+cp_test_ptype_class \
+ "ptype ::C::CClass" "" "class" "C::CClass" \
+ {
+ { field public "int x;" }
+ }
+cp_test_ptype_class \
+ "ptype ::C::CClass::NestedClass" "" "class" "C::CClass::NestedClass" \
+ {
+ { field public "int y;" }
+ }
gdb_test "ptype ::C::NestedClass" "No symbol \"NestedClass\" in namespace \"C\"."
gdb_test "ptype C::CClass" "No symbol \"CClass\" in namespace \"C::C\"."
gdb_test "ptype C::CClass::NestedClass" "No type \"CClass\" within class or namespace \"C::C\"."
@@ -273,8 +279,11 @@ gdb_test "ptype C::NestedClass" "No symbol \"NestedClass\" in namespace \"C::C\"
gdb_test "print cOtherFile" "\\$\[0-9\].* = 316"
gdb_test "ptype OtherFileClass" "type = (class C::OtherFileClass \{\r\n public:|struct C::OtherFileClass \{)\r\n int z;\r\n\}"
-setup_kfail "gdb/1448" "*-*-*"
-gdb_test "ptype ::C::OtherFileClass" "type = class C::OtherFileClass \{\r\n public:\r\n int z;\r\n\}"
+cp_test_ptype_class \
+ "ptype ::C::OtherFileClass" "" "class" "C::OtherFileClass" \
+ {
+ { field public "int z;" }
+ }
gdb_test "ptype C::OtherFileClass" "No symbol \"OtherFileClass\" in namespace \"C::C\"."
# Some anonymous namespace tests.
diff --git a/gdb/testsuite/gdb.cp/overload.exp b/gdb/testsuite/gdb.cp/overload.exp
index 24025a2..a72932e 100644
--- a/gdb/testsuite/gdb.cp/overload.exp
+++ b/gdb/testsuite/gdb.cp/overload.exp
@@ -74,12 +74,12 @@ set re_methods "${re_methods}${ws}int overload1arg\\((void|)\\);"
set re_methods "${re_methods}${ws}int overload1arg\\(char\\);"
set re_methods "${re_methods}${ws}int overload1arg\\(signed char\\);"
set re_methods "${re_methods}${ws}int overload1arg\\(unsigned char\\);"
-set re_methods "${re_methods}${ws}int overload1arg\\(short\\);"
-set re_methods "${re_methods}${ws}int overload1arg\\(unsigned short\\);"
+set re_methods "${re_methods}${ws}int overload1arg\\(short( int)?\\);"
+set re_methods "${re_methods}${ws}int overload1arg\\((unsigned short|short unsigned)( int)?\\);"
set re_methods "${re_methods}${ws}int overload1arg\\(int\\);"
set re_methods "${re_methods}${ws}int overload1arg\\(unsigned int\\);"
-set re_methods "${re_methods}${ws}int overload1arg\\(long\\);"
-set re_methods "${re_methods}${ws}int overload1arg\\(unsigned long\\);"
+set re_methods "${re_methods}${ws}int overload1arg\\(long( int)?\\);"
+set re_methods "${re_methods}${ws}int overload1arg\\((unsigned long|long unsigned)( int)?\\);"
set re_methods "${re_methods}${ws}int overload1arg\\(float\\);"
set re_methods "${re_methods}${ws}int overload1arg\\(double\\);"
set re_methods "${re_methods}${ws}int overloadfnarg\\((void|)\\);"
diff --git a/gdb/testsuite/gdb.cp/ovldbreak.exp b/gdb/testsuite/gdb.cp/ovldbreak.exp
index 8a6b795..897171c 100644
--- a/gdb/testsuite/gdb.cp/ovldbreak.exp
+++ b/gdb/testsuite/gdb.cp/ovldbreak.exp
@@ -127,10 +127,24 @@ proc set_bp_overloaded {name expectedmenu mychoice bpnumber linenumber} {
}
# This is the expected menu for overload1arg.
-# Note the arg type variations on lines 6 and 13.
+# Note the arg type variations for void and integer types.
# This accommodates different versions of g++.
-set menu_overload1arg "\\\[0\\\] cancel\r\n\\\[1\\\] all\r\n\\\[2\\\] foo::overload1arg\\(double\\) at.*$srcfile:121\r\n\\\[3\\\] foo::overload1arg\\(float\\) at.*$srcfile:120\r\n\\\[4\\\] foo::overload1arg\\(unsigned long\\) at.*$srcfile:119\r\n\\\[5\\\] foo::overload1arg\\(long\\) at.*$srcfile:118\r\n\\\[6\\\] foo::overload1arg\\((unsigned int|unsigned)\\) at.*$srcfile:117\r\n\\\[7\\\] foo::overload1arg\\(int\\) at.*$srcfile:116\r\n\\\[8\\\] foo::overload1arg\\(unsigned short\\) at.*$srcfile:115\r\n\\\[9\\\] foo::overload1arg\\(short\\) at.*$srcfile:114\r\n\\\[10\\\] foo::overload1arg\\(unsigned char\\) at.*$srcfile:113\r\n\\\[11\\\] foo::overload1arg\\(signed char\\) at.*$srcfile:112\r\n\\\[12\\\] foo::overload1arg\\(char\\) at.*$srcfile:111\r\n\\\[13\\\] foo::overload1arg\\((void|)\\) at.*$srcfile:110\r\n> $"
+set menu_overload1arg "\\\[0\\\] cancel\r\n"
+append menu_overload1arg "\\\[1\\\] all\r\n"
+append menu_overload1arg "\\\[2\\\] foo::overload1arg\\(double\\) at.*$srcfile:121\r\n"
+append menu_overload1arg "\\\[3\\\] foo::overload1arg\\(float\\) at.*$srcfile:120\r\n"
+append menu_overload1arg "\\\[4\\\] foo::overload1arg\\((unsigned long|long unsigned)( int)?\\) at.*$srcfile:119\r\n"
+append menu_overload1arg "\\\[5\\\] foo::overload1arg\\(long( int)?\\) at.*$srcfile:118\r\n"
+append menu_overload1arg "\\\[6\\\] foo::overload1arg\\((unsigned int|unsigned)\\) at.*$srcfile:117\r\n"
+append menu_overload1arg "\\\[7\\\] foo::overload1arg\\(int\\) at.*$srcfile:116\r\n"
+append menu_overload1arg "\\\[8\\\] foo::overload1arg\\((unsigned short|short unsigned)( int)?\\) at.*$srcfile:115\r\n"
+append menu_overload1arg "\\\[9\\\] foo::overload1arg\\(short( int)?\\) at.*$srcfile:114\r\n"
+append menu_overload1arg "\\\[10\\\] foo::overload1arg\\(unsigned char\\) at.*$srcfile:113\r\n"
+append menu_overload1arg "\\\[11\\\] foo::overload1arg\\(signed char\\) at.*$srcfile:112\r\n"
+append menu_overload1arg "\\\[12\\\] foo::overload1arg\\(char\\) at.*$srcfile:111\r\n"
+append menu_overload1arg "\\\[13\\\] foo::overload1arg\\((void|)\\) at.*$srcfile:110\r\n"
+append menu_overload1arg "> $"
# Set multiple-symbols to "ask", to allow us to test the use
# of the multiple-choice menu when breaking on an overloaded method.
@@ -157,17 +171,17 @@ set_bp_overloaded "foo::overload1arg" "$menu_overload1arg" 13 13 110
gdb_test "info break" \
"Num Type\[\t \]+Disp Enb Address\[\t \]+What.*
-\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in main at.*$srcfile:49\r
+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in main(\\(void\\))? at.*$srcfile:49\r
\[\t \]+breakpoint already hit 1 time\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(char\\) at.*$srcfile:111\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(signed char\\) at.*$srcfile:112\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned char\\) at.*$srcfile:113\r
-\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(short\\) at.*$srcfile:114\r
-\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned short\\) at.*$srcfile:115\r
+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(short( int)?\\) at.*$srcfile:114\r
+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned short|short unsigned)( int)?\\) at.*$srcfile:115\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(int\\) at.*$srcfile:116\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned|unsigned int)\\) at.*$srcfile:117\r
-\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(long\\) at.*$srcfile:118\r
-\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned long\\) at.*$srcfile:119\r
+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(long( int)?\\) at.*$srcfile:118\r
+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned long|long unsigned)( int)?\\) at.*$srcfile:119\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(float\\) at.*$srcfile:120\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(double\\) at.*$srcfile:121\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((void|)\\) at.*$srcfile:110" \
@@ -215,17 +229,17 @@ gdb_expect {
gdb_test "info break" \
"Num Type\[\t \]+Disp Enb Address\[\t \]+What.*
-\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in main at.*$srcfile:49\r
+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in main(\\(void\\))? at.*$srcfile:49\r
\[\t \]+breakpoint already hit 1 time\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(char\\) at.*$srcfile:111\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(signed char\\) at.*$srcfile:112\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned char\\) at.*$srcfile:113\r
-\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(short\\) at.*$srcfile:114\r
-\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned short\\) at.*$srcfile:115\r
+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(short( int)?\\) at.*$srcfile:114\r
+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned short|short unsigned)( int)?\\) at.*$srcfile:115\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(int\\) at.*$srcfile:116\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned|unsigned int)\\) at.*$srcfile:117\r
-\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(long\\) at.*$srcfile:118\r
-\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned long\\) at.*$srcfile:119\r
+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(long( int)?\\) at.*$srcfile:118\r
+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned long|long unsigned)( int)?\\) at.*$srcfile:119\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(float\\) at.*$srcfile:120\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(double\\) at.*$srcfile:121\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((void|)\\) at.*$srcfile:110" \
@@ -296,12 +310,12 @@ gdb_test "info break" \
"Num Type\[\t \]+Disp Enb Address\[\t \]+What.*
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(double\\) at.*$srcfile:121\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(float\\) at.*$srcfile:120\r
-\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned long\\) at.*$srcfile:119\r
-\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(long\\) at.*$srcfile:118\r
+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned long|long unsigned)( int)?\\) at.*$srcfile:119\r
+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(long( int)?\\) at.*$srcfile:118\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned|unsigned int)\\) at.*$srcfile:117\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(int\\) at.*$srcfile:116\r
-\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned short\\) at.*$srcfile:115\r
-\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(short\\) at.*$srcfile:114\r
+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned short|short unsigned)( int)?\\) at.*$srcfile:115\r
+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(short( int)?\\) at.*$srcfile:114\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned char\\) at.*$srcfile:113\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(signed char\\) at.*$srcfile:112\r
\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(char\\) at.*$srcfile:111\r
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/testsuite/gdb.cp/ref-types.exp b/gdb/testsuite/gdb.cp/ref-types.exp
index 4784cb2..b2e55cf 100644
--- a/gdb/testsuite/gdb.cp/ref-types.exp
+++ b/gdb/testsuite/gdb.cp/ref-types.exp
@@ -284,7 +284,7 @@ gdb_expect {
send_gdb "print UC\n"
gdb_expect {
- -re ".\[0-9\]* = 21 '\.025'\.*$gdb_prompt $" {
+ -re ".\[0-9\]* = 21 '\.25'\.*$gdb_prompt $" {
pass "print value of UC"
}
-re ".*$gdb_prompt $" { fail "print value of UC" }
@@ -557,7 +557,7 @@ gdb_expect {
send_gdb "print rUC\n"
gdb_expect {
- -re ".\[0-9\]* = \\(unsigned char &\\) @$hex: 21 \'.025\'.*$gdb_prompt $" {
+ -re ".\[0-9\]* = \\(unsigned char &\\) @$hex: 21 \'.25\'.*$gdb_prompt $" {
pass "print value of rUC"
}
-re ".*$gdb_prompt $" { fail "print value of rUC" }
diff --git a/gdb/testsuite/gdb.cp/templates.exp b/gdb/testsuite/gdb.cp/templates.exp
index cd9b770..f49caff 100644
--- a/gdb/testsuite/gdb.cp/templates.exp
+++ b/gdb/testsuite/gdb.cp/templates.exp
@@ -329,13 +329,11 @@ gdb_expect {
send_gdb "print Foo<volatile char *>::foo\n"
gdb_expect {
- -re "\\$\[0-9\]* = \\{.*char \\*\\((class |)Foo<volatile char ?\\*> \\*(| const), int, .*char \\*\\)\\} $hex <Foo<.*char.*\\*>::foo\\(int, .*char.*\\*\\)>\r\n$gdb_prompt $" { pass "print Foo<volatile char *>::foo" }
+ -re "\\$\[0-9\]* = \\{.*char \\*\\((class |)Foo<(volatile char|char volatile) ?\\*> \\*(| const), int, .*char \\*\\)\\} $hex <Foo<.*char.*\\*>::foo\\(int, .*char.*\\*\\)>\r\n$gdb_prompt $" { pass "print Foo<volatile char *>::foo" }
-re "No symbol \"Foo<volatile char \\*>\" in current context.\r\n$gdb_prompt $"
{
- # This used to be a kfail gdb/33. That problem has been
- # fixed, but now gdb/931 and gdb/1512 are rearing their ugly
- # heads.
- kfail "gdb/931" "print Foo<volatile char *>::foo"
+ # This used to be a kfail gdb/33 and then kfail gdb/931.
+ fail "print Foo<volatile char *>::foo"
}
-re "$gdb_prompt $" { fail "print Foo<volatile char *>::foo" }
timeout { fail "(timeout) print Foo<volatile char *>::foo" }
@@ -343,13 +341,11 @@ gdb_expect {
send_gdb "print Foo<volatile char*>::foo\n"
gdb_expect {
- -re "\\$\[0-9\]* = \\{.*char \\*\\((class |)Foo<volatile char ?\\*> \\*(| const), int, .*char \\*\\)\\} $hex <Foo<.*char.*\\*>::foo\\(int, .*char.*\\*\\)>\r\n$gdb_prompt $" { pass "print Foo<volatile char*>::foo" }
+ -re "\\$\[0-9\]* = \\{.*char \\*\\((class |)Foo<(volatile char|char volatile) ?\\*> \\*(| const), int, .*char \\*\\)\\} $hex <Foo<.*char.*\\*>::foo\\(int, .*char.*\\*\\)>\r\n$gdb_prompt $" { pass "print Foo<volatile char*>::foo" }
-re "No symbol \"Foo<volatile char\\*>\" in current context.\r\n$gdb_prompt $"
{
- # This used to be a kfail gdb/33. That problem has been
- # fixed, but now gdb/931 and gdb/1512 are rearing their ugly
- # heads.
- kfail "gdb/931" "print Foo<volatile char*>::foo"
+ # This used to be a kfail gdb/33 and then kfail gdb/931.
+ fail "print Foo<volatile char*>::foo"
}
-re "$gdb_prompt $" { fail "print Foo<volatile char*>::foo" }
timeout { fail "(timeout) print Foo<volatile char*>::foo" }
@@ -459,7 +455,7 @@ send_gdb "ptype quxint\n"
gdb_expect {
-re "type = class Qux<int, ?& ?string> \\{\r\n\[ \t\]*public:\r\n\[ \t\]*int x;\r\n\[ \t\]*int t;\r\n\r\n\[ \t\]*.*int qux\\(int, int\\);\r\n\\}\r\n$gdb_prompt $" { pass "ptype quxint" }
-re "type = class Qux<int, ?& ?string> \\{\r\n\[ \t\]*public:\r\n\[ \t\]*int x;\r\n\[ \t\]*int t;\r\n\r\n\[ \t\]*int qux\\(int, int\\);.*\r\n\\}\r\n$gdb_prompt $" { pass "ptype quxint" }
- -re "type = class Qux<int, ?\\(char ?\\*\\)\\(& ?string\\)> \\{\r\n\[ \t\]*public:\r\n\[ \t\]*int x;\r\n\[ \t\]*int t;\r\n\r\n\[ \t\]*int qux\\(int, int\\);.*\r\n\\}\r\n$gdb_prompt $" { pass "ptype quxint" }
+ -re "type = class Qux<int, ?\\(char ?\\*\\)\\(& ?\\(?string\\)?\\)> \\{\r\n\[ \t\]*public:\r\n\[ \t\]*int x;\r\n\[ \t\]*int t;\r\n\r\n\[ \t\]*int qux\\(int, int\\);.*\r\n\\}\r\n$gdb_prompt $" { pass "ptype quxint" }
-re "type = class Qux<int, ?& ?\\(string\\)> \\{\r\n\[ \t\]*public:\r\n\[ \t\]*int x;\r\n\[ \t\]*int t;\r\n\r\n\[ \t\]*int qux\\(int, int\\);.*\r\n\\}\r\n$gdb_prompt $" {
kfail "gdb/1512" "ptype quxint"
}
diff --git a/gdb/testsuite/gdb.dwarf2/dw2-stripped.c b/gdb/testsuite/gdb.dwarf2/dw2-stripped.c
new file mode 100644
index 0000000..1f02d90
--- /dev/null
+++ b/gdb/testsuite/gdb.dwarf2/dw2-stripped.c
@@ -0,0 +1,42 @@
+/* This testcase is part of GDB, the GNU debugger.
+
+ Copyright 2004 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
+ USA. */
+
+
+/* The function `func1' traced into must have debug info on offset > 0;
+ (DW_UNSND (attr)). This is the reason of `func0' existence. */
+
+void
+func0(int a, int b)
+{
+}
+
+/* `func1' being traced into must have some arguments to dump. */
+
+void
+func1(int a, int b)
+{
+ func0 (a,b);
+}
+
+int
+main(void)
+{
+ func1 (1, 2);
+ return 0;
+}
diff --git a/gdb/testsuite/gdb.dwarf2/dw2-stripped.exp b/gdb/testsuite/gdb.dwarf2/dw2-stripped.exp
new file mode 100644
index 0000000..1c6e84a
--- /dev/null
+++ b/gdb/testsuite/gdb.dwarf2/dw2-stripped.exp
@@ -0,0 +1,79 @@
+# Copyright 2006 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+# Minimal DWARF-2 unit test
+
+# This test can only be run on targets which support DWARF-2.
+# For now pick a sampling of likely targets.
+if {![istarget *-*-linux*]
+ && ![istarget *-*-gnu*]
+ && ![istarget *-*-elf*]
+ && ![istarget *-*-openbsd*]
+ && ![istarget arm-*-eabi*]
+ && ![istarget powerpc-*-eabi*]} {
+ return 0
+}
+
+set testfile "dw2-stripped"
+set srcfile ${testfile}.c
+set binfile ${objdir}/${subdir}/${testfile}.x
+
+remote_exec build "rm -f ${binfile}"
+
+# get the value of gcc_compiled
+if [get_compiler_info ${binfile}] {
+ return -1
+}
+
+# This test can only be run on gcc as we use additional_flags=FIXME
+if {$gcc_compiled == 0} {
+ return 0
+}
+
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-ggdb3}] != "" } {
+ return -1
+}
+
+remote_exec build "objcopy -R .debug_loc ${binfile}"
+set strip_output [remote_exec build "objdump -h ${binfile}"]
+
+set test "stripping test file preservation"
+if [ regexp ".debug_info " $strip_output] {
+ pass "$test (.debug_info preserved)"
+} else {
+ fail "$test (.debug_info got also stripped)"
+}
+
+set test "stripping test file functionality"
+if [ regexp ".debug_loc " $strip_output] {
+ fail "$test (.debug_loc still present)"
+} else {
+ pass "$test (.debug_loc stripped)"
+}
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+# For C programs, "start" should stop in main().
+
+gdb_test "start" \
+ ".*main \\(\\) at .*" \
+ "start"
+gdb_test "step" \
+ "func.* \\(.*\\) at .*" \
+ "step"
- Archer update to the snapshot: 935f217d3367a642374bc56c6b146d376fc3edab - Archer backport: 281278326412f9d6a3fabb8adc1d419fd7ddc7d7 - Fix [expr] crash reading invalid DWARF C++ symbol "" (BZ 490319).
2009-03-15 18:31:43 +00:00
diff --git a/gdb/testsuite/gdb.dwarf2/dw2-strp.S b/gdb/testsuite/gdb.dwarf2/dw2-strp.S
index a1602a5..293cc1b 100644
--- a/gdb/testsuite/gdb.dwarf2/dw2-strp.S
+++ b/gdb/testsuite/gdb.dwarf2/dw2-strp.S
@@ -28,7 +28,8 @@
/* CU die */
.uleb128 1 /* Abbrev: DW_TAG_compile_unit */
.4byte .Lproducer /* DW_AT_producer */
- .byte 1 /* DW_AT_language (C) */
+ /* Use C++ to exploit a bug in parsing DW_AT_name "". */
+ .byte 4 /* DW_AT_language (C++) - */
.Larray_type:
.uleb128 2 /* Abbrev: DW_TAG_array_type */
@@ -60,6 +61,10 @@
.Lconst_type:
.uleb128 6 /* Abbrev: DW_TAG_const_type */
.4byte .Larray_type-.Lcu1_begin/* DW_AT_type */
+
+ .uleb128 7 /* Abbrev: DW_TAG_variable (name "") */
+ .4byte .Lemptyname /* DW_AT_name */
+
.byte 0 /* End of children of CU */
.Lcu1_end:
@@ -126,6 +131,15 @@
.uleb128 0x13 /* DW_FORM_ref4 */
.byte 0x0 /* Terminator */
.byte 0x0 /* Terminator */
+
+ .uleb128 7 /* Abbrev code */
+ .uleb128 0x34 /* DW_TAG_variable */
+ .byte 0x0 /* DW_children_no */
+ .uleb128 0x3 /* DW_AT_name */
+ .uleb128 0xe /* DW_FORM_strp */
+ .byte 0x0 /* Terminator */
+ .byte 0x0 /* Terminator */
+
.byte 0x0 /* Terminator */
/* String table */
@@ -140,3 +154,5 @@
.string "a_string"
.Lvarcontents:
.string "hello world!\n"
+.Lemptyname:
+ .string ""
- Archer update to the snapshot: d144a3633454046aaeae3e2c369c271834431d36 - Archer backport: a2c49b7640ebe7ce1376902d48d5bbbee600996b - Fixup compilation older GCCs. - Archer backport: fe48224ce1bd22f37a7fa6d111d54c1a340392bf - KFAIL 4 cases of: gdb.arch/powerpc-power7.exp - Archer backport: d144a3633454046aaeae3e2c369c271834431d36 - Fix C local extern variables (requires gcc-4.4.0-0.30).
2009-03-30 17:32:01 +00:00
diff --git a/gdb/testsuite/gdb.dwarf2/dw2-unresolved-main.c b/gdb/testsuite/gdb.dwarf2/dw2-unresolved-main.c
new file mode 100644
index 0000000..c24eb96
--- /dev/null
+++ b/gdb/testsuite/gdb.dwarf2/dw2-unresolved-main.c
@@ -0,0 +1,46 @@
+/* This testcase is part of GDB, the GNU debugger.
+
+ Copyright 2009 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include <stdlib.h>
+
+asm (".globl cu_text_start");
+asm ("cu_text_start:");
+
+int
+main (void)
+{
+ unsigned char var = 1;
+
+ if (var != 1)
+ abort ();
+ {
+ extern unsigned char var;
+
+ /* Do not rely on the `extern' DIE output by GCC (GCC PR debug/39563). */
+asm (".globl extern_block_start");
+asm ("extern_block_start:");
+ if (var != 2)
+ abort ();
+asm (".globl extern_block_end");
+asm ("extern_block_end:");
+ }
+
+ return 0;
+}
+
+asm (".globl cu_text_end");
+asm ("cu_text_end:");
diff --git a/gdb/testsuite/gdb.dwarf2/dw2-unresolved.S b/gdb/testsuite/gdb.dwarf2/dw2-unresolved.S
new file mode 100644
index 0000000..4c098f3
--- /dev/null
+++ b/gdb/testsuite/gdb.dwarf2/dw2-unresolved.S
@@ -0,0 +1,171 @@
+/* This testcase is part of GDB, the GNU debugger.
+
+ Copyright 2007, 2008, 2009 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+ .data
+
+/* VAR1 is wrong here, in the real inferior it is located on stack. As both
+ places are never modified and they are initialized to the same value it
+ makes no difference. Ensure the name clash for "var". */
+var1: .byte 1
+
+ .globl var
+var: .byte 2
+
+/* Debug information */
+
+ .section .debug_info
+.Lcu1_begin:
+ /* CU header */
+ .4byte .Lcu1_end - .Lcu1_start /* Length of Compilation Unit */
+.Lcu1_start:
+ .2byte 2 /* DWARF Version */
+ .4byte .Labbrev1_begin /* Offset into abbrev section */
+ .byte 4 /* Pointer size */
+
+ /* CU die */
+ .uleb128 1 /* Abbrev: DW_TAG_compile_unit */
+ .4byte cu_text_end /* DW_AT_high_pc */
+ .4byte cu_text_start /* DW_AT_low_pc */
+ .ascii "dw2-unresolved-main.c\0" /* DW_AT_name */
+ .ascii "GNU C 4.3.2\0" /* DW_AT_producer */
+ .byte 1 /* DW_AT_language (C) */
+
+.Ltype_uchar:
+ .uleb128 2 /* Abbrev: DW_TAG_base_type */
+ .ascii "unsigned char\0" /* DW_AT_name */
+ .byte 1 /* DW_AT_byte_size */
+ .byte 7 /* DW_AT_encoding */
+
+ /* main */
+ .uleb128 3 /* Abbrev: DW_TAG_subprogram */
+ .byte 1 /* DW_AT_decl_file */
+ .byte 2 /* DW_AT_decl_line */
+ .ascii "main\0" /* DW_AT_name */
+ .4byte .Ltype_uchar-.Lcu1_begin /* DW_AT_type */
+ .4byte cu_text_start /* DW_AT_low_pc */
+ .4byte cu_text_end /* DW_AT_high_pc */
+
+ .uleb128 4 /* Abbrev: DW_TAG_variable (location) */
+ .ascii "var\0" /* DW_AT_name */
+ .byte 2f - 1f /* DW_AT_location */
+1: .byte 3 /* DW_OP_addr */
+/* See VAR1 definition why this DIE is not correct. */
+ .4byte var1 /* <addr> */
+2: .4byte .Ltype_uchar-.Lcu1_begin /* DW_AT_type */
+
+ .uleb128 6 /* Abbrev: DW_TAG_lexical_block */
+ .4byte extern_block_start /* DW_AT_low_pc */
+ .4byte extern_block_end /* DW_AT_high_pc */
+
+ .uleb128 5 /* Abbrev: DW_TAG_variable (extern) */
+ .ascii "var\0" /* DW_AT_name */
+ .4byte .Ltype_uchar-.Lcu1_begin /* DW_AT_type */
+ .byte 1 /* DW_AT_external */
+
+ .byte 0 /* End of children of the lexical block */
+
+ .byte 0 /* End of children of main */
+
+ .byte 0 /* End of children of CU */
+
+.Lcu1_end:
+
+/* Abbrev table */
+ .section .debug_abbrev
+.Labbrev1_begin:
+ .uleb128 1 /* Abbrev code */
+ .uleb128 0x11 /* DW_TAG_compile_unit */
+ .byte 1 /* has_children */
+ .uleb128 0x12 /* DW_AT_high_pc */
+ .uleb128 0x1 /* DW_FORM_addr */
+ .uleb128 0x11 /* DW_AT_low_pc */
+ .uleb128 0x1 /* DW_FORM_addr */
+ .uleb128 0x3 /* DW_AT_name */
+ .uleb128 0x8 /* DW_FORM_string */
+ .uleb128 0x25 /* DW_AT_producer */
+ .uleb128 0x8 /* DW_FORM_string */
+ .uleb128 0x13 /* DW_AT_language */
+ .uleb128 0xb /* DW_FORM_data1 */
+ .byte 0x0 /* Terminator */
+ .byte 0x0 /* Terminator */
+
+ .uleb128 2 /* Abbrev code */
+ .uleb128 0x24 /* DW_TAG_base_type */
+ .byte 0 /* has_children */
+ .uleb128 0x3 /* DW_AT_name */
+ .uleb128 0x8 /* DW_FORM_string */
+ .uleb128 0xb /* DW_AT_byte_size */
+ .uleb128 0xb /* DW_FORM_data1 */
+ .uleb128 0x3e /* DW_AT_encoding */
+ .uleb128 0xb /* DW_FORM_data1 */
+ .byte 0x0 /* Terminator */
+ .byte 0x0 /* Terminator */
+
+ .uleb128 3 /* Abbrev code */
+ .uleb128 0x2e /* DW_TAG_subprogram */
+ .byte 1 /* has_children */
+ .uleb128 0x3a /* DW_AT_decl_file */
+ .uleb128 0xb /* DW_FORM_data1 */
+ .uleb128 0x3b /* DW_AT_decl_line */
+ .uleb128 0xb /* DW_FORM_data1 */
+ .uleb128 0x3 /* DW_AT_name */
+ .uleb128 0x8 /* DW_FORM_string */
+ .uleb128 0x49 /* DW_AT_type */
+ .uleb128 0x13 /* DW_FORM_ref4 */
+ .uleb128 0x11 /* DW_AT_low_pc */
+ .uleb128 0x1 /* DW_FORM_addr */
+ .uleb128 0x12 /* DW_AT_high_pc */
+ .uleb128 0x1 /* DW_FORM_addr */
+ .byte 0x0 /* Terminator */
+ .byte 0x0 /* Terminator */
+
+ .uleb128 4 /* Abbrev code (location) */
+ .uleb128 0x34 /* DW_TAG_variable */
+ .byte 0 /* has_children */
+ .uleb128 0x3 /* DW_AT_name */
+ .uleb128 0x8 /* DW_FORM_string */
+ .uleb128 0x2 /* DW_AT_location */
+ .uleb128 0xa /* DW_FORM_block1 */
+ .uleb128 0x49 /* DW_AT_type */
+ .uleb128 0x13 /* DW_FORM_ref4 */
+ .byte 0x0 /* Terminator */
+ .byte 0x0 /* Terminator */
+
+ .uleb128 5 /* Abbrev code (extern) */
+ .uleb128 0x34 /* DW_TAG_variable */
+ .byte 0 /* has_children */
+ .uleb128 0x3 /* DW_AT_name */
+ .uleb128 0x8 /* DW_FORM_string */
+ .uleb128 0x49 /* DW_AT_type */
+ .uleb128 0x13 /* DW_FORM_ref4 */
+ .uleb128 0x3f /* DW_AT_external */
+ .uleb128 0xc /* DW_FORM_flag */
+ .byte 0x0 /* Terminator */
+ .byte 0x0 /* Terminator */
+
+ .uleb128 6 /* Abbrev code */
+ .uleb128 0x0b /* DW_TAG_lexical_block */
+ .byte 1 /* has_children */
+ .uleb128 0x11 /* DW_AT_low_pc */
+ .uleb128 0x1 /* DW_FORM_addr */
+ .uleb128 0x12 /* DW_AT_high_pc */
+ .uleb128 0x1 /* DW_FORM_addr */
+ .byte 0x0 /* Terminator */
+ .byte 0x0 /* Terminator */
+
+ .byte 0x0 /* Terminator */
+ .byte 0x0 /* Terminator */
diff --git a/gdb/testsuite/gdb.dwarf2/dw2-unresolved.exp b/gdb/testsuite/gdb.dwarf2/dw2-unresolved.exp
new file mode 100644
index 0000000..b955da9
--- /dev/null
+++ b/gdb/testsuite/gdb.dwarf2/dw2-unresolved.exp
@@ -0,0 +1,41 @@
+# Copyright 2009 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+# This test can only be run on targets which support DWARF-2 and use gas.
+# For now pick a sampling of likely targets.
+if {![istarget *-*-linux*]
+ && ![istarget *-*-gnu*]
+ && ![istarget *-*-elf*]
+ && ![istarget *-*-openbsd*]
+ && ![istarget arm-*-eabi*]
+ && ![istarget powerpc-*-eabi*]} {
+ return 0
+}
+
+if { [prepare_for_testing dw2-unresolved.exp "dw2-unresolved" {dw2-unresolved-main.c dw2-unresolved.S} {nodebug}] } {
+ return -1
+}
+
+if ![runto_main] {
+ return -1
+}
+
+# This testcase tests LOC_UNRESOLVED works right.
+
+gdb_breakpoint "*extern_block_start"
+gdb_continue_to_breakpoint "*extern_block_start"
+
+# Expect the inner value 2. Value 1 from the outer local block is shadowed.
+gdb_test "print var" "= 2( '.*')?"
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/testsuite/gdb.fortran/common-block.exp b/gdb/testsuite/gdb.fortran/common-block.exp
new file mode 100644
index 0000000..888f6c3
--- /dev/null
+++ b/gdb/testsuite/gdb.fortran/common-block.exp
@@ -0,0 +1,101 @@
+# Copyright 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+# This file was written by Jan Kratochvil <jan.kratochvil@redhat.com>.
+
+set testfile "common-block"
+set srcfile ${testfile}.f90
+set binfile ${objdir}/${subdir}/${testfile}
+
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f77 quiet}] != "" } {
+ untested "Couldn't compile ${srcfile}"
+ return -1
+}
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+if ![runto MAIN__] then {
+ perror "couldn't run to breakpoint MAIN__"
+ continue
+}
+
+gdb_breakpoint [gdb_get_line_number "stop-here-out"]
+gdb_continue_to_breakpoint "stop-here-out"
+
+# Common block naming with source name /foo/:
+# .symtab DW_TAG_common_block's DW_AT_name
+# Intel Fortran foo_ foo_
+# GNU Fortran foo_ foo
+#set suffix "_"
+set suffix ""
+
+set int4 {(integer\(kind=4\)|INTEGER\(4\))}
+set real4 {(real\(kind=4\)|REAL\(4\))}
+set real8 {(real\(kind=8\)|REAL\(8\))}
+
+gdb_test "whatis foo$suffix" "No symbol \"foo$suffix\" in current context."
+gdb_test "ptype foo$suffix" "No symbol \"foo$suffix\" in current context."
+gdb_test "p foo$suffix" "No symbol \"foo$suffix\" in current context."
+gdb_test "whatis fo_o$suffix" "No symbol \"fo_o$suffix\" in current context."
+gdb_test "ptype fo_o$suffix" "No symbol \"fo_o$suffix\" in current context."
+gdb_test "p fo_o$suffix" "No symbol \"fo_o$suffix\" in current context."
+
+gdb_test "info locals" "ix_x = 11\r\niy_y = 22\r\niz_z = 33\r\nix = 1\r\niy = 2\r\niz = 3" "info locals out"
+gdb_test "info common" "Contents of F77 COMMON block 'fo_o':\r\nix_x = 11\r\niy_y = 22\r\niz_z = 33\r\n\r\nContents of F77 COMMON block 'foo':\r\nix = 1\r\niy = 2\r\niz = 3" "info common out"
+
+gdb_test "ptype ix" "type = $int4" "ptype ix out"
+gdb_test "ptype iy" "type = $real4" "ptype iy out"
+gdb_test "ptype iz" "type = $real8" "ptype iz out"
+gdb_test "ptype ix_x" "type = $int4" "ptype ix_x out"
+gdb_test "ptype iy_y" "type = $real4" "ptype iy_y out"
+gdb_test "ptype iz_z" "type = $real8" "ptype iz_z out"
+
+gdb_test "p ix" " = 1 *" "p ix out"
+gdb_test "p iy" " = 2 *" "p iy out"
+gdb_test "p iz" " = 3 *" "p iz out"
+gdb_test "p ix_x" " = 11 *" "p ix_x out"
+gdb_test "p iy_y" " = 22 *" "p iy_y out"
+gdb_test "p iz_z" " = 33 *" "p iz_z out"
+
+gdb_breakpoint [gdb_get_line_number "stop-here-in"]
+gdb_continue_to_breakpoint "stop-here-in"
+
+gdb_test "whatis foo$suffix" "No symbol \"foo$suffix\" in current context." "whatis foo$suffix in"
+gdb_test "ptype foo$suffix" "No symbol \"foo$suffix\" in current context." "ptype foo$suffix in"
+gdb_test "p foo$suffix" "No symbol \"foo$suffix\" in current context." "p foo$suffix in"
+gdb_test "whatis fo_o$suffix" "No symbol \"fo_o$suffix\" in current context." "whatis fo_o$suffix in"
+gdb_test "ptype fo_o$suffix" "No symbol \"fo_o$suffix\" in current context." "ptype fo_o$suffix in"
+gdb_test "p fo_o$suffix" "No symbol \"fo_o$suffix\" in current context." "p fo_o$suffix in"
+
+gdb_test "info locals" "ix = 11\r\niy2 = 22\r\niz = 33\r\nix_x = 1\r\niy_y = 2\r\niz_z2 = 3\r\niy = 5\r\niz_z = 55" "info locals in"
+gdb_test "info common" "Contents of F77 COMMON block 'fo_o':\r\nix = 11\r\niy2 = 22\r\niz = 33\r\n\r\nContents of F77 COMMON block 'foo':\r\nix_x = 1\r\niy_y = 2\r\niz_z2 = 3" "info common in"
+
+gdb_test "ptype ix" "type = $int4" "ptype ix in"
+gdb_test "ptype iy2" "type = $real4" "ptype iy2 in"
+gdb_test "ptype iz" "type = $real8" "ptype iz in"
+gdb_test "ptype ix_x" "type = $int4" "ptype ix_x in"
+gdb_test "ptype iy_y" "type = $real4" "ptype iy_y in"
+gdb_test "ptype iz_z2" "type = $real8" "ptype iz_z2 in"
+
+gdb_test "p ix" " = 11 *" "p ix in"
+gdb_test "p iy2" " = 22 *" "p iy2 in"
+gdb_test "p iz" " = 33 *" "p iz in"
+gdb_test "p ix_x" " = 1 *" "p ix_x in"
+gdb_test "p iy_y" " = 2 *" "p iy_y in"
+gdb_test "p iz_z2" " = 3 *" "p iz_z2 in"
diff --git a/gdb/testsuite/gdb.fortran/common-block.f90 b/gdb/testsuite/gdb.fortran/common-block.f90
new file mode 100644
index 0000000..b614e8a
--- /dev/null
+++ b/gdb/testsuite/gdb.fortran/common-block.f90
@@ -0,0 +1,67 @@
+! Copyright 2008 Free Software Foundation, Inc.
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License
+! along with this program; if not, write to the Free Software
+! Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+!
+! Ihis file is the Fortran source file for dynamic.exp.
+! Original file written by Jakub Jelinek <jakub@redhat.com>.
+! Modified for the GDB testcase by Jan Kratochvil <jan.kratochvil@redhat.com>.
+
+subroutine in
+
+ INTEGER*4 ix
+ REAL*4 iy2
+ REAL*8 iz
+
+ INTEGER*4 ix_x
+ REAL*4 iy_y
+ REAL*8 iz_z2
+
+ common /fo_o/ix,iy2,iz
+ common /foo/ix_x,iy_y,iz_z2
+
+ iy = 5
+ iz_z = 55
+
+ if (ix .ne. 11 .or. iy2 .ne. 22.0 .or. iz .ne. 33.0) call abort
+ if (ix_x .ne. 1 .or. iy_y .ne. 2.0 .or. iz_z2 .ne. 3.0) call abort
+
+ ix = 0 ! stop-here-in
+
+end subroutine in
+
+program common_test
+
+ INTEGER*4 ix
+ REAL*4 iy
+ REAL*8 iz
+
+ INTEGER*4 ix_x
+ REAL*4 iy_y
+ REAL*8 iz_z
+
+ common /foo/ix,iy,iz
+ common /fo_o/ix_x,iy_y,iz_z
+
+ ix = 1
+ iy = 2.0
+ iz = 3.0
+
+ ix_x = 11
+ iy_y = 22.0
+ iz_z = 33.0
+
+ call in ! stop-here-out
+
+end program common_test
diff --git a/gdb/testsuite/gdb.fortran/dynamic.exp b/gdb/testsuite/gdb.fortran/dynamic.exp
new file mode 100644
index 0000000..77a1203
--- /dev/null
+++ b/gdb/testsuite/gdb.fortran/dynamic.exp
@@ -0,0 +1,156 @@
+# Copyright 2007 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+# This file was written by Jan Kratochvil <jan.kratochvil@redhat.com>.
+
+# This file is part of the gdb testsuite. It contains tests for dynamically
+# allocated Fortran arrays.
+# It depends on the GCC dynamic Fortran arrays DWARF support:
+# http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22244
+
+set testfile "dynamic"
+set srcfile ${testfile}.f90
+set binfile ${objdir}/${subdir}/${testfile}
+
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f77 quiet}] != "" } {
+ untested "Couldn't compile ${srcfile}"
+ return -1
+}
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+if ![runto MAIN__] then {
+ perror "couldn't run to breakpoint MAIN__"
+ continue
+}
+
+gdb_breakpoint [gdb_get_line_number "varx-init"]
+gdb_continue_to_breakpoint "varx-init"
+gdb_test "p varx" "\\$\[0-9\]* = <(object|the array) is not allocated>" "p varx unallocated"
+gdb_test "ptype varx" "type = <(object|the array) is not allocated>" "ptype varx unallocated"
+gdb_test "p varx(1,5,17)" "(Cannot access it|Unable to access the object) because the (object|array) is not allocated\\." "p varx(1,5,17) unallocated"
+gdb_test "p varx(1,5,17)=1" "(Cannot access it|Unable to access the object) because the (object|array) is not allocated\\." "p varx(1,5,17)=1 unallocated"
+gdb_test "ptype varx(1,5,17)" "(Cannot access it|Unable to access the object) because the (object|array) is not allocated\\." "ptype varx(1,5,17) unallocated"
+
+gdb_breakpoint [gdb_get_line_number "varx-allocated"]
+gdb_continue_to_breakpoint "varx-allocated"
+# $1 = (( ( 0, 0, 0, 0, 0, 0) ( 0, 0, 0, 0, 0, 0) --- , 0) ) ( ( 0, 0, ...) ...) ...)
+gdb_test "ptype varx" "type = real(\\(kind=4\\)|\\*4) \\(6,5:15,17:28\\)" "ptype varx allocated"
+# Intel Fortran Compiler 10.1.008 uses -1 there, GCC uses 1.
+gdb_test "p l" "\\$\[0-9\]* = (\\.TRUE\\.|4294967295)" "p l if varx allocated"
+
+gdb_breakpoint [gdb_get_line_number "varx-filled"]
+gdb_continue_to_breakpoint "varx-filled"
+gdb_test "p varx(2, 5, 17)" "\\$\[0-9\]* = 6"
+gdb_test "p varx(1, 5, 17)" "\\$\[0-9\]* = 7"
+gdb_test "p varx(2, 6, 18)" "\\$\[0-9\]* = 8"
+gdb_test "p varx(6, 15, 28)" "\\$\[0-9\]* = 9"
+# The latter one is for the Intel Fortran Compiler 10.1.008 pointer type.
+gdb_test "p varv" "\\$\[0-9\]* = (<(object|the array) is not associated>|.*(Cannot access it|Unable to access the object) because the object is not associated.)" "p varv unassociated"
+gdb_test "ptype varv" "type = (<(object|the array) is not associated>|.*(Cannot access it|Unable to access the object) because the object is not associated.)" "ptype varv unassociated"
+
+gdb_breakpoint [gdb_get_line_number "varv-associated"]
+gdb_continue_to_breakpoint "varv-associated"
+gdb_test "p varx(3, 7, 19)" "\\$\[0-9\]* = 6" "p varx(3, 7, 19) with varv associated"
+gdb_test "p varv(3, 7, 19)" "\\$\[0-9\]* = 6" "p varv(3, 7, 19) associated"
+# Intel Fortran Compiler 10.1.008 uses -1 there, GCC uses 1.
+gdb_test "p l" "\\$\[0-9\]* = (\\.TRUE\\.|4294967295)" "p l if varv associated"
+gdb_test "ptype varx" "type = real(\\(kind=4\\)|\\*4) \\(6,5:15,17:28\\)" "ptype varx with varv associated"
+# Intel Fortran Compiler 10.1.008 uses the pointer type.
+gdb_test "ptype varv" "type = (PTR TO -> \\( )?real(\\(kind=4\\)|\\*4) \\(6,5:15,17:28\\)\\)?" "ptype varv associated"
+
+gdb_breakpoint [gdb_get_line_number "varv-filled"]
+gdb_continue_to_breakpoint "varv-filled"
+gdb_test "p varx(3, 7, 19)" "\\$\[0-9\]* = 10" "p varx(3, 7, 19) with varv filled"
+gdb_test "p varv(3, 7, 19)" "\\$\[0-9\]* = 10" "p varv(3, 7, 19) filled"
+
+gdb_breakpoint [gdb_get_line_number "varv-deassociated"]
+gdb_continue_to_breakpoint "varv-deassociated"
+# The latter one is for the Intel Fortran Compiler 10.1.008 pointer type.
+gdb_test "p varv" "\\$\[0-9\]* = (<(object|the array) is not associated>|.*(Cannot access it|Unable to access the object) because the object is not associated.)" "p varv deassociated"
+gdb_test "ptype varv" "type = (<(object|the array) is not associated>|.*(Cannot access it|Unable to access the object) because the object is not associated.)" "ptype varv deassociated"
+gdb_test "p l" "\\$\[0-9\]* = \\.FALSE\\." "p l if varv deassociated"
+gdb_test "p varv(1,5,17)" "(Cannot access it|Unable to access the object) because the (object|array) is not associated\\."
+gdb_test "ptype varv(1,5,17)" "(Cannot access it|Unable to access the object) because the (object|array) is not associated\\."
+
+gdb_breakpoint [gdb_get_line_number "varx-deallocated"]
+gdb_continue_to_breakpoint "varx-deallocated"
+gdb_test "p varx" "\\$\[0-9\]* = <(object|the array) is not allocated>" "p varx deallocated"
+gdb_test "ptype varx" "type = <(object|the array) is not allocated>" "ptype varx deallocated"
+gdb_test "p l" "\\$\[0-9\]* = \\.FALSE\\." "p l if varx deallocated"
+gdb_test "p varx(1,5,17)" "(Cannot access it|Unable to access the object) because the (object|array) is not allocated\\." "p varx(1,5,17) deallocated"
+gdb_test "ptype varx(1,5,17)" "(Cannot access it|Unable to access the object) because the (object|array) is not allocated\\." "ptype varx(1,5,17) deallocated"
+
+gdb_breakpoint [gdb_get_line_number "vary-passed"]
+gdb_continue_to_breakpoint "vary-passed"
+# $1 = (( ( 1, 1, 1, 1, 1, 1) ( 1, 1, 1, 1, 1, 1) --- , 1) ) ( ( 1, 1, ...) ...) ...)
+gdb_test "p vary" "\\$\[0-9\]* = \\(\[()1, .\]*\\)"
+
+gdb_breakpoint [gdb_get_line_number "vary-filled"]
+gdb_continue_to_breakpoint "vary-filled"
+gdb_test "ptype vary" "type = real(\\(kind=4\\)|\\*4) \\(10,10\\)"
+gdb_test "p vary(1, 1)" "\\$\[0-9\]* = 8"
+gdb_test "p vary(2, 2)" "\\$\[0-9\]* = 9"
+gdb_test "p vary(1, 3)" "\\$\[0-9\]* = 10"
+# $1 = (( ( 3, 3, 3, 3, 3, 3) ( 3, 3, 3, 3, 3, 3) --- , 3) ) ( ( 3, 3, ...) ...) ...)
+gdb_test "p varw" "\\$\[0-9\]* = \\(\[()3, .\]*\\)"
+
+gdb_breakpoint [gdb_get_line_number "varw-almostfilled"]
+gdb_continue_to_breakpoint "varw-almostfilled"
+gdb_test "ptype varw" "type = real(\\(kind=4\\)|\\*4) \\(5,4,3\\)"
+gdb_test "p varw(3,1,1)=1" "\\$\[0-9\]* = 1"
+# $1 = (( ( 6, 5, 1, 5, 5, 5) ( 5, 5, 5, 5, 5, 5) --- , 5) ) ( ( 5, 5, ...) ...) ...)
+gdb_test "p varw" "\\$\[0-9\]* = \\( *\\( *\\( *6, *5, *1,\[()5, .\]*\\)" "p varw filled"
+# "up" works with GCC but other Fortran compilers may copy the values into the
+# outer function only on the exit of the inner function.
+gdb_test "finish" ".*call bar \\(y, x\\)"
+gdb_test "p z(2,4,5)" "\\$\[0-9\]* = 3"
+gdb_test "p z(2,4,6)" "\\$\[0-9\]* = 6"
+gdb_test "p z(2,4,7)" "\\$\[0-9\]* = 5"
+gdb_test "p z(4,4,6)" "\\$\[0-9\]* = 1"
+
+gdb_breakpoint [gdb_get_line_number "varz-almostfilled"]
+gdb_continue_to_breakpoint "varz-almostfilled"
+# GCC uses the pointer type here, Intel Fortran Compiler 10.1.008 does not.
+gdb_test "ptype varz" "type = (PTR TO -> \\( )?real(\\(kind=4\\)|\\*4) \\(\\*\\)\\)?"
+# Intel Fortran Compiler 10.1.008 has a bug here - (2:11,7:7)
+# as it produces DW_AT_lower_bound == DW_AT_upper_bound == 7.
+gdb_test "ptype vart" "type = (PTR TO -> \\( )?real(\\(kind=4\\)|\\*4) \\(2:11,7:\\*\\)\\)?"
+gdb_test "p varz" "\\$\[0-9\]* = \\(\\)"
+gdb_test "p vart" "\\$\[0-9\]* = \\(\\)"
+gdb_test "p varz(3)" "\\$\[0-9\]* = 4"
+# maps to foo::vary(1,1)
+gdb_test "p vart(2,7)" "\\$\[0-9\]* = 8"
+# maps to foo::vary(2,2)
+gdb_test "p vart(3,8)" "\\$\[0-9\]* = 9"
+# maps to foo::vary(1,3)
+gdb_test "p vart(2,9)" "\\$\[0-9\]* = 10"
+
+set test "quit #1"
+gdb_test_multiple "quit" $test {
+ -re "The program is running. Quit anyway \\(and kill it\\)\\? \\(y or n\\) " {
+ pass $test
+ }
+}
+set test "quit #2"
+gdb_test_multiple "y" $test {
+ eof {
+ pass $test
+ }
+}
diff --git a/gdb/testsuite/gdb.fortran/dynamic.f90 b/gdb/testsuite/gdb.fortran/dynamic.f90
new file mode 100644
index 0000000..0f43564
--- /dev/null
+++ b/gdb/testsuite/gdb.fortran/dynamic.f90
@@ -0,0 +1,98 @@
+! Copyright 2007 Free Software Foundation, Inc.
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License
+! along with this program; if not, write to the Free Software
+! Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+!
+! Ihis file is the Fortran source file for dynamic.exp.
+! Original file written by Jakub Jelinek <jakub@redhat.com>.
+! Modified for the GDB testcase by Jan Kratochvil <jan.kratochvil@redhat.com>.
+
+subroutine baz
+ real, target, allocatable :: varx (:, :, :)
+ real, pointer :: varv (:, :, :)
+ real, target :: varu (1, 2, 3)
+ logical :: l
+ allocate (varx (1:6, 5:15, 17:28)) ! varx-init
+ l = allocated (varx)
+ varx(:, :, :) = 6 ! varx-allocated
+ varx(1, 5, 17) = 7
+ varx(2, 6, 18) = 8
+ varx(6, 15, 28) = 9
+ varv => varx ! varx-filled
+ l = associated (varv)
+ varv(3, 7, 19) = 10 ! varv-associated
+ varv => null () ! varv-filled
+ l = associated (varv)
+ deallocate (varx) ! varv-deassociated
+ l = allocated (varx)
+ varu(:, :, :) = 10 ! varx-deallocated
+ allocate (varv (1:6, 5:15, 17:28))
+ l = associated (varv)
+ varv(:, :, :) = 6
+ varv(1, 5, 17) = 7
+ varv(2, 6, 18) = 8
+ varv(6, 15, 28) = 9
+ deallocate (varv)
+ l = associated (varv)
+ varv => varu
+ varv(1, 1, 1) = 6
+ varv(1, 2, 3) = 7
+ l = associated (varv)
+end subroutine baz
+subroutine foo (vary, varw)
+ real :: vary (:, :)
+ real :: varw (:, :, :)
+ vary(:, :) = 4 ! vary-passed
+ vary(1, 1) = 8
+ vary(2, 2) = 9
+ vary(1, 3) = 10
+ varw(:, :, :) = 5 ! vary-filled
+ varw(1, 1, 1) = 6
+ varw(2, 2, 2) = 7 ! varw-almostfilled
+end subroutine foo
+subroutine bar (varz, vart)
+ real :: varz (*)
+ real :: vart (2:11, 7:*)
+ varz(1:3) = 4
+ varz(2) = 5 ! varz-almostfilled
+ vart(2,7) = vart(2,7)
+end subroutine bar
+program test
+ interface
+ subroutine foo (vary, varw)
+ real :: vary (:, :)
+ real :: varw (:, :, :)
+ end subroutine
+ end interface
+ interface
+ subroutine bar (varz, vart)
+ real :: varz (*)
+ real :: vart (2:11, 7:*)
+ end subroutine
+ end interface
+ real :: x (10, 10), y (5), z(8, 8, 8)
+ x(:,:) = 1
+ y(:) = 2
+ z(:,:,:) = 3
+ call baz
+ call foo (x, z(2:6, 4:7, 6:8))
+ call bar (y, x)
+ if (x (1, 1) .ne. 8 .or. x (2, 2) .ne. 9 .or. x (1, 2) .ne. 4) call abort
+ if (x (1, 3) .ne. 10) call abort
+ if (z (2, 4, 6) .ne. 6 .or. z (3, 5, 7) .ne. 7 .or. z (2, 4, 7) .ne. 5) call abort
+ if (any (y .ne. (/4, 5, 4, 2, 2/))) call abort
+ call foo (transpose (x), z)
+ if (x (1, 1) .ne. 8 .or. x (2, 2) .ne. 9 .or. x (1, 2) .ne. 4) call abort
+ if (x (3, 1) .ne. 10) call abort
+end
diff --git a/gdb/testsuite/gdb.fortran/logical.exp b/gdb/testsuite/gdb.fortran/logical.exp
new file mode 100644
index 0000000..ef76f43
--- /dev/null
+++ b/gdb/testsuite/gdb.fortran/logical.exp
@@ -0,0 +1,44 @@
+# Copyright 2007 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+# This file was written by Jan Kratochvil <jan.kratochvil@redhat.com>.
+
+set testfile "logical"
+set srcfile ${testfile}.f90
+set binfile ${objdir}/${subdir}/${testfile}
+
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f77 quiet}] != "" } {
+ untested "Couldn't compile ${srcfile}"
+ return -1
+}
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+if ![runto MAIN__] then {
+ perror "couldn't run to breakpoint MAIN__"
+ continue
+}
+
+gdb_breakpoint [gdb_get_line_number "stop-here"]
+gdb_continue_to_breakpoint "stop-here"
+gdb_test "p l" " = \\.TRUE\\."
+gdb_test "p l1" " = \\.TRUE\\."
+gdb_test "p l2" " = \\.TRUE\\."
+gdb_test "p l4" " = \\.TRUE\\."
+gdb_test "p l8" " = \\.TRUE\\."
diff --git a/gdb/testsuite/gdb.fortran/logical.f90 b/gdb/testsuite/gdb.fortran/logical.f90
new file mode 100644
index 0000000..4229304
--- /dev/null
+++ b/gdb/testsuite/gdb.fortran/logical.f90
@@ -0,0 +1,33 @@
+! Copyright 2008 Free Software Foundation, Inc.
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License
+! along with this program; if not, write to the Free Software
+! Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+!
+! Ihis file is the Fortran source file for dynamic.exp.
+! Original file written by Jakub Jelinek <jakub@redhat.com>.
+! Modified for the GDB testcase by Jan Kratochvil <jan.kratochvil@redhat.com>.
+
+program test
+ logical :: l
+ logical (kind=1) :: l1
+ logical (kind=2) :: l2
+ logical (kind=4) :: l4
+ logical (kind=8) :: l8
+ l = .TRUE.
+ l1 = .TRUE.
+ l2 = .TRUE.
+ l4 = .TRUE.
+ l8 = .TRUE.
+ l = .FALSE. ! stop-here
+end
diff --git a/gdb/testsuite/gdb.fortran/string.exp b/gdb/testsuite/gdb.fortran/string.exp
new file mode 100644
index 0000000..ab72206
--- /dev/null
+++ b/gdb/testsuite/gdb.fortran/string.exp
@@ -0,0 +1,72 @@
+# Copyright 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+# This file was written by Jan Kratochvil <jan.kratochvil@redhat.com>.
+
+# This file is part of the gdb testsuite. It contains tests for Fortran
+# strings with dynamic length.
+
+set testfile "string"
+set srcfile ${testfile}.f90
+set binfile ${objdir}/${subdir}/${testfile}
+
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f77 quiet}] != "" } {
+ untested "Couldn't compile ${srcfile}"
+ return -1
+}
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+if ![runto MAIN__] then {
+ perror "couldn't run to breakpoint MAIN__"
+ continue
+}
+
+gdb_breakpoint [gdb_get_line_number "var-init"]
+gdb_continue_to_breakpoint "var-init"
+gdb_test "ptype c" "type = character(\\(kind=1\\)|\\*1)"
+gdb_test "ptype d" "type = character(\\(kind=8\\)|\\*8)"
+gdb_test "ptype e" "type = character(\\(kind=4\\)|\\*4)"
+gdb_test "ptype f" "type = character(\\(kind=4\\)|\\*4) \\(7,8:10\\)"
+gdb_test "ptype *e" "Attempt to take contents of a non-pointer value."
+gdb_test "ptype *f" "type = character(\\(kind=4\\)|\\*4) \\(7\\)"
+gdb_test "p c" "\\$\[0-9\]* = 'c'"
+gdb_test "p d" "\\$\[0-9\]* = 'd '"
+gdb_test "p e" "\\$\[0-9\]* = 'g '"
+gdb_test "p f" "\\$\[0-9\]* = \\(\\( 'h ', 'h ', 'h ', 'h ', 'h ', 'h ', 'h '\\) \\( 'h ', 'h ', 'h ', 'h ', 'h ', 'h ', 'h '\\) \\( 'h ', 'h ', 'h ', 'h ', 'h ', 'h ', 'h '\\) \\)"
+gdb_test "p *e" "Attempt to take contents of a non-pointer value."
+gdb_test "p *f" "Attempt to take contents of a non-pointer value."
+
+gdb_breakpoint [gdb_get_line_number "var-finish"]
+gdb_continue_to_breakpoint "var-finish"
+gdb_test "p e" "\\$\[0-9\]* = 'e '" "p e re-set"
+gdb_test "p f" "\\$\[0-9\]* = \\(\\( 'f ', 'f ', 'f ', 'f ', 'f ', 'f ', 'f '\\) \\( 'f2 ', 'f ', 'f ', 'f ', 'f ', 'f ', 'f '\\) \\( 'f ', 'f ', 'f ', 'f ', 'f ', 'f ', 'f '\\) \\)" "p *f re-set"
+
+set test "quit #1"
+gdb_test_multiple "quit" $test {
+ -re "The program is running. Quit anyway \\(and kill it\\)\\? \\(y or n\\) " {
+ pass $test
+ }
+}
+set test "quit #2"
+gdb_test_multiple "y" $test {
+ eof {
+ pass $test
+ }
+}
diff --git a/gdb/testsuite/gdb.fortran/string.f90 b/gdb/testsuite/gdb.fortran/string.f90
new file mode 100644
index 0000000..226dc5d
--- /dev/null
+++ b/gdb/testsuite/gdb.fortran/string.f90
@@ -0,0 +1,37 @@
+! Copyright 2008 Free Software Foundation, Inc.
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License
+! along with this program; if not, write to the Free Software
+! Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+!
+! Ihis file is the Fortran source file for dynamic.exp.
+! Original file written by Jakub Jelinek <jakub@redhat.com>.
+! Modified for the GDB testcase by Jan Kratochvil <jan.kratochvil@redhat.com>.
+
+subroutine foo (e, f)
+ character (len=1) :: c
+ character (len=8) :: d
+ character (len=*) :: e
+ character (len=*) :: f (1:7, 8:10)
+ c = 'c'
+ d = 'd'
+ e = 'e' ! var-init
+ f = 'f'
+ f(1,9) = 'f2'
+ c = 'c' ! var-finish
+end subroutine foo
+ character (len=4) :: g, h (1:7, 8:10)
+ g = 'g'
+ h = 'h'
+ call foo (g, h)
+end
diff --git a/gdb/testsuite/gdb.gdb/selftest.exp b/gdb/testsuite/gdb.gdb/selftest.exp
index 495ae45..d08d7a4 100644
--- a/gdb/testsuite/gdb.gdb/selftest.exp
+++ b/gdb/testsuite/gdb.gdb/selftest.exp
@@ -95,6 +95,10 @@ proc do_steps_and_nexts {} {
set description "step over ttyarg initialization"
set command "step"
}
+ -re ".*python_script = 0.*$gdb_prompt $" {
+ set description "step over python_script initialization"
+ set command "step"
+ }
-re ".*time_at_startup = get_run_time.*$gdb_prompt $" {
set description "next over get_run_time and everything it calls"
set command "next"
- Archer update to the snapshot: 837d9879980148af05eae540d92caeb7200f1813 - Archer backport: 8340d06295c8db80c544503458305197891e0348 - Fixes [master] regression for Eclipse CDT testsuite. - Archer backport: 16328456d5740917ade0a49bcecc14c4564b9a99 - Fixes #2 [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp. - Rebase [expr] on the Keith Seitz's sync with FSF GDB fixing the former merge.
2009-03-27 08:52:16 +00:00
diff --git a/gdb/testsuite/gdb.mi/mi-break.exp b/gdb/testsuite/gdb.mi/mi-break.exp
index 6ea59fc..0f91af7 100644
--- a/gdb/testsuite/gdb.mi/mi-break.exp
+++ b/gdb/testsuite/gdb.mi/mi-break.exp
@@ -85,11 +85,11 @@ proc test_tbreak_creation_and_listing {} {
mi_create_breakpoint "-t basics.c:callee2" 2 del callee2 ".*basics.c" $line_callee2_body $hex \
"insert temp breakpoint at basics.c:callee2"
- mi_create_breakpoint "-t basics.c:$line_callee3_head" 3 del callee3 ".*basics.c" $line_callee3_body $hex \
+ mi_create_breakpoint "-t basics.c:$line_callee3_head" 3 del callee3 ".*basics.c" $line_callee3_head $hex \
"insert temp breakpoint at basics.c:\$line_callee3_head"
# Getting the quoting right is tricky. That is "\"<file>\":$line_callee4_head"
- mi_create_breakpoint "-t \"\\\"${srcfile}\\\":$line_callee4_head\"" 4 del callee4 ".*basics.c" $line_callee4_body $hex \
+ mi_create_breakpoint "-t \"\\\"${srcfile}\\\":$line_callee4_head\"" 4 del callee4 ".*basics.c" $line_callee4_head $hex \
"insert temp breakpoint at \"<fullfilename>\":\$line_callee4_head"
mi_gdb_test "666-break-list" \
diff --git a/gdb/testsuite/gdb.mi/mi-simplerun.exp b/gdb/testsuite/gdb.mi/mi-simplerun.exp
index 654146a..14a1446 100644
--- a/gdb/testsuite/gdb.mi/mi-simplerun.exp
+++ b/gdb/testsuite/gdb.mi/mi-simplerun.exp
@@ -74,10 +74,10 @@ proc test_breakpoints_creation_and_listing {} {
mi_create_breakpoint "basics.c:callee2" 2 keep callee2 ".*basics.c" $line_callee2_body $hex \
"insert breakpoint at basics.c:callee2"
- mi_create_breakpoint "basics.c:$line_callee3_head" 3 keep callee3 ".*basics.c" $line_callee3_body $hex \
+ mi_create_breakpoint "basics.c:$line_callee3_head" 3 keep callee3 ".*basics.c" $line_callee3_head $hex \
"insert breakpoint at basics.c:\$line_callee3_head"
- mi_create_breakpoint "\"\\\"${srcfile}\\\":$line_callee4_head\"" 4 keep callee4 ".*basics.c" $line_callee4_body $hex \
+ mi_create_breakpoint "\"\\\"${srcfile}\\\":$line_callee4_head\"" 4 keep callee4 ".*basics.c" $line_callee4_head $hex \
"insert breakpoint at \"<fullfilename>\":\$line_callee4_head"
mi_gdb_test "204-break-list" \
diff --git a/gdb/testsuite/gdb.mi/mi2-break.exp b/gdb/testsuite/gdb.mi/mi2-break.exp
index d08081a..7f43315 100644
--- a/gdb/testsuite/gdb.mi/mi2-break.exp
+++ b/gdb/testsuite/gdb.mi/mi2-break.exp
@@ -85,11 +85,11 @@ proc test_tbreak_creation_and_listing {} {
mi_create_breakpoint "-t basics.c:callee2" 2 del callee2 ".*basics.c" $line_callee2_body $hex \
"insert temp breakpoint at basics.c:callee2"
- mi_create_breakpoint "-t basics.c:$line_callee3_head" 3 del callee3 ".*basics.c" $line_callee3_body $hex \
+ mi_create_breakpoint "-t basics.c:$line_callee3_head" 3 del callee3 ".*basics.c" $line_callee3_head $hex \
"insert temp breakpoint at basics.c:\$line_callee3_head"
# Getting the quoting right is tricky. That is "\"<file>\":$line_callee4_head"
- mi_create_breakpoint "-t \"\\\"${srcfile}\\\":$line_callee4_head\"" 4 del callee4 ".*basics.c" $line_callee4_body $hex \
+ mi_create_breakpoint "-t \"\\\"${srcfile}\\\":$line_callee4_head\"" 4 del callee4 ".*basics.c" $line_callee4_head $hex \
"insert temp breakpoint at \"<fullfilename>\":\$line_callee4_head"
mi_gdb_test "666-break-list" \
diff --git a/gdb/testsuite/gdb.mi/mi2-simplerun.exp b/gdb/testsuite/gdb.mi/mi2-simplerun.exp
index eddb2ed..13443ee 100644
--- a/gdb/testsuite/gdb.mi/mi2-simplerun.exp
+++ b/gdb/testsuite/gdb.mi/mi2-simplerun.exp
@@ -74,10 +74,10 @@ proc test_breakpoints_creation_and_listing {} {
mi_create_breakpoint "basics.c:callee2" 2 keep callee2 ".*basics.c" $line_callee2_body $hex \
"insert breakpoint at basics.c:callee2"
- mi_create_breakpoint "basics.c:$line_callee3_head" 3 keep callee3 ".*basics.c" $line_callee3_body $hex \
+ mi_create_breakpoint "basics.c:$line_callee3_head" 3 keep callee3 ".*basics.c" $line_callee3_head $hex \
"insert breakpoint at basics.c:\$line_callee3_head"
- mi_create_breakpoint "\"\\\"${srcfile}\\\":$line_callee4_head\"" 4 keep callee4 ".*basics.c" $line_callee4_body $hex \
+ mi_create_breakpoint "\"\\\"${srcfile}\\\":$line_callee4_head\"" 4 keep callee4 ".*basics.c" $line_callee4_head $hex \
"insert breakpoint at \"<fullfilename>\":\$line_callee4_head"
mi_gdb_test "204-break-list" \
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
diff --git a/gdb/testsuite/gdb.opt/array-from-register-func.c b/gdb/testsuite/gdb.opt/array-from-register-func.c
new file mode 100644
index 0000000..729f457
--- /dev/null
+++ b/gdb/testsuite/gdb.opt/array-from-register-func.c
@@ -0,0 +1,22 @@
+/* This file is part of GDB, the GNU debugger.
+
+ Copyright 2009 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+int
+func (int *arr)
+{
+ return arr[0];
+}
diff --git a/gdb/testsuite/gdb.opt/array-from-register.c b/gdb/testsuite/gdb.opt/array-from-register.c
new file mode 100644
index 0000000..3090e7e
--- /dev/null
+++ b/gdb/testsuite/gdb.opt/array-from-register.c
@@ -0,0 +1,28 @@
+/* This file is part of GDB, the GNU debugger.
+
+ Copyright 2009 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+extern int func (int *arr);
+
+int
+main (void)
+{
+ int arr[] = { 42 };
+
+ func (arr);
+
+ return 0;
+}
diff --git a/gdb/testsuite/gdb.opt/array-from-register.exp b/gdb/testsuite/gdb.opt/array-from-register.exp
new file mode 100644
index 0000000..f2de718
--- /dev/null
+++ b/gdb/testsuite/gdb.opt/array-from-register.exp
@@ -0,0 +1,33 @@
+# Copyright 2009 Free Software Foundation, Inc.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+#
+# This file is part of the gdb testsuite.
+
+if { [prepare_for_testing array-from-register.exp "array-from-register" \
+ {array-from-register.c array-from-register-func.c} \
+ {debug optimize=-O2}] } {
+ return -1
+}
+
+if ![runto func] then {
+ return -1
+}
+
+gdb_test "p arr" "\\$\[0-9\]+ = \\(int \\*\\) *0x\[0-9a-f\]+"
+
+# Seen regression:
+# Address requested for identifier "arr" which is in register $rdi
+gdb_test "p arr\[0\]" "\\$\[0-9\]+ = 42"
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/testsuite/gdb.python/Makefile.in b/gdb/testsuite/gdb.python/Makefile.in
index 79be9e7..c49f713 100644
--- a/gdb/testsuite/gdb.python/Makefile.in
+++ b/gdb/testsuite/gdb.python/Makefile.in
@@ -1,7 +1,7 @@
VPATH = @srcdir@
srcdir = @srcdir@
-EXECUTABLES = python-value
+EXECUTABLES = python-value python-prettyprint python-template
all info install-info dvi install uninstall installcheck check:
@echo "Nothing to be done for $@..."
diff --git a/gdb/testsuite/gdb.python/find.c b/gdb/testsuite/gdb.python/find.c
new file mode 100644
index 0000000..35ddd8c
--- /dev/null
+++ b/gdb/testsuite/gdb.python/find.c
@@ -0,0 +1,64 @@
+/* Testcase for the search_memory Python function.
+ This testcase is part of GDB, the GNU debugger.
+
+ Copyright 2009 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+ Please email any bugs, comments, and/or additions to this file to:
+ bug-gdb@gnu.org */
+
+/* Based on the gdb.base/find.c testcase. */
+
+#include <stdlib.h>
+#include <stdint.h>
+
+#define CHUNK_SIZE 16000 /* same as findcmd.c's */
+#define BUF_SIZE (2 * CHUNK_SIZE) /* at least two chunks */
+
+static int8_t int8_search_buf[100];
+static int16_t int16_search_buf[100];
+static int32_t int32_search_buf[100];
+static int64_t int64_search_buf[100];
+
+static char *search_buf;
+static int search_buf_size;
+
+static int x;
+
+static void
+stop_here ()
+{
+ x = 1; // stop here
+}
+
+static void
+init_bufs ()
+{
+ search_buf_size = BUF_SIZE;
+ search_buf = malloc (search_buf_size);
+ if (search_buf == NULL)
+ exit (1);
+ memset (search_buf, 'x', search_buf_size);
+}
+
+int
+main ()
+{
+ init_bufs ();
+
+ stop_here ();
+
+ return 0;
+}
diff --git a/gdb/testsuite/gdb.python/find.exp b/gdb/testsuite/gdb.python/find.exp
new file mode 100644
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
index 0000000..defc31c
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- /dev/null
+++ b/gdb/testsuite/gdb.python/find.exp
@@ -0,0 +1,203 @@
+# Copyright 2008, 2009 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+# This tests the search_memory Python function.
+# Based on the gdb.base/find.exp testcase.
+
+if $tracelevel then {
+ strace $tracelevel
+}
+
+# Usage: gdb_py_test_multiple NAME INPUT RESULT {INPUT RESULT}...
+# Run a test named NAME, consisting of multiple lines of input.
+# After each input line INPUT, search for result line RESULT.
+# Succeed if all results are seen; fail otherwise.
+proc gdb_py_test_multiple {name args} {
+ global gdb_prompt
+ foreach {input result} $args {
+ if {[gdb_test_multiple $input "$name - $input" {
+ -re "\[\r\n\]*($result)\[\r\n\]+($gdb_prompt | *>)$" {
+ pass "$name - $input"
+ }
+ }]} {
+ return 1
+ }
+ }
+ return 0
+}
+
+set testfile "find"
+set srcfile ${testfile}.c
+set binfile ${objdir}/${subdir}/${testfile}
+
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug nowarnings}] != "" } {
+ untested find.exp
+ return -1
+}
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+gdb_test_multiple "python print 'hello, world!'" "verify python support" {
+ -re "not supported.*$gdb_prompt $" {
+ unsupported "python support is disabled"
+ return -1
+ }
+ -re "$gdb_prompt $" {}
+}
+
+gdb_test "break $srcfile:stop_here" \
+ "Breakpoint.*at.* file .*$srcfile, line.*" \
+ "breakpoint function in file"
+
+gdb_run_cmd
+gdb_expect {
+ -re "Breakpoint \[0-9\]+,.*stop_here.* at .*$srcfile:.*$gdb_prompt $" {
+ pass "run until function breakpoint"
+ }
+ -re "$gdb_prompt $" {
+ fail "run until function breakpoint"
+ }
+ timeout {
+ fail "run until function breakpoint (timeout)"
+ }
+}
+
+# We've now got the target program in a state where we can test "find".
+
+set hex_number {0x[0-9a-fA-F][0-9a-fA-F]*}
+set dec_number {[0-9]+}
+set history_prefix {[$][0-9]* = }
+set newline {[\r\n]+}
+set pattern_not_found "${newline}.]"
+set one_pattern_found "${newline}.${dec_number}L]"
+set two_patterns_found "${newline}.${dec_number}L, ${dec_number}L]"
+
+# Test string pattern.
+
+gdb_test "set *(int32_t*) &int8_search_buf\[10\] = 0x61616161" "" ""
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+gdb_test "py search_buf = gdb.selected_frame ().read_var ('int8_search_buf')" "" ""
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+gdb_test "py start_addr = search_buf.address" "" ""
+gdb_test "py length = search_buf.type.sizeof" "" ""
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+gdb_test "py print gdb.search_memory (start_addr, length, 'aaa')" \
+ "${two_patterns_found}" "find string pattern"
+
+# Test not finding pattern because search range too small, with
+# potential find at the edge of the range.
+
+gdb_test "py print gdb.search_memory (start_addr, 10+3, 'aaaa')" \
+ "${pattern_not_found}" "pattern not found at end of range"
+
+# Increase the search range by 1 and we should find the pattern.
+
+gdb_test "py print gdb.search_memory (start_addr, 10+3+1, \['a', 'a', 'a', 'a'\])" \
+ "${one_pattern_found}" "pattern found at end of range"
+
+# Test max-count with size, with different parameter position
+
+gdb_test "py print gdb.search_memory (start_addr, length, \[0x61, 0x61\], 1, 1)" \
+ "${one_pattern_found}" "size = 1, max_count = 1"
+
+gdb_test "py print gdb.search_memory (start_addr, length, \[0x61, 0x61\], 1, 2)" \
+ "${two_patterns_found}" "size = 1, max_count = 2, normal ordering"
+
+gdb_test "py print gdb.search_memory (start_addr, length, \[0x61, 0x61\], size = 1, max_count = 2)" \
+ "${two_patterns_found}" "size = 1, max_count = 2, normal ordering, with keywords"
+
+gdb_test "py print gdb.search_memory (start_addr, length, \[0x61, 0x61\], max_count = 2, size = 1)" \
+ "${two_patterns_found}" "size = 1, max_count = 2, inverted ordering"
+
+gdb_test "py print gdb.search_memory (start_addr, length, \['a', 'a'\], max_count = 2)" \
+ "${two_patterns_found}" "max_count = 2, with keyword"
+
+# Test 16-bit pattern.
+
+gdb_test "set int16_search_buf\[10\] = 0x1234" "" ""
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+gdb_test "py search_buf = gdb.selected_frame ().read_var ('int16_search_buf')" "" ""
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+gdb_test "py start_addr = search_buf.address" "" ""
+gdb_test "py length = search_buf.type.sizeof" "" ""
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+gdb_test "py pattern = gdb.parse_and_eval ('(int16_t) 0x1234')" "" ""
+
+gdb_test "py print gdb.search_memory (start_addr, length, 0x1234, 2)" \
+ "${one_pattern_found}" "find 16-bit pattern, with python pattern"
+
+gdb_test "py print gdb.search_memory (start_addr, length, pattern)" \
+ "${one_pattern_found}" "find 16-bit pattern, with value pattern"
+
+# Test 32-bit pattern.
+
+gdb_test "set int32_search_buf\[10\] = 0x12345678" "" ""
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+gdb_test "py search_buf = gdb.selected_frame ().read_var ('int32_search_buf')" "" ""
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+gdb_test "py start_addr = search_buf.address" "" ""
+gdb_test "py length = search_buf.type.sizeof" "" ""
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+gdb_test "py pattern = gdb.parse_and_eval ('(int32_t) 0x12345678')" "" ""
+
+gdb_test "py print gdb.search_memory (start_addr, length, 0x12345678, 4)" \
+ "${one_pattern_found}" "find 32-bit pattern, with python pattern"
+gdb_test "py print gdb.search_memory (start_addr, length, pattern)" \
+ "${one_pattern_found}" "find 32-bit pattern, with value pattern"
+
+# Test 64-bit pattern.
+
+gdb_test "set int64_search_buf\[10\] = 0xfedcba9876543210LL" "" ""
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+gdb_test "py search_buf = gdb.selected_frame ().read_var ('int64_search_buf')" "" ""
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+gdb_test "py start_addr = search_buf.address" "" ""
+gdb_test "py length = search_buf.type.sizeof" "" ""
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+gdb_test "py pattern = gdb.parse_and_eval ('(int64_t) 0xfedcba9876543210LL')" "" ""
+
+gdb_test "py print gdb.search_memory (start_addr, length, 0xfedcba9876543210, 8)" \
+ "${one_pattern_found}" "find 64-bit pattern, with python pattern"
+gdb_test "py print gdb.search_memory (start_addr, length, pattern)" \
+ "${one_pattern_found}" "find 64-bit pattern, with value pattern"
+
+# Test mixed-sized patterns.
+
+gdb_test "set *(int8_t*) &search_buf\[10\] = 0x62" "" ""
+gdb_test "set *(int16_t*) &search_buf\[11\] = 0x6363" "" ""
+gdb_test "set *(int32_t*) &search_buf\[13\] = 0x64646464" "" ""
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+gdb_test "py search_buf = gdb.selected_frame ().read_var ('search_buf')" "" ""
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+gdb_test "py start_addr = search_buf\[0\].address" "" ""
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+gdb_test "py pattern1 = gdb.parse_and_eval ('(int8_t) 0x62')" "" ""
+gdb_test "py pattern2 = gdb.parse_and_eval ('(int16_t) 0x6363')" "" ""
+gdb_test "py pattern3 = gdb.parse_and_eval ('(int32_t) 0x64646464')" "" ""
+
+gdb_test "py print gdb.search_memory (start_addr, 100, \[pattern1, pattern2, pattern3\])" \
+ "${one_pattern_found}" "find mixed-sized pattern"
+
+# Test search spanning a large range, in the particular case of native
+# targets, test the search spanning multiple chunks.
+# Remote targets may implement the search differently.
+
+set CHUNK_SIZE 16000 ;
+
+gdb_test "set *(int32_t*) &search_buf\[0*${CHUNK_SIZE}+100\] = 0x12345678" "" ""
+gdb_test "set *(int32_t*) &search_buf\[1*${CHUNK_SIZE}+100\] = 0x12345678" "" ""
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+gdb_test "py start_addr = gdb.selected_frame ().read_var ('search_buf')" "" ""
+gdb_test "py length = gdb.selected_frame ().read_var ('search_buf_size')" "" ""
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+gdb_test "py print gdb.search_memory (start_addr, length, 0x12345678, 4)" \
+ "${two_patterns_found}" "search spanning large range"
+
+# For native targets, test a pattern straddling a chunk boundary.
+
+if [isnative] {
+ gdb_test "set *(int32_t*) &search_buf\[${CHUNK_SIZE}-1\] = 0xfdb97531" "" ""
+
+ gdb_test "py print gdb.search_memory (start_addr, length, 0xfdb97531, 4)" \
+ "${one_pattern_found}" "find pattern straddling chunk boundary"
+}
diff --git a/gdb/testsuite/gdb.python/python-cmd.exp b/gdb/testsuite/gdb.python/python-cmd.exp
index 6c73ff2..f6ef938 100644
--- a/gdb/testsuite/gdb.python/python-cmd.exp
+++ b/gdb/testsuite/gdb.python/python-cmd.exp
@@ -92,6 +92,32 @@ gdb_py_test_multiple "input subcommand" \
gdb_test "prefix_cmd subcmd ugh" "subcmd output, arg = ugh" "call subcmd"
+# Test prefix command using keyword arguments.
+
+gdb_py_test_multiple "input prefix command, keyword arguments" \
+ "python" "" \
+ "class prefix_cmd2 (gdb.Command):" "" \
+ " def __init__ (self):" "" \
+ " super (prefix_cmd2, self).__init__ (\"prefix_cmd2\", gdb.COMMAND_OBSCURE, prefix = True, completer_class = gdb.COMPLETE_FILENAME)" "" \
+ " def invoke (self, arg, from_tty):" "" \
+ " print \"prefix_cmd2 output, arg = %s\" % arg" "" \
+ "prefix_cmd2 ()" "" \
+ "end" ""
+
+gdb_test "prefix_cmd2 argh" "prefix_cmd2 output, arg = argh" "call prefix command, keyword arguments"
+
+gdb_py_test_multiple "input subcommand under prefix_cmd2" \
+ "python" "" \
+ "class subcmd (gdb.Command):" "" \
+ " def __init__ (self):" "" \
+ " super (subcmd, self).__init__ (\"prefix_cmd2 subcmd\", gdb.COMMAND_OBSCURE)" "" \
+ " def invoke (self, arg, from_tty):" "" \
+ " print \"subcmd output, arg = %s\" % arg" "" \
+ "subcmd ()" "" \
+ "end" ""
+
+gdb_test "prefix_cmd2 subcmd ugh" "subcmd output, arg = ugh" "call subcmd under prefix_cmd2"
+
# Test a subcommand in an existing GDB prefix.
gdb_py_test_multiple "input new subcommand" \
diff --git a/gdb/testsuite/gdb.python/python-frame.c b/gdb/testsuite/gdb.python/python-frame.c
new file mode 100644
index 0000000..22eb9f2
--- /dev/null
+++ b/gdb/testsuite/gdb.python/python-frame.c
@@ -0,0 +1,14 @@
+int f2 (int a)
+{
+ return ++a;
+}
+
+int f1 (int a, int b)
+{
+ return f2(a) + b;
+}
+
+int main (int argc, char *argv[])
+{
+ return f1 (1, 2);
+}
diff --git a/gdb/testsuite/gdb.python/python-frame.exp b/gdb/testsuite/gdb.python/python-frame.exp
new file mode 100644
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
index 0000000..674c25e
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- /dev/null
+++ b/gdb/testsuite/gdb.python/python-frame.exp
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -0,0 +1,92 @@
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+# Copyright (C) 2009 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+# This file is part of the GDB testsuite. It tests the mechanism
+# exposing values to Python.
+
+if $tracelevel then {
+ strace $tracelevel
+}
+
+set testfile "python-frame"
+set srcfile ${testfile}.c
+set binfile ${objdir}/${subdir}/${testfile}
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
+ untested "Couldn't compile ${srcfile}"
+ return -1
+}
+
+# Run a command in GDB, and report a failure if a Python exception is thrown.
+# If report_pass is true, report a pass if no exception is thrown.
+proc gdb_py_test_silent_cmd {cmd name report_pass} {
+ global gdb_prompt
+
+ gdb_test_multiple $cmd $name {
+ -re "Traceback.*$gdb_prompt $" { fail $name }
+ -re "$gdb_prompt $" { if $report_pass { pass $name } }
+ }
+}
+
+# Start with a fresh gdb.
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+gdb_test_multiple "python print 'hello, world!'" "verify python support" {
+ -re "not supported.*$gdb_prompt $" {
+ unsupported "python support is disabled"
+ return -1
+ }
+ -re "$gdb_prompt $" {}
+}
+
+# The following tests require execution.
+
+if ![runto_main] then {
+ fail "Can't run to main"
+ return 0
+}
+
+gdb_breakpoint "f2"
+gdb_continue_to_breakpoint "breakpoint at f2"
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+gdb_test "up" "" ""
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+gdb_py_test_silent_cmd "python frames = gdb.frames ()" "get frames list" 1
+gdb_test "python print frames" "\\(<gdb.Frame object at 0x\[\[:xdigit:\]\]+>, <gdb.Frame object at 0x\[\[:xdigit:\]\]+>, <gdb.Frame object at 0x\[\[:xdigit:\]\]+>\\)" "verify frames list"
+gdb_py_test_silent_cmd "python f0 = frames\[0\]" "get first frame" 0
+gdb_py_test_silent_cmd "python f1 = frames\[1\]" "get second frame" 0
+
+gdb_test "python print 'result =', f0.equals (f1)" " = False" "test equals (false)"
+gdb_test "python print 'result =', f0.equals (f0)" " = True" "test equals (true)"
+gdb_test "python print 'result =', f0.is_valid ()" " = True" "test Frame.is_valid"
+gdb_test "python print 'result =', f0.name ()" " = f2" "test Frame.name"
+gdb_test "python print 'result =', f0.type () == gdb.NORMAL_FRAME" " = True" "test Frame.type"
+gdb_test "python print 'result =', f0.unwind_stop_reason () == gdb.FRAME_UNWIND_NO_REASON" " = True" "test Frame.type"
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+gdb_test "python print 'result =', gdb.frame_stop_reason_string (gdb.FRAME_UNWIND_INNER_ID)" " = previous frame inner to this frame \\(corrupt stack\\?\\)" "test gdb.frame_stop_reason_string"
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+gdb_test "python print 'result =', f0.pc ()" " = \[0-9\]+" "test Frame.pc"
+gdb_test "python print 'result =', f0.addr_in_block ()" " = \[0-9\]+" "test Frame.addr_in_block"
+gdb_test "python print 'result =', f0.older ().equals (f1)" " = True" "test Frame.older"
+gdb_test "python print 'result =', f1.newer ().equals (f0)" " = True" "test Frame.newer"
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+gdb_test "python print 'result =', f0.read_var ('variable_which_surely_doesnt_exist')" \
+ "ValueError: variable 'variable_which_surely_doesnt_exist' not found.*Error while executing Python code." \
+ "test Frame.read_var - error"
+gdb_test "python print 'result =', f0.read_var ('a')" " = 1" "test Frame.read_var - success"
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
+
+gdb_test "python print 'result =', gdb.newest_frame ().equals (f0)" " = True" "test gdb.newest_frame"
+gdb_test "python print 'result =', gdb.selected_frame ().equals (f1)" " = True" "test gdb.selected_frame"
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+gdb_test "python print 'result =', f0.block ()" "<gdb.Block object at 0x\[\[:xdigit:\]\]+>" "test Frame.block"
diff --git a/gdb/testsuite/gdb.python/python-function.exp b/gdb/testsuite/gdb.python/python-function.exp
new file mode 100644
index 0000000..7feca2b
--- /dev/null
+++ b/gdb/testsuite/gdb.python/python-function.exp
@@ -0,0 +1,79 @@
+# Copyright (C) 2009 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+# This file is part of the GDB testsuite. It tests the mechanism
+# exposing convenience functions to Python.
+
+if $tracelevel then {
+ strace $tracelevel
+}
+
+# Usage: gdb_py_test_multiple NAME INPUT RESULT {INPUT RESULT}...
+# Run a test named NAME, consisting of multiple lines of input.
+# After each input line INPUT, search for result line RESULT.
+# Succeed if all results are seen; fail otherwise.
+proc gdb_py_test_multiple {name args} {
+ global gdb_prompt
+ foreach {input result} $args {
+ if {[gdb_test_multiple $input "$name - $input" {
+ -re "\[\r\n\]*($result)\[\r\n\]+($gdb_prompt | *>)$" {
+ pass "$name - $input"
+ }
+ }]} {
+ return 1
+ }
+ }
+ return 0
+}
+
+# Start with a fresh gdb.
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+
+gdb_test_multiple "python print 'hello, world!'" "verify python support" {
+ -re "not supported.*$gdb_prompt $" {
+ unsupported "python support is disabled"
+ return -1
+ }
+ -re "$gdb_prompt $" {}
+}
+
+gdb_py_test_multiple "input convenience function" \
+ "python" "" \
+ "class test_func (gdb.Function):" "" \
+ " def __init__ (self):" "" \
+ " super (test_func, self).__init__ (\"test_func\")" "" \
+ " def invoke (self, arg):" "" \
+ " return \"test_func output, arg = %s\" % arg.string ()" "" \
+ "test_func ()" "" \
+ "end" ""
+
+gdb_test "print \$test_func (\"ugh\")" "= \"test_func output, arg = ugh\"" "call function"
+
+# Test returning a gdb.Value from the function. This segfaulted GDB at one point.
+
+gdb_py_test_multiple "input value-returning convenience function" \
+ "python" "" \
+ "class Double (gdb.Function):" "" \
+ " def __init__ (self):" "" \
+ " super (Double, self).__init__ (\"double\")" "" \
+ " def invoke (self, n):" "" \
+ " return n*2" "" \
+ "Double ()" "" \
+ "end" ""
+
+gdb_test "print \$double (1)" "= 2" "call value-returning function"
diff --git a/gdb/testsuite/gdb.python/python-mi.exp b/gdb/testsuite/gdb.python/python-mi.exp
new file mode 100644
index 0000000..5c9f3c7
--- /dev/null
+++ b/gdb/testsuite/gdb.python/python-mi.exp
@@ -0,0 +1,124 @@
+# Copyright (C) 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+# This file is part of the GDB testsuite. It tests Python-based
+# pretty-printing for MI.
+
+load_lib mi-support.exp
+set MIFLAGS "-i=mi2"
+
+gdb_exit
+if [mi_gdb_start] {
+ continue
+}
+
+set testfile "python-prettyprint"
+set srcfile ${testfile}.c
+set binfile ${objdir}/${subdir}/${testfile}
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DMI}] != "" } {
+ untested mi2-var-child.exp
+ return -1
+}
+
+mi_delete_breakpoints
+mi_gdb_reinitialize_dir $srcdir/$subdir
+mi_gdb_load ${binfile}
+
+if {[lsearch -exact [mi_get_features] python] < 0} {
+ unsupported "python support is disabled"
+ return -1
+}
+
+mi_runto main
+
+mi_gdb_test "python execfile ('${srcdir}/${subdir}/${testfile}.py')" ""
+
+mi_continue_to_line [gdb_get_line_number {MI breakpoint here} ${testfile}.c] \
+ "step to breakpoint"
+
+mi_create_floating_varobj container c "create container varobj"
+
+mi_list_varobj_children container {
+} "examine container children=0"
+
+mi_next "next over update 1"
+
+mi_varobj_update_dynamic container {
+ { {container.\[0\]} {\[0\]} 0 int }
+} "varobj update 1"
+
+mi_next "next over update 2"
+
+mi_varobj_update_dynamic container {
+ { {container.\[0\]} {\[0\]} 0 int }
+ { {container.\[1\]} {\[1\]} 0 int }
+} "varobj update 2"
+
+mi_gdb_test "-var-set-visualizer container None" \
+ "\\^done" \
+ "clear visualizer"
+
+mi_gdb_test "-var-update container" \
+ "\\^done,changelist=\\\[\\\]" \
+ "varobj update after clearing"
+
+mi_gdb_test "-var-set-visualizer container gdb.default_visualizer" \
+ "\\^done" \
+ "choose default visualizer"
+
+mi_varobj_update_dynamic container {
+ { {container.\[0\]} {\[0\]} 0 int }
+ { {container.\[1\]} {\[1\]} 0 int }
+} "varobj update after choosing default"
+
+mi_gdb_test "-var-set-visualizer container ContainerPrinter" \
+ "\\^done" \
+ "choose visualizer using expression"
+
+mi_varobj_update_dynamic container {
+ { {container.\[0\]} {\[0\]} 0 int }
+ { {container.\[1\]} {\[1\]} 0 int }
+} "varobj update after choosing via expression"
+
+mi_gdb_test "-var-set-child-range container 1 2" \
+ "\\^done" \
+ "select child range"
+
+mi_gdb_test "-var-update container" \
+ "\\^done,changelist=\\\[\\\]" \
+ "varobj update after selecting child range"
+
+mi_list_varobj_children_range container 2 {
+ { {container.\[1\]} {\[1\]} 0 int }
+} "list varobj children after selecting child range"
+
+mi_gdb_test "-var-set-child-range container -1 -1" \
+ "\\^done" \
+ "reset child range"
+
+mi_gdb_test "-var-update container" \
+ "\\^done,changelist=\\\[\\\]" \
+ "varobj update after resetting child range"
+
+mi_list_varobj_children container {
+ { {container.\[0\]} {\[0\]} 0 int }
+ { {container.\[1\]} {\[1\]} 0 int }
+} "list varobj children after resetting child range"
+
+mi_continue_to_line \
+ [gdb_get_line_number {Another MI breakpoint} ${testfile}.c] \
+ "step to second breakpoint"
+
+mi_varobj_update_with_type_change container int 0 "update after type change"
diff --git a/gdb/testsuite/gdb.python/python-prettyprint.c b/gdb/testsuite/gdb.python/python-prettyprint.c
new file mode 100644
- Archer update to the snapshot: f6273d446ff87e50976600ba3f71b88d61043e20 - Archer backport: f6273d446ff87e50976600ba3f71b88d61043e20 - Use pretty-printers to print base classes inside a derived class.
2009-04-05 20:34:21 +00:00
index 0000000..399be23
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- /dev/null
+++ b/gdb/testsuite/gdb.python/python-prettyprint.c
- Archer update to the snapshot: f6273d446ff87e50976600ba3f71b88d61043e20 - Archer backport: f6273d446ff87e50976600ba3f71b88d61043e20 - Use pretty-printers to print base classes inside a derived class.
2009-04-05 20:34:21 +00:00
@@ -0,0 +1,191 @@
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+/* This testcase is part of GDB, the GNU debugger.
+
- Archer update to the snapshot: f6273d446ff87e50976600ba3f71b88d61043e20 - Archer backport: f6273d446ff87e50976600ba3f71b88d61043e20 - Use pretty-printers to print base classes inside a derived class.
2009-04-05 20:34:21 +00:00
+ Copyright 2008, 2009 Free Software Foundation, Inc.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+struct s
+{
+ int a;
+ int *b;
+};
+
+struct ss
+{
+ struct s a;
+ struct s b;
+};
+
+#ifdef __cplusplus
+struct S : public s {
+ int zs;
+};
+
+struct SS {
+ int zss;
+ S s;
+};
+
+struct SSS
+{
+ SSS (int x, const S& r);
+ int a;
+ const S &b;
+};
+SSS::SSS (int x, const S& r) : a(x), b(r) { }
- Archer update to the snapshot: f6273d446ff87e50976600ba3f71b88d61043e20 - Archer backport: f6273d446ff87e50976600ba3f71b88d61043e20 - Use pretty-printers to print base classes inside a derived class.
2009-04-05 20:34:21 +00:00
+
+class VirtualTest
+{
+ private:
+ int value;
+
+ public:
+ VirtualTest ()
+ {
+ value = 1;
+ }
+};
+
+class Vbase1 : public virtual VirtualTest { };
+class Vbase2 : public virtual VirtualTest { };
+class Vbase3 : public virtual VirtualTest { };
+
+class Derived : public Vbase1, public Vbase2, public Vbase3
+{
+ private:
+ int value;
+
+ public:
+ Derived ()
+ {
+ value = 2;
+ }
+};
+
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+#endif
+
+typedef struct string_repr
+{
+ struct whybother
+ {
+ const char *contents;
+ } whybother;
+} string;
+
+/* This lets us avoid malloc. */
+int array[100];
+
+struct container
+{
+ string name;
+ int len;
+ int *elements;
+};
+
+typedef struct container zzz_type;
+
+string
+make_string (const char *s)
+{
+ string result;
+ result.whybother.contents = s;
+ return result;
+}
+
+zzz_type
+make_container (const char *s)
+{
+ zzz_type result;
+
+ result.name = make_string (s);
+ result.len = 0;
+ result.elements = 0;
+
+ return result;
+}
+
+void
+add_item (zzz_type *c, int val)
+{
+ if (c->len == 0)
+ c->elements = array;
+ c->elements[c->len] = val;
+ ++c->len;
+}
+
+void init_s(struct s *s, int a)
+{
+ s->a = a;
+ s->b = &s->a;
+}
+
+void init_ss(struct ss *s, int a, int b)
+{
+ init_s(&s->a, a);
+ init_s(&s->b, b);
+}
+
+void do_nothing(void)
+{
+ int c;
+
+ c = 23; /* Another MI breakpoint */
+}
+
+int
+main ()
+{
+ struct ss ss;
+ struct ss ssa[2];
+ string x = make_string ("this is x");
+ zzz_type c = make_container ("container");
+ const struct string_repr cstring = { { "const string" } };
+
+ init_ss(&ss, 1, 2);
+ init_ss(ssa+0, 3, 4);
+ init_ss(ssa+1, 5, 6);
+
+#ifdef __cplusplus
+ S cps;
+
+ cps.zs = 7;
+ init_s(&cps, 8);
+
+ SS cpss;
+ cpss.zss = 9;
+ init_s(&cpss.s, 10);
+
+ SS cpssa[2];
+ cpssa[0].zss = 11;
+ init_s(&cpssa[0].s, 12);
+ cpssa[1].zss = 13;
+ init_s(&cpssa[1].s, 14);
+
+ SSS sss(15, cps);
+
+ SSS& ref (sss);
- Archer update to the snapshot: f6273d446ff87e50976600ba3f71b88d61043e20 - Archer backport: f6273d446ff87e50976600ba3f71b88d61043e20 - Use pretty-printers to print base classes inside a derived class.
2009-04-05 20:34:21 +00:00
+
+ Derived derived;
+
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+#endif
+
+ add_item (&c, 23); /* MI breakpoint here */
+ add_item (&c, 72);
+
+#ifdef MI
+ do_nothing ();
+#endif
+
+ return 0; /* break to inspect struct and union */
+}
diff --git a/gdb/testsuite/gdb.python/python-prettyprint.exp b/gdb/testsuite/gdb.python/python-prettyprint.exp
new file mode 100644
- Archer update to the snapshot: f6273d446ff87e50976600ba3f71b88d61043e20 - Archer backport: f6273d446ff87e50976600ba3f71b88d61043e20 - Use pretty-printers to print base classes inside a derived class.
2009-04-05 20:34:21 +00:00
index 0000000..f83b1cd
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- /dev/null
+++ b/gdb/testsuite/gdb.python/python-prettyprint.exp
- Archer update to the snapshot: f6273d446ff87e50976600ba3f71b88d61043e20 - Archer backport: f6273d446ff87e50976600ba3f71b88d61043e20 - Use pretty-printers to print base classes inside a derived class.
2009-04-05 20:34:21 +00:00
@@ -0,0 +1,92 @@
+# Copyright (C) 2008, 2009 Free Software Foundation, Inc.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+# This file is part of the GDB testsuite. It tests Python-based
+# pretty-printing for the CLI.
+
+if $tracelevel then {
+ strace $tracelevel
+}
+
+set testfile "python-prettyprint"
+set srcfile ${testfile}.c
+set binfile ${objdir}/${subdir}/${testfile}
+
+# Start with a fresh gdb.
+gdb_exit
+gdb_start
+gdb_test_multiple "python print 'hello, world!'" "verify python support" {
+ -re "not supported.*$gdb_prompt $" {
+ unsupported "python support is disabled"
+ return -1
+ }
+ -re "$gdb_prompt $" {}
+}
+
+proc run_lang_tests {lang} {
+ global srcdir subdir srcfile binfile testfile hex
+ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable "debug $lang"] != "" } {
+ untested "Couldn't compile ${srcfile} in $lang mode"
+ return -1
+ }
+
+ set nl "\[\r\n\]+"
+
+ # Start with a fresh gdb.
+ gdb_exit
+ gdb_start
+ gdb_reinitialize_dir $srcdir/$subdir
+ gdb_load ${binfile}
+
+
+ if ![runto_main ] then {
+ perror "couldn't run to breakpoint"
+ return
+ }
+
+ gdb_test "set print pretty on" ""
+
+ gdb_test "b [gdb_get_line_number {break to inspect} ${testfile}.c ]" \
+ ".*Breakpoint.*"
+ gdb_test "continue" ".*Breakpoint.*"
+
+ gdb_test "python execfile ('${srcdir}/${subdir}/${testfile}.py')" ""
+
+ gdb_test "print ss" " = a=< a=<1> b=<$hex>> b=< a=<2> b=<$hex>>"
+ gdb_test "print ssa\[1\]" " = a=< a=<5> b=<$hex>> b=< a=<6> b=<$hex>>"
+ gdb_test "print ssa" " = {a=< a=<3> b=<$hex>> b=< a=<4> b=<$hex>>, a=< a=<5> b=<$hex>> b=< a=<6> b=<$hex>>}"
+
+ if {$lang == "c++"} {
+ gdb_test "print cps" "= a=<8> b=<$hex>"
+ gdb_test "print cpss" " = {$nl *zss = 9, *$nl *s = a=<10> b=<$hex>$nl}"
+ gdb_test "print cpssa\[0\]" " = {$nl *zss = 11, *$nl *s = a=<12> b=<$hex>$nl}"
+ gdb_test "print cpssa\[1\]" " = {$nl *zss = 13, *$nl *s = a=<14> b=<$hex>$nl}"
+ gdb_test "print cpssa" " = {{$nl *zss = 11, *$nl *s = a=<12> b=<$hex>$nl *}, {$nl *zss = 13, *$nl *s = a=<14> b=<$hex>$nl *}}"
+ gdb_test "print sss" "= a=<15> b=< a=<8> b=<$hex>>"
+ gdb_test "print ref" "= a=<15> b=< a=<8> b=<$hex>>"
- Archer update to the snapshot: f6273d446ff87e50976600ba3f71b88d61043e20 - Archer backport: f6273d446ff87e50976600ba3f71b88d61043e20 - Use pretty-printers to print base classes inside a derived class.
2009-04-05 20:34:21 +00:00
+ gdb_test "print derived" \
+ " = \{.*<Vbase1> = pp class name: Vbase1.*<Vbase2> = \{.*<VirtualTest> = pp value variable is: 1,.*members of Vbase2:.*_vptr.Vbase2 = $hex.*<Vbase3> = \{.*members of Vbase3.*members of Derived:.*value = 2.*"
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ }
+
+ gdb_test "print x" " = $hex \"this is x\""
+ gdb_test "print cstring" " = $hex \"const string\""
+
+ gdb_test "print c" " = container $hex \"container\" with 2 elements = {$nl *.0. = 23,$nl *.1. = 72$nl}"
+
+ gdb_test "continue" "Program exited normally\."
+}
+
+run_lang_tests "c"
+run_lang_tests "c++"
diff --git a/gdb/testsuite/gdb.python/python-prettyprint.py b/gdb/testsuite/gdb.python/python-prettyprint.py
new file mode 100644
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
index 0000000..a53e412
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- /dev/null
+++ b/gdb/testsuite/gdb.python/python-prettyprint.py
- Archer update to the snapshot: f6273d446ff87e50976600ba3f71b88d61043e20 - Archer backport: f6273d446ff87e50976600ba3f71b88d61043e20 - Use pretty-printers to print base classes inside a derived class.
2009-04-05 20:34:21 +00:00
@@ -0,0 +1,151 @@
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+# Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+# This file is part of the GDB testsuite. It tests python pretty
+# printers.
+
+import re
+
+# Test returning a Value from a printer.
+class string_print:
+ def __init__(self, val):
+ self.val = val
+
+ def to_string(self):
+ return self.val['whybother']['contents']
+
+# Test a class-based printer.
+class ContainerPrinter:
+ class _iterator:
+ def __init__ (self, pointer, len):
+ self.start = pointer
+ self.pointer = pointer
+ self.end = pointer + len
+
+ def __iter__(self):
+ return self
+
+ def next(self):
+ if self.pointer == self.end:
+ raise StopIteration
+ result = self.pointer
+ self.pointer = self.pointer + 1
+ return ('[%d]' % int (result - self.start), result.dereference())
+
+ def __init__(self, val):
+ self.val = val
+
+ def to_string(self):
+ return 'container %s with %d elements' % (self.val['name'], self.val['len'])
+
+ def children(self):
+ return self._iterator(self.val['elements'], self.val['len'])
+
+class pp_s:
+ def __init__(self, val):
+ self.val = val
+
+ def to_string(self):
+ a = self.val["a"]
+ b = self.val["b"]
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ if a.address != b:
+ raise Exception("&a(%s) != b(%s)" % (str(a.address), str(b)))
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ return " a=<" + str(self.val["a"]) + "> b=<" + str(self.val["b"]) + ">"
+
+class pp_ss:
+ def __init__(self, val):
+ self.val = val
+
+ def to_string(self):
+ return "a=<" + str(self.val["a"]) + "> b=<" + str(self.val["b"]) + ">"
+
+class pp_sss:
+ def __init__(self, val):
+ self.val = val
+
+ def to_string(self):
+ return "a=<" + str(self.val['a']) + "> b=<" + str(self.val["b"]) + ">"
+
- Archer update to the snapshot: f6273d446ff87e50976600ba3f71b88d61043e20 - Archer backport: f6273d446ff87e50976600ba3f71b88d61043e20 - Use pretty-printers to print base classes inside a derived class.
2009-04-05 20:34:21 +00:00
+class pp_multiple_virtual:
+ def __init__ (self, val):
+ self.val = val
+
+ def to_string (self):
+ return "pp value variable is: " + str (self.val['value'])
+
+class pp_vbase1:
+ def __init__ (self, val):
+ self.val = val
+
+ def to_string (self):
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ return "pp class name: " + self.val.type.tag
- Archer update to the snapshot: f6273d446ff87e50976600ba3f71b88d61043e20 - Archer backport: f6273d446ff87e50976600ba3f71b88d61043e20 - Use pretty-printers to print base classes inside a derived class.
2009-04-05 20:34:21 +00:00
+
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+def lookup_function (val):
+ "Look-up and return a pretty-printer that can print val."
+
+ # Get the type.
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ type = val.type
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+ # If it points to a reference, get the reference.
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ if type.code == gdb.TYPE_CODE_REF:
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ type = type.target ()
+
+ # Get the unqualified type, stripped of typedefs.
+ type = type.unqualified ().strip_typedefs ()
+
+ # Get the type name.
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ typename = type.tag
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+ if typename == None:
+ return None
+
+ # Iterate over local dictionary of types to determine
+ # if a printer is registered for that type. Return an
+ # instantiation of the printer if found.
+ for function in pretty_printers_dict:
+ if function.match (typename):
+ return pretty_printers_dict[function] (val)
+
+ # Cannot find a pretty printer. Return None.
+
+ return None
+
+
+def register_pretty_printers ():
+ pretty_printers_dict[re.compile ('^struct s$')] = pp_s
+ pretty_printers_dict[re.compile ('^s$')] = pp_s
+ pretty_printers_dict[re.compile ('^S$')] = pp_s
+
+ pretty_printers_dict[re.compile ('^struct ss$')] = pp_ss
+ pretty_printers_dict[re.compile ('^ss$')] = pp_ss
+ pretty_printers_dict[re.compile ('^const S &$')] = pp_s
+ pretty_printers_dict[re.compile ('^SSS$')] = pp_sss
+
- Archer update to the snapshot: f6273d446ff87e50976600ba3f71b88d61043e20 - Archer backport: f6273d446ff87e50976600ba3f71b88d61043e20 - Use pretty-printers to print base classes inside a derived class.
2009-04-05 20:34:21 +00:00
+ pretty_printers_dict[re.compile ('^VirtualTest$')] = pp_multiple_virtual
+ pretty_printers_dict[re.compile ('^Vbase1$')] = pp_vbase1
+
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ # Note that we purposely omit the typedef names here.
+ # Printer lookup is based on canonical name.
+ # However, we do need both tagged and untagged variants, to handle
+ # both the C and C++ cases.
+ pretty_printers_dict[re.compile ('^struct string_repr$')] = string_print
+ pretty_printers_dict[re.compile ('^struct container$')] = ContainerPrinter
+ pretty_printers_dict[re.compile ('^string_repr$')] = string_print
+ pretty_printers_dict[re.compile ('^container$')] = ContainerPrinter
+
+pretty_printers_dict = {}
+
+register_pretty_printers ()
+gdb.pretty_printers.append (lookup_function)
diff --git a/gdb/testsuite/gdb.python/python-template.cc b/gdb/testsuite/gdb.python/python-template.cc
new file mode 100644
index 0000000..bd6a212
--- /dev/null
+++ b/gdb/testsuite/gdb.python/python-template.cc
@@ -0,0 +1,30 @@
+/* This testcase is part of GDB, the GNU debugger.
+
+ Copyright 2008 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+template <typename T>
+struct Foo {
+};
+
+#ifndef TYPE
+#define TYPE int
+#endif
+
+int main()
+{
+ Foo<TYPE> foo;
+ return 0; // break here
+}
diff --git a/gdb/testsuite/gdb.python/python-template.exp b/gdb/testsuite/gdb.python/python-template.exp
new file mode 100644
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
index 0000000..1ace5d6
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- /dev/null
+++ b/gdb/testsuite/gdb.python/python-template.exp
@@ -0,0 +1,75 @@
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+# Copyright (C) 2008, 2009 Free Software Foundation, Inc.
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+# This file is part of the GDB testsuite. It tests the mechanism
+# exposing values to Python.
+
+if $tracelevel then {
+ strace $tracelevel
+}
+
+set testfile "python-template"
+set srcfile ${testfile}.cc
+set binfile ${objdir}/${subdir}/${testfile}
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable \
+ {debug c++}] != "" } {
+ untested "Couldn't compile ${srcfile}"
+ return -1
+}
+
+# Start with a fresh gdb.
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+
+gdb_test_multiple "python print 23" "verify python support" {
+ -re "not supported.*$gdb_prompt $" {
+ unsupported "python support is disabled"
+ return -1
+ }
+ -re "$gdb_prompt $" {}
+}
+
+proc test_template_arg {type} {
+ global testfile srcdir subdir srcfile binfile
+ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" \
+ executable \
+ [list debug c++ additional_flags="-DTYPE=$type"]] != "" } {
+ untested $type
+ return -1
+ }
+ gdb_load ${binfile}
+ if ![runto_main ] then {
+ perror "couldn't run to breakpoint"
+ return
+ }
+ # There is no executable code in main(), so we are where we want to be
+ gdb_test "print foo" ""
+ gdb_test "python foo = gdb.history(0)" ""
+
+ # Replace '*' with '\*' in regex.
+ regsub -all {\*} $type {\*} t
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ gdb_test "python print foo.type.template_argument(0)" $t $type
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+}
+
+test_template_arg "const int"
+test_template_arg "volatile int"
+test_template_arg "const int &"
+test_template_arg "volatile int &"
+test_template_arg "volatile int * const"
+test_template_arg "volatile int * const *"
+test_template_arg "const int * volatile"
+test_template_arg "const int * volatile * const * volatile *"
diff --git a/gdb/testsuite/gdb.python/python-value.c b/gdb/testsuite/gdb.python/python-value.c
index 17e5c62..9637fe9 100644
--- a/gdb/testsuite/gdb.python/python-value.c
+++ b/gdb/testsuite/gdb.python/python-value.c
@@ -33,13 +33,17 @@ enum e
TWO = 2
};
+typedef struct s *PTR;
+
enum e evalue = TWO;
int
main (int argc, char *argv[])
{
+ char *cp = argv[0]; /* Prevent gcc from optimizing argv[] out. */
struct s s;
union u u;
+ PTR x = &s;
s.a = 3;
s.b = 5;
diff --git a/gdb/testsuite/gdb.python/python-value.exp b/gdb/testsuite/gdb.python/python-value.exp
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
index 8f5e0ab..c1a051c 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/testsuite/gdb.python/python-value.exp
+++ b/gdb/testsuite/gdb.python/python-value.exp
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -70,6 +70,9 @@ proc test_value_creation {} {
gdb_py_test_silent_cmd "python a = gdb.Value (u'unicode test')" "create unicode value" 1
gdb_test "python print a" "\"unicode test\"" "print Unicode string"
gdb_test "python print a.__class__" "<type 'gdb.Value'>" "verify type of unicode string"
+
+ # Test address attribute is None in a non-addressable value
+ gdb_test "python print 'result =', i.address" "= None" "Test address attribute in non-addressable value"
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
proc test_value_numeric_ops {} {
@@ -225,6 +228,43 @@ proc test_value_in_inferior {} {
# Check that the dereferenced value is sane
gdb_test "python print arg0" "0x.*$testfile\"" "verify dereferenced value"
+
+ # Smoke-test is_optimized_out attribute
+ gdb_test "python print 'result =', arg0.is_optimized_out" "= False" "Test is_optimized_out attribute"
+
+ # Test address attribute
+ gdb_test "python print 'result =', arg0.address" "= 0x\[\[:xdigit:\]\]+" "Test address attribute"
+}
+
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+proc test_value_after_death {} {
+ # Construct a type while the inferior is still running.
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ gdb_py_test_silent_cmd "python ptrtype = gdb.lookup_type('PTR')" \
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ "create PTR type" 1
+
+ # Check the type has the expected name.
+ gdb_test "python print ptrtype" "PTR" \
+ "check initial PTR type"
+
+ # Kill the inferior and remove the symbols.
+ gdb_test "kill" "" "kill the inferior" \
+ "Kill the program being debugged. .y or n. $" \
+ "y"
+ gdb_test "file" "" "Discard the symbols" \
+ "Discard symbol table from.*y or n. $" \
+ "y"
+
+ # Now create a value using that type. Relies on arg0, created by
+ # test_value_in_inferior.
+ gdb_py_test_silent_cmd "python castval = arg0.cast(ptrtype.pointer())" \
+ "cast arg0 to PTR" 1
+
+ # Make sure the type is deleted.
+ gdb_py_test_silent_cmd "python ptrtype = None" \
+ "delete PTR type" 1
+
+ # Now see if the value's type is still valid.
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
+ gdb_test "python print castval.type" "PTR \\*" \
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ "print value's type"
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
}
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
- Archer update to the snapshot: 7c250ce99c90cf6097e2ec55ea0f205830979cee - Archer backport: c14d9ab7eef43281b2052c885f89d2db96fb5f8e - Revert a change regressing: gdb.objc/basicclass.exp - Archer backport: ebd649b96e61a1fb481801b65d827bca998c6633 1f080e897996d60ab7fde20423e2947512115667 1948198702b51b31d79793fc49434b529b4e245f e107fb9687bb1e7f74170aa3d19c4a8f6edbb10f 1e012c996e121cb35053d239a46bd5dc65b0ce60 - Update the Python API from upstream. - Archer backport: d3c83ad5ec9f7672b87af9ad29279f459e53da11 - Fix a Python branch crash.
2009-04-13 20:52:59 +00:00
@@ -256,3 +296,4 @@ if ![runto_main] then {
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
test_value_in_inferior
+test_value_after_death
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
diff --git a/gdb/testsuite/lib/cp-support.exp b/gdb/testsuite/lib/cp-support.exp
index dbd2f59..44e1b51 100644
--- a/gdb/testsuite/lib/cp-support.exp
+++ b/gdb/testsuite/lib/cp-support.exp
@@ -222,7 +222,7 @@ proc cp_test_ptype_class { in_command in_testname in_key in_tag in_class_table {
set parse_okay 0
gdb_test_multiple "$in_command" "$in_testname // parse failed" {
- -re "type = (struct|class)${wsopt}(\[A-Za-z0-9_\]*)${wsopt}((:\[^\{\]*)?)${wsopt}\{(.*)\}${wsopt}(\[^\r\n\]*)\[\r\n\]+$gdb_prompt $" {
+ -re "type = (struct|class)${wsopt}(\[A-Za-z0-9_:\]*)${wsopt}((:\[^\{\]*)?)${wsopt}\{(.*)\}${wsopt}(\[^\r\n\]*)\[\r\n\]+$gdb_prompt $" {
set parse_okay 1
set actual_key $expect_out(1,string)
set actual_tag $expect_out(2,string)
@@ -231,6 +231,7 @@ proc cp_test_ptype_class { in_command in_testname in_key in_tag in_class_table {
set actual_tail $expect_out(6,string)
}
}
+
if { ! $parse_okay } then { return }
# Check the actual key. It would be nice to require that it match
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 820ab20..8b8e7c6 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -1162,9 +1162,12 @@ proc default_gdb_start { } {
global gdb_prompt
global timeout
global gdb_spawn_id;
+ global env
gdb_stop_suppressing_tests;
+ set env(LC_CTYPE) C
+
verbose "Spawning $GDB $INTERNAL_GDBFLAGS $GDBFLAGS"
if [info exists gdb_spawn_id] {
diff --git a/gdb/testsuite/lib/mi-support.exp b/gdb/testsuite/lib/mi-support.exp
index f62c240..bda7ea1 100644
--- a/gdb/testsuite/lib/mi-support.exp
+++ b/gdb/testsuite/lib/mi-support.exp
@@ -1237,6 +1237,21 @@ proc mi_varobj_update_with_type_change { name new_type new_children testname } {
mi_gdb_test "-var-update $name" $er $testname
}
+# Update a dynamic varobj named NAME. CHILDREN is a list of children,
+# in the same form as mi_list_varobj_children. TESTNAME is the name
+# of the test.
+proc mi_varobj_update_dynamic {name children testname} {
+ set children_exp_j [mi_child_regexp $children 0]
+
+ set er "\\^done,changelist=\\\["
+
+ append er "{name=\"$name\",in_scope=\"true\",type_changed=\"false\""
+ append er ",children=\\\[$children_exp_j.*\\\]}\\\]"
+
+ verbose -log "Expecting: $er"
+ mi_gdb_test "-var-update $name" $er $testname
+}
+
proc mi_check_varobj_value { name value testname } {
mi_gdb_test "-var-evaluate-expression $name" \
@@ -1244,6 +1259,42 @@ proc mi_check_varobj_value { name value testname } {
$testname
}
+# Helper proc which constructs a child regexp for
+# mi_list_varobj_children and mi_varobj_update_dynamic.
+proc mi_child_regexp {children add_child} {
+ set children_exp {}
+ set whatever "\"\[^\"\]+\""
+
+ if {$add_child} {
+ set pre "child="
+ } else {
+ set pre ""
+ }
+
+ foreach item $children {
+
+ set name [lindex $item 0]
+ set exp [lindex $item 1]
+ set numchild [lindex $item 2]
+ if {[llength $item] == 5} {
+ set type [lindex $item 3]
+ set value [lindex $item 4]
+
+ lappend children_exp\
+ "$pre{name=\"$name\",exp=\"$exp\",numchild=\"$numchild\",value=\"$value\",type=\"$type\"\(,thread-id=\"\[0-9\]+\")?}"
+ } elseif {[llength $item] == 4} {
+ set type [lindex $item 3]
+
+ lappend children_exp\
+ "$pre{name=\"$name\",exp=\"$exp\",numchild=\"$numchild\",type=\"$type\"\(,thread-id=\"\[0-9\]+\")?}"
+ } else {
+ lappend children_exp\
+ "$pre{name=\"$name\",exp=\"$exp\",numchild=\"$numchild\"(,thread-id=\"\[0-9\]+\")?}"
+ }
+ }
+ return [join $children_exp ","]
+}
+
# Check the results of the:
#
# -var-list-children VARNAME
@@ -1265,39 +1316,23 @@ proc mi_check_varobj_value { name value testname } {
# have no value.
#
proc mi_list_varobj_children { varname children testname } {
+ mi_list_varobj_children_range $varname [llength $children] $children \
+ $testname
+}
+# Like mi_list_varobj_children, but assumes that a subrange has been
+# selected with -var-set-child-range. NUMCHILDREN is the total number
+# of children.
+proc mi_list_varobj_children_range {varname numchildren children testname} {
set options ""
if {[llength $varname] == 2} {
set options [lindex $varname 1]
set varname [lindex $varname 0]
}
- set numchildren [llength $children]
- set children_exp {}
set whatever "\"\[^\"\]+\""
- foreach item $children {
-
- set name [lindex $item 0]
- set exp [lindex $item 1]
- set numchild [lindex $item 2]
- if {[llength $item] == 5} {
- set type [lindex $item 3]
- set value [lindex $item 4]
-
- lappend children_exp\
- "child={name=\"$name\",exp=\"$exp\",numchild=\"$numchild\",value=\"$value\",type=\"$type\"\(,thread-id=\"\[0-9\]+\")?}"
- } elseif {[llength $item] == 4} {
- set type [lindex $item 3]
-
- lappend children_exp\
- "child={name=\"$name\",exp=\"$exp\",numchild=\"$numchild\",type=\"$type\"\(,thread-id=\"\[0-9\]+\")?}"
- } else {
- lappend children_exp\
- "child={name=\"$name\",exp=\"$exp\",numchild=\"$numchild\"(,thread-id=\"\[0-9\]+\")?}"
- }
- }
- set children_exp_j [join $children_exp ","]
+ set children_exp_j [mi_child_regexp $children 1]
if {$numchildren} {
set expected "\\^done,numchild=\".*\",children=\\\[$children_exp_j.*\\\]"
} {
@@ -1770,3 +1805,25 @@ proc mi_check_thread_states { xstates test } {
verbose -log "expecting: $pattern"
mi_gdb_test "-thread-info" $pattern $test
}
+
+# Return a list of MI features supported by this gdb.
+proc mi_get_features {} {
+ global expect_out mi_gdb_prompt
+
+ send_gdb "-list-features\n"
+
+ gdb_expect {
+ -re "\\^done,features=\\\[(.*)\\\]\r\n$mi_gdb_prompt$" {
+ regsub -all -- \" $expect_out(1,string) "" features
+ return [split $features ,]
+ }
+ -re ".*\r\n$mi_gdb_prompt$" {
+ verbose -log "got $expect_out(buffer)"
+ return ""
+ }
+ timeout {
+ verbose -log "timeout in mi_gdb_prompt"
+ return ""
+ }
+ }
+}
diff --git a/gdb/thread.c b/gdb/thread.c
index 9dea7c2..326e44e 100644
--- a/gdb/thread.c
+++ b/gdb/thread.c
@@ -61,7 +61,6 @@ static int thread_alive (struct thread_info *);
static void info_threads_command (char *, int);
static void thread_apply_command (char *, int);
static void restore_current_thread (ptid_t);
-static void prune_threads (void);
/* Frontend view of the thread state. Possible extensions: stepping,
finishing, until(ling),... */
@@ -459,16 +458,23 @@ thread_alive (struct thread_info *tp)
return 1;
}
-static void
+void
prune_threads (void)
{
- struct thread_info *tp, *next;
+ struct thread_info *tp;
+ struct thread_info **prevp = &thread_list;
- for (tp = thread_list; tp; tp = next)
+ for (tp = *prevp; tp; tp = *prevp)
{
- next = tp->next;
+ /* If the thread has died, free it and unlink it from the list.
+ Otherwise, advance to the next thread. */
if (!thread_alive (tp))
- delete_thread (tp->ptid);
+ {
+ *prevp = tp->next;
+ free_thread (tp);
+ }
+ else
+ prevp = &tp->next;
}
}
diff --git a/gdb/top.c b/gdb/top.c
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
index d676f02..d6b17f0 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/top.c
+++ b/gdb/top.c
@@ -377,6 +377,7 @@ execute_command (char *p, int from_tty)
}
free_all_values ();
+ free_all_types ();
/* Force cleanup of any alloca areas if using C alloca instead of
a builtin alloca. */
- Archer update to the snapshot: 543fb2154d3bd551344b990b911be5c6cc703504 - Fixes [delayed-symfile] excessive `(no debugging symbols found)' messages.
2009-03-07 22:10:23 +00:00
@@ -1246,7 +1247,8 @@ quit_target (void *arg)
struct qt_args *qt = (struct qt_args *)arg;
/* Kill or detach all inferiors. */
- iterate_over_inferiors (kill_or_detach, qt);
+ if (target_has_execution)
+ iterate_over_inferiors (kill_or_detach, qt);
/* Give all pushed targets a chance to do minimal cleanup, and pop
them all out. */
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/tracepoint.c b/gdb/tracepoint.c
index 83df64e..003ef3a 100644
--- a/gdb/tracepoint.c
+++ b/gdb/tracepoint.c
@@ -1587,7 +1587,7 @@ encode_actions (struct tracepoint *t, char ***tdp_actions,
case UNOP_MEMVAL:
/* safe because we know it's a simple expression */
tempval = evaluate_expression (exp);
- addr = VALUE_ADDRESS (tempval) + value_offset (tempval);
+ addr = value_address (tempval);
len = TYPE_LENGTH (check_typedef (exp->elts[1].type));
add_memrange (collect, memrange_absolute, addr, len);
break;
diff --git a/gdb/typeprint.c b/gdb/typeprint.c
index 1f824fa..4a92a13 100644
--- a/gdb/typeprint.c
+++ b/gdb/typeprint.c
@@ -35,6 +35,7 @@
#include "gdb_string.h"
#include "exceptions.h"
#include "valprint.h"
+#include "dwarf2loc.h"
#include <errno.h>
extern void _initialize_typeprint (void);
@@ -76,6 +77,9 @@ void
type_print (struct type *type, char *varstring, struct ui_file *stream,
int show)
{
+ if (show >= 0)
+ type = check_typedef (type);
+
LA_PRINT_TYPE (type, varstring, stream, show, 0);
}
@@ -115,7 +119,8 @@ whatis_exp (char *exp, int show)
{
struct expression *expr;
struct value *val;
- struct cleanup *old_chain = NULL;
+ /* Required at least for the object_address_set call. */
+ struct cleanup *old_chain = make_cleanup (null_cleanup, NULL);
struct type *real_type = NULL;
struct type *type;
int full = 0;
@@ -126,12 +131,13 @@ whatis_exp (char *exp, int show)
if (exp)
{
expr = parse_expression (exp);
- old_chain = make_cleanup (free_current_contents, &expr);
+ make_cleanup (free_current_contents, &expr);
val = evaluate_type (expr);
}
else
val = access_value_history (0);
+ object_address_set (VALUE_ADDRESS (val));
type = value_type (val);
get_user_print_options (&opts);
@@ -168,8 +174,7 @@ whatis_exp (char *exp, int show)
type_print (type, "", gdb_stdout, show);
printf_filtered ("\n");
- if (exp)
- do_cleanups (old_chain);
+ do_cleanups (old_chain);
}
static void
@@ -236,7 +241,7 @@ print_type_scalar (struct type *type, LONGEST val, struct ui_file *stream)
break;
case TYPE_CODE_CHAR:
- LA_PRINT_CHAR ((unsigned char) val, stream);
+ LA_PRINT_CHAR ((unsigned char) val, type, stream);
break;
case TYPE_CODE_BOOL:
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
diff --git a/gdb/typeprint.h b/gdb/typeprint.h
index f561310..b39fd17 100644
--- a/gdb/typeprint.h
+++ b/gdb/typeprint.h
@@ -26,4 +26,6 @@ void print_type_scalar (struct type * type, LONGEST, struct ui_file *);
void c_type_print_varspec_suffix (struct type *, struct ui_file *, int,
int, int);
+
+void c_type_print_args (struct type *, struct ui_file *, int);
#endif
diff --git a/gdb/ui-file.c b/gdb/ui-file.c
index 02a0314..5c8c96e 100644
--- a/gdb/ui-file.c
+++ b/gdb/ui-file.c
@@ -22,6 +22,7 @@
#include "defs.h"
#include "ui-file.h"
+#include "gdb_obstack.h"
#include "gdb_string.h"
#include <errno.h>
@@ -263,7 +264,7 @@ set_ui_file_data (struct ui_file *file, void *data,
}
/* ui_file utility function for converting a ``struct ui_file'' into
- a memory buffer''. */
+ a memory buffer. */
struct accumulated_ui_file
{
@@ -297,6 +298,23 @@ ui_file_xstrdup (struct ui_file *file,
*length = acc.length;
return acc.buffer;
}
+
+static void
+do_ui_file_obsavestring (void *context, const char *buffer, long length)
+{
+ struct obstack *obstack = (struct obstack *) context;
+ obstack_grow (obstack, buffer, length);
+}
+
+char *
+ui_file_obsavestring (struct ui_file *file, struct obstack *obstack,
+ long *length)
+{
+ ui_file_put (file, do_ui_file_obsavestring, obstack);
+ *length = obstack_object_size (obstack);
+ obstack_1grow (obstack, '\0');
+ return obstack_finish (obstack);
+}
/* A pure memory based ``struct ui_file'' that can be used an output
buffer. The buffers accumulated contents are available via
diff --git a/gdb/ui-file.h b/gdb/ui-file.h
index 1562d5a..d86a7eb 100644
--- a/gdb/ui-file.h
+++ b/gdb/ui-file.h
@@ -19,6 +19,7 @@
#ifndef UI_FILE_H
#define UI_FILE_H
+struct obstack;
struct ui_file;
/* Create a generic ui_file object with null methods. */
@@ -77,7 +78,10 @@ extern void ui_file_put (struct ui_file *src, ui_file_put_method_ftype *write, v
appended NUL. */
extern char *ui_file_xstrdup (struct ui_file *file, long *length);
-
+/* Similar to ui_file_xstrdup, but return a new string allocated on
+ OBSTACK. */
+extern char *ui_file_obsavestring (struct ui_file *file,
+ struct obstack *obstack, long *length);
extern long ui_file_read (struct ui_file *file, char *buf, long length_buf);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
diff --git a/gdb/utils.c b/gdb/utils.c
index 9224839..88a9a39 100644
--- a/gdb/utils.c
+++ b/gdb/utils.c
@@ -272,6 +272,19 @@ make_cleanup_fclose (FILE *file)
}
static void
+do_obstack_free (void *arg)
+{
+ struct obstack *ob = arg;
+ obstack_free (ob, NULL);
+}
+
+struct cleanup *
+make_cleanup_obstack_free (struct obstack *obstack)
+{
+ return make_cleanup (do_obstack_free, obstack);
+}
+
+static void
do_ui_file_delete (void *arg)
{
ui_file_delete (arg);
@@ -1554,21 +1567,33 @@ query (const char *ctlstr, ...)
va_end (args);
}
-/* Print an error message saying that we couldn't make sense of a
- \^mumble sequence in a string or character constant. START and END
- indicate a substring of some larger string that contains the
- erroneous backslash sequence, missing the initial backslash. */
-static NORETURN int
-no_control_char_error (const char *start, const char *end)
+/* A helper for parse_escape that converts a host character to a
+ target character. C is the host character. If conversion is
+ possible, then the target character is stored in *TARGET_C and the
+ function returns 1. Otherwise, the function returns 0. */
+
+static int
+host_char_to_target (int c, int *target_c)
{
- int len = end - start;
- char *copy = alloca (end - start + 1);
+ struct obstack host_data;
+ char the_char = c;
+ struct cleanup *cleanups;
+ int result = 0;
+
+ obstack_init (&host_data);
+ cleanups = make_cleanup_obstack_free (&host_data);
+
+ convert_between_encodings (target_charset (), host_charset (),
+ &the_char, 1, 1, &host_data, translit_none);
- memcpy (copy, start, len);
- copy[len] = '\0';
+ if (obstack_object_size (&host_data) == 1)
+ {
+ result = 1;
+ *target_c = *(char *) obstack_base (&host_data);
+ }
- error (_("There is no control character `\\%s' in the `%s' character set."),
- copy, target_charset ());
+ do_cleanups (cleanups);
+ return result;
}
/* Parse a C escape sequence. STRING_PTR points to a variable
@@ -1591,53 +1616,13 @@ parse_escape (char **string_ptr)
{
int target_char;
int c = *(*string_ptr)++;
- if (c_parse_backslash (c, &target_char))
- return target_char;
- else
- switch (c)
- {
+ switch (c)
+ {
case '\n':
return -2;
case 0:
(*string_ptr)--;
return 0;
- case '^':
- {
- /* Remember where this escape sequence started, for reporting
- errors. */
- char *sequence_start_pos = *string_ptr - 1;
-
- c = *(*string_ptr)++;
-
- if (c == '?')
- {
- /* XXXCHARSET: What is `delete' in the host character set? */
- c = 0177;
-
- if (!host_char_to_target (c, &target_char))
- error (_("There is no character corresponding to `Delete' "
- "in the target character set `%s'."), host_charset ());
-
- return target_char;
- }
- else if (c == '\\')
- target_char = parse_escape (string_ptr);
- else
- {
- if (!host_char_to_target (c, &target_char))
- no_control_char_error (sequence_start_pos, *string_ptr);
- }
-
- /* Now target_char is something like `c', and we want to find
- its control-character equivalent. */
- if (!target_char_to_control_char (target_char, &target_char))
- no_control_char_error (sequence_start_pos, *string_ptr);
-
- return target_char;
- }
-
- /* XXXCHARSET: we need to use isdigit and value-of-digit
- methods of the host character set here. */
case '0':
case '1':
@@ -1648,16 +1633,16 @@ parse_escape (char **string_ptr)
case '6':
case '7':
{
- int i = c - '0';
+ int i = host_hex_value (c);
int count = 0;
while (++count < 3)
{
c = (**string_ptr);
- if (c >= '0' && c <= '7')
+ if (isdigit (c) && c != '8' && c != '9')
{
(*string_ptr)++;
i *= 8;
- i += c - '0';
+ i += host_hex_value (c);
}
else
{
@@ -1666,14 +1651,39 @@ parse_escape (char **string_ptr)
}
return i;
}
- default:
- if (!host_char_to_target (c, &target_char))
- error
- ("The escape sequence `\%c' is equivalent to plain `%c', which"
- " has no equivalent\n" "in the `%s' character set.", c, c,
- target_charset ());
- return target_char;
- }
+
+ case 'a':
+ c = '\a';
+ break;
+ case 'b':
+ c = '\b';
+ break;
+ case 'f':
+ c = '\f';
+ break;
+ case 'n':
+ c = '\n';
+ break;
+ case 'r':
+ c = '\r';
+ break;
+ case 't':
+ c = '\t';
+ break;
+ case 'v':
+ c = '\v';
+ break;
+
+ default:
+ break;
+ }
+
+ if (!host_char_to_target (c, &target_char))
+ error
+ ("The escape sequence `\%c' is equivalent to plain `%c', which"
+ " has no equivalent\n" "in the `%s' character set.", c, c,
+ target_charset ());
+ return target_char;
}
/* Print the character C on STREAM as part of the contents of a literal
diff --git a/gdb/v850-tdep.c b/gdb/v850-tdep.c
index 9850de4..285fe3f 100644
--- a/gdb/v850-tdep.c
+++ b/gdb/v850-tdep.c
@@ -705,7 +705,7 @@ v850_push_dummy_call (struct gdbarch *gdbarch,
if (!v850_type_is_scalar (value_type (*args))
&& TYPE_LENGTH (value_type (*args)) > E_MAX_RETTYPE_SIZE_IN_REGS)
{
- store_unsigned_integer (valbuf, 4, VALUE_ADDRESS (*args));
+ store_unsigned_integer (valbuf, 4, value_address (*args));
len = 4;
val = valbuf;
}
diff --git a/gdb/valarith.c b/gdb/valarith.c
index f38cdb8..8e103cf 100644
--- a/gdb/valarith.c
+++ b/gdb/valarith.c
@@ -164,9 +164,9 @@ an integer nor a pointer of the same type."));
struct value *
value_subscript (struct value *array, struct value *idx)
{
- struct value *bound;
int c_style = current_language->c_style_arrays;
struct type *tarray;
+ LONGEST index = value_as_long (idx);
array = coerce_ref (array);
tarray = check_typedef (value_type (array));
@@ -179,13 +179,26 @@ value_subscript (struct value *array, struct value *idx)
get_discrete_bounds (range_type, &lowerbound, &upperbound);
if (VALUE_LVAL (array) != lval_memory)
- return value_subscripted_rvalue (array, idx, lowerbound);
+ {
+ if (index >= lowerbound && index <= upperbound)
+ {
+ CORE_ADDR element_size = TYPE_LENGTH (TYPE_TARGET_TYPE (tarray));
+ CORE_ADDR offset = (index - lowerbound) * element_size;
+
+ return value_subscripted_rvalue (array, offset);
+ }
+ error (_("array or string index out of range"));
+ }
if (c_style == 0)
{
- LONGEST index = value_as_long (idx);
if (index >= lowerbound && index <= upperbound)
- return value_subscripted_rvalue (array, idx, lowerbound);
+ {
+ CORE_ADDR element_size = TYPE_LENGTH (TYPE_TARGET_TYPE (tarray));
+ CORE_ADDR offset = (index - lowerbound) * element_size;
+
+ return value_subscripted_rvalue (array, offset);
+ }
/* Emit warning unless we have an array of unknown size.
An array of unknown size has lowerbound 0 and upperbound -1. */
if (upperbound > -1)
@@ -194,49 +207,52 @@ value_subscript (struct value *array, struct value *idx)
c_style = 1;
}
- if (lowerbound != 0)
- {
- bound = value_from_longest (value_type (idx), (LONGEST) lowerbound);
- idx = value_binop (idx, bound, BINOP_SUB);
- }
-
+ index -= lowerbound;
array = value_coerce_array (array);
}
if (c_style)
- return value_ind (value_ptradd (array, idx));
+ {
+ struct value *idx;
+
+ idx = value_from_longest (builtin_type_int32, index);
+ return value_ind (value_ptradd (array, idx));
+ }
else
error (_("not an array or string"));
}
-/* Return the value of EXPR[IDX], expr an aggregate rvalue
- (eg, a vector register). This routine used to promote floats
- to doubles, but no longer does. */
+/* Return the value of *((void *) ARRAY + ELEMENT), ARRAY an aggregate rvalue
+ (eg, a vector register). This routine used to promote floats to doubles,
+ but no longer does. OFFSET is zero-based with 0 for the lowermost existing
+ element, it must be expressed in bytes (therefore multiplied by
+ check_typedef (TYPE_TARGET_TYPE (array_type)). */
struct value *
-value_subscripted_rvalue (struct value *array, struct value *idx, int lowerbound)
+value_subscripted_rvalue (struct value *array, CORE_ADDR offset)
{
struct type *array_type = check_typedef (value_type (array));
struct type *elt_type = check_typedef (TYPE_TARGET_TYPE (array_type));
- unsigned int elt_size = TYPE_LENGTH (elt_type);
- LONGEST index = value_as_long (idx);
- unsigned int elt_offs = elt_size * longest_to_int (index - lowerbound);
struct value *v;
- if (index < lowerbound || elt_offs >= TYPE_LENGTH (array_type))
- error (_("no such vector element"));
+ /* Do not check TYPE_LENGTH (array_type) as we may have been given the
+ innermost dimension of a multi-dimensional Fortran array where its length
+ is shorter than the possibly accessed element offset. */
v = allocate_value (elt_type);
if (VALUE_LVAL (array) == lval_memory && value_lazy (array))
set_value_lazy (v, 1);
else
- memcpy (value_contents_writeable (v),
- value_contents (array) + elt_offs, elt_size);
+ {
+ unsigned int elt_size = TYPE_LENGTH (elt_type);
+ memcpy (value_contents_writeable (v),
+ value_contents (array) + offset, elt_size);
+ }
set_value_component_location (v, array);
VALUE_REGNUM (v) = VALUE_REGNUM (array);
VALUE_FRAME_ID (v) = VALUE_FRAME_ID (array);
- set_value_offset (v, value_offset (array) + elt_offs);
+ set_value_offset (v, value_offset (array) + offset);
return v;
}
diff --git a/gdb/valops.c b/gdb/valops.c
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
index 9810f2b..14c562e 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/valops.c
+++ b/gdb/valops.c
@@ -38,6 +38,7 @@
#include "cp-support.h"
#include "dfp.h"
#include "user-regs.h"
+#include "dwarf2loc.h"
#include <errno.h>
#include "gdb_string.h"
@@ -254,9 +255,8 @@ value_cast_structs (struct type *type, struct value *v2)
if (v)
{
/* Downcasting is possible (t1 is superclass of v2). */
- CORE_ADDR addr2 = VALUE_ADDRESS (v2);
- addr2 -= (VALUE_ADDRESS (v)
- + value_offset (v)
+ CORE_ADDR addr2 = value_address (v2);
+ addr2 -= (value_address (v)
+ value_embedded_offset (v));
return value_at (type, addr2);
}
@@ -371,8 +371,6 @@ value_cast (struct type *type, struct value *arg2)
new_length = val_length / element_length;
if (val_length % element_length != 0)
warning (_("array element type size does not divide object size in cast"));
- /* FIXME-type-allocation: need a way to free this type when
- we are done with it. */
range_type = create_range_type ((struct type *) NULL,
TYPE_TARGET_TYPE (range_type),
low_bound,
@@ -511,7 +509,7 @@ value_cast (struct type *type, struct value *arg2)
}
else if (VALUE_LVAL (arg2) == lval_memory)
return value_at_lazy (type,
- VALUE_ADDRESS (arg2) + value_offset (arg2));
+ value_address (arg2));
else if (code1 == TYPE_CODE_VOID)
{
return value_zero (builtin_type_void, not_lval);
@@ -568,6 +566,64 @@ value_one (struct type *type, enum lval_type lv)
return val;
}
+/* object_address_set must be already called before this function. */
+
+const char *
+object_address_data_not_valid (struct type *type)
+{
+ /* Attributes are present only at the target type of a typedef. Make the
+ call conditional as it would otherwise loop through type_length_get. */
+ if (TYPE_CODE (type) == TYPE_CODE_TYPEDEF)
+ CHECK_TYPEDEF (type);
+
+ /* DW_AT_associated has a preference over DW_AT_allocated. */
+ if (TYPE_NOT_ASSOCIATED (type)
+ || (TYPE_ASSOCIATED (type) != NULL
+ && 0 == dwarf_locexpr_baton_eval (TYPE_ASSOCIATED (type))))
+ return N_("object is not associated");
+
+ if (TYPE_NOT_ALLOCATED (type)
+ || (TYPE_ALLOCATED (type) != NULL
+ && 0 == dwarf_locexpr_baton_eval (TYPE_ALLOCATED (type))))
+ return N_("object is not allocated");
+
+ return NULL;
+}
+
+/* Return non-zero if the variable is valid. If it is valid the function
+ may store the data address (DW_AT_DATA_LOCATION) of TYPE at *ADDRESS_RETURN.
+ You must set *ADDRESS_RETURN as VALUE_ADDRESS (VAL) before calling this
+ function. If no DW_AT_DATA_LOCATION is present for TYPE the address at
+ *ADDRESS_RETURN is left unchanged. ADDRESS_RETURN must not be NULL, use
+ object_address_data_not_valid () for just the data validity check. */
+
+int
+object_address_get_data (struct type *type, CORE_ADDR *address_return)
+{
+ gdb_assert (address_return != NULL);
+
+ object_address_set (*address_return);
+
+ /* TYPE_DATA_LOCATION_DWARF_BLOCK / TYPE_DATA_LOCATION_ADDR are present only
+ at the target type of a typedef. */
+ CHECK_TYPEDEF (type);
+
+ if (object_address_data_not_valid (type) != NULL)
+ {
+ /* Do not try to evaluate DW_AT_data_location as it may even crash
+ (it would just return the value zero in the gfortran case). */
+ return 0;
+ }
+
+ if (TYPE_DATA_LOCATION_IS_ADDR (type))
+ *address_return = TYPE_DATA_LOCATION_ADDR (type);
+ else if (TYPE_DATA_LOCATION_DWARF_BLOCK (type) != NULL)
+ *address_return
+ = dwarf_locexpr_baton_eval (TYPE_DATA_LOCATION_DWARF_BLOCK (type));
+
+ return 1;
+}
+
/* Return a value with type TYPE located at ADDR.
Call value_at only if the data needs to be fetched immediately;
@@ -593,7 +649,7 @@ value_at (struct type *type, CORE_ADDR addr)
read_memory (addr, value_contents_all_raw (val), TYPE_LENGTH (type));
VALUE_LVAL (val) = lval_memory;
- VALUE_ADDRESS (val) = addr;
+ set_value_address (val, addr);
return val;
}
@@ -611,7 +667,7 @@ value_at_lazy (struct type *type, CORE_ADDR addr)
val = allocate_value_lazy (type);
VALUE_LVAL (val) = lval_memory;
- VALUE_ADDRESS (val) = addr;
+ set_value_address (val, addr);
return val;
}
@@ -637,11 +693,19 @@ value_fetch_lazy (struct value *val)
allocate_value_contents (val);
if (VALUE_LVAL (val) == lval_memory)
{
- CORE_ADDR addr = VALUE_ADDRESS (val) + value_offset (val);
- int length = TYPE_LENGTH (check_typedef (value_enclosing_type (val)));
+ CORE_ADDR addr = VALUE_ADDRESS (val);
+
+ if (object_address_get_data (value_type (val), &addr))
+ {
+ struct type *type = value_enclosing_type (val);
+ int length = TYPE_LENGTH (check_typedef (type));
- if (length)
- read_memory (addr, value_contents_all_raw (val), length);
+ if (length)
+ {
+ addr += value_offset (val);
+ read_memory (addr, value_contents_all_raw (val), length);
+ }
+ }
}
else if (VALUE_LVAL (val) == lval_register)
{
@@ -709,7 +773,7 @@ value_fetch_lazy (struct value *val)
VALUE_REGNUM (new_val));
else if (VALUE_LVAL (new_val) == lval_memory)
fprintf_unfiltered (gdb_stdlog, " address=0x%s",
- paddr_nz (VALUE_ADDRESS (new_val)));
+ paddr_nz (value_address (new_val)));
else
fprintf_unfiltered (gdb_stdlog, " computed");
@@ -813,16 +877,15 @@ value_assign (struct value *toval, struct value *fromval)
error (_("Can't handle bitfields which don't fit in a %d bit word."),
(int) sizeof (LONGEST) * HOST_CHAR_BIT);
- read_memory (VALUE_ADDRESS (toval) + value_offset (toval),
- buffer, changed_len);
+ read_memory (value_address (toval), buffer, changed_len);
modify_field (buffer, value_as_long (fromval),
value_bitpos (toval), value_bitsize (toval));
- changed_addr = VALUE_ADDRESS (toval) + value_offset (toval);
+ changed_addr = value_address (toval);
dest_buffer = buffer;
}
else
{
- changed_addr = VALUE_ADDRESS (toval) + value_offset (toval);
+ changed_addr = value_address (toval);
changed_len = TYPE_LENGTH (type);
dest_buffer = value_contents (fromval);
}
@@ -985,11 +1048,11 @@ value_repeat (struct value *arg1, int count)
val = allocate_repeat_value (value_enclosing_type (arg1), count);
- read_memory (VALUE_ADDRESS (arg1) + value_offset (arg1),
+ read_memory (value_address (arg1),
value_contents_all_raw (val),
TYPE_LENGTH (value_enclosing_type (val)));
VALUE_LVAL (val) = lval_memory;
- VALUE_ADDRESS (val) = VALUE_ADDRESS (arg1) + value_offset (arg1);
+ set_value_address (val, value_address (arg1));
return val;
}
@@ -1036,10 +1099,11 @@ address_of_variable (struct symbol *var, struct block *b)
val = value_of_variable (var, b);
- if ((VALUE_LVAL (val) == lval_memory && value_lazy (val))
+ if ((VALUE_LVAL (val) == lval_memory && value_lazy (val)
+ && object_address_get_data (type, &VALUE_ADDRESS (val)))
|| TYPE_CODE (type) == TYPE_CODE_FUNC)
{
- CORE_ADDR addr = VALUE_ADDRESS (val);
+ CORE_ADDR addr = value_address (val);
return value_from_pointer (lookup_pointer_type (type), addr);
}
@@ -1145,6 +1209,7 @@ struct value *
value_coerce_array (struct value *arg1)
{
struct type *type = check_typedef (value_type (arg1));
+ CORE_ADDR address;
/* If the user tries to do something requiring a pointer with an
array that has not yet been pushed to the target, then this would
@@ -1154,8 +1219,12 @@ value_coerce_array (struct value *arg1)
if (VALUE_LVAL (arg1) != lval_memory)
error (_("Attempt to take address of value not located in memory."));
+ address = VALUE_ADDRESS (arg1);
+ if (!object_address_get_data (type, &address))
+ error (_("Attempt to take address of non-valid value."));
+
return value_from_pointer (lookup_pointer_type (TYPE_TARGET_TYPE (type)),
- (VALUE_ADDRESS (arg1) + value_offset (arg1)));
+ address + value_offset (arg1));
}
/* Given a value which is a function, return a value which is a pointer
@@ -1170,7 +1239,7 @@ value_coerce_function (struct value *arg1)
error (_("Attempt to take address of value not located in memory."));
retval = value_from_pointer (lookup_pointer_type (value_type (arg1)),
- (VALUE_ADDRESS (arg1) + value_offset (arg1)));
+ (value_address (arg1)));
return retval;
}
@@ -1205,8 +1274,7 @@ value_addr (struct value *arg1)
/* Get target memory address */
arg2 = value_from_pointer (lookup_pointer_type (value_type (arg1)),
- (VALUE_ADDRESS (arg1)
- + value_offset (arg1)
+ (value_address (arg1)
+ value_embedded_offset (arg1)));
/* This may be a pointer to a base subobject; so remember the
@@ -1352,6 +1420,24 @@ value_array (int lowbound, int highbound, struct value **elemvec)
return val;
}
+struct value *
+value_typed_string (char *ptr, int len, struct type *char_type)
+{
+ struct value *val;
+ int lowbound = current_language->string_lower_bound;
+ int highbound = len / TYPE_LENGTH (char_type);
+ struct type *rangetype = create_range_type ((struct type *) NULL,
+ builtin_type_int32,
+ lowbound,
+ highbound + lowbound - 1);
+ struct type *stringtype
+ = create_array_type ((struct type *) NULL, char_type, rangetype);
+
+ val = allocate_value (stringtype);
+ memcpy (value_contents_raw (val), ptr, len);
+ return val;
+}
+
/* Create a value for a string constant by allocating space in the
inferior, copying the data into that space, and returning the
address with type TYPE_CODE_STRING. PTR points to the string
@@ -1600,8 +1686,7 @@ search_struct_field (char *name, struct value *arg1, int offset,
boffset = baseclass_offset (type, i,
value_contents (arg1) + offset,
- VALUE_ADDRESS (arg1)
- + value_offset (arg1) + offset);
+ value_address (arg1) + offset);
if (boffset == -1)
error (_("virtual baseclass botch"));
@@ -1616,13 +1701,13 @@ search_struct_field (char *name, struct value *arg1, int offset,
v2 = allocate_value (basetype);
base_addr =
- VALUE_ADDRESS (arg1) + value_offset (arg1) + boffset;
+ value_address (arg1) + boffset;
if (target_read_memory (base_addr,
value_contents_raw (v2),
TYPE_LENGTH (basetype)) != 0)
error (_("virtual baseclass botch"));
VALUE_LVAL (v2) = lval_memory;
- VALUE_ADDRESS (v2) = base_addr;
+ set_value_address (v2, base_addr);
}
else
{
@@ -1745,8 +1830,7 @@ search_struct_method (char *name, struct value **arg1p,
if (offset < 0 || offset >= TYPE_LENGTH (type))
{
gdb_byte *tmp = alloca (TYPE_LENGTH (baseclass));
- if (target_read_memory (VALUE_ADDRESS (*arg1p)
- + value_offset (*arg1p) + offset,
+ if (target_read_memory (value_address (*arg1p) + offset,
tmp, TYPE_LENGTH (baseclass)) != 0)
error (_("virtual baseclass botch"));
base_valaddr = tmp;
@@ -1755,8 +1839,7 @@ search_struct_method (char *name, struct value **arg1p,
base_valaddr = value_contents (*arg1p) + offset;
base_offset = baseclass_offset (type, i, base_valaddr,
- VALUE_ADDRESS (*arg1p)
- + value_offset (*arg1p) + offset);
+ value_address (*arg1p) + offset);
if (base_offset == -1)
error (_("virtual baseclass botch"));
}
@@ -1965,7 +2048,7 @@ find_method_list (struct value **argp, char *method,
base_offset = value_offset (*argp) + offset;
base_offset = baseclass_offset (type, i,
value_contents (*argp) + base_offset,
- VALUE_ADDRESS (*argp) + base_offset);
+ value_address (*argp) + base_offset);
if (base_offset == -1)
error (_("virtual baseclass botch"));
}
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -2083,12 +2166,25 @@ find_overload_match (struct type **arg_types, int nargs,
if (method)
{
gdb_assert (obj);
+
+ /* OBJ may be a pointer value rather than the object itself. */
+ obj = coerce_ref (obj);
+ while (TYPE_CODE (check_typedef (value_type (obj))) == TYPE_CODE_PTR)
+ obj = coerce_ref (value_ind (obj));
obj_type_name = TYPE_NAME (value_type (obj));
- /* Hack: evaluate_subexp_standard often passes in a pointer
- value rather than the object itself, so try again. */
- if ((!obj_type_name || !*obj_type_name)
- && (TYPE_CODE (value_type (obj)) == TYPE_CODE_PTR))
- obj_type_name = TYPE_NAME (TYPE_TARGET_TYPE (value_type (obj)));
+
+ /* First check whether this is a data member, e.g. a pointer to
+ a function. */
+ if (TYPE_CODE (check_typedef (value_type (obj))) == TYPE_CODE_STRUCT)
+ {
+ *valp = search_struct_field (name, obj, 0,
+ check_typedef (value_type (obj)), 0);
+ if (*valp)
+ {
+ *staticp = 1;
+ return 0;
+ }
+ }
fns_ptr = value_find_oload_method_list (&temp, name,
0, &num_fns,
@@ -2108,16 +2204,29 @@ find_overload_match (struct type **arg_types, int nargs,
}
else
{
- const char *qualified_name = SYMBOL_CPLUS_DEMANGLED_NAME (fsym);
+ const char *qualified_name = SYMBOL_NATURAL_NAME (fsym);
- /* If we have a C++ name, try to extract just the function
- part. */
- if (qualified_name)
- func_name = cp_func_name (qualified_name);
+ /* If we have a function with a C++ name, try to extract just
+ the function part. Do not try this for non-functions (e.g.
+ function pointers). */
+ if (qualified_name
+ && TYPE_CODE (check_typedef (SYMBOL_TYPE (fsym))) == TYPE_CODE_FUNC)
+ {
+ func_name = cp_func_name (qualified_name);
+
+ /* If cp_func_name did not remove anything, the name of the
+ symbol did not include scope or argument types - it was
+ probably a C-style function. */
+ if (func_name && strcmp (func_name, qualified_name) == 0)
+ {
+ xfree (func_name);
+ func_name = NULL;
+ }
+ }
- /* If there was no C++ name, this must be a C-style function.
- Just return the same symbol. Do the same if cp_func_name
- fails for some reason. */
+ /* If there was no C++ name, this must be a C-style function or
+ not a function at all. Just return the same symbol. Do the
+ same if cp_func_name fails for some reason. */
if (func_name == NULL)
{
*symp = fsym;
@@ -2558,8 +2667,8 @@ check_field (struct type *type, const char *name)
the comment before value_struct_elt_for_reference. */
struct value *
-value_aggregate_elt (struct type *curtype,
- char *name, int want_address,
+value_aggregate_elt (struct type *curtype, char *name,
+ struct type *expect_type, int want_address,
enum noside noside)
{
switch (TYPE_CODE (curtype))
@@ -2567,7 +2676,7 @@ value_aggregate_elt (struct type *curtype,
case TYPE_CODE_STRUCT:
case TYPE_CODE_UNION:
return value_struct_elt_for_reference (curtype, 0, curtype,
- name, NULL,
+ name, expect_type,
want_address, noside);
case TYPE_CODE_NAMESPACE:
return value_namespace_elt (curtype, name,
@@ -2671,7 +2780,7 @@ value_struct_elt_for_reference (struct type *domain, int offset,
if (intype)
{
while (j--)
- if (TYPE_FN_FIELD_TYPE (f, j) == intype)
+ if (compare_parameters (TYPE_FN_FIELD_TYPE (f, j), intype))
break;
if (j < 0)
error (_("no member function matches that type instantiation"));
@@ -2725,7 +2834,7 @@ value_struct_elt_for_reference (struct type *domain, int offset,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
result = allocate_value (lookup_methodptr_type (TYPE_FN_FIELD_TYPE (f, j)));
cplus_make_method_ptr (value_type (result),
value_contents_writeable (result),
- VALUE_ADDRESS (v), 0);
+ value_address (v), 0);
}
}
return result;
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -2791,7 +2900,7 @@ value_maybe_namespace_elt (const struct type *curtype,
struct symbol *sym;
struct value *result;
- sym = cp_lookup_symbol_namespace (namespace_name, name, NULL,
+ sym = cp_lookup_symbol_namespace_incremental (namespace_name, name, NULL,
get_selected_block (0),
VAR_DOMAIN);
@@ -2884,7 +2993,7 @@ value_full_object (struct value *argp,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
/* Go back by the computed top_offset from the beginning of the
object, adjusting for the embedded offset of argp if that's what
value_rtti_type used for its computation. */
- new_val = value_at_lazy (real_type, VALUE_ADDRESS (argp) - top +
+ new_val = value_at_lazy (real_type, value_address (argp) - top +
(using_enc ? 0 : value_embedded_offset (argp)));
deprecated_set_value_type (new_val, value_type (argp));
set_value_embedded_offset (new_val, (using_enc
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
@@ -2989,8 +3098,6 @@ value_slice (struct value *array, int lowbound, int length)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
|| lowbound + length - 1 > upperbound)
error (_("slice out of range"));
- /* FIXME-type-allocation: need a way to free this type when we are
- done with it. */
slice_range_type = create_range_type ((struct type *) NULL,
TYPE_TARGET_TYPE (range_type),
lowbound,
diff --git a/gdb/valprint.c b/gdb/valprint.c
index b02e9df..a9e8227 100644
--- a/gdb/valprint.c
+++ b/gdb/valprint.c
@@ -34,6 +34,7 @@
#include "doublest.h"
#include "exceptions.h"
#include "dfp.h"
+#include "python/python.h"
#include <errno.h>
@@ -80,7 +81,9 @@ struct value_print_options user_print_options =
0, /* print_array_indexes */
0, /* deref_ref */
1, /* static_field_print */
- 1 /* pascal_static_field_print */
+ 1, /* pascal_static_field_print */
+ 0, /* raw */
+ 0 /* summary */
};
/* Initialize *OPTS to be a copy of the user print options. */
@@ -257,6 +260,15 @@ val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
return (0);
}
+ if (!options->raw)
+ {
+ ret = apply_val_pretty_printer (type, valaddr, embedded_offset,
+ address, stream, recurse, options,
+ language);
+ if (ret)
+ return ret;
+ }
+
TRY_CATCH (except, RETURN_MASK_ERROR)
{
ret = language->la_val_print (type, valaddr, embedded_offset, address,
@@ -287,6 +299,13 @@ value_check_printable (struct value *val, struct ui_file *stream)
return 0;
}
+ if (TYPE_CODE (value_type (val)) == TYPE_CODE_INTERNAL_FUNCTION)
+ {
+ fprintf_filtered (stream, _("<internal function %s>"),
+ value_internal_function_name (val));
+ return 0;
+ }
+
return 1;
}
@@ -308,7 +327,7 @@ common_val_print (struct value *val, struct ui_file *stream, int recurse,
return 0;
return val_print (value_type (val), value_contents_all (val),
- value_embedded_offset (val), VALUE_ADDRESS (val),
+ value_embedded_offset (val), value_address (val),
stream, recurse, options, language);
}
@@ -324,6 +343,18 @@ value_print (struct value *val, struct ui_file *stream,
if (!value_check_printable (val, stream))
return 0;
+ if (!options->raw)
+ {
+ int r = apply_val_pretty_printer (value_type (val),
+ value_contents_all (val),
+ value_embedded_offset (val),
+ value_address (val),
+ stream, 0, options,
+ current_language);
+ if (r)
+ return r;
+ }
+
return LA_VALUE_PRINT (val, stream, options);
}
@@ -919,7 +950,8 @@ print_hex_chars (struct ui_file *stream, const gdb_byte *valaddr,
Omit any leading zero chars. */
void
-print_char_chars (struct ui_file *stream, const gdb_byte *valaddr,
+print_char_chars (struct ui_file *stream, struct type *type,
+ const gdb_byte *valaddr,
unsigned len, enum bfd_endian byte_order)
{
const gdb_byte *p;
@@ -932,7 +964,7 @@ print_char_chars (struct ui_file *stream, const gdb_byte *valaddr,
while (p < valaddr + len)
{
- LA_EMIT_CHAR (*p, stream, '\'');
+ LA_EMIT_CHAR (*p, type, stream, '\'');
++p;
}
}
@@ -944,7 +976,7 @@ print_char_chars (struct ui_file *stream, const gdb_byte *valaddr,
while (p >= valaddr)
{
- LA_EMIT_CHAR (*p, stream, '\'');
+ LA_EMIT_CHAR (*p, type, stream, '\'');
--p;
}
}
@@ -1085,6 +1117,7 @@ val_print_array_elements (struct type *type, const gdb_byte *valaddr,
for (; i < len && things_printed < options->print_max; i++)
{
+ size_t elt_offset = i * eltlen;
if (i != 0)
{
if (options->prettyprint_arrays)
@@ -1104,7 +1137,7 @@ val_print_array_elements (struct type *type, const gdb_byte *valaddr,
rep1 = i + 1;
reps = 1;
while ((rep1 < len) &&
- !memcmp (valaddr + i * eltlen, valaddr + rep1 * eltlen, eltlen))
+ !memcmp (valaddr + elt_offset, valaddr + rep1 * eltlen, eltlen))
{
++reps;
++rep1;
@@ -1112,7 +1145,7 @@ val_print_array_elements (struct type *type, const gdb_byte *valaddr,
if (reps > options->repeat_count_threshold)
{
- val_print (elttype, valaddr + i * eltlen, 0, address + i * eltlen,
+ val_print (elttype, valaddr + elt_offset, 0, address + elt_offset,
stream, recurse + 1, options, current_language);
annotate_elt_rep (reps);
fprintf_filtered (stream, " <repeats %u times>", reps);
@@ -1123,7 +1156,7 @@ val_print_array_elements (struct type *type, const gdb_byte *valaddr,
}
else
{
- val_print (elttype, valaddr + i * eltlen, 0, address + i * eltlen,
+ val_print (elttype, valaddr + elt_offset, 0, address + elt_offset,
stream, recurse + 1, options, current_language);
annotate_elt ();
things_printed++;
@@ -1315,7 +1348,8 @@ read_string (CORE_ADDR addr, int len, int width, unsigned int fetchlimit,
whichever is smaller. */
int
-val_print_string (CORE_ADDR addr, int len, int width, struct ui_file *stream,
+val_print_string (struct type *elttype, CORE_ADDR addr, int len,
+ struct ui_file *stream,
const struct value_print_options *options)
{
int force_ellipsis = 0; /* Force ellipsis to be printed if nonzero. */
@@ -1325,6 +1359,7 @@ val_print_string (CORE_ADDR addr, int len, int width, struct ui_file *stream,
int bytes_read;
gdb_byte *buffer = NULL; /* Dynamically growable fetch buffer. */
struct cleanup *old_chain = NULL; /* Top of the old cleanup chain. */
+ int width = TYPE_LENGTH (elttype);
/* First we need to figure out the limit on the number of characters we are
going to attempt to fetch and print. This is actually pretty simple. If
@@ -1378,7 +1413,7 @@ val_print_string (CORE_ADDR addr, int len, int width, struct ui_file *stream,
{
fputs_filtered (" ", stream);
}
- LA_PRINT_STRING (stream, buffer, bytes_read / width, width, force_ellipsis, options);
+ LA_PRINT_STRING (stream, elttype, buffer, bytes_read / width, force_ellipsis, options);
}
if (errcode != 0)
diff --git a/gdb/valprint.h b/gdb/valprint.h
index 8b65af6..4f63fa6 100644
--- a/gdb/valprint.h
+++ b/gdb/valprint.h
@@ -84,6 +84,12 @@ struct value_print_options
/* If nonzero, print static fields for Pascal. FIXME: C++ and Java
share one flag, why not Pascal too? */
int pascal_static_field_print;
+
+ /* Controls Python pretty-printing. */
+ int raw;
+
+ /* If nonzero, print the value in "summary" form. */
+ int summary;
};
/* The global print options set by the user. In general this should
@@ -134,9 +140,10 @@ extern void print_decimal_chars (struct ui_file *, const gdb_byte *,
extern void print_hex_chars (struct ui_file *, const gdb_byte *,
unsigned int, enum bfd_endian);
-extern void print_char_chars (struct ui_file *, const gdb_byte *,
- unsigned int, enum bfd_endian);
+extern void print_char_chars (struct ui_file *, struct type *,
+ const gdb_byte *, unsigned int, enum bfd_endian);
int read_string (CORE_ADDR addr, int len, int width, unsigned int fetchlimit,
gdb_byte **buffer, int *bytes_read);
+
#endif
diff --git a/gdb/value.c b/gdb/value.c
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
index 4d4329e..5c81d83 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/value.c
+++ b/gdb/value.c
@@ -36,6 +36,7 @@
#include "block.h"
#include "dfp.h"
#include "objfiles.h"
+#include "cli/cli-decode.h"
#include "valprint.h"
#include "python/python.h"
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -44,6 +45,23 @@
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
void _initialize_values (void);
+/* Definition of a user function. */
+struct internal_function
+{
+ /* The name of the function. It is a bit odd to have this in the
+ function itself -- the user might use a differently-named
+ convenience variable to hold the function. */
+ char *name;
+
+ /* The handler. */
+ internal_function_fn handler;
+
+ /* User data for the handler. */
+ void *cookie;
+};
+
+static struct cmd_list_element *functionlist;
+
struct value
{
/* Type of value; either not an lval, or one of the various
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -203,6 +221,10 @@ struct value_history_chunk
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
static struct value_history_chunk *value_history_chain;
static int value_history_count; /* Abs number of last entry stored */
+
+/* The type of internal functions. */
+
+static struct type *internal_fn_type;
/* List of all value objects currently allocated
(except for those released by calls to release_value)
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -225,9 +247,11 @@ allocate_value_lazy (struct type *type)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
val->next = all_values;
all_values = val;
val->type = type;
+ type_incref (type);
val->enclosing_type = type;
+ type_incref (type);
VALUE_LVAL (val) = not_lval;
- VALUE_ADDRESS (val) = 0;
+ val->location.address = 0;
VALUE_FRAME_ID (val) = null_frame_id;
val->offset = 0;
val->bitpos = 0;
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -269,13 +293,9 @@ struct value *
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
allocate_repeat_value (struct type *type, int count)
{
int low_bound = current_language->string_lower_bound; /* ??? */
- /* FIXME-type-allocation: need a way to free this type when we are
- done with it. */
struct type *range_type
= create_range_type ((struct type *) NULL, builtin_type_int32,
low_bound, count + low_bound - 1);
- /* FIXME-type-allocation: need a way to free this type when we are
- done with it. */
return allocate_value (create_array_type ((struct type *) NULL,
type, range_type));
}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -335,6 +355,8 @@ value_type (struct value *value)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
void
deprecated_set_value_type (struct value *value, struct type *type)
{
+ type_incref (type);
+ type_decref (value->type);
value->type = type;
}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -509,6 +531,32 @@ deprecated_value_address_hack (struct value *value)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return &value->location.address;
}
+CORE_ADDR
+value_address (struct value *value)
+{
+ if (value->lval == lval_internalvar
+ || value->lval == lval_internalvar_component)
+ return 0;
+ return value->location.address + value->offset;
+}
+
+CORE_ADDR
+value_raw_address (struct value *value)
+{
+ if (value->lval == lval_internalvar
+ || value->lval == lval_internalvar_component)
+ return 0;
+ return value->location.address;
+}
+
+void
+set_value_address (struct value *value, CORE_ADDR addr)
+{
+ gdb_assert (value->lval != lval_internalvar
+ && value->lval != lval_internalvar_component);
+ value->location.address = addr;
+}
+
struct internalvar **
deprecated_value_internalvar_hack (struct value *value)
{
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -547,11 +595,16 @@ value_mark (void)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return all_values;
}
+/* Deallocate a value and run destructors if needed. */
+
void
value_free (struct value *val)
{
if (val)
{
+ type_decref (val->type);
+ type_decref (val->enclosing_type);
+
if (VALUE_LVAL (val) == lval_computed)
{
struct lval_funcs *funcs = val->location.computed.funcs;
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -655,6 +708,8 @@ value_copy (struct value *arg)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
val = allocate_value_lazy (encl_type);
else
val = allocate_value (encl_type);
+ type_incref (arg->type);
+ type_decref (val->type);
val->type = arg->type;
VALUE_LVAL (val) = VALUE_LVAL (arg);
val->location = arg->location;
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -693,6 +748,7 @@ set_value_component_location (struct value *component, struct value *whole)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
VALUE_LVAL (component) = VALUE_LVAL (whole);
component->location = whole->location;
+
if (VALUE_LVAL (whole) == lval_computed)
{
struct lval_funcs *funcs = whole->location.computed.funcs;
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -700,6 +756,8 @@ set_value_component_location (struct value *component, struct value *whole)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
if (funcs->copy_closure)
component->location.computed.closure = funcs->copy_closure (whole);
}
+
+ object_address_get_data (value_type (whole), &VALUE_ADDRESS (component));
}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -830,6 +888,25 @@ show_values (char *num_exp, int from_tty)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
num_exp[1] = '\0';
}
}
+
+/* Sanity check for memory leaks and proper types reference counting. */
+
+static void
+value_history_cleanup (void *unused)
+{
+ while (value_history_chain)
+ {
+ struct value_history_chunk *chunk = value_history_chain;
+ int i;
+
+ for (i = 0; i < ARRAY_SIZE (chunk->values); i++)
+ value_free (chunk->values[i]);
+
+ value_history_chain = chunk->next;
+ xfree (chunk);
+ }
+ value_history_count = 0;
+}
/* Internal variables. These are variables within the debugger
that hold values assigned by debugger commands.
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -878,7 +955,7 @@ init_if_undefined_command (char* args, int from_tty)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
the return value is NULL. */
struct internalvar *
-lookup_only_internalvar (char *name)
+lookup_only_internalvar (const char *name)
{
struct internalvar *var;
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -894,7 +971,7 @@ lookup_only_internalvar (char *name)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
NAME should not normally include a dollar sign. */
struct internalvar *
-create_internalvar (char *name)
+create_internalvar (const char *name)
{
struct internalvar *var;
var = (struct internalvar *) xmalloc (sizeof (struct internalvar));
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -902,6 +979,7 @@ create_internalvar (char *name)
var->value = allocate_value (builtin_type_void);
var->endian = gdbarch_byte_order (current_gdbarch);
var->make_value = NULL;
+ var->canonical = 0;
release_value (var->value);
var->next = internalvars;
internalvars = var;
@@ -934,7 +1012,7 @@ create_internalvar_type_lazy (char *name, internalvar_make_value fun)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
one is created, with a void value. */
struct internalvar *
-lookup_internalvar (char *name)
+lookup_internalvar (const char *name)
{
struct internalvar *var;
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1031,6 +1109,9 @@ set_internalvar (struct internalvar *var, struct value *val)
{
struct value *newval;
+ if (var->canonical)
+ error (_("Cannot overwrite convenience function %s"), var->name);
+
newval = value_copy (val);
newval->modifiable = 1;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
@@ -1042,7 +1123,7 @@ set_internalvar (struct internalvar *var, struct value *val)
/* Begin code which must not call error(). If var->value points to
something free'd, an error() obviously leaves a dangling pointer.
- But we also get a danling pointer if var->value points to
+ But we also get a dangling pointer if var->value points to
something in the value chain (i.e., before release_value is
called), because after the error free_all_values will get called before
long. */
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1059,6 +1140,76 @@ internalvar_name (struct internalvar *var)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return var->name;
}
+static struct value *
+value_create_internal_function (const char *name,
+ internal_function_fn handler,
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ void *cookie)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+{
+ struct value *result = allocate_value (internal_fn_type);
+ gdb_byte *addr = value_contents_writeable (result);
+ struct internal_function **fnp = (struct internal_function **) addr;
+ struct internal_function *ifn = XNEW (struct internal_function);
+ ifn->name = xstrdup (name);
+ ifn->handler = handler;
+ ifn->cookie = cookie;
+ *fnp = ifn;
+ return result;
+}
+
+char *
+value_internal_function_name (struct value *val)
+{
+ gdb_byte *addr = value_contents_writeable (val);
+ struct internal_function *ifn = * (struct internal_function **) addr;
+ return ifn->name;
+}
+
+struct value *
+call_internal_function (struct value *func, int argc, struct value **argv)
+{
+ gdb_byte *addr = value_contents_writeable (func);
+ struct internal_function *ifn = * (struct internal_function **) addr;
+ return (*ifn->handler) (ifn->cookie, argc, argv);
+}
+
+/* The 'function' command. This does nothing -- it is just a
+ placeholder to let "help function NAME" work. This is also used as
+ the implementation of the sub-command that is created when
+ registering an internal function. */
+static void
+function_command (char *command, int from_tty)
+{
+ /* Do nothing. */
+}
+
+/* Clean up if an internal function's command is destroyed. */
+static void
+function_destroyer (struct cmd_list_element *self, void *ignore)
+{
+ xfree (self->name);
+ xfree (self->doc);
+}
+
+/* Add a new internal function. NAME is the name of the function; DOC
+ is a documentation string describing the function. HANDLER is
+ called when the function is invoked. COOKIE is an arbitrary
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ pointer which is passed to HANDLER and is intended for "user
+ data". */
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+void
+add_internal_function (const char *name, const char *doc,
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ internal_function_fn handler, void *cookie)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+{
+ struct cmd_list_element *cmd;
+ struct internalvar *var = lookup_internalvar (name);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ struct value *fnval = value_create_internal_function (name, handler, cookie);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+ set_internalvar (var, fnval);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ var->canonical = 1;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+ cmd = add_cmd (xstrdup (name), no_class, function_command, (char *) doc,
+ &functionlist);
+ cmd->destroyer = function_destroyer;
+}
+
/* Update VALUE before discarding OBJFILE. COPIED_TYPES is used to
prevent cycles / duplicates. */
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1067,12 +1218,21 @@ preserve_one_value (struct value *value, struct objfile *objfile,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
htab_t copied_types)
{
if (TYPE_OBJFILE (value->type) == objfile)
- value->type = copy_type_recursive (objfile, value->type, copied_types);
+ {
+ /* No need to decref the old type here, since we know it has no
+ reference count. */
+ value->type = copy_type_recursive (value->type, copied_types);
+ type_incref (value->type);
+ }
if (TYPE_OBJFILE (value->enclosing_type) == objfile)
- value->enclosing_type = copy_type_recursive (objfile,
- value->enclosing_type,
- copied_types);
+ {
+ /* No need to decref the old type here, since we know it has no
+ reference count. */
+ value->enclosing_type = copy_type_recursive (value->enclosing_type,
+ copied_types);
+ type_incref (value->enclosing_type);
+ }
}
/* Update the internal variables and value history when OBJFILE is
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1196,7 +1356,7 @@ value_as_address (struct value *val)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
Upon entry to this function, if VAL is a value of type `function'
(that is, TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_FUNC), then
- VALUE_ADDRESS (val) is the address of the function. This is what
+ value_address (val) is the address of the function. This is what
you'll get if you evaluate an expression like `main'. The call
to COERCE_ARRAY below actually does all the usual unary
conversions, which includes converting values of type `function'
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1216,7 +1376,7 @@ value_as_address (struct value *val)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
function, just return its address directly. */
if (TYPE_CODE (value_type (val)) == TYPE_CODE_FUNC
|| TYPE_CODE (value_type (val)) == TYPE_CODE_METHOD)
- return VALUE_ADDRESS (val);
+ return value_address (val);
val = coerce_array (val);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1447,7 +1607,7 @@ value_static_field (struct type *type, int fieldno)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
if (retval && VALUE_LVAL (retval) == lval_memory)
SET_FIELD_PHYSADDR (TYPE_FIELD (type, fieldno),
- VALUE_ADDRESS (retval));
+ value_address (retval));
}
return retval;
}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1465,6 +1625,8 @@ value_change_enclosing_type (struct value *val, struct type *new_encl_type)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
val->contents =
(gdb_byte *) xrealloc (val->contents, TYPE_LENGTH (new_encl_type));
+ type_incref (new_encl_type);
+ type_decref (val->enclosing_type);
val->enclosing_type = new_encl_type;
return val;
}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1516,6 +1678,8 @@ value_primitive_field (struct value *arg1, int offset,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
memcpy (value_contents_all_raw (v), value_contents_all_raw (arg1),
TYPE_LENGTH (value_enclosing_type (arg1)));
}
+ type_incref (type);
+ type_decref (v->type);
v->type = type;
v->offset = value_offset (arg1);
v->embedded_offset = (offset + value_embedded_offset (arg1)
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1592,7 +1756,7 @@ value_fn_field (struct value **arg1p, struct fn_field *f, int j, struct type *ty
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
v = allocate_value (ftype);
if (sym)
{
- VALUE_ADDRESS (v) = BLOCK_START (SYMBOL_BLOCK_VALUE (sym));
+ set_value_address (v, BLOCK_START (SYMBOL_BLOCK_VALUE (sym)));
}
else
{
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1601,9 +1765,9 @@ value_fn_field (struct value **arg1p, struct fn_field *f, int j, struct type *ty
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
struct objfile *objfile = msymbol_objfile (msym);
struct gdbarch *gdbarch = get_objfile_arch (objfile);
- VALUE_ADDRESS (v)
- = gdbarch_convert_from_func_ptr_addr
- (gdbarch, SYMBOL_VALUE_ADDRESS (msym), &current_target);
+ set_value_address (v,
+ gdbarch_convert_from_func_ptr_addr
+ (gdbarch, SYMBOL_VALUE_ADDRESS (msym), &current_target));
}
if (arg1p)
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1750,6 +1914,41 @@ pack_long (gdb_byte *buf, struct type *type, LONGEST num)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
+/* Pack NUM into BUF using a target format of TYPE. */
+
+void
+pack_unsigned_long (gdb_byte *buf, struct type *type, ULONGEST num)
+{
+ int len;
+
+ type = check_typedef (type);
+ len = TYPE_LENGTH (type);
+
+ switch (TYPE_CODE (type))
+ {
+ case TYPE_CODE_INT:
+ case TYPE_CODE_CHAR:
+ case TYPE_CODE_ENUM:
+ case TYPE_CODE_FLAGS:
+ case TYPE_CODE_BOOL:
+ case TYPE_CODE_RANGE:
+ case TYPE_CODE_MEMBERPTR:
+ store_unsigned_integer (buf, len, num);
+ break;
+
+ case TYPE_CODE_REF:
+ case TYPE_CODE_PTR:
+ store_typed_address (buf, type, (CORE_ADDR) num);
+ break;
+
+ default:
+ error (_("\
+Unexpected type (%d) encountered for unsigned integer constant."),
+ TYPE_CODE (type));
+ }
+}
+
+
/* Convert C numbers into newly allocated values. */
struct value *
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1763,6 +1962,19 @@ value_from_longest (struct type *type, LONGEST num)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
+/* Convert C unsigned numbers into newly allocated values. */
+
+struct value *
+value_from_ulongest (struct type *type, ULONGEST num)
+{
+ struct value *val = allocate_value (type);
+
+ pack_unsigned_long (value_contents_raw (val), type, num);
+
+ return val;
+}
+
+
/* Create a value representing a pointer of type TYPE to the address
ADDR. */
struct value *
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1816,8 +2028,9 @@ value_from_contents_and_address (struct type *type,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
set_value_lazy (v, 1);
else
memcpy (value_contents_raw (v), valaddr, TYPE_LENGTH (type));
- VALUE_ADDRESS (v) = address;
- VALUE_LVAL (v) = lval_memory;
+ set_value_address (v, address);
+ if (address != 0)
+ VALUE_LVAL (v) = lval_memory;
return v;
}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1944,4 +2157,15 @@ init-if-undefined VARIABLE = EXPRESSION\n\
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
Set an internal VARIABLE to the result of the EXPRESSION if it does not\n\
exist or does not contain a value. The EXPRESSION is not evaluated if the\n\
VARIABLE is already initialized."));
+
+ add_prefix_cmd ("function", no_class, function_command, _("\
+Placeholder command for showing help on convenience functions."),
+ &functionlist, "function ", 0, &cmdlist);
+
+ internal_fn_type = alloc_type (OBJFILE_INTERNAL, NULL);
+ TYPE_CODE (internal_fn_type) = TYPE_CODE_INTERNAL_FUNCTION;
+ TYPE_LENGTH (internal_fn_type) = sizeof (struct internal_function *);
+ TYPE_NAME (internal_fn_type) = "<internal function>";
+
+ make_final_cleanup (value_history_cleanup, NULL);
}
diff --git a/gdb/value.h b/gdb/value.h
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
index aa43365..1ad3c75 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/value.h
+++ b/gdb/value.h
@@ -272,12 +272,23 @@ extern void set_value_component_location (struct value *component,
extern enum lval_type *deprecated_value_lval_hack (struct value *);
#define VALUE_LVAL(val) (*deprecated_value_lval_hack (val))
-/* If lval == lval_memory, this is the address in the inferior. If
- lval == lval_register, this is the byte offset into the registers
- structure. */
+/* Backward compatibility for the Fedora merge branch. */
extern CORE_ADDR *deprecated_value_address_hack (struct value *);
#define VALUE_ADDRESS(val) (*deprecated_value_address_hack (val))
+/* If lval == lval_memory, return the address in the inferior. If
+ lval == lval_register, return the byte offset into the registers
+ structure. Otherwise, return 0. The returned address
+ includes the offset, if any. */
+extern CORE_ADDR value_address (struct value *);
+
+/* Like value_address, except the result does not include value's
+ offset. */
+extern CORE_ADDR value_raw_address (struct value *);
+
+/* Set the address of a value. */
+extern void set_value_address (struct value *, CORE_ADDR);
+
/* Pointer to internal variable. */
extern struct internalvar **deprecated_value_internalvar_hack (struct value *);
#define VALUE_INTERNALVAR(val) (*deprecated_value_internalvar_hack (val))
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -314,6 +325,9 @@ struct internalvar
struct value *value;
internalvar_make_value make_value;
int endian;
+ /* True if this internalvar is the canonical name for a convenience
+ function. */
+ int canonical;
};
@@ -342,12 +356,17 @@ extern LONGEST unpack_field_as_long (struct type *type,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
extern void pack_long (gdb_byte *buf, struct type *type, LONGEST num);
extern struct value *value_from_longest (struct type *type, LONGEST num);
+extern struct value *value_from_ulongest (struct type *type, ULONGEST num);
extern struct value *value_from_pointer (struct type *type, CORE_ADDR addr);
extern struct value *value_from_double (struct type *type, DOUBLEST num);
extern struct value *value_from_decfloat (struct type *type,
const gdb_byte *decbytes);
extern struct value *value_from_string (char *string);
+extern const char *object_address_data_not_valid (struct type *type);
+extern int object_address_get_data (struct type *type,
+ CORE_ADDR *address_return);
+
extern struct value *value_at (struct type *type, CORE_ADDR addr);
extern struct value *value_at_lazy (struct type *type, CORE_ADDR addr);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -388,6 +407,8 @@ extern struct value *value_mark (void);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
extern void value_free_to_mark (struct value *mark);
+extern struct value *value_typed_string (char *ptr, int len,
+ struct type *char_type);
extern struct value *value_string (char *ptr, int len);
extern struct value *value_bitstring (char *ptr, int len);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -435,6 +456,7 @@ extern struct value *value_struct_elt (struct value **argp,
- Include the Archer Project: http://sourceware.org/gdb/wiki/ProjectArcher http://sourceware.org/gdb/wiki/PythonGdb [catch-syscall] Trap and display syscalls. [delayed-symfile] Improve startup performance by lazily read psymtabs. [exception-rewind] Fix fatal C++ exceptions in an inferior function call. [expr] Expressions, single-quote elimination, C++ input canonicalization. [using-directive] C++ namespaces. [vla] C variable length arrays / DW_FORM_block / Fortran dynamic arrays. [misc] Fix debuginfoless `return' (BZ 365111), fix command-line macros for expected GCC (BZ 479914), new testcase for valgrind (for BZ 483262), implement `info common' for Fortran, fix Fortran logical-kind=8 (BZ 465310), fix static variable in C++ constructors (BZ 445912), fix power7 (BZ 485319). - Upgrade to the FSF GDB gdb-6.8.50 snapshot. - Fix parsing elf64-i386 files for kdump PAE vmcore dumps (BZ 457187). - Turn on 64-bit BFD support, globally enable AC_SYS_LARGEFILE.
2009-03-02 23:14:15 +00:00
extern struct value *value_aggregate_elt (struct type *curtype,
char *name,
+ struct type *expect_type,
int want_address,
enum noside noside);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -533,14 +555,14 @@ extern void set_internalvar_component (struct internalvar *var,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
int bitpos, int bitsize,
struct value *newvalue);
-extern struct internalvar *lookup_only_internalvar (char *name);
+extern struct internalvar *lookup_only_internalvar (const char *name);
-extern struct internalvar *create_internalvar (char *name);
+extern struct internalvar *create_internalvar (const char *name);
extern struct internalvar *
create_internalvar_type_lazy (char *name, internalvar_make_value fun);
-extern struct internalvar *lookup_internalvar (char *name);
+extern struct internalvar *lookup_internalvar (const char *name);
extern int value_equal (struct value *arg1, struct value *arg2);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -619,7 +641,7 @@ extern int common_val_print (struct value *val,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
const struct value_print_options *options,
const struct language_defn *language);
-extern int val_print_string (CORE_ADDR addr, int len, int width,
+extern int val_print_string (struct type *elttype, CORE_ADDR addr, int len,
struct ui_file *stream,
const struct value_print_options *options);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -658,5 +680,22 @@ extern struct value *value_allocate_space_in_inferior (int);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
extern struct value *value_of_local (const char *name, int complain);
-extern struct value * value_subscripted_rvalue (struct value *array, struct value *idx, int lowerbound);
+extern struct value *value_subscripted_rvalue (struct value *array,
+ CORE_ADDR offset);
+
+/* User function handler. */
+
+typedef struct value *(*internal_function_fn) (void *cookie,
+ int argc,
+ struct value **argv);
+
+void add_internal_function (const char *name, const char *doc,
+ internal_function_fn handler,
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ void *cookie);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+
+struct value *call_internal_function (struct value *function,
+ int argc, struct value **argv);
+
+char *value_internal_function_name (struct value *);
+
#endif /* !defined (VALUE_H) */
diff --git a/gdb/varobj.c b/gdb/varobj.c
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
index 2ec6d90..1237c96 100644
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
--- a/gdb/varobj.c
+++ b/gdb/varobj.c
@@ -29,11 +29,20 @@
#include "gdb_assert.h"
#include "gdb_string.h"
+#include "gdb_regex.h"
#include "varobj.h"
#include "vec.h"
#include "gdbthread.h"
#include "inferior.h"
+#include "valprint.h"
+
+#if HAVE_PYTHON
+#include "python/python.h"
+#include "python/python-internal.h"
+#else
+typedef int PyObject;
+#endif
/* Non-zero if we want to see trace of varobj level stuff. */
@@ -138,6 +147,12 @@ struct varobj
/* Children of this object. */
VEC (varobj_p) *children;
+ /* Whether the children of this varobj were requested. This field is
+ used to decide if dynamic varobj should recompute their children.
+ In the event that the frontend never asked for the children, we
+ can avoid that. */
+ int children_requested;
+
/* Description of the root variable. Points to root variable for children. */
struct varobj_root *root;
@@ -159,6 +174,16 @@ struct varobj
not fetched if either the variable is frozen, or any parents is
frozen. */
int not_fetched;
+
+ /* Sub-range of children which the MI consumer has requested. If
+ FROM < 0 or TO < 0, means that all children have been
+ requested. */
+ int from;
+ int to;
+
+ /* The pretty-printer that has been constructed. If NULL, then a
+ new printer object is needed, and one will be constructed. */
+ PyObject *pretty_printer;
};
struct cpstack
@@ -190,6 +215,10 @@ static void uninstall_variable (struct varobj *);
static struct varobj *create_child (struct varobj *, int, char *);
+static struct varobj *
+create_child_with_value (struct varobj *parent, int index, const char *name,
+ struct value *value);
+
/* Utility routines */
static struct varobj *new_variable (void);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -200,6 +229,8 @@ static void free_variable (struct varobj *var);
static struct cleanup *make_cleanup_free_variable (struct varobj *var);
+static struct cleanup *make_cleanup_uninstall_variable (struct varobj *var);
+
static struct type *get_type (struct varobj *var);
static struct type *get_value_type (struct varobj *var);
@@ -215,6 +246,8 @@ static char *cppop (struct cpstack **pstack);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
static int install_new_value (struct varobj *var, struct value *value,
int initial);
+static void install_default_visualizer (struct varobj *var);
+
/* Language-specific routines. */
static enum varobj_languages variable_language (struct varobj *var);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -232,13 +265,17 @@ static struct value *value_of_child (struct varobj *parent, int index);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
static char *my_value_of_variable (struct varobj *var,
enum varobj_display_formats format);
-static char *value_get_print_value (struct value *value,
- enum varobj_display_formats format);
+char *value_get_print_value (struct value *value,
+ enum varobj_display_formats format,
+ PyObject *value_formatter);
static int varobj_value_is_changeable_p (struct varobj *var);
static int is_root_p (struct varobj *var);
+static struct varobj *
+varobj_add_child (struct varobj *var, const char *name, struct value *value);
+
/* C implementation */
static int c_number_of_children (struct varobj *var);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -570,8 +607,10 @@ varobj_create (char *objname,
do_cleanups (old_chain);
return NULL;
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ make_cleanup_uninstall_variable (var);
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
+ install_default_visualizer (var);
discard_cleanups (old_chain);
return var;
}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -678,6 +717,33 @@ varobj_delete (struct varobj *var, char ***dellist, int only_children)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return delcount;
}
+/* Convenience function for varobj_set_visualizer. Instantiate a
+ pretty-printer for a given value. */
+static PyObject *
+instantiate_pretty_printer (PyObject *constructor, struct value *value)
+{
+#if HAVE_PYTHON
+ PyObject *val_obj = NULL;
+ PyObject *printer;
+ volatile struct gdb_exception except;
+
+ TRY_CATCH (except, RETURN_MASK_ALL)
+ {
+ value = value_copy (value);
+ }
+ GDB_PY_HANDLE_EXCEPTION (except);
+ val_obj = value_to_value_object (value);
+
+ if (! val_obj)
+ return NULL;
+
+ printer = gdbpy_instantiate_printer (constructor, val_obj);
+ Py_DECREF (val_obj);
+ return printer;
+#endif
+ return NULL;
+}
+
/* Set/Get variable object display format */
enum varobj_display_formats
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -702,7 +768,8 @@ varobj_set_display_format (struct varobj *var,
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
&& var->value && !value_lazy (var->value))
{
xfree (var->print_value);
- var->print_value = value_get_print_value (var->value, var->format);
+ var->print_value = value_get_print_value (var->value, var->format,
+ var->pretty_printer);
}
return var->format;
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -714,6 +781,21 @@ varobj_get_display_format (struct varobj *var)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return var->format;
}
+char *
+varobj_get_display_hint (struct varobj *var)
+{
+ char *result = NULL;
+
+#if HAVE_PYTHON
+ PyGILState_STATE state = PyGILState_Ensure ();
+ if (var->pretty_printer)
+ result = gdbpy_get_display_hint (var->pretty_printer);
+ PyGILState_Release (state);
+#endif
+
+ return result;
+}
+
/* If the variable object is bound to a specific thread, that
is its evaluation can always be done in context of a frame
inside that thread, returns GDB id of the thread -- which
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -746,12 +828,141 @@ varobj_get_frozen (struct varobj *var)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return var->frozen;
}
+static int
+update_dynamic_varobj_children (struct varobj *var,
+ VEC (varobj_p) **changed,
+ VEC (varobj_p) **new_and_unchanged,
+ int *cchanged)
+
+{
+#if HAVE_PYTHON
+ /* FIXME: we *might* want to provide this functionality as
+ a standalone function, so that other interested parties
+ than varobj code can benefit for this. */
+ struct cleanup *back_to;
+ PyObject *children;
+ PyObject *iterator;
+ int i;
+ int children_changed = 0;
+ PyObject *printer = var->pretty_printer;
+ PyGILState_STATE state;
+
+ state = PyGILState_Ensure ();
+ back_to = make_cleanup_py_restore_gil (&state);
+
+ *cchanged = 0;
+ if (!PyObject_HasAttr (printer, gdbpy_children_cst))
+ {
+ do_cleanups (back_to);
+ return 0;
+ }
+
+ children = PyObject_CallMethodObjArgs (printer, gdbpy_children_cst,
+ NULL);
+
+ if (!children)
+ {
+ gdbpy_print_stack ();
+ error ("Null value returned for children");
+ }
+
+ make_cleanup_py_decref (children);
+
+ if (!PyIter_Check (children))
+ error ("Returned value is not iterable");
+
+ iterator = PyObject_GetIter (children);
+ if (!iterator)
+ {
+ gdbpy_print_stack ();
+ error ("Could not get children iterator");
+ }
+ make_cleanup_py_decref (iterator);
+
+ for (i = 0; ; ++i)
+ {
+ PyObject *item = PyIter_Next (iterator);
+ PyObject *py_v;
+ struct value *v;
+ char *name;
+ struct cleanup *inner;
+
+ if (!item)
+ break;
+ inner = make_cleanup_py_decref (item);
+
+ if (!PyArg_ParseTuple (item, "sO", &name, &py_v))
+ error ("Invalid item from the child list");
+
+ if (PyObject_TypeCheck (py_v, &value_object_type))
+ {
+ /* If we just call convert_value_from_python for this type,
+ we won't know who owns the result. For this one case we
+ need to copy the resulting value. */
+ v = value_object_to_value (py_v);
+ v = value_copy (v);
+ }
+ else
+ v = convert_value_from_python (py_v);
+
+ /* TODO: This assume the name of the i-th child never changes. */
+
+ /* Now see what to do here. */
+ if (VEC_length (varobj_p, var->children) < i + 1)
+ {
+ /* There's no child yet. */
+ struct varobj *child = varobj_add_child (var, name, v);
+ if (new_and_unchanged)
+ VEC_safe_push (varobj_p, *new_and_unchanged, child);
+ children_changed = 1;
+ }
+ else
+ {
+ varobj_p existing = VEC_index (varobj_p, var->children, i);
+ if (install_new_value (existing, v, 0) && changed)
+ {
+ if (changed)
+ VEC_safe_push (varobj_p, *changed, existing);
+ }
+ else
+ {
+ if (new_and_unchanged)
+ VEC_safe_push (varobj_p, *new_and_unchanged, existing);
+ }
+ }
+
+ do_cleanups (inner);
+ }
+
+ if (i < VEC_length (varobj_p, var->children))
+ {
+ int i;
+ children_changed = 1;
+ for (i = 0; i < VEC_length (varobj_p, var->children); ++i)
+ varobj_delete (VEC_index (varobj_p, var->children, i), NULL, 0);
+ }
+ VEC_truncate (varobj_p, var->children, i);
+ var->num_children = VEC_length (varobj_p, var->children);
+
+ do_cleanups (back_to);
+
+ *cchanged = children_changed;
+ return 1;
+#else
+ gdb_assert (0 && "should never be called if Python is not enabled");
+#endif
+}
int
varobj_get_num_children (struct varobj *var)
{
if (var->num_children == -1)
- var->num_children = number_of_children (var);
+ {
+ int changed;
+ if (!var->pretty_printer
+ || !update_dynamic_varobj_children (var, NULL, NULL, &changed))
+ var->num_children = number_of_children (var);
+ }
return var->num_children;
}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -764,7 +975,16 @@ varobj_list_children (struct varobj *var)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
{
struct varobj *child;
char *name;
- int i;
+ int i, children_changed;
+
+ var->children_requested = 1;
+
+ if (var->pretty_printer
+ /* This, in theory, can result in the number of children changing without
+ frontend noticing. But well, calling -var-list-children on the same
+ varobj twice is not something a sane frontend would do. */
+ && update_dynamic_varobj_children (var, NULL, NULL, &children_changed))
+ return var->children;
if (var->num_children == -1)
var->num_children = number_of_children (var);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -790,12 +1010,24 @@ varobj_list_children (struct varobj *var)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
name = name_of_child (var, i);
existing = create_child (var, i, name);
VEC_replace (varobj_p, var->children, i, existing);
+ install_default_visualizer (existing);
}
}
return var->children;
}
+static struct varobj *
+varobj_add_child (struct varobj *var, const char *name, struct value *value)
+{
+ varobj_p v = create_child_with_value (var,
+ VEC_length (varobj_p, var->children),
+ name, value);
+ VEC_safe_push (varobj_p, var->children, v);
+ install_default_visualizer (v);
+ return v;
+}
+
/* Obtain the type of an object Variable as a string similar to the one gdb
prints on the console */
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1002,6 +1234,13 @@ install_new_value (struct varobj *var, struct value *value, int initial)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
a type. */
gdb_assert (var->type || CPLUS_FAKE_CHILD (var));
changeable = varobj_value_is_changeable_p (var);
+
+ /* If the type has custom visualizer, we consider it to be always
+ changeable. FIXME: need to make sure this behaviour will not
+ mess up read-sensitive values. */
+ if (var->pretty_printer)
+ changeable = 1;
+
need_to_fetch = changeable;
/* We are not interested in the address of references, and given
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1053,12 +1292,14 @@ install_new_value (struct varobj *var, struct value *value, int initial)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
}
}
+
/* Below, we'll be comparing string rendering of old and new
values. Don't get string rendering if the value is
lazy -- if it is, the code above has decided that the value
should not be fetched. */
if (value && !value_lazy (value))
- print_value = value_get_print_value (value, var->format);
+ print_value = value_get_print_value (value, var->format,
+ var->pretty_printer);
/* If the type is changeable, compare the old and the new values.
If this is the initial assignment, we don't have any old value
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1123,6 +1364,150 @@ install_new_value (struct varobj *var, struct value *value, int initial)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return changed;
}
+/* Return the effective requested range for a varobj. VAR is the
+ varobj. CHILDREN is the computed list of children. FROM and TO
+ are out parameters. If VAR has no bounds selected, *FROM and *TO
+ will be set to the full range of CHILDREN. Otherwise, *FROM and
+ *TO will be set to the selected sub-range of VAR, clipped to be in
+ range of CHILDREN. */
+void
+varobj_get_child_range (struct varobj *var, VEC (varobj_p) *children,
+ int *from, int *to)
+{
+ if (var->from < 0 || var->to < 0)
+ {
+ *from = 0;
+ *to = VEC_length (varobj_p, children);
+ }
+ else
+ {
+ *from = var->from;
+ if (*from > VEC_length (varobj_p, children))
+ *from = VEC_length (varobj_p, children);
+ *to = var->to;
+ if (*to > VEC_length (varobj_p, children))
+ *to = VEC_length (varobj_p, children);
+ }
+}
+
+/* Set the selected sub-range of children of VAR to start at index
+ FROM and end at index TO. If either FROM or TO is less than zero,
+ this is interpreted as a request for all children. */
+void
+varobj_set_child_range (struct varobj *var, int from, int to)
+{
+ var->from = from;
+ var->to = to;
+}
+
+static void
+install_visualizer (struct varobj *var, PyObject *visualizer)
+{
+#if HAVE_PYTHON
+ /* If there are any children now, wipe them. */
+ varobj_delete (var, NULL, 1 /* children only */);
+ var->num_children = -1;
+
+ Py_XDECREF (var->pretty_printer);
+ var->pretty_printer = visualizer;
+
+ install_new_value (var, var->value, 1);
+
+ /* If we removed the visualizer, and the user ever requested the
+ object's children, then we must compute the list of children.
+ Note that we needn't do this when installing a visualizer,
+ because updating will recompute dynamic children. */
+ if (!visualizer && var->children_requested)
+ varobj_list_children (var);
+#else
+ error ("Python support required");
+#endif
+}
+
+static void
+install_default_visualizer (struct varobj *var)
+{
+#if HAVE_PYTHON
+ struct cleanup *cleanup;
+ PyGILState_STATE state;
+ PyObject *pretty_printer = NULL;
+
+ state = PyGILState_Ensure ();
+ cleanup = make_cleanup_py_restore_gil (&state);
+
+ if (var->value)
+ {
+ pretty_printer = gdbpy_get_varobj_pretty_printer (var->value);
+ if (! pretty_printer)
+ {
+ gdbpy_print_stack ();
+ error (_("Cannot instantiate printer for default visualizer"));
+ }
+ }
+
+ if (pretty_printer == Py_None)
+ {
+ Py_DECREF (pretty_printer);
+ pretty_printer = NULL;
+ }
+
+ install_visualizer (var, pretty_printer);
+ do_cleanups (cleanup);
+#else
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
+ /* No error is right as this function is inserted just as a hook. */
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
+#endif
+}
+
+void
+varobj_set_visualizer (struct varobj *var, const char *visualizer)
+{
+#if HAVE_PYTHON
+ PyObject *mainmod, *globals, *pretty_printer, *constructor;
+ struct cleanup *back_to, *value;
+ PyGILState_STATE state;
+
+
+ state = PyGILState_Ensure ();
+ back_to = make_cleanup_py_restore_gil (&state);
+
+ mainmod = PyImport_AddModule ("__main__");
+ globals = PyModule_GetDict (mainmod);
+ Py_INCREF (globals);
+ make_cleanup_py_decref (globals);
+
+ constructor = PyRun_String (visualizer, Py_eval_input, globals, globals);
+
+ /* Do not instantiate NoneType. */
+ if (constructor == Py_None)
+ {
+ pretty_printer = Py_None;
+ Py_INCREF (pretty_printer);
+ }
+ else
+ pretty_printer = instantiate_pretty_printer (constructor, var->value);
+
+ Py_XDECREF (constructor);
+
+ if (! pretty_printer)
+ {
+ gdbpy_print_stack ();
+ error ("Could not evaluate visualizer expression: %s", visualizer);
+ }
+
+ if (pretty_printer == Py_None)
+ {
+ Py_DECREF (pretty_printer);
+ pretty_printer = NULL;
+ }
+
+ install_visualizer (var, pretty_printer);
+
+ do_cleanups (back_to);
+#else
+ error ("Python support required");
+#endif
+}
+
/* Update the values for a variable and its children. This is a
two-pronged attack. First, re-parse the value for the root's
expression to see if it's changed. Then go all the way
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1148,7 +1533,7 @@ VEC(varobj_update_result) *varobj_update (struct varobj **varp, int explicit)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
struct varobj **cv;
struct varobj **templist = NULL;
struct value *new;
- VEC (varobj_p) *stack = NULL;
+ VEC (varobj_update_result) *stack = NULL;
VEC (varobj_update_result) *result = NULL;
struct frame_info *fi;
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1187,20 +1572,85 @@ VEC(varobj_update_result) *varobj_update (struct varobj **varp, int explicit)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
if (new == NULL)
r.status = VAROBJ_NOT_IN_SCOPE;
-
- if (r.type_changed || r.changed)
- VEC_safe_push (varobj_update_result, result, &r);
+ r.value_installed = 1;
if (r.status == VAROBJ_NOT_IN_SCOPE)
- return result;
+ {
+ VEC_safe_push (varobj_update_result, result, &r);
+ return result;
+ }
+
+ VEC_safe_push (varobj_update_result, stack, &r);
+ }
+ else
+ {
+ varobj_update_result r = {*varp};
+ VEC_safe_push (varobj_update_result, stack, &r);
}
-
- VEC_safe_push (varobj_p, stack, *varp);
/* Walk through the children, reconstructing them all. */
- while (!VEC_empty (varobj_p, stack))
+ while (!VEC_empty (varobj_update_result, stack))
{
- v = VEC_pop (varobj_p, stack);
+ varobj_update_result r = *(VEC_last (varobj_update_result, stack));
+ struct varobj *v = r.varobj;
+
+ VEC_pop (varobj_update_result, stack);
+
+ /* Update this variable, unless it's a root, which is already
+ updated. */
+ if (!r.value_installed)
+ {
+ new = value_of_child (v->parent, v->index);
+ if (install_new_value (v, new, 0 /* type not changed */))
+ {
+ r.changed = 1;
+ v->updated = 0;
+ }
+ }
+
+ /* We probably should not get children of a varobj that has a
+ pretty-printer, but for which -var-list-children was never
+ invoked. Presumably, such varobj is not yet expanded in the
+ UI, so we need not bother getting it. */
+ if (v->pretty_printer)
+ {
+ VEC (varobj_p) *changed = 0, *new_and_unchanged = 0;
+ int i, children_changed;
+ varobj_p tmp;
+
+ if (!v->children_requested)
+ continue;
+
+ if (v->frozen)
+ continue;
+
+ /* If update_dynamic_varobj_children returns 0, then we have
+ a non-conforming pretty-printer, so we skip it. */
+ if (update_dynamic_varobj_children (v, &changed, &new_and_unchanged,
+ &children_changed))
+ {
+ if (children_changed)
+ r.children_changed = 1;
+ for (i = 0; VEC_iterate (varobj_p, changed, i, tmp); ++i)
+ {
+ varobj_update_result r = {tmp};
+ r.changed = 1;
+ r.value_installed = 1;
+ VEC_safe_push (varobj_update_result, stack, &r);
+ }
+ for (i = 0;
+ VEC_iterate (varobj_p, new_and_unchanged, i, tmp);
+ ++i)
+ {
+ varobj_update_result r = {tmp};
+ r.value_installed = 1;
+ VEC_safe_push (varobj_update_result, stack, &r);
+ }
+ if (r.changed || r.children_changed)
+ VEC_safe_push (varobj_update_result, result, &r);
+ continue;
+ }
+ }
/* Push any children. Use reverse order so that the first
child is popped from the work stack first, and so
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1211,26 +1661,18 @@ VEC(varobj_update_result) *varobj_update (struct varobj **varp, int explicit)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
varobj_p c = VEC_index (varobj_p, v->children, i);
/* Child may be NULL if explicitly deleted by -var-delete. */
if (c != NULL && !c->frozen)
- VEC_safe_push (varobj_p, stack, c);
- }
-
- /* Update this variable, unless it's a root, which is already
- updated. */
- if (v->root->rootvar != v)
- {
- new = value_of_child (v->parent, v->index);
- if (install_new_value (v, new, 0 /* type not changed */))
{
- /* Note that it's changed */
- varobj_update_result r = {v};
- r.changed = 1;
- VEC_safe_push (varobj_update_result, result, &r);
- v->updated = 0;
+ varobj_update_result r = {c};
+ VEC_safe_push (varobj_update_result, stack, &r);
}
}
+
+ if (r.changed || r.type_changed)
+ VEC_safe_push (varobj_update_result, result, &r);
}
- VEC_free (varobj_p, stack);
+ VEC_free (varobj_update_result, stack);
+
return result;
}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1429,16 +1871,23 @@ uninstall_variable (struct varobj *var)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
static struct varobj *
create_child (struct varobj *parent, int index, char *name)
{
+ return create_child_with_value (parent, index, name,
+ value_of_child (parent, index));
+}
+
+static struct varobj *
+create_child_with_value (struct varobj *parent, int index, const char *name,
+ struct value *value)
+{
struct varobj *child;
char *childs_name;
- struct value *value;
child = new_variable ();
/* name is allocated by name_of_child */
- child->name = name;
+ /* FIXME: xstrdup should not be here. */
+ child->name = xstrdup (name);
child->index = index;
- value = value_of_child (parent, index);
child->parent = parent;
child->root = parent->root;
childs_name = xstrprintf ("%s.%s", parent->obj_name, name);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1487,6 +1936,10 @@ new_variable (void)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
var->print_value = NULL;
var->frozen = 0;
var->not_fetched = 0;
+ var->children_requested = 0;
+ var->from = -1;
+ var->to = -1;
+ var->pretty_printer = 0;
return var;
}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1519,6 +1972,14 @@ free_variable (struct varobj *var)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
xfree (var->root);
}
+#if HAVE_PYTHON
+ {
+ PyGILState_STATE state = PyGILState_Ensure ();
+ Py_XDECREF (var->pretty_printer);
+ PyGILState_Release (state);
+ }
+#endif
+
xfree (var->name);
xfree (var->obj_name);
xfree (var->print_value);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1538,6 +1999,18 @@ make_cleanup_free_variable (struct varobj *var)
return make_cleanup (do_free_variable_cleanup, var);
}
+static void
+do_uninstall_variable_cleanup (void *var)
+{
+ uninstall_variable (var);
+}
+
+static struct cleanup *
+make_cleanup_uninstall_variable (struct varobj *var)
+{
+ return make_cleanup (do_uninstall_variable_cleanup, var);
+}
+
/* This returns the type of the variable. It also skips past typedefs
to return the real type of the variable.
@@ -1792,24 +2265,71 @@ my_value_of_variable (struct varobj *var, enum varobj_display_formats format)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
return NULL;
}
-static char *
-value_get_print_value (struct value *value, enum varobj_display_formats format)
+char *
+value_get_print_value (struct value *value, enum varobj_display_formats format,
+ PyObject *value_formatter)
{
long dummy;
struct ui_file *stb;
struct cleanup *old_chain;
- char *thevalue;
+ char *thevalue = NULL;
struct value_print_options opts;
if (value == NULL)
return NULL;
+#if HAVE_PYTHON
+ {
+ PyGILState_STATE state = PyGILState_Ensure ();
+ if (value_formatter && PyObject_HasAttr (value_formatter,
+ gdbpy_to_string_cst))
+ {
+ char *hint;
+ struct value *replacement;
+ int string_print = 0;
+
+ hint = gdbpy_get_display_hint (value_formatter);
+ if (hint)
+ {
+ if (!strcmp (hint, "string"))
+ string_print = 1;
+ xfree (hint);
+ }
+
+ thevalue = apply_varobj_pretty_printer (value_formatter,
+ &replacement);
+ if (thevalue && !string_print)
+ {
+ PyGILState_Release (state);
+ return thevalue;
+ }
+ if (replacement)
+ value = replacement;
+ }
+ PyGILState_Release (state);
+ }
+#endif
+
stb = mem_fileopen ();
old_chain = make_cleanup_ui_file_delete (stb);
get_formatted_print_options (&opts, format_code[(int) format]);
opts.deref_ref = 0;
- common_val_print (value, stb, 0, &opts, current_language);
+ opts.raw = 1;
+ if (thevalue)
+ {
+ struct type *string_char_type;
+
+ make_cleanup (xfree, thevalue);
+
+ /* OUTPUT is already in the hosts's charset. */
+ string_char_type = language_string_char_type (current_language,
+ current_gdbarch);
+ LA_PRINT_STRING (stb, string_char_type, (gdb_byte *) thevalue,
+ strlen (thevalue), 0, &opts);
+ }
+ else
+ common_val_print (value, stb, 0, &opts, current_language);
thevalue = ui_file_xstrdup (stb, &dummy);
do_cleanups (old_chain);
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -1900,7 +2420,7 @@ varobj_floating_p (struct varobj *var)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
value is not known.
If WAS_PTR is not NULL, set *WAS_PTR to 0 or 1
- depending on whether pointer was deferenced
+ depending on whether pointer was dereferenced
in this function. */
static void
adjust_value_for_child_access (struct value **value,
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -2269,6 +2789,11 @@ c_value_of_variable (struct varobj *var, enum varobj_display_formats format)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
catch that case explicitly. */
struct type *type = get_type (var);
+ /* If we have a custom formatter, return whatever string it has
+ produced. */
+ if (var->pretty_printer && var->print_value)
+ return xstrdup (var->print_value);
+
/* Strip top-level references. */
while (TYPE_CODE (type) == TYPE_CODE_REF)
type = check_typedef (TYPE_TARGET_TYPE (type));
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -2313,7 +2838,8 @@ c_value_of_variable (struct varobj *var, enum varobj_display_formats format)
Backup of a draft Archer port - before importing archer-keiths-expr-cumulative.
2009-03-02 00:11:35 +00:00
if (format == var->format)
return xstrdup (var->print_value);
else
- return value_get_print_value (var->value, format);
+ return value_get_print_value (var->value, format,
+ var->pretty_printer);
}
}
}
diff --git a/gdb/varobj.h b/gdb/varobj.h
index f2cdcf8..10758d6 100644
--- a/gdb/varobj.h
+++ b/gdb/varobj.h
@@ -72,7 +72,12 @@ typedef struct varobj_update_result_t
struct varobj *varobj;
int type_changed;
int changed;
+ int children_changed;
enum varobj_scope_status status;
+ /* This variable is used internally by varobj_update to indicate if the
+ new value of varobj is already computed and installed, or has to
+ be yet installed. Don't use this outside varobj.c */
+ int value_installed;
} varobj_update_result;
DEF_VEC_O (varobj_update_result);
@@ -107,6 +112,14 @@ extern void varobj_set_frozen (struct varobj *var, int frozen);
extern int varobj_get_frozen (struct varobj *var);
+extern void varobj_get_child_range (struct varobj *var,
+ VEC (varobj_p) *children,
+ int *from, int *to);
+
+extern void varobj_set_child_range (struct varobj *var, int from, int to);
+
+extern char *varobj_get_display_hint (struct varobj *var);
+
extern int varobj_get_num_children (struct varobj *var);
/* Return the list of children of VAR. The returned vector
@@ -141,4 +154,13 @@ extern int varobj_editable_p (struct varobj *var);
extern int varobj_floating_p (struct varobj *var);
+extern void
+varobj_set_visualizer (struct varobj *var, const char *visualizer);
+
+extern void
+varobj_clear_type_visualizers ();
+
+extern void
+varobj_set_visualizer (struct varobj *var, const char *visualizer);
+
#endif /* VAROBJ_H */
diff --git a/gdb/xcoffread.c b/gdb/xcoffread.c
index aab3e48..d41738b 100644
--- a/gdb/xcoffread.c
+++ b/gdb/xcoffread.c
@@ -3021,6 +3021,7 @@ static struct sym_fns xcoff_sym_fns =
xcoff_new_init, /* sym_new_init: init anything gbl to entire symtab */
xcoff_symfile_init, /* sym_init: read initial info, setup for sym_read() */
xcoff_initial_scan, /* sym_read: read a symbol file into symtab */
+ NULL, /* sym_read_psymbols */
xcoff_symfile_finish, /* sym_finish: finished with file, cleanup */
xcoff_symfile_offsets, /* sym_offsets: xlate offsets ext->int form */
default_symfile_segments, /* sym_segments: Get segment information from
diff --git a/gdb/xml-syscall.c b/gdb/xml-syscall.c
new file mode 100644
index 0000000..498f58a
--- /dev/null
+++ b/gdb/xml-syscall.c
@@ -0,0 +1,423 @@
+/* Functions that provide the mechanism to parse a syscall XML file
+ and get its values.
+
+ Copyright (C) 1986, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996,
+ 1998, 1999, 2000, 2001, 2003, 2004, 2005, 2006, 2007, 2008
+ Free Software Foundation, Inc.
+
+ This file is part of GDB.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include "defs.h"
+#include "gdbtypes.h"
+#include "xml-support.h"
+#include "xml-syscall.h"
+
+#include "filenames.h"
+
+#include "gdb_assert.h"
+
+#ifndef HAVE_LIBEXPAT
+
+/* Dummy functions to indicate that there's no support for fetching
+ syscalls information. */
+
+static void
+syscall_warn_user (void)
+{
+ static int have_warned = 0;
+ if (!have_warned)
+ {
+ have_warned = 1;
+ warning (_("Can not parse XML syscalls information; XML support was "
+ "disabled at compile time"));
+ }
+}
+
+const struct syscalls_info *
+xml_init_syscalls_info (const char *filename)
+{
+ syscall_warn_user ();
+ return NULL;
+}
+
+int
+xml_get_syscall_number (const struct syscalls_info *sysinfo,
+ const char *syscall_name)
+{
+ syscall_warn_user ();
+ return UNKNOWN_SYSCALL;
+}
+
+const char *
+xml_get_syscall_name (const struct syscalls_info *sysinfo,
+ int syscall_number)
+{
+ syscall_warn_user ();
+ return NULL;
+}
+
+int
+xml_number_of_syscalls (const struct syscalls_info *sysinfo)
+{
+ syscall_warn_user ();
+ return 0;
+}
+
+const char **
+xml_list_of_syscalls (const struct syscalls_info *sysinfo)
+{
+ syscall_warn_user ();
+ return NULL;
+}
+
+#else
+
+/* Structure which describes a syscall. */
+
+typedef struct syscall_desc
+{
+ /* The syscall number. */
+
+ int number;
+
+ /* The syscall name. */
+
+ char *name;
+} *syscall_desc_p;
+DEF_VEC_P(syscall_desc_p);
+
+/* Structure that represents syscalls information. */
+
+struct syscalls_info
+{
+ /* The syscalls. */
+
+ VEC(syscall_desc_p) *syscalls;
+};
+
+/* Callback data for syscall information parsing. */
+
+struct syscall_parsing_data
+{
+ /* The syscalls_info we are building. */
+
+ struct syscalls_info *sysinfo;
+};
+
+
+static struct syscalls_info *
+allocate_syscalls_info (void)
+{
+ return XZALLOC (struct syscalls_info);
+}
+
+static void
+sysinfo_free_syscalls_desc (struct syscall_desc *sd)
+{
+ xfree (sd->name);
+}
+
+static void
+free_syscalls_info (void *arg)
+{
+ struct syscalls_info *sysinfo = arg;
+ struct syscall_desc *sysdesc;
+ int i;
+
+ for (i = 0;
+ VEC_iterate (syscall_desc_p, sysinfo->syscalls, i, sysdesc);
+ i++)
+ sysinfo_free_syscalls_desc (sysdesc);
+ VEC_free (syscall_desc_p, sysinfo->syscalls);
+
+ xfree (sysinfo);
+}
+
+struct cleanup *
+make_cleanup_free_syscalls_info (struct syscalls_info *sysinfo)
+{
+ return make_cleanup (free_syscalls_info, sysinfo);
+}
+
+/* Open FILENAME, read all its text into memory, close it, and return
+ the text. If something goes wrong, return NULL and warn. */
+
+static char *
+fetch_xml_from_file (const char *filename, void *baton)
+{
+ const char *dirname = baton;
+ FILE *file;
+ struct cleanup *back_to;
+ char *text;
+ size_t len, offset;
+
+ if (dirname && *dirname)
+ {
+ char *fullname = concat (dirname, "/", filename, (char *) NULL);
+ if (fullname == NULL)
+ nomem (0);
+ file = fopen (fullname, FOPEN_RT);
+ xfree (fullname);
+ }
+ else
+ file = fopen (filename, FOPEN_RT);
+
+ if (file == NULL)
+ return NULL;
+
+ back_to = make_cleanup_fclose (file);
+
+ /* Read in the whole file, one chunk at a time. */
+ len = 4096;
+ offset = 0;
+ text = xmalloc (len);
+ make_cleanup (free_current_contents, &text);
+ while (1)
+ {
+ size_t bytes_read;
+
+ /* Continue reading where the last read left off. Leave at least
+ one byte so that we can NUL-terminate the result. */
+ bytes_read = fread (text + offset, 1, len - offset - 1, file);
+ if (ferror (file))
+ {
+ warning (_("Read error from \"%s\""), filename);
+ do_cleanups (back_to);
+ return NULL;
+ }
+
+ offset += bytes_read;
+
+ if (feof (file))
+ break;
+
+ len = len * 2;
+ text = xrealloc (text, len);
+ }
+
+ fclose (file);
+ discard_cleanups (back_to);
+
+ text[offset] = '\0';
+ return text;
+}
+
+static void
+syscall_create_syscall_desc (struct syscalls_info *sysinfo,
+ const char *name, int number)
+{
+ struct syscall_desc *sysdesc = XZALLOC (struct syscall_desc);
+
+ sysdesc->name = xstrdup (name);
+ sysdesc->number = number;
+
+ VEC_safe_push (syscall_desc_p, sysinfo->syscalls, sysdesc);
+}
+
+/* Handle the start of a <syscalls_info> element. */
+
+static void
+syscall_start_syscalls_info (struct gdb_xml_parser *parser,
+ const struct gdb_xml_element *element,
+ void *user_data,
+ VEC(gdb_xml_value_s) *attributes)
+{
+ struct syscall_parsing_data *data = user_data;
+ struct syscalls_info *sysinfo = data->sysinfo;
+}
+
+/* Handle the start of a <syscall> element. */
+
+static void
+syscall_start_syscall (struct gdb_xml_parser *parser,
+ const struct gdb_xml_element *element,
+ void *user_data, VEC(gdb_xml_value_s) *attributes)
+{
+ struct syscall_parsing_data *data = user_data;
+ struct gdb_xml_value *attrs = VEC_address (gdb_xml_value_s, attributes);
+ int len, i;
+ /* syscall info. */
+ char *name = NULL;
+ int number = 0;
+
+ len = VEC_length (gdb_xml_value_s, attributes);
+
+ for (i = 0; i < len; i++)
+ {
+ if (strcmp (attrs[i].name, "name") == 0)
+ name = attrs[i].value;
+ else if (strcmp (attrs[i].name, "number") == 0)
+ number = * (ULONGEST *) attrs[i].value;
+ else
+ internal_error (__FILE__, __LINE__,
+ _("Unknown attribute name '%s'."), attrs[i].name);
+ }
+
+ syscall_create_syscall_desc (data->sysinfo, name, number);
+}
+
+
+/* The elements and attributes of an XML syscall document. */
+
+static const struct gdb_xml_attribute syscall_attr[] = {
+ { "number", GDB_XML_AF_NONE, gdb_xml_parse_attr_ulongest, NULL },
+ { "name", GDB_XML_AF_NONE, NULL, NULL },
+ { NULL, GDB_XML_AF_NONE, NULL, NULL }
+};
+
+static const struct gdb_xml_element syscalls_info_children[] = {
+ { "syscall", syscall_attr, NULL,
+ GDB_XML_EF_OPTIONAL | GDB_XML_EF_REPEATABLE,
+ syscall_start_syscall, NULL },
+ { NULL, NULL, NULL, GDB_XML_EF_NONE, NULL, NULL }
+};
+
+static const struct gdb_xml_element syselements[] = {
+ { "syscalls_info", NULL, syscalls_info_children,
+ GDB_XML_EF_NONE, syscall_start_syscalls_info, NULL },
+ { NULL, NULL, NULL, GDB_XML_EF_NONE, NULL, NULL }
+};
+
+static struct syscalls_info *
+syscall_parse_xml (const char *document, xml_fetch_another fetcher,
+ void *fetcher_baton)
+{
+ struct cleanup *result_cleanup;
+ struct gdb_xml_parser *parser;
+ struct syscall_parsing_data data;
+ char *expanded_text;
+ int i;
+
+ parser = gdb_xml_create_parser_and_cleanup (_("syscalls info"),
+ syselements, &data);
+
+ memset (&data, 0, sizeof (struct syscall_parsing_data));
+ data.sysinfo = allocate_syscalls_info ();
+ result_cleanup = make_cleanup_free_syscalls_info (data.sysinfo);
+
+ if (gdb_xml_parse (parser, document) == 0)
+ {
+ /* Parsed successfully. */
+ discard_cleanups (result_cleanup);
+ return data.sysinfo;
+ }
+ else
+ {
+ warning (_("Could not load XML syscalls info; ignoring"));
+ do_cleanups (result_cleanup);
+ return NULL;
+ }
+}
+
+const struct syscalls_info *
+xml_init_syscalls_info (const char *filename)
+{
+ char *full_file;
+ char *dirname;
+ struct syscalls_info *sysinfo;
+ struct cleanup *back_to;
+
+ full_file = fetch_xml_from_file (filename, gdb_datadir);
+ if (full_file == NULL)
+ {
+ warning (_("Could not open \"%s\""), filename);
+ return NULL;
+ }
+
+ back_to = make_cleanup (xfree, full_file);
+
+ dirname = ldirname (filename);
+ if (dirname != NULL)
+ make_cleanup (xfree, dirname);
+
+ sysinfo = syscall_parse_xml (full_file, fetch_xml_from_file, dirname);
+ do_cleanups (back_to);
+
+ return sysinfo;
+}
+
+int
+xml_get_syscall_number (const struct syscalls_info *sysinfo,
+ const char *syscall_name)
+{
+ struct syscall_desc *sysdesc;
+ int i;
+
+ if (sysinfo == NULL
+ || syscall_name == NULL)
+ return UNKNOWN_SYSCALL;
+
+ for (i = 0;
+ VEC_iterate(syscall_desc_p, sysinfo->syscalls, i, sysdesc);
+ i++)
+ if (strcmp (sysdesc->name, syscall_name) == 0)
+ return sysdesc->number;
+
+ return UNKNOWN_SYSCALL;
+}
+
+const char *
+xml_get_syscall_name (const struct syscalls_info *sysinfo,
+ int syscall_number)
+{
+ struct syscall_desc *sysdesc;
+ int i;
+
+ if (sysinfo == NULL
+ || syscall_number < 0)
+ return NULL;
+
+ for (i = 0;
+ VEC_iterate(syscall_desc_p, sysinfo->syscalls, i, sysdesc);
+ i++)
+ if (sysdesc->number == syscall_number)
+ return sysdesc->name;
+
+ return NULL;
+}
+
+int
+xml_number_of_syscalls (const struct syscalls_info *sysinfo)
+{
+ return (sysinfo == NULL ? 0 : VEC_length(syscall_desc_p,
+ sysinfo->syscalls));
+}
+
+const char **
+xml_list_of_syscalls (const struct syscalls_info *sysinfo)
+{
+ struct syscall_desc *sysdesc;
+ const char **names = NULL;
+ int nsyscalls;
+ int i;
+
+ if (sysinfo == NULL)
+ return NULL;
+
+ nsyscalls = VEC_length (syscall_desc_p, sysinfo->syscalls);
+ names = xmalloc ((nsyscalls + 1) * sizeof (char *));
+
+ for (i = 0;
+ VEC_iterate (syscall_desc_p, sysinfo->syscalls, i, sysdesc);
+ i++)
+ names[i] = sysdesc->name;
+
+ names[i] = NULL;
+
+ return names;
+}
+
+#endif /* HAVE_LIBEXPAT */
diff --git a/gdb/xml-syscall.h b/gdb/xml-syscall.h
new file mode 100644
index 0000000..ff11f20
--- /dev/null
+++ b/gdb/xml-syscall.h
@@ -0,0 +1,64 @@
+/* Functions that provide the mechanism to parse a syscall XML file
+ and get its values.
+
+ Copyright (C) 1986, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996,
+ 1998, 1999, 2000, 2001, 2003, 2004, 2005, 2006, 2007, 2008
+ Free Software Foundation, Inc.
+
+ This file is part of GDB.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#ifndef XML_SYSCALL_H
+#define XML_SYSCALL_H 1
+
+/* Structure that stores information about the system's
+ syscalls. */
+
+struct syscalls_info;
+
+
+/* Function responsible for initializing the information
+ about the syscalls. It reads the XML file and fills the
+ struct syscalls_info with the values.
+
+ Returns the struct syscalls_info if the file is valid, NULL otherwise. */
+
+const struct syscalls_info *xml_init_syscalls_info (const char *);
+
+/* Function that retrieves the syscall number corresponding to the given
+ name.
+
+ Returns the syscall number if found, or otherwise. */
+
+int xml_get_syscall_number (const struct syscalls_info *, const char *);
+
+/* Function that retrieves the syscall name corresponding to the given
+ number.
+
+ Returns the syscall name if found, NULL otherwise. */
+const char *xml_get_syscall_name (const struct syscalls_info *, int);
+
+/* Function that returns the number of syscalls defined in the system.
+
+ Returns the number of syscalls, or zero otherwise. */
+int xml_number_of_syscalls (const struct syscalls_info *);
+
+/* Function used to retrieve the list of syscalls in the system. This list
+ is returned as an array of strings.
+
+ Returns the list of syscalls in the system, or NULL otherwise. */
+const char **xml_list_of_syscalls (const struct syscalls_info *sysinfo);
+
+#endif /* XML_SYSCALL_H */
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
diff --git a/include/elf/common.h b/include/elf/common.h
index 3ba44d9..764141e 100644
--- a/include/elf/common.h
+++ b/include/elf/common.h
@@ -803,6 +803,7 @@
#define AT_SECURE 23 /* Boolean, was exec setuid-like? */
#define AT_BASE_PLATFORM 24 /* String identifying real platform,
may differ from AT_PLATFORM. */
+#define AT_RANDOM 25 /* Address of 16 random bytes. */
#define AT_EXECFN 31 /* Filename of executable. */
/* Pointer to the global system page used for system calls and other
nice things. */
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
diff --git a/include/opcode/ppc.h b/include/opcode/ppc.h
index e45fc58..dc9a7ba 100644
--- a/include/opcode/ppc.h
+++ b/include/opcode/ppc.h
@@ -1,6 +1,6 @@
/* ppc.h -- Header file for PowerPC opcode table
Copyright 1994, 1995, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
- 2007 Free Software Foundation, Inc.
+ 2007, 2008, 2009 Free Software Foundation, Inc.
Written by Ian Lance Taylor, Cygnus Support
This file is part of GDB, GAS, and the GNU binutils.
@@ -351,4 +351,6 @@ struct powerpc_macro
extern const struct powerpc_macro powerpc_macros[];
extern const int powerpc_num_macros;
+extern ppc_cpu_t ppc_parse_cpu (ppc_cpu_t, const char *);
+
#endif /* PPC_H */
- Archer update to the snapshot: e734ed95d296a3342d4147873c4641cea6c4d7fe - Archer backport: 1e1d73cda98b1adda884b80e07c7b4929c175628 - Fixes [expr] compatibility with gcc-4.4 on gdb.cp/namespace-using.exp.
2009-03-22 20:57:30 +00:00
diff --git a/opcodes/po/es.po b/opcodes/po/es.po
index 873be13..40bea5c 100644
--- a/opcodes/po/es.po
+++ b/opcodes/po/es.po
@@ -1,13 +1,14 @@
-# Mensajes en espa<70>ol para opcodes-2.17.90.
-# Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
-# Cristian Oth<74>n Mart<72>nez Vera <cfuga@itam.mx>, 2002, 2003, 2004, 2005, 2006, 2007.
+# Mensajes en espa<70>ol para opcodes-2.18.90.
+# Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+# This file is distributed under the same license as the binutils package.
+# Cristian Oth<74>n Mart<72>nez Vera <cfuga@itam.mx>, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009.
#
msgid ""
msgstr ""
-"Project-Id-Version: opcodes 2.17.90\n"
-"Report-Msgid-Bugs-To: \n"
-"POT-Creation-Date: 2007-07-05 09:17+0100\n"
-"PO-Revision-Date: 2007-09-08 09:17-0500\n"
+"Project-Id-Version: opcodes 2.18.90\n"
+"Report-Msgid-Bugs-To: bug-binutils@gnu.org\n"
+"POT-Creation-Date: 2008-09-09 15:56+0930\n"
+"PO-Revision-Date: 2009-03-03 21:46-0600\n"
"Last-Translator: Cristian Oth<74>n Mart<72>nez Vera <cfuga@itam.mx>\n"
"Language-Team: Spanish <es@li.org>\n"
"MIME-Version: 1.0\n"
@@ -52,7 +53,7 @@ msgid "too many long constants"
msgstr "demasiadas constantes long"
#: arc-opc.c:668
-msgid "to many shimms in load"
+msgid "too many shimms in load"
msgstr "demasiados shimms en load"
#. Do we have a limm already?
@@ -124,7 +125,7 @@ msgstr "No se reconoce el conjunto de nombres de registro: %s\n"
msgid "Unrecognised disassembler option: %s\n"
msgstr "No se reconoce la opci<63>n de desensamblador: %s\n"
-#: arm-dis.c:4226
+#: arm-dis.c:4238
#, c-format
msgid ""
"\n"
@@ -196,14 +197,14 @@ msgstr "La lista de registros no es v
#: fr30-asm.c:310 frv-asm.c:1263 ip2k-asm.c:511 iq2000-asm.c:459
#: m32c-asm.c:1589 m32r-asm.c:328 mep-asm.c:1001 mt-asm.c:595
-#: openrisc-asm.c:241 xc16x-asm.c:375 xstormy16-asm.c:276
+#: openrisc-asm.c:241 xc16x-asm.c:376 xstormy16-asm.c:276
#, c-format
msgid "Unrecognized field %d while parsing.\n"
msgstr "No se reconoci<63> el campo %d durante la decodificaci<63>n.\n"
#: fr30-asm.c:361 frv-asm.c:1314 ip2k-asm.c:562 iq2000-asm.c:510
#: m32c-asm.c:1640 m32r-asm.c:379 mep-asm.c:1052 mt-asm.c:646
-#: openrisc-asm.c:292 xc16x-asm.c:426 xstormy16-asm.c:327
+#: openrisc-asm.c:292 xc16x-asm.c:427 xstormy16-asm.c:327
msgid "missing mnemonic in syntax string"
msgstr "falta el mnem<65>nico en la cadena sint<6E>ctica"
@@ -216,7 +217,7 @@ msgstr "falta el mnem
#: m32r-asm.c:605 m32r-asm.c:706 mep-asm.c:1187 mep-asm.c:1191 mep-asm.c:1278
#: mep-asm.c:1379 mt-asm.c:781 mt-asm.c:785 mt-asm.c:872 mt-asm.c:973
#: openrisc-asm.c:427 openrisc-asm.c:431 openrisc-asm.c:518 openrisc-asm.c:619
-#: xc16x-asm.c:561 xc16x-asm.c:565 xc16x-asm.c:652 xc16x-asm.c:753
+#: xc16x-asm.c:562 xc16x-asm.c:566 xc16x-asm.c:653 xc16x-asm.c:754
#: xstormy16-asm.c:462 xstormy16-asm.c:466 xstormy16-asm.c:553
#: xstormy16-asm.c:654
msgid "unrecognized instruction"
@@ -224,40 +225,40 @@ msgstr "no se reconoce la instrucci
#: fr30-asm.c:543 frv-asm.c:1496 ip2k-asm.c:744 iq2000-asm.c:692
#: m32c-asm.c:1822 m32r-asm.c:561 mep-asm.c:1234 mt-asm.c:828
-#: openrisc-asm.c:474 xc16x-asm.c:608 xstormy16-asm.c:509
+#: openrisc-asm.c:474 xc16x-asm.c:609 xstormy16-asm.c:509
#, c-format
msgid "syntax error (expected char `%c', found `%c')"
msgstr "error sint<6E>ctico (se esperaba el car<61>cter `%c', se encontr<74> `%c')"
#: fr30-asm.c:553 frv-asm.c:1506 ip2k-asm.c:754 iq2000-asm.c:702
#: m32c-asm.c:1832 m32r-asm.c:571 mep-asm.c:1244 mt-asm.c:838
-#: openrisc-asm.c:484 xc16x-asm.c:618 xstormy16-asm.c:519
+#: openrisc-asm.c:484 xc16x-asm.c:619 xstormy16-asm.c:519
#, c-format
msgid "syntax error (expected char `%c', found end of instruction)"
msgstr "error sint<6E>ctico (se esperaba el car<61>cter `%c', se encontr<74> el final de la instrucci<63>n)"
#: fr30-asm.c:581 frv-asm.c:1534 ip2k-asm.c:782 iq2000-asm.c:730
#: m32c-asm.c:1860 m32r-asm.c:599 mep-asm.c:1272 mt-asm.c:866
-#: openrisc-asm.c:512 xc16x-asm.c:646 xstormy16-asm.c:547
+#: openrisc-asm.c:512 xc16x-asm.c:647 xstormy16-asm.c:547
msgid "junk at end of line"
msgstr "basura al final de la l<>nea"
#: fr30-asm.c:687 frv-asm.c:1640 ip2k-asm.c:888 iq2000-asm.c:836
#: m32c-asm.c:1966 m32r-asm.c:705 mep-asm.c:1378 mt-asm.c:972
-#: openrisc-asm.c:618 xc16x-asm.c:752 xstormy16-asm.c:653
+#: openrisc-asm.c:618 xc16x-asm.c:753 xstormy16-asm.c:653
msgid "unrecognized form of instruction"
msgstr "no se reconoce la forma de instrucci<63>n"
#: fr30-asm.c:699 frv-asm.c:1652 ip2k-asm.c:900 iq2000-asm.c:848
#: m32c-asm.c:1978 m32r-asm.c:717 mep-asm.c:1390 mt-asm.c:984
-#: openrisc-asm.c:630 xc16x-asm.c:764 xstormy16-asm.c:665
+#: openrisc-asm.c:630 xc16x-asm.c:765 xstormy16-asm.c:665
#, c-format
msgid "bad instruction `%.50s...'"
msgstr "instrucci<63>n err<72>nea `%.50s...'"
#: fr30-asm.c:702 frv-asm.c:1655 ip2k-asm.c:903 iq2000-asm.c:851
#: m32c-asm.c:1981 m32r-asm.c:720 mep-asm.c:1393 mt-asm.c:987
-#: openrisc-asm.c:633 xc16x-asm.c:767 xstormy16-asm.c:668
+#: openrisc-asm.c:633 xc16x-asm.c:768 xstormy16-asm.c:668
#, c-format
msgid "bad instruction `%.50s'"
msgstr "instrucci<63>n err<72>nea `%.50s'"
@@ -377,11 +378,11 @@ msgstr "no se puede lidiar con insert %d\n"
msgid "%02x\t\t*unknown*"
msgstr "%02x\t\t*desconocido*"
-#: i386-dis.c:3196
+#: i386-dis.c:9545
msgid "<internal disassembler error>"
msgstr "<error interno del desensamblador>"
-#: i386-dis.c:3423
+#: i386-dis.c:9776
#, c-format
msgid ""
"\n"
@@ -392,79 +393,124 @@ msgstr ""
"Se admiten las siguientes opciones de desensamblador espec<65>ficas de i386/x86-64\n"
"con el interruptor -M (las opciones m<>ltiples se deben separar con comas):\n"
-#: i386-dis.c:3427
+#: i386-dis.c:9780
#, c-format
msgid " x86-64 Disassemble in 64bit mode\n"
msgstr " x86-64 Desensambla en modo 64bit\n"
-#: i386-dis.c:3428
+#: i386-dis.c:9781
#, c-format
msgid " i386 Disassemble in 32bit mode\n"
msgstr " i386 Desensambla en modo 32bit\n"
-#: i386-dis.c:3429
+#: i386-dis.c:9782
#, c-format
msgid " i8086 Disassemble in 16bit mode\n"
msgstr " i8086 Desensambla en modo 16bit\n"
-#: i386-dis.c:3430
+#: i386-dis.c:9783
#, c-format
msgid " att Display instruction in AT&T syntax\n"
msgstr " att Muestra las instrucciones con sintaxis AT&T\n"
-#: i386-dis.c:3431
+#: i386-dis.c:9784
#, c-format
msgid " intel Display instruction in Intel syntax\n"
msgstr " intel Muestra las instrucciones con sintaxis Intel\n"
-#: i386-dis.c:3432
+#: i386-dis.c:9785
+#, c-format
+msgid ""
+" att-mnemonic\n"
+" Display instruction in AT&T mnemonic\n"
+msgstr ""
+" att-mnemonic\n"
+" Muestra las instrucciones con mnem<65>nicos AT&T\n"
+
+#: i386-dis.c:9787
+#, c-format
+msgid ""
+" intel-mnemonic\n"
+" Display instruction in Intel mnemonic\n"
+msgstr ""
+" intel-mnemonic\n"
+" Muestra las instrucciones con mnem<65>nicos Intel\n"
+
+#: i386-dis.c:9789
#, c-format
msgid " addr64 Assume 64bit address size\n"
msgstr " addr64 Asume un tama<6D>o de direcci<63>n de 64bit\n"
-#: i386-dis.c:3433
+#: i386-dis.c:9790
#, c-format
msgid " addr32 Assume 32bit address size\n"
msgstr " addr32 Asume un tama<6D>o de direcci<63>n de 32bit\n"
-#: i386-dis.c:3434
+#: i386-dis.c:9791
#, c-format
msgid " addr16 Assume 16bit address size\n"
msgstr " addr16 Asume un tama<6D>o de direcci<63>n de 16bit\n"
-#: i386-dis.c:3435
+#: i386-dis.c:9792
#, c-format
msgid " data32 Assume 32bit data size\n"
msgstr " data32 Asume un tama<6D>o de datos de 32bit\n"
-#: i386-dis.c:3436
+#: i386-dis.c:9793
#, c-format
msgid " data16 Assume 16bit data size\n"
msgstr " data16 Asume un tama<6D>o de datos de 16bit\n"
-#: i386-dis.c:3437
+#: i386-dis.c:9794
#, c-format
msgid " suffix Always display instruction suffix in AT&T syntax\n"
msgstr " suffix Siempre muestra el sufijo de instrucci<63>n con sintaxis AT&T\n"
-#: i386-gen.c:42 ia64-gen.c:307
+#: i386-gen.c:411 ia64-gen.c:307
#, c-format
msgid "%s: Error: "
msgstr "%s: Error: "
-#: i386-gen.c:109
-msgid "can't find i386-opc.tbl for reading\n"
-msgstr "no se puede encontrar i386-opc.tbl para lectura\n"
+#: i386-gen.c:510
+#, c-format
+msgid "%s: %d: Unknown bitfield: %s\n"
+msgstr "%s: %d: Campo de bits desconocido: %s\n"
+
+#: i386-gen.c:674
+#, c-format
+msgid "can't find i386-opc.tbl for reading, errno = %s\n"
+msgstr "no se puede encontrar i386-opc.tbl para lectura, errno =%s\n"
-#: i386-gen.c:260
-msgid "can't find i386-reg.tbl for reading\n"
-msgstr "no se puede encontrar i386-reg.tbl para lectura\n"
+#: i386-gen.c:851
+#, c-format
+msgid "can't find i386-reg.tbl for reading, errno = %s\n"
+msgstr "no se puede encontrar i386-reg.tbl para lectura, errno = %s\n"
+
+#: i386-gen.c:943
+#, c-format
+msgid "can't create i386-init.h, errno = %s\n"
+msgstr "no se puede crear i386-init.h, errno = %s\n"
-#: i386-gen.c:386 ia64-gen.c:2841
+#: i386-gen.c:1032 ia64-gen.c:2850
#, c-format
msgid "unable to change directory to \"%s\", errno = %s\n"
msgstr "no se puede cambiar el directorio a \"%s\", errno = %s\n"
+#: i386-gen.c:1039
+#, c-format
+msgid "%d unused bits in i386_cpu_flags.\n"
+msgstr "%d bits sin usar en i386_cpu_flags.\n"
+
+#: i386-gen.c:1046
+#, c-format
+msgid "%d unused bits in i386_operand_type.\n"
+msgstr "%d bits sin usar en i386_operand_type.\n"
+
+#: i386-gen.c:1060
+#, c-format
+msgid "can't create i386-tbl.h, errno = %s\n"
+msgstr "no se puede crear i386-tbl.h, errno = %s\n"
+
#: ia64-gen.c:320
#, c-format
msgid "%s: Warning: "
@@ -503,62 +549,67 @@ msgstr "campo solapado %s->%s\n"
msgid "overwriting note %d with note %d (IC:%s)\n"
msgstr "se sobreescribe la nota %d con la nota %d (IC:%s)\n"
-#: ia64-gen.c:1455
+#: ia64-gen.c:1459
#, c-format
msgid "don't know how to specify %% dependency %s\n"
msgstr "no se sabe c<>mo especificar la dependencia %% %s\n"
-#: ia64-gen.c:1477
+#: ia64-gen.c:1481
#, c-format
msgid "Don't know how to specify # dependency %s\n"
msgstr "No se sabe c<>mo especificar la dependencia # %s\n"
-#: ia64-gen.c:1516
+#: ia64-gen.c:1520
#, c-format
msgid "IC:%s [%s] has no terminals or sub-classes\n"
msgstr "IC:%s [%s] no tiene terminales o sub-clases\n"
-#: ia64-gen.c:1519
+#: ia64-gen.c:1523
#, c-format
msgid "IC:%s has no terminals or sub-classes\n"
msgstr "IC:%s no tiene terminales o sub-clases\n"
-#: ia64-gen.c:1528
+#: ia64-gen.c:1532
#, c-format
msgid "no insns mapped directly to terminal IC %s [%s]"
msgstr "no hay insns mapeadas directamente al IC terminal %s [%s]"
-#: ia64-gen.c:1531
+#: ia64-gen.c:1535
#, c-format
msgid "no insns mapped directly to terminal IC %s\n"
msgstr "no hay insns mapeadas directamente al IC terminal %s\n"
-#: ia64-gen.c:1542
+#: ia64-gen.c:1546
#, c-format
msgid "class %s is defined but not used\n"
msgstr "se define la clase %s pero no se utiliza\n"
-#: ia64-gen.c:1553
+#: ia64-gen.c:1559
#, c-format
-msgid "Warning: rsrc %s (%s) has no chks%s\n"
-msgstr "Aviso: el rsrc %s (%s) no tiene chks%s\n"
+msgid "Warning: rsrc %s (%s) has no chks\n"
+msgstr "Aviso: el rsrc %s (%s) no tiene chks\n"
-#: ia64-gen.c:1557
+#: ia64-gen.c:1562
+#, c-format
+msgid "Warning: rsrc %s (%s) has no chks or regs\n"
+msgstr "Aviso: el rsrc %s (%s) no tiene chks o regs\n"
+
+#: ia64-gen.c:1566
#, c-format
msgid "rsrc %s (%s) has no regs\n"
msgstr "el rsrc %s (%s) no tiene registros\n"
-#: ia64-gen.c:2469
+#: ia64-gen.c:2478
#, c-format
msgid "IC note %d in opcode %s (IC:%s) conflicts with resource %s note %d\n"
msgstr "la nota IC %d en el c<>digo de operaci<63>n %s (IC:%s) tiene conflictos con el recurso %s nota %d\n"
-#: ia64-gen.c:2497
+#: ia64-gen.c:2506
#, c-format
msgid "IC note %d for opcode %s (IC:%s) conflicts with resource %s note %d\n"
msgstr "la nota IC %d para el c<>digo de operaci<63>n %s (IC:%s) tiene conflictos con el recurso %s nota %d\n"
-#: ia64-gen.c:2511
+#: ia64-gen.c:2520
#, c-format
msgid "opcode %s has no class (ops %d %d %d)\n"
msgstr "el c<>digo de operaci<63>n %s no tiene clase (ops %d %d %d)\n"
@@ -739,26 +790,26 @@ msgstr "S
msgid "invalid %function() here"
msgstr "%funcion() inv<6E>lida aqu<71>"
-#: mips-dis.c:745
+#: mips-dis.c:781
msgid "# internal error, incomplete extension sequence (+)"
msgstr "# error interno, secuencia de extensi<73>n incompleta (+)"
-#: mips-dis.c:852
+#: mips-dis.c:915
#, c-format
msgid "# internal error, undefined extension sequence (+%c)"
msgstr "# error interno, secuencia de extensi<73>n sin definir (+%c)"
-#: mips-dis.c:1211
+#: mips-dis.c:1274
#, c-format
-msgid "# internal error, undefined modifier(%c)"
-msgstr "# error interno, modificador(%c) sin definir"
+msgid "# internal error, undefined modifier (%c)"
+msgstr "# error interno, modificador (%c) sin definir"
-#: mips-dis.c:1818
+#: mips-dis.c:1881
#, c-format
msgid "# internal disassembler error, unrecognised modifier (%c)"
msgstr "# error interno del desensamblador, no se reconoce el modificador (%c)"
-#: mips-dis.c:2049
+#: mips-dis.c:2112
#, c-format
msgid ""
"\n"
@@ -769,7 +820,7 @@ msgstr ""
"Las siguientes opciones de desensamblador espec<65>ficas de MIPS se admiten\n"
"para usarse con el interruptor -M (las opciones m<>ltiples se deben separar con comas):\n"
-#: mips-dis.c:2053
+#: mips-dis.c:2116
#, c-format
msgid ""
"\n"
@@ -780,7 +831,7 @@ msgstr ""
" gpr-names=ABI Muestra los nombres GPR de acuerdo a la ABI especificada.\n"
" Por defecto: basado en el binario a desensamblar.\n"
-#: mips-dis.c:2057
+#: mips-dis.c:2120
#, c-format
msgid ""
"\n"
@@ -791,7 +842,7 @@ msgstr ""
" fpr-names=ABI Muestra los nombres FPR de acuerdo a la ABI especificada.\n"
" Por defecto: num<75>rico.\n"
-#: mips-dis.c:2061
+#: mips-dis.c:2124
#, c-format
msgid ""
"\n"
@@ -804,7 +855,7 @@ msgstr ""
" la arquitectura especificada.\n"
" Por defecto: basado en el binario a desensamblar.\n"
-#: mips-dis.c:2066
+#: mips-dis.c:2129
#, c-format
msgid ""
"\n"
@@ -817,7 +868,7 @@ msgstr ""
" especificada.\n"
" Por defecto: basado en el binario a desensamblar.\n"
-#: mips-dis.c:2071
+#: mips-dis.c:2134
#, c-format
msgid ""
"\n"
@@ -828,7 +879,7 @@ msgstr ""
" reg-names=ABI Muestra los nombres GPR y FPR de acuerdo a\n"
" la ABI especificada.\n"
-#: mips-dis.c:2075
+#: mips-dis.c:2138
#, c-format
msgid ""
"\n"
@@ -839,7 +890,7 @@ msgstr ""
" reg-names=ARCH Muestra el registro CP0 y los nombres HWR de acuerdo a\n"
" la arquitectura especificada.\n"
-#: mips-dis.c:2079
+#: mips-dis.c:2142
#, c-format
msgid ""
"\n"
@@ -850,12 +901,12 @@ msgstr ""
" Para las opciones anteriores, se admiten los siguientes valores de \"ABI\":\n"
" "
-#: mips-dis.c:2084 mips-dis.c:2092 mips-dis.c:2094
+#: mips-dis.c:2147 mips-dis.c:2155 mips-dis.c:2157
#, c-format
msgid "\n"
msgstr "\n"
-#: mips-dis.c:2086
+#: mips-dis.c:2149
#, c-format
msgid ""
"\n"
@@ -894,9 +945,8 @@ msgid "Biiiig Trouble in parse_imm16!"
msgstr "<22>Graaaan Problema en parse_imm16!"
#: mt-asm.c:157
-#, c-format
-msgid "%operator operand is not a symbol"
-msgstr "el operando %operator no es un s<>mbolo"
+msgid "The percent-operator's operand is not a symbol"
+msgstr "el operando de operador-porcentaje no es un s<>mbolo"
#: mt-asm.c:395
msgid "invalid operand. type may have values 0,1,2 only."
@@ -912,42 +962,64 @@ msgstr "operando inv
msgid "$<undefined>"
msgstr "$<sin definir>"
-#: ppc-opc.c:782 ppc-opc.c:810
+#: ppc-opc.c:862 ppc-opc.c:890
msgid "invalid conditional option"
msgstr "opci<63>n condicional inv<6E>lida"
-#: ppc-opc.c:812
+#: ppc-opc.c:892
msgid "attempt to set y bit when using + or - modifier"
msgstr "intento de establecer el bit y cuando se usaba el modificador + <20> -"
-#: ppc-opc.c:844
+#: ppc-opc.c:924
msgid "invalid mask field"
msgstr "campo de m<>scara inv<6E>lido"
-#: ppc-opc.c:870
+#: ppc-opc.c:950
msgid "ignoring invalid mfcr mask"
msgstr "se descarta la m<>scara mfcr inv<6E>lida"
-#: ppc-opc.c:920 ppc-opc.c:955
+#: ppc-opc.c:1000 ppc-opc.c:1035
msgid "illegal bitmask"
msgstr "m<>scara de bits ilegal"
-#: ppc-opc.c:1075
+#: ppc-opc.c:1155
msgid "index register in load range"
msgstr "registro <20>ndice en el rango de carga"
-#: ppc-opc.c:1091
+#: ppc-opc.c:1171
msgid "source and target register operands must be different"
msgstr "los operandos de registros fuente y objetivo deben ser diferentes"
-#: ppc-opc.c:1106
+#: ppc-opc.c:1186
msgid "invalid register operand when updating"
msgstr "operando de registro inv<6E>lido mientras se actualizaba"
-#: ppc-opc.c:1188
+#: ppc-opc.c:1265
msgid "invalid sprg number"
msgstr "n<>mero sprg inv<6E>lido"
+#: s390-dis.c:276
+#, c-format
+msgid ""
+"\n"
+"The following S/390 specific disassembler options are supported for use\n"
+"with the -M switch (multiple options should be separated by commas):\n"
+msgstr ""
+"\n"
+"Las siguientes opciones de desensamblador espec<65>ficas de S/390 se admiten\n"
+"para usarse con el interruptor -M (las opciones m<>ltiples se deben\n"
+"separar con comas):\n"
+
+#: s390-dis.c:280
+#, c-format
+msgid " esa Disassemble in ESA architecture mode\n"
+msgstr " esa Desensambla en modo de arquitectura ESA\n"
+
+#: s390-dis.c:281
+#, c-format
+msgid " zarch Disassemble in z/Architecture mode\n"
+msgstr " zarch Desensambla en modo de z/Architecture\n"
+
#: score-dis.c:220 score-dis.c:383
msgid "<illegal instruction>"
msgstr "<instrucci<63>n ilegal>"
@@ -1031,27 +1103,27 @@ msgstr "el valor inmediato no est
msgid "immediate value must be even"
msgstr "el valor inmediato debe ser par"
-#: xc16x-asm.c:65
+#: xc16x-asm.c:66
msgid "Missing '#' prefix"
msgstr "Falta el prefijo '#'"
-#: xc16x-asm.c:81
+#: xc16x-asm.c:82
msgid "Missing '.' prefix"
msgstr "Falta el prefijo '.'"
-#: xc16x-asm.c:97
+#: xc16x-asm.c:98
msgid "Missing 'pof:' prefix"
msgstr "Falta el prefijo 'pof:'"
-#: xc16x-asm.c:113
+#: xc16x-asm.c:114
msgid "Missing 'pag:' prefix"
msgstr "Falta el prefijo 'pag:'"
-#: xc16x-asm.c:129
+#: xc16x-asm.c:130
msgid "Missing 'sof:' prefix"
msgstr "Falta el prefijo 'sof:'"
-#: xc16x-asm.c:145
+#: xc16x-asm.c:146
msgid "Missing 'seg:' prefix"
msgstr "Falta el prefijo 'seg:'"
@@ -1095,6 +1167,9 @@ msgstr "El operando no es un s
msgid "Syntax error: No trailing ')'"
msgstr "Error sint<6E>ctico: No hay ')' al final"
+#~ msgid "%operator operand is not a symbol"
+#~ msgstr "el operando %operator no es un s<>mbolo"
+
#~ msgid "offset not a multiple of 16"
#~ msgstr "el desplazamiento no es un m<>ltiplo de 16"
diff --git a/opcodes/po/id.po b/opcodes/po/id.po
index 3edf294..0f6c063 100644
--- a/opcodes/po/id.po
+++ b/opcodes/po/id.po
@@ -1,46 +1,133 @@
-# opcodes 2.12.1 (Indonesian)
-# Copyright (C) 2002 Free Software Foundation, Inc.
+# Pesan bahasa indonesia untuk opcodes
+# Copyright (C) 2009 Free Software Foundation, Inc.
+# This file is distributed under the same license as the binutils package.
# Tedi Heriyanto <tedi_h@gmx.net>, 2002.
+# Arif E. Nugroho <arif_endro@yahoo.com>, 2009.
#
msgid ""
msgstr ""
-"Project-Id-Version: opcodes 2.12.1\n"
-"POT-Creation-Date: 2002-02-08 03:24-0200\n"
-"PO-Revision-Date: 2002-07-23 12:35GMT+0700\n"
-"Last-Translator: Tedi Heriyanto <tedi_h@gmx.net>\n"
+"Project-Id-Version: opcodes 2.18.90\n"
+"Report-Msgid-Bugs-To: bug-binutils@gnu.org\n"
+"POT-Creation-Date: 2008-09-09 15:56+0930\n"
+"PO-Revision-Date: 2009-03-10 13:30+0700\n"
+"Last-Translator: Arif E. Nugroho <arif_endro@yahoo.com>\n"
"Language-Team: Indonesian <translation-team-id@lists.sourceforge.net>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
-"X-Generator: KBabel 0.9.5\n"
-#: alpha-opc.c:335
+#: alpha-opc.c:155
msgid "branch operand unaligned"
msgstr "operand cabang tidak rata"
-#: alpha-opc.c:358 alpha-opc.c:380
+#: alpha-opc.c:171 alpha-opc.c:187
msgid "jump hint unaligned"
msgstr "petunjuk lompat tidak rata"
-#: arc-dis.c:52
+#: arc-dis.c:77
msgid "Illegal limm reference in last instruction!\n"
msgstr "referensi limm ilegal dalam instruksi terakhir!\n"
-#: arm-dis.c:502
+#: arc-opc.c:386
+msgid "unable to fit different valued constants into instruction"
+msgstr "tidak dapat memasukan nilai konstanta berbeda kedalam instruksi"
+
+#: arc-opc.c:395
+msgid "auxiliary register not allowed here"
+msgstr "register tambahan tidak diperbolehkan disini"
+
+#: arc-opc.c:401 arc-opc.c:418
+msgid "attempt to set readonly register"
+msgstr "mencoba untuk menset register baca-saja"
+
+#: arc-opc.c:406 arc-opc.c:423
+msgid "attempt to read writeonly register"
+msgstr "mencoba untuk membaca register tulis-saja"
+
+#: arc-opc.c:428
+#, c-format
+msgid "invalid register number `%d'"
+msgstr "nomor register tidak valid `%d'"
+
+#: arc-opc.c:594 arc-opc.c:645 arc-opc.c:673
+msgid "too many long constants"
+msgstr "terlalu banyak konstanta panjang"
+
+#: arc-opc.c:668
+msgid "too many shimms in load"
+msgstr "terlalu banyak shimm dalam load"
+
+#. Do we have a limm already?
+#: arc-opc.c:781
+msgid "impossible store"
+msgstr "store tidak memungkinkan"
+
+#: arc-opc.c:814
+msgid "st operand error"
+msgstr "operand st error"
+
+#: arc-opc.c:818 arc-opc.c:860
+msgid "address writeback not allowed"
+msgstr "alamat writeback tidak diijinkan"
+
+#: arc-opc.c:822
+msgid "store value must be zero"
+msgstr "nilai simpan harus nol"
+
+#: arc-opc.c:847
+msgid "invalid load/shimm insn"
+msgstr "insn load/shimm tidak valid"
+
+#: arc-opc.c:856
+msgid "ld operand error"
+msgstr "operand ld error"
+
+#: arc-opc.c:943
+msgid "jump flags, but no .f seen"
+msgstr "tanda jump, tetapi tidak ada .f yang terlihat"
+
+#: arc-opc.c:946
+msgid "jump flags, but no limm addr"
+msgstr "tanda jump, tetapi tidak ada alamat limm"
+
+#: arc-opc.c:949
+msgid "flag bits of jump address limm lost"
+msgstr "tanda bit dari alamat jump limm hilang"
+
+#: arc-opc.c:952
+msgid "attempt to set HR bits"
+msgstr "mencoba menset bit HR"
+
+#: arc-opc.c:955
+msgid "bad jump flags value"
+msgstr "nilai tanda jump buruk"
+
+#: arc-opc.c:988
+msgid "branch address not on 4 byte boundary"
+msgstr "alamat cabang tidak dalam kelipatan 4 byte"
+
+#: arc-opc.c:1024
+msgid "must specify .jd or no nullify suffix"
+msgstr "harus menspesifikasikan .jd atau tidak ada akhiran nullify"
+
+#: arm-dis.c:1808
msgid "<illegal precision>"
msgstr "<presisi ilegal>"
-#: arm-dis.c:1012
+#. XXX - should break 'option' at following delimiter.
+#: arm-dis.c:3818
#, c-format
msgid "Unrecognised register name set: %s\n"
msgstr "Set nama register tidak dikenal: %s\n"
-#: arm-dis.c:1019
+#. XXX - should break 'option' at following delimiter.
+#: arm-dis.c:3826
#, c-format
msgid "Unrecognised disassembler option: %s\n"
msgstr "Option disasembler tidak dikenal: %s\n"
-#: arm-dis.c:1191
+#: arm-dis.c:4238
+#, c-format
msgid ""
"\n"
"The following ARM specific disassembler options are supported for use with\n"
@@ -50,297 +137,919 @@ msgstr ""
"Option disablembler khusus ARM berikut ini didukung untuk digunakan dengan\n"
"switch -M:\n"
-#: avr-dis.c:118 avr-dis.c:128
+#: avr-dis.c:115 avr-dis.c:125
+#, c-format
msgid "undefined"
msgstr "tidak didefinisikan"
-#: avr-dis.c:180
+#: avr-dis.c:187
+#, c-format
msgid "Internal disassembler error"
msgstr "Kesalahan disasembler internal"
-#: avr-dis.c:228
+#: avr-dis.c:236
#, c-format
msgid "unknown constraint `%c'"
msgstr "konstrain tidak dikenal `%c'"
-#: cgen-asm.c:346 fr30-ibld.c:195 m32r-ibld.c:195 openrisc-ibld.c:195 xstormy16-ibld.c:195
+#: cgen-asm.c:336 fr30-ibld.c:200 frv-ibld.c:200 ip2k-ibld.c:200
+#: iq2000-ibld.c:200 m32c-ibld.c:200 m32r-ibld.c:200 mep-ibld.c:200
+#: mt-ibld.c:200 openrisc-ibld.c:200 xc16x-ibld.c:200 xstormy16-ibld.c:200
#, c-format
msgid "operand out of range (%ld not between %ld and %ld)"
msgstr "operand keluar batas (%ld tidak antara %ld dan %ld)"
-#: cgen-asm.c:367
+#: cgen-asm.c:358
#, c-format
msgid "operand out of range (%lu not between %lu and %lu)"
msgstr "operand keluar batas (%lu tidak antara %lu dan %lu)"
-#: d30v-dis.c:312
+#: d30v-dis.c:255
#, c-format
msgid "<unknown register %d>"
msgstr "<register tidak dikenal %d>"
#. Can't happen.
-#: dis-buf.c:57
+#: dis-buf.c:59
#, c-format
msgid "Unknown error %d\n"
msgstr "Kesalahan tidak dikenal %d\n"
-#: dis-buf.c:62
+#: dis-buf.c:68
#, c-format
-msgid "Address 0x%x is out of bounds.\n"
-msgstr "Alamat 0x%x di luar batas.\n"
+msgid "Address 0x%s is out of bounds.\n"
+msgstr "Alamat 0x%s di luar jangkauan.\n"
-#: fr30-asm.c:323 m32r-asm.c:325 openrisc-asm.c:244 xstormy16-asm.c:231
+#: fr30-asm.c:93 m32c-asm.c:877 m32c-asm.c:884
+msgid "Register number is not valid"
+msgstr "Nomor register tidak valid"
+
+#: fr30-asm.c:95
+msgid "Register must be between r0 and r7"
+msgstr "Register harus berada diantara r0 dan r7"
+
+#: fr30-asm.c:97
+msgid "Register must be between r8 and r15"
+msgstr "Register harus berada diantara r8 dan r15"
+
+#: fr30-asm.c:116 m32c-asm.c:915
+msgid "Register list is not valid"
+msgstr "Daftar register tidak valid"
+
+#: fr30-asm.c:310 frv-asm.c:1263 ip2k-asm.c:511 iq2000-asm.c:459
+#: m32c-asm.c:1589 m32r-asm.c:328 mep-asm.c:1001 mt-asm.c:595
+#: openrisc-asm.c:241 xc16x-asm.c:376 xstormy16-asm.c:276
#, c-format
msgid "Unrecognized field %d while parsing.\n"
msgstr "Field tidak dikenal %d saat parsing.\n"
-#: fr30-asm.c:373 m32r-asm.c:375 openrisc-asm.c:294 xstormy16-asm.c:281
+#: fr30-asm.c:361 frv-asm.c:1314 ip2k-asm.c:562 iq2000-asm.c:510
+#: m32c-asm.c:1640 m32r-asm.c:379 mep-asm.c:1052 mt-asm.c:646
+#: openrisc-asm.c:292 xc16x-asm.c:427 xstormy16-asm.c:327
msgid "missing mnemonic in syntax string"
msgstr "mnemonik hilang dalam string sintaks"
#. We couldn't parse it.
-#: fr30-asm.c:509 fr30-asm.c:513 fr30-asm.c:600 fr30-asm.c:702 m32r-asm.c:511 m32r-asm.c:515 m32r-asm.c:602 m32r-asm.c:704 openrisc-asm.c:430 openrisc-asm.c:434 openrisc-asm.c:521 openrisc-asm.c:623 xstormy16-asm.c:417 xstormy16-asm.c:421 xstormy16-asm.c:508 xstormy16-asm.c:610
+#: fr30-asm.c:496 fr30-asm.c:500 fr30-asm.c:587 fr30-asm.c:688 frv-asm.c:1449
+#: frv-asm.c:1453 frv-asm.c:1540 frv-asm.c:1641 ip2k-asm.c:697 ip2k-asm.c:701
+#: ip2k-asm.c:788 ip2k-asm.c:889 iq2000-asm.c:645 iq2000-asm.c:649
+#: iq2000-asm.c:736 iq2000-asm.c:837 m32c-asm.c:1775 m32c-asm.c:1779
+#: m32c-asm.c:1866 m32c-asm.c:1967 m32r-asm.c:514 m32r-asm.c:518
+#: m32r-asm.c:605 m32r-asm.c:706 mep-asm.c:1187 mep-asm.c:1191 mep-asm.c:1278
+#: mep-asm.c:1379 mt-asm.c:781 mt-asm.c:785 mt-asm.c:872 mt-asm.c:973
+#: openrisc-asm.c:427 openrisc-asm.c:431 openrisc-asm.c:518 openrisc-asm.c:619
+#: xc16x-asm.c:562 xc16x-asm.c:566 xc16x-asm.c:653 xc16x-asm.c:754
+#: xstormy16-asm.c:462 xstormy16-asm.c:466 xstormy16-asm.c:553
+#: xstormy16-asm.c:654
msgid "unrecognized instruction"
msgstr "instruksti tidak dikenal"
-#: fr30-asm.c:556 m32r-asm.c:558 openrisc-asm.c:477 xstormy16-asm.c:464
+#: fr30-asm.c:543 frv-asm.c:1496 ip2k-asm.c:744 iq2000-asm.c:692
+#: m32c-asm.c:1822 m32r-asm.c:561 mep-asm.c:1234 mt-asm.c:828
+#: openrisc-asm.c:474 xc16x-asm.c:609 xstormy16-asm.c:509
#, c-format
msgid "syntax error (expected char `%c', found `%c')"
msgstr "kesalahan sintaks (diharapkan karakter `%c', ditemukan `%c')"
-#: fr30-asm.c:566 m32r-asm.c:568 openrisc-asm.c:487 xstormy16-asm.c:474
+#: fr30-asm.c:553 frv-asm.c:1506 ip2k-asm.c:754 iq2000-asm.c:702
+#: m32c-asm.c:1832 m32r-asm.c:571 mep-asm.c:1244 mt-asm.c:838
+#: openrisc-asm.c:484 xc16x-asm.c:619 xstormy16-asm.c:519
#, c-format
msgid "syntax error (expected char `%c', found end of instruction)"
msgstr "kesalahan sintaks (diharapkan karakter `%c', ditemukan akhir instruksi)"
-#: fr30-asm.c:594 m32r-asm.c:596 openrisc-asm.c:515 xstormy16-asm.c:502
+#: fr30-asm.c:581 frv-asm.c:1534 ip2k-asm.c:782 iq2000-asm.c:730
+#: m32c-asm.c:1860 m32r-asm.c:599 mep-asm.c:1272 mt-asm.c:866
+#: openrisc-asm.c:512 xc16x-asm.c:647 xstormy16-asm.c:547
msgid "junk at end of line"
msgstr "sampah di akhir baris"
-#: fr30-asm.c:701 m32r-asm.c:703 openrisc-asm.c:622 xstormy16-asm.c:609
+#: fr30-asm.c:687 frv-asm.c:1640 ip2k-asm.c:888 iq2000-asm.c:836
+#: m32c-asm.c:1966 m32r-asm.c:705 mep-asm.c:1378 mt-asm.c:972
+#: openrisc-asm.c:618 xc16x-asm.c:753 xstormy16-asm.c:653
msgid "unrecognized form of instruction"
msgstr "bentuk instruksi tidak dikenal"
-#: fr30-asm.c:713 m32r-asm.c:715 openrisc-asm.c:634 xstormy16-asm.c:621
+#: fr30-asm.c:699 frv-asm.c:1652 ip2k-asm.c:900 iq2000-asm.c:848
+#: m32c-asm.c:1978 m32r-asm.c:717 mep-asm.c:1390 mt-asm.c:984
+#: openrisc-asm.c:630 xc16x-asm.c:765 xstormy16-asm.c:665
#, c-format
msgid "bad instruction `%.50s...'"
msgstr "instruksi buruk `%.50s...'"
-#: fr30-asm.c:716 m32r-asm.c:718 openrisc-asm.c:637 xstormy16-asm.c:624
+#: fr30-asm.c:702 frv-asm.c:1655 ip2k-asm.c:903 iq2000-asm.c:851
+#: m32c-asm.c:1981 m32r-asm.c:720 mep-asm.c:1393 mt-asm.c:987
+#: openrisc-asm.c:633 xc16x-asm.c:768 xstormy16-asm.c:668
#, c-format
msgid "bad instruction `%.50s'"
msgstr "instruksi buruk `%.50s'"
#. Default text to print if an instruction isn't recognized.
-#: fr30-dis.c:39 m32r-dis.c:39 mmix-dis.c:282 openrisc-dis.c:39 xstormy16-dis.c:39
+#: fr30-dis.c:41 frv-dis.c:41 ip2k-dis.c:41 iq2000-dis.c:41 m32c-dis.c:41
+#: m32r-dis.c:41 mep-dis.c:41 mmix-dis.c:278 mt-dis.c:41 openrisc-dis.c:41
+#: xc16x-dis.c:41 xstormy16-dis.c:41
msgid "*unknown*"
msgstr "*tidak dikenal*"
-#: fr30-dis.c:318 m32r-dis.c:249 openrisc-dis.c:136 xstormy16-dis.c:169
+#: fr30-dis.c:299 frv-dis.c:396 ip2k-dis.c:288 iq2000-dis.c:189 m32c-dis.c:891
+#: m32r-dis.c:256 mep-dis.c:776 mt-dis.c:290 openrisc-dis.c:135
+#: xc16x-dis.c:375 xstormy16-dis.c:168
#, c-format
msgid "Unrecognized field %d while printing insn.\n"
msgstr "Field tidak dikenal %d saat mencetak insn.\n"
-#: fr30-ibld.c:166 m32r-ibld.c:166 openrisc-ibld.c:166 xstormy16-ibld.c:166
+#: fr30-ibld.c:163 frv-ibld.c:163 ip2k-ibld.c:163 iq2000-ibld.c:163
+#: m32c-ibld.c:163 m32r-ibld.c:163 mep-ibld.c:163 mt-ibld.c:163
+#: openrisc-ibld.c:163 xc16x-ibld.c:163 xstormy16-ibld.c:163
#, c-format
msgid "operand out of range (%ld not between %ld and %lu)"
msgstr "operand di luar batas (%ld tidak antara %ld dan %lu)"
-#: fr30-ibld.c:179 m32r-ibld.c:179 openrisc-ibld.c:179 xstormy16-ibld.c:179
+#: fr30-ibld.c:184 frv-ibld.c:184 ip2k-ibld.c:184 iq2000-ibld.c:184
+#: m32c-ibld.c:184 m32r-ibld.c:184 mep-ibld.c:184 mt-ibld.c:184
+#: openrisc-ibld.c:184 xc16x-ibld.c:184 xstormy16-ibld.c:184
#, c-format
-msgid "operand out of range (%lu not between 0 and %lu)"
-msgstr "operand di luar batas (%lu tidak antara 0 dan %lu)"
+msgid "operand out of range (0x%lx not between 0 and 0x%lx)"
+msgstr "operand di luar batas (0x%lx tidak antara 0 dan 0x%lx)"
-#: fr30-ibld.c:730 m32r-ibld.c:659 openrisc-ibld.c:633 xstormy16-ibld.c:678
+#: fr30-ibld.c:726 frv-ibld.c:852 ip2k-ibld.c:603 iq2000-ibld.c:709
+#: m32c-ibld.c:1727 m32r-ibld.c:661 mep-ibld.c:1024 mt-ibld.c:745
+#: openrisc-ibld.c:629 xc16x-ibld.c:748 xstormy16-ibld.c:674
#, c-format
msgid "Unrecognized field %d while building insn.\n"
msgstr "Field tidak dikenal %d saat membuild insn.\n"
-#: fr30-ibld.c:937 m32r-ibld.c:792 openrisc-ibld.c:735 xstormy16-ibld.c:826
+#: fr30-ibld.c:931 frv-ibld.c:1169 ip2k-ibld.c:678 iq2000-ibld.c:884
+#: m32c-ibld.c:2888 m32r-ibld.c:798 mep-ibld.c:1444 mt-ibld.c:965
+#: openrisc-ibld.c:729 xc16x-ibld.c:968 xstormy16-ibld.c:820
#, c-format
msgid "Unrecognized field %d while decoding insn.\n"
msgstr "Field tidak dikenal %d saat mendekode insn.\n"
-#: fr30-ibld.c:1086 m32r-ibld.c:902 openrisc-ibld.c:815 xstormy16-ibld.c:939
+#: fr30-ibld.c:1077 frv-ibld.c:1447 ip2k-ibld.c:752 iq2000-ibld.c:1015
+#: m32c-ibld.c:3505 m32r-ibld.c:911 mep-ibld.c:1737 mt-ibld.c:1165
+#: openrisc-ibld.c:806 xc16x-ibld.c:1189 xstormy16-ibld.c:930
#, c-format
msgid "Unrecognized field %d while getting int operand.\n"
msgstr "Field tidak dikenal %d saat memperoleh operand int.\n"
-#: fr30-ibld.c:1215 m32r-ibld.c:992 openrisc-ibld.c:875 xstormy16-ibld.c:1032
+#: fr30-ibld.c:1205 frv-ibld.c:1707 ip2k-ibld.c:808 iq2000-ibld.c:1128
+#: m32c-ibld.c:4104 m32r-ibld.c:1006 mep-ibld.c:2012 mt-ibld.c:1347
+#: openrisc-ibld.c:865 xc16x-ibld.c:1392 xstormy16-ibld.c:1022
#, c-format
msgid "Unrecognized field %d while getting vma operand.\n"
msgstr "Field tidak dikenal %d saat memperoleh operand vma.\n"
-#: fr30-ibld.c:1349 m32r-ibld.c:1090 openrisc-ibld.c:944 xstormy16-ibld.c:1134
+#: fr30-ibld.c:1336 frv-ibld.c:1974 ip2k-ibld.c:867 iq2000-ibld.c:1248
+#: m32c-ibld.c:4691 m32r-ibld.c:1107 mep-ibld.c:2271 mt-ibld.c:1536
+#: openrisc-ibld.c:931 xc16x-ibld.c:1596 xstormy16-ibld.c:1121
#, c-format
msgid "Unrecognized field %d while setting int operand.\n"
msgstr "Field tidak dikenal %d saat menset operand int.\n"
-#: fr30-ibld.c:1471 m32r-ibld.c:1176 openrisc-ibld.c:1001 xstormy16-ibld.c:1224
+#: fr30-ibld.c:1457 frv-ibld.c:2231 ip2k-ibld.c:916 iq2000-ibld.c:1358
+#: m32c-ibld.c:5268 m32r-ibld.c:1198 mep-ibld.c:2520 mt-ibld.c:1715
+#: openrisc-ibld.c:987 xc16x-ibld.c:1790 xstormy16-ibld.c:1210
#, c-format
msgid "Unrecognized field %d while setting vma operand.\n"
msgstr "Field tidak dikenal %d saat menset operand vma.\n"
-#: h8300-dis.c:384
+#: frv-asm.c:608
+msgid "missing `]'"
+msgstr "hilang `]'"
+
+#: frv-asm.c:611 frv-asm.c:621
+msgid "Special purpose register number is out of range"
+msgstr "Nomor register tujuan spesial di luar batas"
+
+#: frv-asm.c:908
+msgid "Value of A operand must be 0 or 1"
+msgstr "Nilai dari operand A harus berupa 0 atau 1"
+
+#: frv-asm.c:944
+msgid "register number must be even"
+msgstr "nomor register harus genap"
+
+#. -- assembler routines inserted here.
+#. -- asm.c
+#: frv-asm.c:972 iq2000-asm.c:56 m32c-asm.c:141 m32c-asm.c:237 m32c-asm.c:279
+#: m32c-asm.c:338 m32c-asm.c:360 m32r-asm.c:53 mep-asm.c:232 mep-asm.c:250
+#: mep-asm.c:265 mep-asm.c:280 mep-asm.c:292 openrisc-asm.c:54
+msgid "missing `)'"
+msgstr "hilang `)'"
+
+#: h8300-dis.c:327
#, c-format
-msgid "Hmmmm %x"
-msgstr "Hmmmm %x"
+msgid "Hmmmm 0x%x"
+msgstr "Hmmmm 0x%x"
-#: h8300-dis.c:395
+#: h8300-dis.c:708
#, c-format
-msgid "Don't understand %x \n"
-msgstr "Tidak mengerti %x \n"
+msgid "Don't understand 0x%x \n"
+msgstr "Tidak mengerti 0x%x \n"
-#: h8500-dis.c:143
+#: h8500-dis.c:124
#, c-format
msgid "can't cope with insert %d\n"
msgstr "tidak dapat menangani insert %d\n"
#. Couldn't understand anything.
-#: h8500-dis.c:350
+#: h8500-dis.c:324
#, c-format
msgid "%02x\t\t*unknown*"
msgstr "%02x\t\t*tidak dikenal*"
-#: i386-dis.c:1649
+#: i386-dis.c:9545
msgid "<internal disassembler error>"
msgstr "<kesalahan asembler internal>"
-#: m10200-dis.c:199
+#: i386-dis.c:9776
+#, c-format
+msgid ""
+"\n"
+"The following i386/x86-64 specific disassembler options are supported for use\n"
+"with the -M switch (multiple options should be separated by commas):\n"
+msgstr ""
+"\n"
+"Option disablembler khusus i386/x86-64 berikut ini didukung untuk digunakan dengan\n"
+"pilihan -M (pilihan double seharusnya dipisahkan dengan koma):\n"
+
+#: i386-dis.c:9780
+#, c-format
+msgid " x86-64 Disassemble in 64bit mode\n"
+msgstr " x86-64 Disasemble dalam mode 64bit\n"
+
+#: i386-dis.c:9781
+#, c-format
+msgid " i386 Disassemble in 32bit mode\n"
+msgstr " i386 Disassemble dalam mode 32bit\n"
+
+#: i386-dis.c:9782
+#, c-format
+msgid " i8086 Disassemble in 16bit mode\n"
+msgstr " i8086 Disassemble dalam mode 16bit\n"
+
+#: i386-dis.c:9783
+#, c-format
+msgid " att Display instruction in AT&T syntax\n"
+msgstr " att Tampilkan instruksi dalam sintaks AT&T\n"
+
+#: i386-dis.c:9784
+#, c-format
+msgid " intel Display instruction in Intel syntax\n"
+msgstr " intel Tampilkan instruksi dalam sintaks Intel\n"
+
+#: i386-dis.c:9785
+#, c-format
+msgid ""
+" att-mnemonic\n"
+" Display instruction in AT&T mnemonic\n"
+msgstr ""
+" att-mnemonic\n"
+" Tampilkan instruksi dalam mnemonic AT&T\n"
+
+#: i386-dis.c:9787
+#, c-format
+msgid ""
+" intel-mnemonic\n"
+" Display instruction in Intel mnemonic\n"
+msgstr ""
+" intel-mnemonic\n"
+" Tampilkan instruksi dalam mnemonic Intel\n"
+
+#: i386-dis.c:9789
+#, c-format
+msgid " addr64 Assume 64bit address size\n"
+msgstr " addr64 Asumsikan ukuran alamat 64bit\n"
+
+#: i386-dis.c:9790
+#, c-format
+msgid " addr32 Assume 32bit address size\n"
+msgstr " addr32 Asumsikan ukuran alamat 32bit\n"
+
+#: i386-dis.c:9791
+#, c-format
+msgid " addr16 Assume 16bit address size\n"
+msgstr " addr16 Asumsikan ukuran alamat 16bit\n"
+
+#: i386-dis.c:9792
#, c-format
-msgid "unknown\t0x%02x"
-msgstr "tidak dikenal\t0x%02x"
+msgid " data32 Assume 32bit data size\n"
+msgstr " data32 Asumsikan ukuran data 32bit\n"
-#: m10200-dis.c:339
+#: i386-dis.c:9793
+#, c-format
+msgid " data16 Assume 16bit data size\n"
+msgstr " data16 Asumsikan ukuran data 16bit\n"
+
+#: i386-dis.c:9794
+#, c-format
+msgid " suffix Always display instruction suffix in AT&T syntax\n"
+msgstr " akhiran Selalu tampilkan akhiran instruksi dalam sintaks AT&T\n"
+
+#: i386-gen.c:411 ia64-gen.c:307
+#, c-format
+msgid "%s: Error: "
+msgstr "%s: Error: "
+
+#: i386-gen.c:510
+#, c-format
+msgid "%s: %d: Unknown bitfield: %s\n"
+msgstr "%s: %d: bitfield tidak diketahui: %s\n"
+
+#: i386-gen.c:674
+#, c-format
+msgid "can't find i386-opc.tbl for reading, errno = %s\n"
+msgstr "tidak dapat menemukan i386-opc.tbl untuk pembacaan, nomor error = %s\n"
+
+#: i386-gen.c:851
+#, c-format
+msgid "can't find i386-reg.tbl for reading, errno = %s\n"
+msgstr "tidak dapat menemukan i386-reg.tbl untuk pembacaan, nomor error = %s\n"
+
+#: i386-gen.c:943
+#, c-format
+msgid "can't create i386-init.h, errno = %s\n"
+msgstr "tidak dapat membuat i386-init.h, nomor error = %s\n"
+
+#: i386-gen.c:1032 ia64-gen.c:2850
+#, c-format
+msgid "unable to change directory to \"%s\", errno = %s\n"
+msgstr "tidak dapat mengubah direktori ke \"%s\", nomor error = %s\n"
+
+#: i386-gen.c:1039
+#, c-format
+msgid "%d unused bits in i386_cpu_flags.\n"
+msgstr "%d bit tidak digunakan dalam i386_cpu_flags.\n"
+
+#: i386-gen.c:1046
+#, c-format
+msgid "%d unused bits in i386_operand_type.\n"
+msgstr "%d bit tidak digunakan dalam i386_operand_type.\n"
+
+#: i386-gen.c:1060
+#, c-format
+msgid "can't create i386-tbl.h, errno = %s\n"
+msgstr "tidak dapat membuat i386-tbl.h, nomor error = %s\n"
+
+#: ia64-gen.c:320
+#, c-format
+msgid "%s: Warning: "
+msgstr "%s: Peringatan: "
+
+#: ia64-gen.c:506 ia64-gen.c:740
+#, c-format
+msgid "multiple note %s not handled\n"
+msgstr "catatan ganda %s tidak ditangani\n"
+
+#: ia64-gen.c:617
+msgid "can't find ia64-ic.tbl for reading\n"
+msgstr "tidak dapat menemukan ia64-ic.tbl untuk pembacaan\n"
+
+#: ia64-gen.c:822
+#, c-format
+msgid "can't find %s for reading\n"
+msgstr "tidak dapat menemukan %s untuk pembacaan\n"
+
+#: ia64-gen.c:1046
+#, c-format
+msgid ""
+"most recent format '%s'\n"
+"appears more restrictive than '%s'\n"
+msgstr ""
+"format paling baru '%s'\n"
+"tampak lebih terbatas dari '%s'\n"
+
+#: ia64-gen.c:1057
+#, c-format
+msgid "overlapping field %s->%s\n"
+msgstr "daerah saling menimpa %s->%s\n"
+
+#: ia64-gen.c:1254
+#, c-format
+msgid "overwriting note %d with note %d (IC:%s)\n"
+msgstr "catatan saling menulis %d dengan catatan %d (IC:%s)\n"
+
+#: ia64-gen.c:1459
+#, c-format
+msgid "don't know how to specify %% dependency %s\n"
+msgstr "tidak tahu bagaimana menspesifikasikan %% ketergantungan %s\n"
+
+#: ia64-gen.c:1481
+#, c-format
+msgid "Don't know how to specify # dependency %s\n"
+msgstr "Tidak tahu bagaimana menspesifikasikan # ketergantungan %s\n"
+
+#: ia64-gen.c:1520
+#, c-format
+msgid "IC:%s [%s] has no terminals or sub-classes\n"
+msgstr "IC:%s [%s] tidak memiliki terminal atau sub-kelas\n"
+
+#: ia64-gen.c:1523
+#, c-format
+msgid "IC:%s has no terminals or sub-classes\n"
+msgstr "IC:%s tidak memiliki terminal atau sub-kelas\n"
+
+#: ia64-gen.c:1532
+#, c-format
+msgid "no insns mapped directly to terminal IC %s [%s]"
+msgstr "tidak ada insns terpetakan secara langsung ke terminal IC %s [%s]"
+
+#: ia64-gen.c:1535
+#, c-format
+msgid "no insns mapped directly to terminal IC %s\n"
+msgstr "tidak ada insns terpetakan langsung ke terminal IC %s\n"
+
+#: ia64-gen.c:1546
+#, c-format
+msgid "class %s is defined but not used\n"
+msgstr "kelas %s didefinisikan tetapi tidak digunakan\n"
+
+#: ia64-gen.c:1559
+#, c-format
+msgid "Warning: rsrc %s (%s) has no chks\n"
+msgstr "Peringatan: rsrc %s (%s) tidak memiliki chks\n"
+
+#: ia64-gen.c:1562
+#, c-format
+msgid "Warning: rsrc %s (%s) has no chks or regs\n"
+msgstr "Peringatan: rsrc %s (%s) tidak memiliki chks atau regs\n"
+
+#: ia64-gen.c:1566
+#, c-format
+msgid "rsrc %s (%s) has no regs\n"
+msgstr "rsrc %s (%s) tidak memiliki regs\n"
+
+#: ia64-gen.c:2478
+#, c-format
+msgid "IC note %d in opcode %s (IC:%s) conflicts with resource %s note %d\n"
+msgstr "IC catatan %d dalam opcode %s (IC:%s) konflik dengan sumber daya %s catatan %d\n"
+
+#: ia64-gen.c:2506
+#, c-format
+msgid "IC note %d for opcode %s (IC:%s) conflicts with resource %s note %d\n"
+msgstr "IC catatan %d untuk opcode %s (IC:%s) konflik dengan sumber data %s catatan %d\n"
+
+#: ia64-gen.c:2520
+#, c-format
+msgid "opcode %s has no class (ops %d %d %d)\n"
+msgstr "opcode %s tidak memiliki kelas (ops %d %d %d)\n"
+
+#. We've been passed a w. Return with an error message so that
+#. cgen will try the next parsing option.
+#: ip2k-asm.c:81
+msgid "W keyword invalid in FR operand slot."
+msgstr "W kata kunci tidak valid dalam FR operand slot."
+
+#. Invalid offset present.
+#: ip2k-asm.c:106
+msgid "offset(IP) is not a valid form"
+msgstr "offset(IP) bukan sebuah bentuk valid"
+
+#. Found something there in front of (DP) but it's out
+#. of range.
+#: ip2k-asm.c:154
+msgid "(DP) offset out of range."
+msgstr "(DP) ofset di luar batas."
+
+#. Found something there in front of (SP) but it's out
+#. of range.
+#: ip2k-asm.c:195
+msgid "(SP) offset out of range."
+msgstr "(SP) ofset di luar batas."
+
+#: ip2k-asm.c:211
+msgid "illegal use of parentheses"
+msgstr "penggunaan tidak legal dari tanda petik"
+
+#: ip2k-asm.c:218
+msgid "operand out of range (not between 1 and 255)"
+msgstr "operand di luar batas (tidak antara 1 dan 255)"
+
+#. Something is very wrong. opindex has to be one of the above.
+#: ip2k-asm.c:242
+msgid "parse_addr16: invalid opindex."
+msgstr "parse_addr16: opindex tidak valid."
+
+#: ip2k-asm.c:296
+msgid "Byte address required. - must be even."
+msgstr "Alamat byte dibutuhkan. - harus genap."
+
+#: ip2k-asm.c:305
+msgid "cgen_parse_address returned a symbol. Literal required."
+msgstr "cgen_parse_address mengembalikan sebuah simbol. Literal dibutuhkan."
+
+#: ip2k-asm.c:360
+msgid "percent-operator operand is not a symbol"
+msgstr "percent-operator operand bukan sebuah simbol"
+
+#: ip2k-asm.c:413
+msgid "Attempt to find bit index of 0"
+msgstr "Mencoba untuk menemukan bit index dari 0"
+
+#: iq2000-asm.c:112 iq2000-asm.c:142
+msgid "immediate value cannot be register"
+msgstr "nilai langsung tidak dapat berupa register"
+
+#: iq2000-asm.c:123 iq2000-asm.c:153
+msgid "immediate value out of range"
+msgstr "nilai langsung di luar batas"
+
+#: iq2000-asm.c:182
+msgid "21-bit offset out of range"
+msgstr "21-bit ofset di luar batas"
+
+#: m10200-dis.c:158 m10300-dis.c:582
#, c-format
msgid "unknown\t0x%04lx"
msgstr "tidak dikenal\t0x%04lx"
-#: m10300-dis.c:685
+#: m10200-dis.c:328
#, c-format
-msgid "unknown\t0x%04x"
-msgstr "tidak dikenal\t0x%04x"
+msgid "unknown\t0x%02lx"
+msgstr "tidak dikenal\t0x%02lx"
+
+#: m32c-asm.c:117
+msgid "imm:6 immediate is out of range"
+msgstr "imm:6 nilai langsung di luar batas"
-#: m68k-dis.c:429
+#: m32c-asm.c:147
#, c-format
-msgid "<internal error in opcode table: %s %s>\n"
-msgstr "<kesalahan internal dalam tabel opcode: %s %s>\n"
+msgid "%dsp8() takes a symbolic address, not a number"
+msgstr "%dsp8() mengambil sebuah alamat simbolik, bukan sebuah angka"
+
+#: m32c-asm.c:160 m32c-asm.c:164 m32c-asm.c:255
+msgid "dsp:8 immediate is out of range"
+msgstr "dsp:8 nilai langsung di luar batas"
+
+#: m32c-asm.c:185 m32c-asm.c:189
+msgid "Immediate is out of range -8 to 7"
+msgstr "nilai langsung di luar dari jangkauan -8 ke 7"
+
+#: m32c-asm.c:210 m32c-asm.c:214
+msgid "Immediate is out of range -7 to 8"
+msgstr "nilai langsung di luar dari jangkauan -7 ke 8"
+
+#: m32c-asm.c:285
+#, c-format
+msgid "%dsp16() takes a symbolic address, not a number"
+msgstr "%dsp16() mengambil sebuah alamat simbolik, tetapi bukan sebuah angka"
+
+#: m32c-asm.c:308 m32c-asm.c:315 m32c-asm.c:378
+msgid "dsp:16 immediate is out of range"
+msgstr "dsp:16 nilai langsung di luar batas"
+
+#: m32c-asm.c:404
+msgid "dsp:20 immediate is out of range"
+msgstr "dsp:20 nilai langsung di luar batas"
+
+#: m32c-asm.c:430 m32c-asm.c:450
+msgid "dsp:24 immediate is out of range"
+msgstr "dsp:24 nilai langsung di luar batas"
+
+#: m32c-asm.c:483
+msgid "immediate is out of range 1-2"
+msgstr "nilai langsung di luar dari jangkauan 1-2"
+
+#: m32c-asm.c:501
+msgid "immediate is out of range 1-8"
+msgstr "nilai langsung di luar dari jangkauan 1-8"
+
+#: m32c-asm.c:519
+msgid "immediate is out of range 0-7"
+msgstr "nilai langsung di luar dari jangkauan 0-7"
+
+#: m32c-asm.c:555
+msgid "immediate is out of range 2-9"
+msgstr "nilai langsung di luar dari jangkauan 2-9"
-#: m68k-dis.c:1007
+#: m32c-asm.c:573
+msgid "Bit number for indexing general register is out of range 0-15"
+msgstr "Nomor bit untuk register umum pengindeksan diluar dari jangkauan 0-15"
+
+#: m32c-asm.c:611 m32c-asm.c:667
+msgid "bit,base is out of range"
+msgstr "bit,bas di luar batas"
+
+#: m32c-asm.c:618 m32c-asm.c:623 m32c-asm.c:671
+msgid "bit,base out of range for symbol"
+msgstr "bit,base di luar dari jangkauan untuk simbol"
+
+#: m32c-asm.c:807
+msgid "not a valid r0l/r0h pair"
+msgstr "bukan sebuah valid pasangan r0l/r0h"
+
+#: m32c-asm.c:837
+msgid "Invalid size specifier"
+msgstr "Ukuran penspesifikasi tidak valid"
+
+#: m68k-dis.c:1163
#, c-format
msgid "<function code %d>"
msgstr "<kode fungsi %d>"
-#: m88k-dis.c:255
+#: m68k-dis.c:1320
+#, c-format
+msgid "<internal error in opcode table: %s %s>\n"
+msgstr "<kesalahan internal dalam tabel opcode: %s %s>\n"
+
+#: m88k-dis.c:679
+#, c-format
+msgid "# <dis error: %08lx>"
+msgstr "# <kesalahan dis: %08lx>"
+
+#: mep-asm.c:114
+msgid "Only $tp or $13 allowed for this opcode"
+msgstr "Hanya $tp atau $13 diperbolehkan untuk opcode ini"
+
+#: mep-asm.c:128
+msgid "Only $sp or $15 allowed for this opcode"
+msgstr "Hanya $sp atau $15 diperbolehkan untuk opcode ini"
+
+#: mep-asm.c:299 mep-asm.c:455
+#, c-format
+msgid "invalid %function() here"
+msgstr "%function disini tidak valid"
+
+#: mips-dis.c:781
+msgid "# internal error, incomplete extension sequence (+)"
+msgstr "# internal error, urutan ekstensi (+) tidak lengkap"
+
+#: mips-dis.c:915
#, c-format
-msgid "# <dis error: %08x>"
-msgstr "# <kesalahan dis: %08x>"
+msgid "# internal error, undefined extension sequence (+%c)"
+msgstr "# kesalahan internal, tidak terdefinisi urutan ekstensi(+%c)"
-#: mips-dis.c:290
+#: mips-dis.c:1274
#, c-format
-msgid "# internal error, undefined modifier(%c)"
-msgstr "# kesalahan internal, modifier tidak didefinisikan(%c)"
+msgid "# internal error, undefined modifier (%c)"
+msgstr "# kesalahan internal, tidak terdefinisi pemodifikasi(%c)"
-#: mips-dis.c:1154
+#: mips-dis.c:1881
#, c-format
msgid "# internal disassembler error, unrecognised modifier (%c)"
msgstr "# kesalahan internal disasembler, modifier tidak dikenal (%c)"
-#: mmix-dis.c:34
+#: mips-dis.c:2112
+#, c-format
+msgid ""
+"\n"
+"The following MIPS specific disassembler options are supported for use\n"
+"with the -M switch (multiple options should be separated by commas):\n"
+msgstr ""
+"\n"
+"Pilihan disablembler khusus MIPS berikut ini didukung untuk digunakan dengan\n"
+"pilihan -M (pilihan ganda seharusnya dipisahkan dengan koma):\n"
+
+#: mips-dis.c:2116
+#, c-format
+msgid ""
+"\n"
+" gpr-names=ABI Print GPR names according to specified ABI.\n"
+" Default: based on binary being disassembled.\n"
+msgstr ""
+"\n"
+" gpr-names=ABI Tampilkan nama GPR menurut ABI yang dispesifikasikan.\n"
+" Baku: berdasar dari binari yang sedang diassembled.\n"
+
+#: mips-dis.c:2120
+#, c-format
+msgid ""
+"\n"
+" fpr-names=ABI Print FPR names according to specified ABI.\n"
+" Default: numeric.\n"
+msgstr ""
+"\n"
+" fpr-names=ABI Tampilkan nama FPR menurut ABI yang dispesifikasikan.\n"
+" Baku: numerik.\n"
+
+#: mips-dis.c:2124
+#, c-format
+msgid ""
+"\n"
+" cp0-names=ARCH Print CP0 register names according to\n"
+" specified architecture.\n"
+" Default: based on binary being disassembled.\n"
+msgstr ""
+"\n"
+" cp0-names=ARCH Tampilkan nama register CP0 menurut arsitektur\n"
+" yang dispesifikasikan.\n"
+" Baku: berdasar dari binari yang sedang diassembled.\n"
+
+#: mips-dis.c:2129
+#, c-format
+msgid ""
+"\n"
+" hwr-names=ARCH Print HWR names according to specified \n"
+"\t\t\t architecture.\n"
+" Default: based on binary being disassembled.\n"
+msgstr ""
+"\n"
+" hwr-names=ARCH Tampilkan nama HWR menurut arsitektur\n"
+"\t\t\t yang dispesifikasikan.\n"
+" Baku: berdasar dari binari yang sedang diassembled.\n"
+
+#: mips-dis.c:2134
+#, c-format
+msgid ""
+"\n"
+" reg-names=ABI Print GPR and FPR names according to\n"
+" specified ABI.\n"
+msgstr ""
+"\n"
+" reg-names=ABI Tampilkan nama GPR dan FPR menurut ABI yang\n"
+" dispesifikasikan.\n"
+
+#: mips-dis.c:2138
+#, c-format
+msgid ""
+"\n"
+" reg-names=ARCH Print CP0 register and HWR names according to\n"
+" specified architecture.\n"
+msgstr ""
+"\n"
+" reg-names=ARCH Tampilkan nama register CP0 dan HWR menurut\n"
+" arsitektur yang dispesifikasikan.\n"
+
+#: mips-dis.c:2142
+#, c-format
+msgid ""
+"\n"
+" For the options above, the following values are supported for \"ABI\":\n"
+" "
+msgstr ""
+"\n"
+" Untuk pilihan diatas, nilai berikut didukung untuk \"ABI\":\n"
+" "
+
+#: mips-dis.c:2147 mips-dis.c:2155 mips-dis.c:2157
+#, c-format
+msgid "\n"
+msgstr "\n"
+
+#: mips-dis.c:2149
+#, c-format
+msgid ""
+"\n"
+" For the options above, The following values are supported for \"ARCH\":\n"
+" "
+msgstr ""
+"\n"
+" Untuk pilihan diatas, nilai berikut didukung untuk \"ARCH\":\n"
+" "
+
+#: mmix-dis.c:35
#, c-format
msgid "Bad case %d (%s) in %s:%d\n"
msgstr "Case buruk %d (%s) dalam %s:%d\n"
-#: mmix-dis.c:44
+#: mmix-dis.c:45
#, c-format
msgid "Internal: Non-debugged code (test-case missing): %s:%d"
msgstr "Internal: Kode belum didebug (tidak ada test-case): %s:%d"
-#: mmix-dis.c:53
+#: mmix-dis.c:54
msgid "(unknown)"
msgstr "(tidak dikenal)"
-#: mmix-dis.c:517
+#: mmix-dis.c:513
#, c-format
msgid "*unknown operands type: %d*"
msgstr "*tipe operand tidak dikenal: %d*"
+#: mt-asm.c:110 mt-asm.c:190
+msgid "Operand out of range. Must be between -32768 and 32767."
+msgstr "Operand di luar batas. Harus berada diantara -32768 dan 32767."
+
+#: mt-asm.c:149
+msgid "Biiiig Trouble in parse_imm16!"
+msgstr "Masalah BESAR dalam parse_imm16!"
+
+#: mt-asm.c:157
+msgid "The percent-operator's operand is not a symbol"
+msgstr "Operand percent-operator bukan sebuah simbol"
+
+#: mt-asm.c:395
+msgid "invalid operand. type may have values 0,1,2 only."
+msgstr "operand tidak valid. tipe mungkin hanya memiliki nilai 0,1,2."
+
#. I and Z are output operands and can`t be immediate
-#. * A is an address and we can`t have the address of
-#. * an immediate either. We don't know how much to increase
-#. * aoffsetp by since whatever generated this is broken
-#. * anyway!
-#.
-#: ns32k-dis.c:628
+#. A is an address and we can`t have the address of
+#. an immediate either. We don't know how much to increase
+#. aoffsetp by since whatever generated this is broken
+#. anyway!
+#: ns32k-dis.c:534
+#, c-format
msgid "$<undefined>"
msgstr "$<tidak didefinisikan>"
-#: ppc-opc.c:765 ppc-opc.c:798
+#: ppc-opc.c:862 ppc-opc.c:890
msgid "invalid conditional option"
msgstr "option kondisional tidak valid"
-#: ppc-opc.c:800
+#: ppc-opc.c:892
msgid "attempt to set y bit when using + or - modifier"
msgstr "berusaha menset bit y saat menggunakan modifier + atau -"
-#: ppc-opc.c:832 ppc-opc.c:884
-msgid "offset not a multiple of 4"
-msgstr "offset bukan kelipatan 4"
-
-#: ppc-opc.c:857
-msgid "offset not between -2048 and 2047"
-msgstr "offset tidak berada antara -2048 dan 2047"
-
-#: ppc-opc.c:882
-msgid "offset not between -8192 and 8191"
-msgstr "offset tidak berada antara -8192 dan 8191"
+#: ppc-opc.c:924
+msgid "invalid mask field"
+msgstr "topeng daerah tidak valid"
-#: ppc-opc.c:910
-msgid "ignoring least significant bits in branch offset"
-msgstr "mengabaikan least significant bit dalam offset cabang"
+#: ppc-opc.c:950
+msgid "ignoring invalid mfcr mask"
+msgstr "mengabaikan topeng mfcr tidak valid"
-#: ppc-opc.c:944 ppc-opc.c:981
+#: ppc-opc.c:1000 ppc-opc.c:1035
msgid "illegal bitmask"
msgstr "bitmask ilegal"
-#: ppc-opc.c:1054
-msgid "value out of range"
-msgstr "nilai di luar batas"
-
-#: ppc-opc.c:1130
+#: ppc-opc.c:1155
msgid "index register in load range"
msgstr "register indeks dalam daerah pemuatan"
-#: ppc-opc.c:1146
+#: ppc-opc.c:1171
+msgid "source and target register operands must be different"
+msgstr "sumber dan target operand register harus berbeda"
+
+#: ppc-opc.c:1186
msgid "invalid register operand when updating"
msgstr "operand register tidak valid saat mengupdate"
-#. Mark as non-valid instruction
-#: sparc-dis.c:750
-msgid "unknown"
-msgstr "tidak dikenal"
+#: ppc-opc.c:1265
+msgid "invalid sprg number"
+msgstr "nomor sprg tidak valid"
+
+#: s390-dis.c:276
+#, c-format
+msgid ""
+"\n"
+"The following S/390 specific disassembler options are supported for use\n"
+"with the -M switch (multiple options should be separated by commas):\n"
+msgstr ""
+"\n"
+"Pilihan disablembler khusus S/390 berikut ini didukung untuk digunakan dengan\n"
+"pilihan -M (pilihan ganda seharusnya dipisahkan dengan koma):\n"
+
+#: s390-dis.c:280
+#, c-format
+msgid " esa Disassemble in ESA architecture mode\n"
+msgstr " esa Disassemble dalam mode arsitektur ESA\n"
-#: sparc-dis.c:825
+#: s390-dis.c:281
+#, c-format
+msgid " zarch Disassemble in z/Architecture mode\n"
+msgstr " zarch Disassemble dalam mode z/Architecture\n"
+
+#: score-dis.c:220 score-dis.c:383
+msgid "<illegal instruction>"
+msgstr "<instruksi tidak legal>"
+
+#: sparc-dis.c:282
#, c-format
msgid "Internal error: bad sparc-opcode.h: \"%s\", %#.8lx, %#.8lx\n"
msgstr "Kesalahan internal: sparc-opcode.h buruk: \"%s\", %#.8lx, %#.8lx\n"
-#: sparc-dis.c:836
+#: sparc-dis.c:293
#, c-format
msgid "Internal error: bad sparc-opcode.h: \"%s\", %#.8lx, %#.8lx\n"
msgstr "Kesalahan internal: sparc-opcode.h buruk: \"%s\", %#.8lx, %#.8lx\n"
-#: sparc-dis.c:885
+#: sparc-dis.c:343
#, c-format
msgid "Internal error: bad sparc-opcode.h: \"%s\" == \"%s\"\n"
msgstr "Kesalahan internal: sparc-opcode.h buruk: \"%s\" == \"%s\"\n"
-#: v850-dis.c:224
+#. Mark as non-valid instruction.
+#: sparc-dis.c:1013
+msgid "unknown"
+msgstr "tidak dikenal"
+
+#: v850-dis.c:239
#, c-format
msgid "unknown operand shift: %x\n"
msgstr "shift operand tidak dikenal: %x\n"
-#: v850-dis.c:236
+#: v850-dis.c:253
#, c-format
msgid "unknown pop reg: %d\n"
msgstr "reg pop tidak dikenal: %d\n"
@@ -350,74 +1059,122 @@ msgstr "reg pop tidak dikenal: %d\n"
#. v850_insert_operand() in gas/config/tc-v850.c. Error messages
#. containing the string 'out of range' will be ignored unless a
#. specific command line option is given to GAS.
-#: v850-opc.c:68
+#: v850-opc.c:48
msgid "displacement value is not in range and is not aligned"
msgstr "nilai displacement tidak dalam jangkauan dan tidak rata"
-#: v850-opc.c:69
+#: v850-opc.c:49
msgid "displacement value is out of range"
msgstr "nilai displacement di luar batas"
-#: v850-opc.c:70
+#: v850-opc.c:50
msgid "displacement value is not aligned"
msgstr "nilai displacement tidak rata"
-#: v850-opc.c:72
+#: v850-opc.c:52
msgid "immediate value is out of range"
msgstr "nilai langsung di luar batas"
-#: v850-opc.c:83
+#: v850-opc.c:60
msgid "branch value not in range and to odd offset"
msgstr "nilai cabang tidak dalam jangkauan"
-#: v850-opc.c:85 v850-opc.c:117
+#: v850-opc.c:62 v850-opc.c:89
msgid "branch value out of range"
msgstr "nilai cabang di luar jangkauan"
-#: v850-opc.c:88 v850-opc.c:120
+#: v850-opc.c:65 v850-opc.c:92
msgid "branch to odd offset"
msgstr "cabang offset ganjil"
-#: v850-opc.c:115
+#: v850-opc.c:87
msgid "branch value not in range and to an odd offset"
msgstr "nilai cabang di luar jangkauan dan offset ganjil"
-#: v850-opc.c:346
+#: v850-opc.c:279
msgid "invalid register for stack adjustment"
msgstr "register tidak valid untuk penyesuaian stack"
-#: v850-opc.c:370
+#: v850-opc.c:299
msgid "immediate value not in range and not even"
msgstr "nilai langsung tidak dalam jangkauan dan tidak genap"
-#: v850-opc.c:375
+#: v850-opc.c:304
msgid "immediate value must be even"
msgstr "nilai langsung harus genap"
-#: xstormy16-asm.c:74
+#: xc16x-asm.c:66
+msgid "Missing '#' prefix"
+msgstr "Hilang awalan '#'"
+
+#: xc16x-asm.c:82
+msgid "Missing '.' prefix"
+msgstr "Hilang awalan '.'"
+
+#: xc16x-asm.c:98
+msgid "Missing 'pof:' prefix"
+msgstr "Hilang awalan 'pof:'"
+
+#: xc16x-asm.c:114
+msgid "Missing 'pag:' prefix"
+msgstr "Hilang awalan 'pag:'"
+
+#: xc16x-asm.c:130
+msgid "Missing 'sof:' prefix"
+msgstr "Hilang awalan 'sof:'"
+
+#: xc16x-asm.c:146
+msgid "Missing 'seg:' prefix"
+msgstr "Hilanga awalan 'seg:'"
+
+#: xstormy16-asm.c:71
msgid "Bad register in preincrement"
msgstr "register buruk dalam preinkremen"
-#: xstormy16-asm.c:79
+#: xstormy16-asm.c:76
msgid "Bad register in postincrement"
msgstr "Register buruk dalam pascainkremen"
-#: xstormy16-asm.c:81
+#: xstormy16-asm.c:78
msgid "Bad register name"
msgstr "Nama register buruk"
-#: xstormy16-asm.c:85
+#: xstormy16-asm.c:82
msgid "Label conflicts with register name"
msgstr "Label konflik dengan nama register"
-#: xstormy16-asm.c:89
+#: xstormy16-asm.c:86
msgid "Label conflicts with `Rx'"
msgstr "Label konflik dengan `Rx'"
-#: xstormy16-asm.c:91
+#: xstormy16-asm.c:88
msgid "Bad immediate expression"
msgstr "Ekspresi langsung yang buruk"
-#: xstormy16-asm.c:120
+#: xstormy16-asm.c:109
+msgid "No relocation for small immediate"
+msgstr "Tidak ada relokasi untuk immediate kecil"
+
+#: xstormy16-asm.c:119
msgid "Small operand was not an immediate number"
msgstr "Operand kecil bukan sebuah angka immediate"
+
+#: xstormy16-asm.c:157
+msgid "Operand is not a symbol"
+msgstr "Operand bukan sebuah simbol"
+
+#: xstormy16-asm.c:165
+msgid "Syntax error: No trailing ')'"
+msgstr "Sintaks error: Tidak ada akhiran ')'"
+
+#~ msgid "unknown\t0x%04x"
+#~ msgstr "tidak dikenal\t0x%04x"
+
+#~ msgid "offset not between -2048 and 2047"
+#~ msgstr "offset tidak berada antara -2048 dan 2047"
+
+#~ msgid "offset not between -8192 and 8191"
+#~ msgstr "offset tidak berada antara -8192 dan 8191"
+
+#~ msgid "ignoring least significant bits in branch offset"
+#~ msgstr "mengabaikan least significant bit dalam offset cabang"
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
diff --git a/opcodes/ppc-dis.c b/opcodes/ppc-dis.c
index 9a28338..8511345 100644
--- a/opcodes/ppc-dis.c
+++ b/opcodes/ppc-dis.c
@@ -1,6 +1,6 @@
/* ppc-dis.c -- Disassemble PowerPC instructions
Copyright 1994, 1995, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
- 2008 Free Software Foundation, Inc.
+ 2008, 2009 Free Software Foundation, Inc.
Written by Ian Lance Taylor, Cygnus Support
This file is part of the GNU opcodes library.
@@ -23,6 +23,7 @@
#include <stdio.h>
#include "sysdep.h"
#include "dis-asm.h"
+#include "opintl.h"
#include "opcode/ppc.h"
/* This file provides several disassembler functions, all of which use
@@ -42,94 +43,198 @@ struct dis_private
#define POWERPC_DIALECT(INFO) \
(((struct dis_private *) ((INFO)->private_data))->dialect)
-/* Determine which set of machines to disassemble for. PPC403/601 or
- BookE. For convenience, also disassemble instructions supported
- by the AltiVec vector unit. */
+struct ppc_mopt {
+ const char *opt;
+ ppc_cpu_t cpu;
+ ppc_cpu_t sticky;
+};
+
+struct ppc_mopt ppc_opts[] = {
+ { "403", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_403
+ | PPC_OPCODE_32),
+ 0 },
+ { "405", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_403
+ | PPC_OPCODE_405 | PPC_OPCODE_32),
+ 0 },
+ { "440", (PPC_OPCODE_PPC | PPC_OPCODE_BOOKE | PPC_OPCODE_32
+ | PPC_OPCODE_440 | PPC_OPCODE_ISEL | PPC_OPCODE_RFMCI),
+ 0 },
+ { "464", (PPC_OPCODE_PPC | PPC_OPCODE_BOOKE | PPC_OPCODE_32
+ | PPC_OPCODE_440 | PPC_OPCODE_ISEL | PPC_OPCODE_RFMCI),
+ 0 },
+ { "601", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_601
+ | PPC_OPCODE_32),
+ 0 },
+ { "603", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_32),
+ 0 },
+ { "604", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_32),
+ 0 },
+ { "620", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_64),
+ 0 },
+ { "7400", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_ALTIVEC
+ | PPC_OPCODE_32),
+ 0 },
+ { "7410", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_ALTIVEC
+ | PPC_OPCODE_32),
+ 0 },
+ { "7450", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_ALTIVEC
+ | PPC_OPCODE_32),
+ 0 },
+ { "7455", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_ALTIVEC
+ | PPC_OPCODE_32),
+ 0 },
+ { "750cl", (PPC_OPCODE_PPC | PPC_OPCODE_PPCPS)
+ , 0 },
+ { "altivec", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC),
+ PPC_OPCODE_ALTIVEC },
+ { "any", 0,
+ PPC_OPCODE_ANY },
+ { "booke", (PPC_OPCODE_PPC | PPC_OPCODE_BOOKE | PPC_OPCODE_32),
+ 0 },
+ { "booke32", (PPC_OPCODE_PPC | PPC_OPCODE_BOOKE | PPC_OPCODE_32),
+ 0 },
+ { "cell", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_64
+ | PPC_OPCODE_POWER4 | PPC_OPCODE_CELL | PPC_OPCODE_ALTIVEC),
+ 0 },
+ { "com", (PPC_OPCODE_COMMON | PPC_OPCODE_32),
+ 0 },
+ { "e300", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_32
+ | PPC_OPCODE_E300),
+ 0 },
+ { "e500", (PPC_OPCODE_PPC | PPC_OPCODE_BOOKE | PPC_OPCODE_SPE
+ | PPC_OPCODE_ISEL | PPC_OPCODE_EFS | PPC_OPCODE_BRLOCK
+ | PPC_OPCODE_PMR | PPC_OPCODE_CACHELCK | PPC_OPCODE_RFMCI
+ | PPC_OPCODE_E500MC),
+ 0 },
+ { "e500mc", (PPC_OPCODE_PPC | PPC_OPCODE_BOOKE | PPC_OPCODE_ISEL
+ | PPC_OPCODE_PMR | PPC_OPCODE_CACHELCK | PPC_OPCODE_RFMCI
+ | PPC_OPCODE_E500MC),
+ 0 },
+ { "e500x2", (PPC_OPCODE_PPC | PPC_OPCODE_BOOKE | PPC_OPCODE_SPE
+ | PPC_OPCODE_ISEL | PPC_OPCODE_EFS | PPC_OPCODE_BRLOCK
+ | PPC_OPCODE_PMR | PPC_OPCODE_CACHELCK | PPC_OPCODE_RFMCI
+ | PPC_OPCODE_E500MC),
+ 0 },
+ { "efs", (PPC_OPCODE_PPC | PPC_OPCODE_EFS),
+ 0 },
+ { "power4", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_64
+ | PPC_OPCODE_POWER4),
+ 0 },
+ { "power5", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_64
+ | PPC_OPCODE_POWER4 | PPC_OPCODE_POWER5),
+ 0 },
+ { "power6", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_64
+ | PPC_OPCODE_POWER4 | PPC_OPCODE_POWER5 | PPC_OPCODE_POWER6
+ | PPC_OPCODE_ALTIVEC),
+ 0 },
+ { "power7", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_ISEL
+ | PPC_OPCODE_64 | PPC_OPCODE_POWER4 | PPC_OPCODE_POWER5
+ | PPC_OPCODE_POWER6 | PPC_OPCODE_POWER7 | PPC_OPCODE_ALTIVEC
+ | PPC_OPCODE_VSX),
+ 0 },
+ { "ppc", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_32),
+ 0 },
+ { "ppc32", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_32),
+ 0 },
+ { "ppc64", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_64),
+ 0 },
+ { "ppc64bridge", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_64_BRIDGE
+ | PPC_OPCODE_64),
+ 0 },
+ { "ppcps", (PPC_OPCODE_PPC | PPC_OPCODE_PPCPS),
+ 0 },
+ { "pwr", (PPC_OPCODE_POWER | PPC_OPCODE_32),
+ 0 },
+ { "pwr2", (PPC_OPCODE_POWER | PPC_OPCODE_POWER2 | PPC_OPCODE_32),
+ 0 },
+ { "pwrx", (PPC_OPCODE_POWER | PPC_OPCODE_POWER2 | PPC_OPCODE_32),
+ 0 },
+ { "spe", (PPC_OPCODE_PPC | PPC_OPCODE_EFS),
+ PPC_OPCODE_SPE },
+ { "vsx", (PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC),
+ PPC_OPCODE_VSX },
+};
+
+/* Handle -m and -M options that set cpu type, and .machine arg. */
+
+ppc_cpu_t
+ppc_parse_cpu (ppc_cpu_t ppc_cpu, const char *arg)
+{
+ /* Sticky bits. */
+ ppc_cpu_t retain_flags = ppc_cpu & (PPC_OPCODE_ALTIVEC | PPC_OPCODE_VSX
+ | PPC_OPCODE_SPE | PPC_OPCODE_ANY);
+ unsigned int i;
+
+ for (i = 0; i < sizeof (ppc_opts) / sizeof (ppc_opts[0]); i++)
+ if (strcmp (ppc_opts[i].opt, arg) == 0)
+ {
+ if (ppc_opts[i].sticky)
+ {
+ retain_flags |= ppc_opts[i].sticky;
+ if ((ppc_cpu & ~(PPC_OPCODE_ALTIVEC | PPC_OPCODE_VSX
+ | PPC_OPCODE_SPE | PPC_OPCODE_ANY)) != 0)
+ break;
+ }
+ ppc_cpu = ppc_opts[i].cpu;
+ break;
+ }
+ if (i >= sizeof (ppc_opts) / sizeof (ppc_opts[0]))
+ return 0;
+
+ ppc_cpu |= retain_flags;
+ return ppc_cpu;
+}
+
+/* Determine which set of machines to disassemble for. */
static int
powerpc_init_dialect (struct disassemble_info *info)
{
- ppc_cpu_t dialect = PPC_OPCODE_PPC;
+ ppc_cpu_t dialect = 0;
+ char *arg;
struct dis_private *priv = calloc (sizeof (*priv), 1);
if (priv == NULL)
return FALSE;
- if (BFD_DEFAULT_TARGET_SIZE == 64)
- dialect |= PPC_OPCODE_64;
-
- if (info->disassembler_options
- && strstr (info->disassembler_options, "ppcps") != NULL)
- dialect |= PPC_OPCODE_PPCPS;
- else if (info->disassembler_options
- && strstr (info->disassembler_options, "booke") != NULL)
- dialect |= PPC_OPCODE_BOOKE;
- else if ((info->mach == bfd_mach_ppc_e500mc)
- || (info->disassembler_options
- && strstr (info->disassembler_options, "e500mc") != NULL))
- dialect |= (PPC_OPCODE_BOOKE | PPC_OPCODE_ISEL
- | PPC_OPCODE_PMR | PPC_OPCODE_CACHELCK
- | PPC_OPCODE_RFMCI | PPC_OPCODE_E500MC);
- else if ((info->mach == bfd_mach_ppc_e500)
- || (info->disassembler_options
- && strstr (info->disassembler_options, "e500") != NULL))
- dialect |= (PPC_OPCODE_BOOKE
- | PPC_OPCODE_SPE | PPC_OPCODE_ISEL
- | PPC_OPCODE_EFS | PPC_OPCODE_BRLOCK
- | PPC_OPCODE_PMR | PPC_OPCODE_CACHELCK
- | PPC_OPCODE_RFMCI | PPC_OPCODE_E500MC);
- else if (info->disassembler_options
- && strstr (info->disassembler_options, "efs") != NULL)
- dialect |= PPC_OPCODE_EFS;
- else if (info->disassembler_options
- && strstr (info->disassembler_options, "e300") != NULL)
- dialect |= PPC_OPCODE_E300 | PPC_OPCODE_CLASSIC | PPC_OPCODE_COMMON;
- else if (info->disassembler_options
- && (strstr (info->disassembler_options, "440") != NULL
- || strstr (info->disassembler_options, "464") != NULL))
- dialect |= PPC_OPCODE_BOOKE | PPC_OPCODE_32
- | PPC_OPCODE_440 | PPC_OPCODE_ISEL | PPC_OPCODE_RFMCI;
- else
- dialect |= (PPC_OPCODE_403 | PPC_OPCODE_601 | PPC_OPCODE_CLASSIC
- | PPC_OPCODE_COMMON | PPC_OPCODE_ALTIVEC);
-
- if (info->disassembler_options
- && strstr (info->disassembler_options, "power4") != NULL)
- dialect |= PPC_OPCODE_POWER4;
-
- if (info->disassembler_options
- && strstr (info->disassembler_options, "power5") != NULL)
- dialect |= PPC_OPCODE_POWER4 | PPC_OPCODE_POWER5;
-
- if (info->disassembler_options
- && strstr (info->disassembler_options, "cell") != NULL)
- dialect |= PPC_OPCODE_POWER4 | PPC_OPCODE_CELL | PPC_OPCODE_ALTIVEC;
-
- if (info->disassembler_options
- && strstr (info->disassembler_options, "power6") != NULL)
- dialect |= PPC_OPCODE_POWER4 | PPC_OPCODE_POWER5 | PPC_OPCODE_POWER6
- | PPC_OPCODE_ALTIVEC;
+ arg = info->disassembler_options;
+ while (arg != NULL)
+ {
+ ppc_cpu_t new_cpu = 0;
+ char *end = strchr (arg, ',');
- if (info->disassembler_options
- && strstr (info->disassembler_options, "power7") != NULL)
- dialect |= PPC_OPCODE_POWER4 | PPC_OPCODE_POWER5
- | PPC_OPCODE_POWER6 | PPC_OPCODE_POWER7
- | PPC_OPCODE_ISEL | PPC_OPCODE_ALTIVEC | PPC_OPCODE_VSX;
+ if (end != NULL)
+ *end = 0;
- if (info->disassembler_options
- && strstr (info->disassembler_options, "vsx") != NULL)
- dialect |= PPC_OPCODE_VSX;
+ if ((new_cpu = ppc_parse_cpu (dialect, arg)) != 0)
+ dialect = new_cpu;
+ else if (strcmp (arg, "32") == 0)
+ {
+ dialect &= ~PPC_OPCODE_64;
+ dialect |= PPC_OPCODE_32;
+ }
+ else if (strcmp (arg, "64") == 0)
+ {
+ dialect |= PPC_OPCODE_64;
+ dialect &= ~PPC_OPCODE_32;
+ }
+ else
+ fprintf (stderr, _("warning: ignoring unknown -M%s option\n"), arg);
- if (info->disassembler_options
- && strstr (info->disassembler_options, "any") != NULL)
- dialect |= PPC_OPCODE_ANY;
+ if (end != NULL)
+ *end++ = ',';
+ arg = end;
+ }
- if (info->disassembler_options)
+ if ((dialect & ~(PPC_OPCODE_32 | PPC_OPCODE_64)) == 0)
{
- if (strstr (info->disassembler_options, "32") != NULL)
- dialect &= ~PPC_OPCODE_64;
- else if (strstr (info->disassembler_options, "64") != NULL)
+ if (info->mach == bfd_mach_ppc64)
dialect |= PPC_OPCODE_64;
+ else
+ dialect |= PPC_OPCODE_32;
+ /* Choose a reasonable default. */
+ dialect |= (PPC_OPCODE_PPC | PPC_OPCODE_COMMON | PPC_OPCODE_CLASSIC
+ | PPC_OPCODE_601 | PPC_OPCODE_ALTIVEC);
}
info->private_data = priv;
@@ -230,6 +335,7 @@ print_insn_powerpc (bfd_vma memaddr,
const struct powerpc_opcode *opcode;
const struct powerpc_opcode *opcode_end;
unsigned long op;
+ ppc_cpu_t dialect_orig = dialect;
status = (*info->read_memory_func) (memaddr, buffer, 4, info);
if (status != 0)
@@ -268,7 +374,7 @@ print_insn_powerpc (bfd_vma memaddr,
if ((insn & opcode->mask) != opcode->opcode
|| (opcode->flags & dialect) == 0
- || (opcode->deprecated & dialect) != 0)
+ || (opcode->deprecated & dialect_orig) != 0)
continue;
/* Make two passes over the operands. First see if any of them
@@ -339,16 +445,14 @@ print_insn_powerpc (bfd_vma memaddr,
(*info->print_address_func) (memaddr + value, info);
else if ((operand->flags & PPC_OPERAND_ABSOLUTE) != 0)
(*info->print_address_func) ((bfd_vma) value & 0xffffffff, info);
- else if ((operand->flags & PPC_OPERAND_CR) == 0
- || (dialect & PPC_OPCODE_PPC) == 0)
- (*info->fprintf_func) (info->stream, "%ld", value);
else if ((operand->flags & PPC_OPERAND_FSL) != 0)
(*info->fprintf_func) (info->stream, "fsl%ld", value);
else if ((operand->flags & PPC_OPERAND_FCR) != 0)
(*info->fprintf_func) (info->stream, "fcr%ld", value);
else if ((operand->flags & PPC_OPERAND_UDI) != 0)
(*info->fprintf_func) (info->stream, "%ld", value);
- else
+ else if ((operand->flags & PPC_OPERAND_CR) != 0
+ && (dialect & PPC_OPCODE_PPC) != 0)
{
if (operand->bitm == 7)
(*info->fprintf_func) (info->stream, "cr%ld", value);
@@ -365,6 +469,8 @@ print_insn_powerpc (bfd_vma memaddr,
(*info->fprintf_func) (info->stream, "%s", cbnames[cc]);
}
}
+ else
+ (*info->fprintf_func) (info->stream, "%ld", value);
if (need_paren)
{
@@ -400,23 +506,20 @@ print_insn_powerpc (bfd_vma memaddr,
void
print_ppc_disassembler_options (FILE *stream)
{
- fprintf (stream, "\n\
+ unsigned int i, col;
+
+ fprintf (stream, _("\n\
The following PPC specific disassembler options are supported for use with\n\
-the -M switch:\n");
-
- fprintf (stream, " booke Disassemble the BookE instructions\n");
- fprintf (stream, " e300 Disassemble the e300 instructions\n");
- fprintf (stream, " e500|e500x2 Disassemble the e500 instructions\n");
- fprintf (stream, " e500mc Disassemble the e500mc instructions\n");
- fprintf (stream, " 440 Disassemble the 440 instructions\n");
- fprintf (stream, " 464 Disassemble the 464 instructions\n");
- fprintf (stream, " efs Disassemble the EFS instructions\n");
- fprintf (stream, " ppcps Disassemble the PowerPC paired singles instructions\n");
- fprintf (stream, " power4 Disassemble the Power4 instructions\n");
- fprintf (stream, " power5 Disassemble the Power5 instructions\n");
- fprintf (stream, " power6 Disassemble the Power6 instructions\n");
- fprintf (stream, " power7 Disassemble the Power7 instructions\n");
- fprintf (stream, " vsx Disassemble the Vector-Scalar (VSX) instructions\n");
- fprintf (stream, " 32 Do not disassemble 64-bit instructions\n");
- fprintf (stream, " 64 Allow disassembly of 64-bit instructions\n");
+the -M switch:\n"));
+
+ for (col = 0, i = 0; i < sizeof (ppc_opts) / sizeof (ppc_opts[0]); i++)
+ {
+ col += fprintf (stream, " %s,", ppc_opts[i].opt);
+ if (col > 66)
+ {
+ fprintf (stream, "\n");
+ col = 0;
+ }
+ }
+ fprintf (stream, " 32, 64\n");
}
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
diff --git a/opcodes/ppc-opc.c b/opcodes/ppc-opc.c
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
index c872db5..9fac147 100644
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
--- a/opcodes/ppc-opc.c
+++ b/opcodes/ppc-opc.c
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
@@ -3464,8 +3464,8 @@ const struct powerpc_opcode powerpc_opcodes[] = {
{"isellt", X(31,15), X_MASK, PPCISEL, PPCNONE, {RT, RA, RB}},
-{"mfcr", XFXM(31,19,0,0), XRARB_MASK, COM, POWER4, {RT}},
{"mfcr", XFXM(31,19,0,0), XFXFXM_MASK, POWER4, PPCNONE, {RT, FXM4}},
+{"mfcr", XFXM(31,19,0,0), XRARB_MASK, COM, POWER4, {RT}},
{"mfocrf", XFXM(31,19,0,1), XFXFXM_MASK, COM, PPCNONE, {RT, FXM}},
{"lwarx", X(31,20), XEH_MASK, PPC, PPCNONE, {RT, RA0, RB, EH}},
@@ -3726,14 +3726,14 @@ const struct powerpc_opcode powerpc_opcodes[] = {
{"mullw.", XO(31,235,0,1), XO_MASK, PPCCOM, PPCNONE, {RT, RA, RB}},
{"muls.", XO(31,235,0,1), XO_MASK, PWRCOM, PPCNONE, {RT, RA, RB}},
+{"icblce", X(31,238), X_MASK, PPCCHLK, E500MC, {CT, RA, RB}},
{"msgclr", XRTRA(31,238,0,0),XRTRA_MASK,E500MC, PPCNONE, {RB}},
-{"icblce", X(31,238), X_MASK, PPCCHLK, PPCNONE, {CT, RA, RB}},
{"mtsrin", X(31,242), XRA_MASK, PPC32, PPCNONE, {RS, RB}},
{"mtsri", X(31,242), XRA_MASK, POWER32, PPCNONE, {RS, RB}},
{"dcbtstt", XRT(31,246,0x10), XRT_MASK, POWER7, PPCNONE, {RA, RB}},
-{"dcbtst", X(31,246), X_MASK, PPC, POWER4, {CT, RA, RB}},
{"dcbtst", X(31,246), X_MASK, POWER4, PPCNONE, {RA, RB, CT}},
+{"dcbtst", X(31,246), X_MASK, PPC, POWER4, {CT, RA, RB}},
{"stbux", X(31,247), X_MASK, COM, PPCNONE, {RS, RAS, RB}},
@@ -3767,8 +3767,8 @@ const struct powerpc_opcode powerpc_opcodes[] = {
{"lscbx.", XRC(31,277,1), X_MASK, M601, PPCNONE, {RT, RA, RB}},
{"dcbtt", XRT(31,278,0x10), XRT_MASK, POWER7, PPCNONE, {RA, RB}},
-{"dcbt", X(31,278), X_MASK, PPC, POWER4, {CT, RA, RB}},
{"dcbt", X(31,278), X_MASK, POWER4, PPCNONE, {RA, RB, CT}},
+{"dcbt", X(31,278), X_MASK, PPC, POWER4, {CT, RA, RB}},
{"lhzx", X(31,279), X_MASK, COM, PPCNONE, {RT, RA0, RB}},
@@ -4399,16 +4399,16 @@ const struct powerpc_opcode powerpc_opcodes[] = {
{"lswi", X(31,597), X_MASK, PPCCOM, PPCNONE, {RT, RA0, NB}},
{"lsi", X(31,597), X_MASK, PWRCOM, PPCNONE, {RT, RA0, NB}},
-{"msync", X(31,598), 0xffffffff, BOOKE, PPCNONE, {0}},
{"lwsync", XSYNC(31,598,1), 0xffffffff, PPC, PPCNONE, {0}},
{"ptesync", XSYNC(31,598,2), 0xffffffff, PPC64, PPCNONE, {0}},
-{"sync", X(31,598), XSYNC_MASK, PPCCOM, PPCNONE, {LS}},
+{"sync", X(31,598), XSYNC_MASK, PPCCOM, BOOKE, {LS}},
+{"msync", X(31,598), 0xffffffff, BOOKE, PPCNONE, {0}},
{"dcs", X(31,598), 0xffffffff, PWRCOM, PPCNONE, {0}},
{"lfdx", X(31,599), X_MASK, COM, PPCNONE, {FRT, RA0, RB}},
-{"lfdepx", X(31,607), X_MASK, E500MC, PPCNONE, {FRT, RA, RB}},
{"mffgpr", XRC(31,607,0), XRA_MASK, POWER6, POWER7, {FRT, RB}},
+{"lfdepx", X(31,607), X_MASK, E500MC, PPCNONE, {FRT, RA, RB}},
{"lddx", X(31,611), X_MASK, E500MC, PPCNONE, {RT, RA, RB}},
@@ -4502,8 +4502,8 @@ const struct powerpc_opcode powerpc_opcodes[] = {
{"sreq", XRC(31,729,0), X_MASK, M601, PPCNONE, {RA, RS, RB}},
{"sreq.", XRC(31,729,1), X_MASK, M601, PPCNONE, {RA, RS, RB}},
-{"stfdepx", X(31,735), X_MASK, E500MC, PPCNONE, {FRS, RA, RB}},
{"mftgpr", XRC(31,735,0), XRA_MASK, POWER6, POWER7, {RT, FRB}},
+{"stfdepx", X(31,735), X_MASK, E500MC, PPCNONE, {FRS, RA, RB}},
{"stddx", X(31,739), X_MASK, E500MC, PPCNONE, {RS, RA, RB}},
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -4560,8 +4560,8 @@ const struct powerpc_opcode powerpc_opcodes[] = {
{"lhbrx", X(31,790), X_MASK, COM, PPCNONE, {RT, RA0, RB}},
-{"lfqx", X(31,791), X_MASK, POWER2, PPCNONE, {FRT, RA, RB}},
{"lfdpx", X(31,791), X_MASK, POWER6, POWER7, {FRT, RA, RB}},
+{"lfqx", X(31,791), X_MASK, POWER2, PPCNONE, {FRT, RA, RB}},
{"sraw", XRC(31,792,0), X_MASK, PPCCOM, PPCNONE, {RA, RS, RB}},
{"sra", XRC(31,792,0), X_MASK, PWRCOM, PPCNONE, {RA, RS, RB}},
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
@@ -4602,8 +4602,8 @@ const struct powerpc_opcode powerpc_opcodes[] = {
{"lbzcix", X(31,853), X_MASK, POWER6, PPCNONE, {RT, RA0, RB}},
+{"eieio", X(31,854), 0xffffffff, PPC, BOOKE, {0}},
{"mbar", X(31,854), X_MASK, BOOKE, PPCNONE, {MO}},
-{"eieio", X(31,854), 0xffffffff, PPC, PPCNONE, {0}},
{"lfiwax", X(31,855), X_MASK, POWER6, PPCNONE, {FRT, RA0, RB}},
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
@@ -4638,8 +4638,8 @@ const struct powerpc_opcode powerpc_opcodes[] = {
{"sthbrx", X(31,918), X_MASK, COM, PPCNONE, {RS, RA0, RB}},
-{"stfqx", X(31,919), X_MASK, POWER2, PPCNONE, {FRS, RA, RB}},
{"stfdpx", X(31,919), X_MASK, POWER6, PPCNONE, {FRS, RA, RB}},
+{"stfqx", X(31,919), X_MASK, POWER2, PPCNONE, {FRS, RA, RB}},
{"sraq", XRC(31,920,0), X_MASK, M601, PPCNONE, {RA, RS, RB}},
{"sraq.", XRC(31,920,1), X_MASK, M601, PPCNONE, {RA, RS, RB}},
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
@@ -4687,10 +4687,10 @@ const struct powerpc_opcode powerpc_opcodes[] = {
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
{"stxvd2x", X(31,972), XX1_MASK, PPCVSX, PPCNONE, {XS6, RA, RB}},
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
+{"tlbld", X(31,978), XRTRA_MASK, PPC, PPC403|BOOKE, {RB}},
{"tlbwehi", XTLB(31,978,0), XTLB_MASK, PPC403, PPCNONE, {RT, RA}},
{"tlbwelo", XTLB(31,978,1), XTLB_MASK, PPC403, PPCNONE, {RT, RA}},
{"tlbwe", X(31,978), X_MASK, PPC403|BOOKE, PPCNONE, {RSO, RAOPT, SHO}},
-{"tlbld", X(31,978), XRTRA_MASK, PPC, PPCNONE, {RB}},
{"stbcix", X(31,981), X_MASK, POWER6, PPCNONE, {RS, RA0, RB}},
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
@@ -4796,16 +4796,12 @@ const struct powerpc_opcode powerpc_opcodes[] = {
{"stfdu", OP(55), OP_MASK, COM, PPCNONE, {FRS, D, RAS}},
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
{"lq", OP(56), OP_MASK, POWER4, PPCNONE, {RTQ, DQ, RAQ}},
-
-{"lfq", OP(56), OP_MASK, POWER2, PPCNONE, {FRT, D, RA0}},
-
{"psq_l", OP(56), OP_MASK, PPCPS, PPCNONE, {FRT,PSD,RA,PSW,PSQ}},
-
-{"lfqu", OP(57), OP_MASK, POWER2, PPCNONE, {FRT, D, RA0}},
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
-
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
-{"psq_lu", OP(57), OP_MASK, PPCPS, PPCNONE, {FRT,PSD,RA,PSW,PSQ}},
+{"lfq", OP(56), OP_MASK, POWER2, PPCNONE, {FRT, D, RA0}},
{"lfdp", OP(57), OP_MASK, POWER6, POWER7, {FRT, D, RA0}},
+{"psq_lu", OP(57), OP_MASK, PPCPS, PPCNONE, {FRT,PSD,RA,PSW,PSQ}},
+{"lfqu", OP(57), OP_MASK, POWER2, PPCNONE, {FRT, D, RA0}},
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
{"ld", DSO(58,0), DS_MASK, PPC64, PPCNONE, {RT, DS, RA0}},
{"ldu", DSO(58,1), DS_MASK, PPC64, PPCNONE, {RT, DS, RAL}},
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
@@ -4829,18 +4825,18 @@ const struct powerpc_opcode powerpc_opcodes[] = {
{"fsqrts", A(59,22,0), AFRAFRC_MASK, PPC, PPCNONE, {FRT, FRB}},
{"fsqrts.", A(59,22,1), AFRAFRC_MASK, PPC, PPCNONE, {FRT, FRB}},
-{"fres", A(59,24,0), AFRALFRC_MASK, PPC, POWER7, {FRT, FRB, A_L}},
-{"fres.", A(59,24,1), AFRALFRC_MASK, PPC, POWER7, {FRT, FRB, A_L}},
{"fres", A(59,24,0), AFRAFRC_MASK, POWER7, PPCNONE, {FRT, FRB}},
+{"fres", A(59,24,0), AFRALFRC_MASK, PPC, POWER7, {FRT, FRB, A_L}},
{"fres.", A(59,24,1), AFRAFRC_MASK, POWER7, PPCNONE, {FRT, FRB}},
+{"fres.", A(59,24,1), AFRALFRC_MASK, PPC, POWER7, {FRT, FRB, A_L}},
{"fmuls", A(59,25,0), AFRB_MASK, PPC, PPCNONE, {FRT, FRA, FRC}},
{"fmuls.", A(59,25,1), AFRB_MASK, PPC, PPCNONE, {FRT, FRA, FRC}},
-{"frsqrtes", A(59,26,0), AFRALFRC_MASK, POWER5, POWER7, {FRT, FRB, A_L}},
-{"frsqrtes.", A(59,26,1), AFRALFRC_MASK, POWER5, POWER7, {FRT, FRB, A_L}},
{"frsqrtes", A(59,26,0), AFRAFRC_MASK, POWER7, PPCNONE, {FRT, FRB}},
+{"frsqrtes", A(59,26,0), AFRALFRC_MASK, POWER5, POWER7, {FRT, FRB, A_L}},
{"frsqrtes.", A(59,26,1), AFRAFRC_MASK, POWER7, PPCNONE, {FRT, FRB}},
+{"frsqrtes.", A(59,26,1), AFRALFRC_MASK, POWER5, POWER7, {FRT, FRB, A_L}},
{"fmsubs", A(59,28,0), A_MASK, PPC, PPCNONE, {FRT, FRA, FRC, FRB}},
{"fmsubs.", A(59,28,1), A_MASK, PPC, PPCNONE, {FRT, FRA, FRC, FRB}},
@@ -4921,10 +4917,6 @@ const struct powerpc_opcode powerpc_opcodes[] = {
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
{"fcfidus", XRC(59,974,0), XRA_MASK, POWER7, PPCNONE, {FRT, FRB}},
{"fcfidus.", XRC(59,974,1), XRA_MASK, POWER7, PPCNONE, {FRT, FRB}},
-{"stfq", OP(60), OP_MASK, POWER2, PPCNONE, {FRS, D, RA}},
-
-{"psq_st", OP(60), OP_MASK, PPCPS, PPCNONE, {FRS,PSD,RA,PSW,PSQ}},
-
{"xxsldwi", XX3(60,2), XX3SHW_MASK, PPCVSX, PPCNONE, {XT6, XA6, XB6, SHW}},
{"xxsel", XX4(60,3), XX4_MASK, PPCVSX, PPCNONE, {XT6, XA6, XB6, XC6}},
{"xxspltd", XX3(60,10), XX3DM_MASK, PPCVSX, PPCNONE, {XT6, XA6, XB6S, DMEX}},
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
@@ -5067,11 +5059,12 @@ const struct powerpc_opcode powerpc_opcodes[] = {
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
{"xvcvsxddp", XX2(60,504), XX2_MASK, PPCVSX, PPCNONE, {XT6, XB6}},
{"xvnegdp", XX2(60,505), XX2_MASK, PPCVSX, PPCNONE, {XT6, XB6}},
-{"psq_stu", OP(61), OP_MASK, PPCPS, PPCNONE, {FRS,PSD,RA,PSW,PSQ}},
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
-
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
-{"stfqu", OP(61), OP_MASK, POWER2, PPCNONE, {FRS, D, RA}},
+{"psq_st", OP(60), OP_MASK, PPCPS, PPCNONE, {FRS,PSD,RA,PSW,PSQ}},
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
+{"stfq", OP(60), OP_MASK, POWER2, PPCNONE, {FRS, D, RA}},
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
{"stfdp", OP(61), OP_MASK, POWER6, PPCNONE, {FRT, D, RA0}},
+{"psq_stu", OP(61), OP_MASK, PPCPS, PPCNONE, {FRS,PSD,RA,PSW,PSQ}},
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
+{"stfqu", OP(61), OP_MASK, POWER2, PPCNONE, {FRS, D, RA}},
- Archer update to the snapshot: 6cf16c0711e844094ab694b3d929f7bd30b49f61 - Fix crash on the inlined functions support. - Fix crash from the PIE support, its varobj_refresh() was called only before varobj_invalidate() which is sufficient. - Fix BuildRequires for the `--with testsuite' runs. - Use the newly introduced `--with-pythondir' option. - Remove libstdcxx [python] pretty printers (as included in libstdc++ rpm now).
2009-03-07 00:32:30 +00:00
{"std", DSO(62,0), DS_MASK, PPC64, PPCNONE, {RS, DS, RA0}},
{"stdu", DSO(62,1), DS_MASK, PPC64, PPCNONE, {RS, DS, RAS}},
- Archer update to the snapshot: 7c7c77576669d17ad5072daa47ea3a4fd954483d - Archer backport: 7c7c77576669d17ad5072daa47ea3a4fd954483d (Peter Bergner) - Disassemble Power7 instructions right in the default/only -Many GDB mode.
2009-04-05 21:02:55 +00:00
@@ -5122,20 +5115,20 @@ const struct powerpc_opcode powerpc_opcodes[] = {
{"fsel", A(63,23,0), A_MASK, PPC, PPCNONE, {FRT, FRA, FRC, FRB}},
{"fsel.", A(63,23,1), A_MASK, PPC, PPCNONE, {FRT, FRA, FRC, FRB}},
-{"fre", A(63,24,0), AFRALFRC_MASK, POWER5, POWER7, {FRT, FRB, A_L}},
-{"fre.", A(63,24,1), AFRALFRC_MASK, POWER5, POWER7, {FRT, FRB, A_L}},
{"fre", A(63,24,0), AFRAFRC_MASK, POWER7, PPCNONE, {FRT, FRB}},
+{"fre", A(63,24,0), AFRALFRC_MASK, POWER5, POWER7, {FRT, FRB, A_L}},
{"fre.", A(63,24,1), AFRAFRC_MASK, POWER7, PPCNONE, {FRT, FRB}},
+{"fre.", A(63,24,1), AFRALFRC_MASK, POWER5, POWER7, {FRT, FRB, A_L}},
{"fmul", A(63,25,0), AFRB_MASK, PPCCOM, PPCNONE, {FRT, FRA, FRC}},
{"fm", A(63,25,0), AFRB_MASK, PWRCOM, PPCNONE, {FRT, FRA, FRC}},
{"fmul.", A(63,25,1), AFRB_MASK, PPCCOM, PPCNONE, {FRT, FRA, FRC}},
{"fm.", A(63,25,1), AFRB_MASK, PWRCOM, PPCNONE, {FRT, FRA, FRC}},
-{"frsqrte", A(63,26,0), AFRALFRC_MASK, PPC, POWER7, {FRT, FRB, A_L}},
-{"frsqrte.", A(63,26,1), AFRALFRC_MASK, PPC, POWER7, {FRT, FRB, A_L}},
{"frsqrte", A(63,26,0), AFRAFRC_MASK, POWER7, PPCNONE, {FRT, FRB}},
+{"frsqrte", A(63,26,0), AFRALFRC_MASK, PPC, POWER7, {FRT, FRB, A_L}},
{"frsqrte.", A(63,26,1), AFRAFRC_MASK, POWER7, PPCNONE, {FRT, FRB}},
+{"frsqrte.", A(63,26,1), AFRALFRC_MASK, PPC, POWER7, {FRT, FRB, A_L}},
{"fmsub", A(63,28,0), A_MASK, PPCCOM, PPCNONE, {FRT, FRA, FRC, FRB}},
{"fms", A(63,28,0), A_MASK, PWRCOM, PPCNONE, {FRT, FRA, FRC, FRB}},
@@ -5195,10 +5188,10 @@ const struct powerpc_opcode powerpc_opcodes[] = {
{"dcmpoq", X(63,130), X_MASK, POWER6, PPCNONE, {BF, FRA, FRB}},
-{"mtfsfi", XRC(63,134,0), XRA_MASK|(3<<21)|(1<<11), COM, POWER6, {BFF, U}},
{"mtfsfi", XRC(63,134,0), XWRA_MASK|(3<<21)|(1<<11), POWER6, PPCNONE, {BFF, U, W}},
-{"mtfsfi.", XRC(63,134,1), XRA_MASK|(3<<21)|(1<<11), COM, POWER6, {BFF, U}},
+{"mtfsfi", XRC(63,134,0), XRA_MASK|(3<<21)|(1<<11), COM, POWER6, {BFF, U}},
{"mtfsfi.", XRC(63,134,1), XWRA_MASK|(3<<21)|(1<<11), POWER6, PPCNONE, {BFF, U, W}},
+{"mtfsfi.", XRC(63,134,1), XRA_MASK|(3<<21)|(1<<11), COM, POWER6, {BFF, U}},
{"fnabs", XRC(63,136,0), XRA_MASK, COM, PPCNONE, {FRT, FRB}},
{"fnabs.", XRC(63,136,1), XRA_MASK, COM, PPCNONE, {FRT, FRB}},
@@ -5254,10 +5247,10 @@ const struct powerpc_opcode powerpc_opcodes[] = {
{"dtstsfq", X(63,674), X_MASK, POWER6, PPCNONE, {BF, FRA, FRB}},
-{"mtfsf", XFL(63,711,0), XFL_MASK, COM, POWER6, {FLM, FRB}},
{"mtfsf", XFL(63,711,0), XFL_MASK, POWER6, PPCNONE, {FLM, FRB, XFL_L, W}},
-{"mtfsf.", XFL(63,711,1), XFL_MASK, COM, POWER6, {FLM, FRB}},
+{"mtfsf", XFL(63,711,0), XFL_MASK, COM, POWER6, {FLM, FRB}},
{"mtfsf.", XFL(63,711,1), XFL_MASK, POWER6, PPCNONE, {FLM, FRB, XFL_L, W}},
+{"mtfsf.", XFL(63,711,1), XFL_MASK, COM, POWER6, {FLM, FRB}},
{"drdpq", XRC(63,770,0), X_MASK, POWER6, PPCNONE, {FRT, FRB}},
{"drdpq.", XRC(63,770,1), X_MASK, POWER6, PPCNONE, {FRT, FRB}},
Reference in New Issue Copy Permalink