[Bug guile/26533] FAIL: gdb.guile/scm-type.exp: lang_c: test_fields: cast to array with two arguments

["vries at gcc dot gnu.org" <sourceware-bugzilla@sourceware.org>]

https://sourceware.org/bugzilla/show_bug.cgi?id=26533

--- Comment #11 from Tom de Vries <vries at gcc dot gnu.org> ---
I ported the test-case to the command line (hopefully, that'll be easier to
debug).

Using this python script to ignore errors:
...
$ cat ignore-errors.py 
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 ()
...

and this command file:
...
$ cat cmd.gdb
source ignore-errors.py
set height 0
set width 0
dir
dir /home/vries/gdb_versions/devel/src/gdb/testsuite/gdb.guile
file
/home/vries/gdb_versions/devel/build/gdb/testsuite/outputs/gdb.guile/scm-type/scm-type
guile (display "test\n")
delete breakpoints
info breakpoints
break -qualified main
run 
guile (define (print x) (format #t "= ~A" x) (newline))
guile (define (raw-print x) (format #t "= ~S" x) (newline))
guile (use-modules (gdb))
guile (use-modules (gdb iterator))
break 88
continue
guile (print (length (type-fields (value-type (parse-and-eval "ts")))))
print st
guile (define st (history-ref 0))
guile (define st-type (value-type st))
guile (define fields (type-fields st-type))
guile (print (length fields))
guile (print (field-name (car fields)))
guile (print (field-name (cadr fields)))
guile (print (field-name (type-field st-type "a")))
guile (print (type-has-field? st-type "b"))
guile (print (type-has-field? st-type "nosuch"))
guile (print (type-num-fields (value-type st)))
guile (define fi (make-field-iterator st-type))
guile (print (iterator-map field-bitpos fi))
ignore-errors guile (print (make-field-iterator (field-type (type-field st-type
"a"))))
print ar
guile (define ar (history-ref 0))
guile (define ar0 (value-subscript ar 0))
guile (print (value-cast ar0 (type-array (value-type ar0) 1)))
guile (print (value-cast ar0 (type-array (value-type ar0) 0 1)))
...

And this command line:
...
$ gdb -q -batch outputs/gdb.guile/scm-type/scm-type -x cmd.gdb
...

When run like so in conjunction with stress -c 5:
...
$ for n in $(seq 100); do gdb -q -batch outputs/gdb.guile/scm-type/scm-type -x
cmd.gdb; echo $?; done 2>&1 | tee LOG
...
I get:
...
$ grep wrong -i LOG
ERROR: In procedure gdbscm_type_array: Wrong type argument in position 1
(expecting gdb:type): #<finalized smob 22771c0>
ERROR: In procedure gdbscm_type_array: Wrong type argument in position 1
(expecting gdb:type): #<finalized smob 21db1b0>
ERROR: In procedure gdbscm_type_array: Wrong type argument in position 1
(expecting gdb:type): #<finalized smob 233b1c0>
ERROR: In procedure gdbscm_type_array: Wrong type argument in position 1
(expecting gdb:type): #<finalized smob 22801c0>
...

-- 
You are receiving this mail because:
You are on the CC list for the bug.