Test run by tcwg-build on Wed Mar 11 09:21:03 2026
Native configuration is aarch64-unknown-linux-gnu

		=== gdb tests ===

Schedule of variations:
    tcwg-local

Running target tcwg-local
Using /home/tcwg-build/workspace/tcwg_gnu_4/abe/config/boards/tcwg-local.exp as board description file for target.
Using /home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/hosttools/aarch64-unknown-linux-gnu/share/dejagnu/baseboards/unix.exp as board description file for target.
Using /home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/hosttools/aarch64-unknown-linux-gnu/share/dejagnu/config/unix.exp as generic interface file for target.
Using /home/tcwg-build/workspace/tcwg_gnu_4/abe/snapshots/gdb.git~master/gdb/testsuite/config/unix.exp as tool-and-target-specific interface file.
Running /home/tcwg-build/workspace/tcwg_gnu_4/abe/snapshots/gdb.git~master/gdb/testsuite/gdb.guile/scm-parameter.exp ...
Executing on build: rm -rf /home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/aarch64-unknown-linux-gnu/aarch64-unknown-linux-gnu/gdb-gdb.git~master/gdb/testsuite/outputs/gdb.guile/scm-parameter    (timeout = 300)
builtin_spawn -ignore SIGHUP rm -rf /home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/aarch64-unknown-linux-gnu/aarch64-unknown-linux-gnu/gdb-gdb.git~master/gdb/testsuite/outputs/gdb.guile/scm-parameter
gdb_do_cache: allow_guile_tests (  )
Executing on host: /home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/aarch64-unknown-linux-gnu/aarch64-unknown-linux-gnu/gdb-gdb.git~master/gdb/testsuite/../../gdb/gdb -nw -nx -q -iex "set height 0" -iex "set width 0" -data-directory /home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/aarch64-unknown-linux-gnu/aarch64-unknown-linux-gnu/gdb-gdb.git~master/gdb/data-directory -iex "set interactive-mode on" --configuration   (timeout = 300)
builtin_spawn -ignore SIGHUP /home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/aarch64-unknown-linux-gnu/aarch64-unknown-linux-gnu/gdb-gdb.git~master/gdb/testsuite/../../gdb/gdb -nw -nx -q -iex set height 0 -iex set width 0 -data-directory /home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/aarch64-unknown-linux-gnu/aarch64-unknown-linux-gnu/gdb-gdb.git~master/gdb/data-directory -iex set interactive-mode on --configuration
This GDB was configured as follows:
   configure --host=aarch64-unknown-linux-gnu --target=aarch64-unknown-linux-gnu
	     --with-auto-load-dir=$debugdir:$datadir/auto-load
	     --with-auto-load-safe-path=$debugdir:$datadir/auto-load:/usr
	     --with-expat
	     --with-gdb-datadir=/usr/share/gdb (relocatable)
	     --with-jit-reader-dir=/usr/lib/gdb (relocatable)
	     --without-libunwind-ia64
	     --with-lzma
	     --without-babeltrace
	     --without-intel-pt
	     --without-xxhash
	     --with-python=/usr (relocatable)
	     --with-python-libdir=/usr/lib (relocatable)
	     --without-debuginfod
	     --with-curses
	     --with-guile
	     --without-amd-dbgapi
	     --disable-source-highlight
	     --enable-threading
	     --enable-tui
	     --without-system-readline
	     --with-separate-debug-dir=/usr/lib/debug (relocatable)
	     --with-additional-debug-dirs=/usr/lib/debug

("Relocatable" means the directory can be moved with the GDB installation
tree, and GDB will still find it.)

GNU Readline library version: 8.2	(internal)


Starting logfile: /home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/aarch64-unknown-linux-gnu/aarch64-unknown-linux-gnu/gdb-gdb.git~master/gdb/testsuite/outputs/gdb.guile/scm-parameter/gdb.in.1

builtin_spawn /home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/aarch64-unknown-linux-gnu/aarch64-unknown-linux-gnu/gdb-gdb.git~master/gdb/testsuite/../../gdb/gdb -nw -nx -q -iex set height 0 -iex set width 0 -data-directory /home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/aarch64-unknown-linux-gnu/aarch64-unknown-linux-gnu/gdb-gdb.git~master/gdb/data-directory -iex set interactive-mode on
(gdb) set height 0
(gdb) set width 0
(gdb) dir
Reinitialize source path to empty? (y or n) y
Source directories searched: $cdir:$cwd
(gdb) dir /home/tcwg-build/workspace/tcwg_gnu_4/gdb/gdb/testsuite/gdb.guile
Source directories searched: /home/tcwg-build/workspace/tcwg_gnu_4/gdb/gdb/testsuite/gdb.guile:$cdir:$cwd
(gdb) guile (define (print x) (format #t "= ~A" x) (newline))
(gdb) guile (define (raw-print x) (format #t "= ~S" x) (newline))
(gdb) guile (use-modules (gdb))
(gdb) guile (print (parameter-value "directories"))
= /home/tcwg-build/workspace/tcwg_gnu_4/gdb/gdb/testsuite/gdb.guile:$cdir:$cwd
(gdb) PASS: gdb.guile/scm-parameter.exp: guile (print (parameter-value "directories"))
guile
>PASS: gdb.guile/scm-parameter.exp: Simple gdb boolean parameter: input 1: guile
(define test-param
>PASS: gdb.guile/scm-parameter.exp: Simple gdb boolean parameter: input 2: (define test-param
  (make-parameter "print test-param"
>PASS: gdb.guile/scm-parameter.exp: Simple gdb boolean parameter: input 3:   (make-parameter "print test-param"
   #:command-class COMMAND_DATA
>PASS: gdb.guile/scm-parameter.exp: Simple gdb boolean parameter: input 4:    #:command-class COMMAND_DATA
   #:parameter-type PARAM_BOOLEAN
>PASS: gdb.guile/scm-parameter.exp: Simple gdb boolean parameter: input 5:    #:parameter-type PARAM_BOOLEAN
   #:doc "When enabled, test param does something useful. When disabled, does nothing."
>PASS: gdb.guile/scm-parameter.exp: Simple gdb boolean parameter: input 6:    #:doc "When enabled, test param does something useful. When disabled, does nothing."
   #:set-doc "Set the state of the boolean test-param."
>PASS: gdb.guile/scm-parameter.exp: Simple gdb boolean parameter: input 7:    #:set-doc "Set the state of the boolean test-param."
   #:show-doc "Show the state of the boolean test-param."
>PASS: gdb.guile/scm-parameter.exp: Simple gdb boolean parameter: input 8:    #:show-doc "Show the state of the boolean test-param."
   #:show-func (lambda (self value)
>PASS: gdb.guile/scm-parameter.exp: Simple gdb boolean parameter: input 9:    #:show-func (lambda (self value)
      (format #f "The state of the Test Parameter is ~a." value))
>PASS: gdb.guile/scm-parameter.exp: Simple gdb boolean parameter: input 10:       (format #f "The state of the Test Parameter is ~a." value))
   #:initial-value #t))
>PASS: gdb.guile/scm-parameter.exp: Simple gdb boolean parameter: input 11:    #:initial-value #t))
(register-parameter! test-param)
>PASS: gdb.guile/scm-parameter.exp: Simple gdb boolean parameter: input 12: (register-parameter! test-param)
end
WARNING: (guile-user): imported module (gdb) overrides core binding `make-parameter'
(gdb) PASS: gdb.guile/scm-parameter.exp: Simple gdb boolean parameter: input 13: end
guile (print (parameter-value test-param))
= #t
(gdb) PASS: gdb.guile/scm-parameter.exp: test-param: parameter value, true
show print test-param
The state of the Test Parameter is on.
(gdb) PASS: gdb.guile/scm-parameter.exp: test-param: show parameter on
set print test-param off
(gdb) PASS: gdb.guile/scm-parameter.exp: test-param: set print test-param off
show print test-param
The state of the Test Parameter is off.
(gdb) PASS: gdb.guile/scm-parameter.exp: test-param: show parameter off
guile (print (parameter-value test-param))
= #f
(gdb) PASS: gdb.guile/scm-parameter.exp: test-param: parameter value, false
help show print test-param
Show the state of the boolean test-param.
When enabled, test param does something useful. When disabled, does nothing.
(gdb) PASS: gdb.guile/scm-parameter.exp: test-param: show help
help set print test-param
Set the state of the boolean test-param.
When enabled, test param does something useful. When disabled, does nothing.
Available options are:
  on, off, 
(gdb) FAIL: gdb.guile/scm-parameter.exp: test-param: set help
help set print
set print, set pr, set p
Generic command for setting how things print.

List of "set print" subcommands:

set print address -- Set printing of addresses.
set print array -- Set pretty formatting of arrays.
set print array-indexes -- Set printing of array indexes.
set print asm-demangle -- Set demangling of C++/ObjC names in disassembly listings.
set print characters -- Set limit on string chars to print.
set print demangle -- Set demangling of encoded C++/ObjC names when displaying symbols.
set print elements -- Set limit on array elements to print.
set print entry-values -- Set printing of function arguments at function entry.
set print finish -- Set whether `finish' prints the return value.
set print frame-arguments -- Set printing of non-scalar frame arguments.
set print frame-info -- Set printing of frame information.
set print inferior-events -- Set printing of inferior events (such as inferior start and exit).
set print max-depth -- Set maximum print depth for nested structures, unions and arrays.
set print max-symbolic-offset -- Set the largest offset that will be printed in <SYMBOL+1234> form.
set print memory-tag-violations -- Set printing of memory tag violations for pointers.
set print nibbles -- Set whether to print binary values in groups of four bits.
set print null-stop -- Set printing of char arrays to stop at first null char.
set print object -- Set printing of C++ virtual function tables.
set print pascal_static-members -- Set printing of pascal static members.
set print pretty -- Set pretty formatting of structures.
set print raw-frame-arguments -- Set whether to print frame arguments in raw form.
set print raw-values -- Set whether to print values in raw form.
set print repeats -- Set threshold for repeated print elements.
set print sevenbit-strings -- Set printing of 8-bit characters in strings as \nnn.
set print static-members -- Set printing of C++ static members.
set print symbol -- Set printing of symbol names when printing pointers.
set print symbol-filename -- Set printing of source filename and line number with <SYMBOL>.
set print symbol-loading -- Set printing of symbol loading messages.
set print test-param -- Set the state of the boolean test-param.
set print thread-events -- Set printing of thread events (such as thread start and exit).
set print type -- Generic command for showing type-printing settings.
set print union -- Set printing of unions interior to structures.
set print vtbl -- Set printing of C++ virtual function tables.

Type "help set print" followed by subcommand name for full documentation.
Type "apropos word" to search for commands related to "word".
Type "apropos -v word" for full documentation of commands related to "word".
Command name abbreviations are allowed if unambiguous.
(gdb) PASS: gdb.guile/scm-parameter.exp: test-param: general help
guile (print (parameter? test-param))
WARNING: (guile-user): imported module (gdb) overrides core binding `parameter?'
= #t
(gdb) PASS: gdb.guile/scm-parameter.exp: test-param: guile (print (parameter? test-param))
guile (print (parameter? 42))
= #f
(gdb) PASS: gdb.guile/scm-parameter.exp: test-param: guile (print (parameter? 42))
guile
>PASS: gdb.guile/scm-parameter.exp: enum gdb parameter: input 1: guile
(define test-enum-param
>PASS: gdb.guile/scm-parameter.exp: enum gdb parameter: input 2: (define test-enum-param
  (make-parameter "print test-enum-param"
>PASS: gdb.guile/scm-parameter.exp: enum gdb parameter: input 3:   (make-parameter "print test-enum-param"
   #:command-class COMMAND_DATA
>PASS: gdb.guile/scm-parameter.exp: enum gdb parameter: input 4:    #:command-class COMMAND_DATA
   #:parameter-type PARAM_ENUM
>PASS: gdb.guile/scm-parameter.exp: enum gdb parameter: input 5:    #:parameter-type PARAM_ENUM
   #:enum-list '("one" "two")
>PASS: gdb.guile/scm-parameter.exp: enum gdb parameter: input 6:    #:enum-list '("one" "two")
   #:doc "When set, test param does something useful. When disabled, does nothing."
>PASS: gdb.guile/scm-parameter.exp: enum gdb parameter: input 7:    #:doc "When set, test param does something useful. When disabled, does nothing."
   #:show-doc "Show the state of the enum."
>PASS: gdb.guile/scm-parameter.exp: enum gdb parameter: input 8:    #:show-doc "Show the state of the enum."
   #:set-doc "Set the state of the enum."
>PASS: gdb.guile/scm-parameter.exp: enum gdb parameter: input 9:    #:set-doc "Set the state of the enum."
   #:show-func (lambda (self value)
>PASS: gdb.guile/scm-parameter.exp: enum gdb parameter: input 10:    #:show-func (lambda (self value)
      (format #f "The state of the enum is ~a." value))
>PASS: gdb.guile/scm-parameter.exp: enum gdb parameter: input 11:       (format #f "The state of the enum is ~a." value))
   #:initial-value "one"))
>PASS: gdb.guile/scm-parameter.exp: enum gdb parameter: input 12:    #:initial-value "one"))
(register-parameter! test-enum-param)
>PASS: gdb.guile/scm-parameter.exp: enum gdb parameter: input 13: (register-parameter! test-enum-param)
end
(gdb) PASS: gdb.guile/scm-parameter.exp: enum gdb parameter: input 14: end
guile (print (parameter-value test-enum-param))
= one
(gdb) PASS: gdb.guile/scm-parameter.exp: test-enum-param: enum parameter value, one
show print test-enum-param
The state of the enum is one.
(gdb) PASS: gdb.guile/scm-parameter.exp: test-enum-param: show initial value
set print test-enum-param two
(gdb) PASS: gdb.guile/scm-parameter.exp: test-enum-param: set print test-enum-param two
show print test-enum-param
The state of the enum is two.
(gdb) PASS: gdb.guile/scm-parameter.exp: test-enum-param: show new value
guile (print (parameter-value test-enum-param))
= two
(gdb) PASS: gdb.guile/scm-parameter.exp: test-enum-param: enum parameter value, two
set print test-enum-param three
Undefined item: "three".
(gdb) PASS: gdb.guile/scm-parameter.exp: test-enum-param: set invalid enum parameter
set listsize 1
(gdb) PASS: gdb.guile/scm-parameter.exp: param=listsize: test set to 1
guile (print (parameter-value "listsize"))
= 1
(gdb) PASS: gdb.guile/scm-parameter.exp: param=listsize: test value of 1
set listsize 0
(gdb) PASS: gdb.guile/scm-parameter.exp: param=listsize: test set to 0
guile (print (parameter-value "listsize"))
= #:unlimited
(gdb) PASS: gdb.guile/scm-parameter.exp: param=listsize: test value of 0
set listsize -1
(gdb) PASS: gdb.guile/scm-parameter.exp: param=listsize: {test set to -1}
guile (print (parameter-value "listsize"))
= -1
(gdb) PASS: gdb.guile/scm-parameter.exp: param=listsize: test value of -1
set listsize unlimited
(gdb) PASS: gdb.guile/scm-parameter.exp: param=listsize: test set to 'unlimited'
guile (print (parameter-value "listsize"))
= #:unlimited
(gdb) PASS: gdb.guile/scm-parameter.exp: param=listsize: test value of 'unlimited'
set print elements 1
(gdb) PASS: gdb.guile/scm-parameter.exp: param=print elements: test set to 1
guile (print (parameter-value "print elements"))
= 1
(gdb) PASS: gdb.guile/scm-parameter.exp: param=print elements: test value of 1
set print elements 0
(gdb) PASS: gdb.guile/scm-parameter.exp: param=print elements: test set to 0
guile (print (parameter-value "print elements"))
= #:unlimited
(gdb) PASS: gdb.guile/scm-parameter.exp: param=print elements: test value of 0
set print elements -1
integer -1 out of range
(gdb) PASS: gdb.guile/scm-parameter.exp: param=print elements: {test set to -1}
guile (print (parameter-value "print elements"))
= #:unlimited
(gdb) PASS: gdb.guile/scm-parameter.exp: param=print elements: test value of -1
set print elements unlimited
(gdb) PASS: gdb.guile/scm-parameter.exp: param=print elements: test set to 'unlimited'
guile (print (parameter-value "print elements"))
= #:unlimited
(gdb) PASS: gdb.guile/scm-parameter.exp: param=print elements: test value of 'unlimited'
set max-completions 1
(gdb) PASS: gdb.guile/scm-parameter.exp: param=max-completions: test set to 1
guile (print (parameter-value "max-completions"))
= 1
(gdb) PASS: gdb.guile/scm-parameter.exp: param=max-completions: test value of 1
set max-completions 0
(gdb) PASS: gdb.guile/scm-parameter.exp: param=max-completions: test set to 0
guile (print (parameter-value "max-completions"))
= 0
(gdb) PASS: gdb.guile/scm-parameter.exp: param=max-completions: test value of 0
set max-completions -1
(gdb) PASS: gdb.guile/scm-parameter.exp: param=max-completions: {test set to -1}
guile (print (parameter-value "max-completions"))
= #:unlimited
(gdb) PASS: gdb.guile/scm-parameter.exp: param=max-completions: test value of -1
set max-completions unlimited
(gdb) PASS: gdb.guile/scm-parameter.exp: param=max-completions: test set to 'unlimited'
guile (print (parameter-value "max-completions"))
= #:unlimited
(gdb) PASS: gdb.guile/scm-parameter.exp: param=max-completions: test value of 'unlimited'
set print characters 1
(gdb) PASS: gdb.guile/scm-parameter.exp: param=print characters: test set to 1
guile (print (parameter-value "print characters"))
= 1
(gdb) PASS: gdb.guile/scm-parameter.exp: param=print characters: test value of 1
set print characters 0
(gdb) PASS: gdb.guile/scm-parameter.exp: param=print characters: test set to 0
guile (print (parameter-value "print characters"))
= #:unlimited
(gdb) PASS: gdb.guile/scm-parameter.exp: param=print characters: test value of 0
set print characters -1
integer -1 out of range
(gdb) PASS: gdb.guile/scm-parameter.exp: param=print characters: {test set to -1}
guile (print (parameter-value "print characters"))
= #:unlimited
(gdb) PASS: gdb.guile/scm-parameter.exp: param=print characters: test value of -1
set print characters unlimited
(gdb) PASS: gdb.guile/scm-parameter.exp: param=print characters: test set to 'unlimited'
guile (print (parameter-value "print characters"))
= #:unlimited
(gdb) PASS: gdb.guile/scm-parameter.exp: param=print characters: test value of 'unlimited'
set print characters elements
(gdb) PASS: gdb.guile/scm-parameter.exp: param=print characters: test set to 'elements'
guile (print (parameter-value "print characters"))
= #:elements
(gdb) PASS: gdb.guile/scm-parameter.exp: param=print characters: test value of 'elements'
guile
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: create gdb parameter: input 1: guile
(define test-PARAM_UINTEGER-param
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: create gdb parameter: input 2: (define test-PARAM_UINTEGER-param
  (make-parameter "print test-PARAM_UINTEGER-param"
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: create gdb parameter: input 3:   (make-parameter "print test-PARAM_UINTEGER-param"
   #:command-class COMMAND_DATA
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: create gdb parameter: input 4:    #:command-class COMMAND_DATA
   #:parameter-type PARAM_UINTEGER
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: create gdb parameter: input 5:    #:parameter-type PARAM_UINTEGER
   #:doc "Set to a number or 'unlimited' to yield an effect."
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: create gdb parameter: input 6:    #:doc "Set to a number or 'unlimited' to yield an effect."
   #:show-doc "Show the state of PARAM_UINTEGER."
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: create gdb parameter: input 7:    #:show-doc "Show the state of PARAM_UINTEGER."
   #:set-doc "Set the state of PARAM_UINTEGER."
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: create gdb parameter: input 8:    #:set-doc "Set the state of PARAM_UINTEGER."
   #:show-func (lambda (self value)
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: create gdb parameter: input 9:    #:show-func (lambda (self value)
      (format #f "The state of PARAM_UINTEGER is ~a." value))
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: create gdb parameter: input 10:       (format #f "The state of PARAM_UINTEGER is ~a." value))
   #:initial-value 3))
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: create gdb parameter: input 11:    #:initial-value 3))
(register-parameter! test-PARAM_UINTEGER-param)
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: create gdb parameter: input 12: (register-parameter! test-PARAM_UINTEGER-param)
end
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: create gdb parameter: input 13: end
guile (print (parameter-value test-PARAM_UINTEGER-param))
= 3
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: test-PARAM_UINTEGER-param: PARAM_UINTEGER parameter value, 3
show print test-PARAM_UINTEGER-param
The state of PARAM_UINTEGER is 3.
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: test-PARAM_UINTEGER-param: show initial value
set print test-PARAM_UINTEGER-param 2
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: test-PARAM_UINTEGER-param: set print test-PARAM_UINTEGER-param 2
show print test-PARAM_UINTEGER-param
The state of PARAM_UINTEGER is 2.
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: test-PARAM_UINTEGER-param: show new value
guile (print (parameter-value test-PARAM_UINTEGER-param))
= 2
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: test-PARAM_UINTEGER-param: PARAM_UINTEGER parameter value, 2
guile (set-parameter-value! test-PARAM_UINTEGER-param #:unlimited)
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: test-PARAM_UINTEGER-param: gdb-command<guile (set-parameter-value! test-PARAM_UINTEGER-param #:unlimited)>
show print test-PARAM_UINTEGER-param
The state of PARAM_UINTEGER is unlimited.
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: test-PARAM_UINTEGER-param: show unlimited value
guile (set-parameter-value! test-PARAM_UINTEGER-param 1)
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: test-PARAM_UINTEGER-param: gdb-command<guile (set-parameter-value! test-PARAM_UINTEGER-param 1)>
guile (print (parameter-value test-PARAM_UINTEGER-param))
= 1
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: test-PARAM_UINTEGER-param: PARAM_UINTEGER parameter value, 1
guile (set-parameter-value! test-PARAM_UINTEGER-param 0)
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: test-PARAM_UINTEGER-param: gdb-command<guile (set-parameter-value! test-PARAM_UINTEGER-param 0)>
guile (print (parameter-value test-PARAM_UINTEGER-param))
= #:unlimited
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: test-PARAM_UINTEGER-param: PARAM_UINTEGER parameter value, 0
set print test-PARAM_UINTEGER-param -1
integer -1 out of range
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: test-PARAM_UINTEGER-param: set print test-PARAM_UINTEGER-param -1
guile (print (parameter-value test-PARAM_UINTEGER-param))
= #:unlimited
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: test-PARAM_UINTEGER-param: PARAM_UINTEGER parameter value, -1
set print test-PARAM_UINTEGER-param -2
integer -2 out of range
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: test-PARAM_UINTEGER-param: set print test-PARAM_UINTEGER-param -2
guile (print (parameter-value test-PARAM_UINTEGER-param))
= #:unlimited
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_UINTEGER: test-PARAM_UINTEGER-param: PARAM_UINTEGER parameter value, -2
guile
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: create gdb parameter: input 1: guile
(define test-PARAM_ZINTEGER-param
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: create gdb parameter: input 2: (define test-PARAM_ZINTEGER-param
  (make-parameter "print test-PARAM_ZINTEGER-param"
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: create gdb parameter: input 3:   (make-parameter "print test-PARAM_ZINTEGER-param"
   #:command-class COMMAND_DATA
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: create gdb parameter: input 4:    #:command-class COMMAND_DATA
   #:parameter-type PARAM_ZINTEGER
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: create gdb parameter: input 5:    #:parameter-type PARAM_ZINTEGER
   #:doc "Set to a number or 'unlimited' to yield an effect."
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: create gdb parameter: input 6:    #:doc "Set to a number or 'unlimited' to yield an effect."
   #:show-doc "Show the state of PARAM_ZINTEGER."
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: create gdb parameter: input 7:    #:show-doc "Show the state of PARAM_ZINTEGER."
   #:set-doc "Set the state of PARAM_ZINTEGER."
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: create gdb parameter: input 8:    #:set-doc "Set the state of PARAM_ZINTEGER."
   #:show-func (lambda (self value)
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: create gdb parameter: input 9:    #:show-func (lambda (self value)
      (format #f "The state of PARAM_ZINTEGER is ~a." value))
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: create gdb parameter: input 10:       (format #f "The state of PARAM_ZINTEGER is ~a." value))
   #:initial-value 3))
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: create gdb parameter: input 11:    #:initial-value 3))
(register-parameter! test-PARAM_ZINTEGER-param)
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: create gdb parameter: input 12: (register-parameter! test-PARAM_ZINTEGER-param)
end
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: create gdb parameter: input 13: end
guile (print (parameter-value test-PARAM_ZINTEGER-param))
= 3
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: test-PARAM_ZINTEGER-param: PARAM_ZINTEGER parameter value, 3
show print test-PARAM_ZINTEGER-param
The state of PARAM_ZINTEGER is 3.
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: test-PARAM_ZINTEGER-param: show initial value
set print test-PARAM_ZINTEGER-param 2
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: test-PARAM_ZINTEGER-param: set print test-PARAM_ZINTEGER-param 2
show print test-PARAM_ZINTEGER-param
The state of PARAM_ZINTEGER is 2.
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: test-PARAM_ZINTEGER-param: show new value
guile (print (parameter-value test-PARAM_ZINTEGER-param))
= 2
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: test-PARAM_ZINTEGER-param: PARAM_ZINTEGER parameter value, 2
guile (set-parameter-value! test-PARAM_ZINTEGER-param #:unlimited)
ERROR: In procedure set-parameter-value!:
In procedure gdbscm_set_parameter_value_x: Wrong type argument in position 2 (expecting integer): #:unlimited
Error while executing Scheme code.
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: test-PARAM_ZINTEGER-param: gdb-command<guile (set-parameter-value! test-PARAM_ZINTEGER-param #:unlimited)>
show print test-PARAM_ZINTEGER-param
The state of PARAM_ZINTEGER is 2.
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: test-PARAM_ZINTEGER-param: show unlimited value
guile (set-parameter-value! test-PARAM_ZINTEGER-param 1)
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: test-PARAM_ZINTEGER-param: gdb-command<guile (set-parameter-value! test-PARAM_ZINTEGER-param 1)>
guile (print (parameter-value test-PARAM_ZINTEGER-param))
= 1
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: test-PARAM_ZINTEGER-param: PARAM_ZINTEGER parameter value, 1
guile (set-parameter-value! test-PARAM_ZINTEGER-param 0)
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: test-PARAM_ZINTEGER-param: gdb-command<guile (set-parameter-value! test-PARAM_ZINTEGER-param 0)>
guile (print (parameter-value test-PARAM_ZINTEGER-param))
= 0
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: test-PARAM_ZINTEGER-param: PARAM_ZINTEGER parameter value, 0
set print test-PARAM_ZINTEGER-param -1
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: test-PARAM_ZINTEGER-param: set print test-PARAM_ZINTEGER-param -1
guile (print (parameter-value test-PARAM_ZINTEGER-param))
= -1
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: test-PARAM_ZINTEGER-param: PARAM_ZINTEGER parameter value, -1
set print test-PARAM_ZINTEGER-param -2
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: test-PARAM_ZINTEGER-param: set print test-PARAM_ZINTEGER-param -2
guile (print (parameter-value test-PARAM_ZINTEGER-param))
= -2
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZINTEGER: test-PARAM_ZINTEGER-param: PARAM_ZINTEGER parameter value, -2
guile
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: create gdb parameter: input 1: guile
(define test-PARAM_ZUINTEGER-param
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: create gdb parameter: input 2: (define test-PARAM_ZUINTEGER-param
  (make-parameter "print test-PARAM_ZUINTEGER-param"
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: create gdb parameter: input 3:   (make-parameter "print test-PARAM_ZUINTEGER-param"
   #:command-class COMMAND_DATA
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: create gdb parameter: input 4:    #:command-class COMMAND_DATA
   #:parameter-type PARAM_ZUINTEGER
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: create gdb parameter: input 5:    #:parameter-type PARAM_ZUINTEGER
   #:doc "Set to a number or 'unlimited' to yield an effect."
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: create gdb parameter: input 6:    #:doc "Set to a number or 'unlimited' to yield an effect."
   #:show-doc "Show the state of PARAM_ZUINTEGER."
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: create gdb parameter: input 7:    #:show-doc "Show the state of PARAM_ZUINTEGER."
   #:set-doc "Set the state of PARAM_ZUINTEGER."
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: create gdb parameter: input 8:    #:set-doc "Set the state of PARAM_ZUINTEGER."
   #:show-func (lambda (self value)
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: create gdb parameter: input 9:    #:show-func (lambda (self value)
      (format #f "The state of PARAM_ZUINTEGER is ~a." value))
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: create gdb parameter: input 10:       (format #f "The state of PARAM_ZUINTEGER is ~a." value))
   #:initial-value 3))
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: create gdb parameter: input 11:    #:initial-value 3))
(register-parameter! test-PARAM_ZUINTEGER-param)
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: create gdb parameter: input 12: (register-parameter! test-PARAM_ZUINTEGER-param)
end
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: create gdb parameter: input 13: end
guile (print (parameter-value test-PARAM_ZUINTEGER-param))
= 3
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: test-PARAM_ZUINTEGER-param: PARAM_ZUINTEGER parameter value, 3
show print test-PARAM_ZUINTEGER-param
The state of PARAM_ZUINTEGER is 3.
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: test-PARAM_ZUINTEGER-param: show initial value
set print test-PARAM_ZUINTEGER-param 2
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: test-PARAM_ZUINTEGER-param: set print test-PARAM_ZUINTEGER-param 2
show print test-PARAM_ZUINTEGER-param
The state of PARAM_ZUINTEGER is 2.
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: test-PARAM_ZUINTEGER-param: show new value
guile (print (parameter-value test-PARAM_ZUINTEGER-param))
= 2
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: test-PARAM_ZUINTEGER-param: PARAM_ZUINTEGER parameter value, 2
guile (set-parameter-value! test-PARAM_ZUINTEGER-param #:unlimited)
ERROR: In procedure set-parameter-value!:
In procedure gdbscm_set_parameter_value_x: Wrong type argument in position 2 (expecting integer): #:unlimited
Error while executing Scheme code.
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: test-PARAM_ZUINTEGER-param: gdb-command<guile (set-parameter-value! test-PARAM_ZUINTEGER-param #:unlimited)>
show print test-PARAM_ZUINTEGER-param
The state of PARAM_ZUINTEGER is 2.
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: test-PARAM_ZUINTEGER-param: show unlimited value
guile (set-parameter-value! test-PARAM_ZUINTEGER-param 1)
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: test-PARAM_ZUINTEGER-param: gdb-command<guile (set-parameter-value! test-PARAM_ZUINTEGER-param 1)>
guile (print (parameter-value test-PARAM_ZUINTEGER-param))
= 1
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: test-PARAM_ZUINTEGER-param: PARAM_ZUINTEGER parameter value, 1
guile (set-parameter-value! test-PARAM_ZUINTEGER-param 0)
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: test-PARAM_ZUINTEGER-param: gdb-command<guile (set-parameter-value! test-PARAM_ZUINTEGER-param 0)>
guile (print (parameter-value test-PARAM_ZUINTEGER-param))
= 0
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: test-PARAM_ZUINTEGER-param: PARAM_ZUINTEGER parameter value, 0
set print test-PARAM_ZUINTEGER-param -1
integer -1 out of range
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: test-PARAM_ZUINTEGER-param: set print test-PARAM_ZUINTEGER-param -1
guile (print (parameter-value test-PARAM_ZUINTEGER-param))
= 0
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: test-PARAM_ZUINTEGER-param: PARAM_ZUINTEGER parameter value, -1
set print test-PARAM_ZUINTEGER-param -2
integer -2 out of range
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: test-PARAM_ZUINTEGER-param: set print test-PARAM_ZUINTEGER-param -2
guile (print (parameter-value test-PARAM_ZUINTEGER-param))
= 0
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER: test-PARAM_ZUINTEGER-param: PARAM_ZUINTEGER parameter value, -2
guile
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: create gdb parameter: input 1: guile
(define test-PARAM_ZUINTEGER_UNLIMITED-param
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: create gdb parameter: input 2: (define test-PARAM_ZUINTEGER_UNLIMITED-param
  (make-parameter "print test-PARAM_ZUINTEGER_UNLIMITED-param"
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: create gdb parameter: input 3:   (make-parameter "print test-PARAM_ZUINTEGER_UNLIMITED-param"
   #:command-class COMMAND_DATA
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: create gdb parameter: input 4:    #:command-class COMMAND_DATA
   #:parameter-type PARAM_ZUINTEGER_UNLIMITED
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: create gdb parameter: input 5:    #:parameter-type PARAM_ZUINTEGER_UNLIMITED
   #:doc "Set to a number or 'unlimited' to yield an effect."
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: create gdb parameter: input 6:    #:doc "Set to a number or 'unlimited' to yield an effect."
   #:show-doc "Show the state of PARAM_ZUINTEGER_UNLIMITED."
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: create gdb parameter: input 7:    #:show-doc "Show the state of PARAM_ZUINTEGER_UNLIMITED."
   #:set-doc "Set the state of PARAM_ZUINTEGER_UNLIMITED."
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: create gdb parameter: input 8:    #:set-doc "Set the state of PARAM_ZUINTEGER_UNLIMITED."
   #:show-func (lambda (self value)
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: create gdb parameter: input 9:    #:show-func (lambda (self value)
      (format #f "The state of PARAM_ZUINTEGER_UNLIMITED is ~a." value))
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: create gdb parameter: input 10:       (format #f "The state of PARAM_ZUINTEGER_UNLIMITED is ~a." value))
   #:initial-value 3))
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: create gdb parameter: input 11:    #:initial-value 3))
(register-parameter! test-PARAM_ZUINTEGER_UNLIMITED-param)
>PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: create gdb parameter: input 12: (register-parameter! test-PARAM_ZUINTEGER_UNLIMITED-param)
end
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: create gdb parameter: input 13: end
guile (print (parameter-value test-PARAM_ZUINTEGER_UNLIMITED-param))
= 3
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: test-PARAM_ZUINTEGER_UNLIMITED-param: PARAM_ZUINTEGER_UNLIMITED parameter value, 3
show print test-PARAM_ZUINTEGER_UNLIMITED-param
The state of PARAM_ZUINTEGER_UNLIMITED is 3.
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: test-PARAM_ZUINTEGER_UNLIMITED-param: show initial value
set print test-PARAM_ZUINTEGER_UNLIMITED-param 2
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: test-PARAM_ZUINTEGER_UNLIMITED-param: set print test-PARAM_ZUINTEGER_UNLIMITED-param 2
show print test-PARAM_ZUINTEGER_UNLIMITED-param
The state of PARAM_ZUINTEGER_UNLIMITED is 2.
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: test-PARAM_ZUINTEGER_UNLIMITED-param: show new value
guile (print (parameter-value test-PARAM_ZUINTEGER_UNLIMITED-param))
= 2
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: test-PARAM_ZUINTEGER_UNLIMITED-param: PARAM_ZUINTEGER_UNLIMITED parameter value, 2
guile (set-parameter-value! test-PARAM_ZUINTEGER_UNLIMITED-param #:unlimited)
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: test-PARAM_ZUINTEGER_UNLIMITED-param: gdb-command<guile (set-parameter-value! test-PARAM_ZUINTEGER_UNLIMITED-param #:unlimited)>
show print test-PARAM_ZUINTEGER_UNLIMITED-param
The state of PARAM_ZUINTEGER_UNLIMITED is unlimited.
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: test-PARAM_ZUINTEGER_UNLIMITED-param: show unlimited value
guile (set-parameter-value! test-PARAM_ZUINTEGER_UNLIMITED-param 1)
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: test-PARAM_ZUINTEGER_UNLIMITED-param: gdb-command<guile (set-parameter-value! test-PARAM_ZUINTEGER_UNLIMITED-param 1)>
guile (print (parameter-value test-PARAM_ZUINTEGER_UNLIMITED-param))
= 1
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: test-PARAM_ZUINTEGER_UNLIMITED-param: PARAM_ZUINTEGER_UNLIMITED parameter value, 1
guile (set-parameter-value! test-PARAM_ZUINTEGER_UNLIMITED-param 0)
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: test-PARAM_ZUINTEGER_UNLIMITED-param: gdb-command<guile (set-parameter-value! test-PARAM_ZUINTEGER_UNLIMITED-param 0)>
guile (print (parameter-value test-PARAM_ZUINTEGER_UNLIMITED-param))
= 0
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: test-PARAM_ZUINTEGER_UNLIMITED-param: PARAM_ZUINTEGER_UNLIMITED parameter value, 0
set print test-PARAM_ZUINTEGER_UNLIMITED-param -1
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: test-PARAM_ZUINTEGER_UNLIMITED-param: set print test-PARAM_ZUINTEGER_UNLIMITED-param -1
guile (print (parameter-value test-PARAM_ZUINTEGER_UNLIMITED-param))
= #:unlimited
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: test-PARAM_ZUINTEGER_UNLIMITED-param: PARAM_ZUINTEGER_UNLIMITED parameter value, -1
set print test-PARAM_ZUINTEGER_UNLIMITED-param -2
integer -2 out of range
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: test-PARAM_ZUINTEGER_UNLIMITED-param: set print test-PARAM_ZUINTEGER_UNLIMITED-param -2
guile (print (parameter-value test-PARAM_ZUINTEGER_UNLIMITED-param))
= #:unlimited
(gdb) PASS: gdb.guile/scm-parameter.exp: kind=PARAM_ZUINTEGER_UNLIMITED: test-PARAM_ZUINTEGER_UNLIMITED-param: PARAM_ZUINTEGER_UNLIMITED parameter value, -2
guile
>PASS: gdb.guile/scm-parameter.exp: file gdb parameter: input 1: guile
(define test-file-param
>PASS: gdb.guile/scm-parameter.exp: file gdb parameter: input 2: (define test-file-param
  (make-parameter "test-file-param"
>PASS: gdb.guile/scm-parameter.exp: file gdb parameter: input 3:   (make-parameter "test-file-param"
   #:command-class COMMAND_FILES
>PASS: gdb.guile/scm-parameter.exp: file gdb parameter: input 4:    #:command-class COMMAND_FILES
   #:parameter-type PARAM_FILENAME
>PASS: gdb.guile/scm-parameter.exp: file gdb parameter: input 5:    #:parameter-type PARAM_FILENAME
   #:doc "When set, test param does something useful. When disabled, does nothing."
>PASS: gdb.guile/scm-parameter.exp: file gdb parameter: input 6:    #:doc "When set, test param does something useful. When disabled, does nothing."
   #:show-doc "Show the name of the file."
>PASS: gdb.guile/scm-parameter.exp: file gdb parameter: input 7:    #:show-doc "Show the name of the file."
   #:set-doc "Set the name of the file."
>PASS: gdb.guile/scm-parameter.exp: file gdb parameter: input 8:    #:set-doc "Set the name of the file."
   #:show-func (lambda (self value)
>PASS: gdb.guile/scm-parameter.exp: file gdb parameter: input 9:    #:show-func (lambda (self value)
      (format #f "The name of the file is ~a." value))
>PASS: gdb.guile/scm-parameter.exp: file gdb parameter: input 10:       (format #f "The name of the file is ~a." value))
   #:initial-value "foo.txt"))
>PASS: gdb.guile/scm-parameter.exp: file gdb parameter: input 11:    #:initial-value "foo.txt"))
(register-parameter! test-file-param)
>PASS: gdb.guile/scm-parameter.exp: file gdb parameter: input 12: (register-parameter! test-file-param)
end
(gdb) PASS: gdb.guile/scm-parameter.exp: file gdb parameter: input 13: end
guile (print (parameter-value test-file-param))
= foo.txt
(gdb) PASS: gdb.guile/scm-parameter.exp: test-file-param: initial parameter value
show test-file-param
The name of the file is foo.txt.
(gdb) PASS: gdb.guile/scm-parameter.exp: test-file-param: show initial value
set test-file-param bar.txt
(gdb) PASS: gdb.guile/scm-parameter.exp: test-file-param: set test-file-param bar.txt
show test-file-param
The name of the file is bar.txt.
(gdb) PASS: gdb.guile/scm-parameter.exp: test-file-param: show new value
guile (print (parameter-value test-file-param))
= bar.txt
(gdb) PASS: gdb.guile/scm-parameter.exp: test-file-param: new parameter value
set test-file-param
Argument required (filename to set it to.).
(gdb) PASS: gdb.guile/scm-parameter.exp: test-file-param: set test-file-param
guile
>PASS: gdb.guile/scm-parameter.exp: undocumented gdb parameter: input 1: guile
(register-parameter! (make-parameter "print test-undoc-param"
>PASS: gdb.guile/scm-parameter.exp: undocumented gdb parameter: input 2: (register-parameter! (make-parameter "print test-undoc-param"
   #:command-class COMMAND_DATA
>PASS: gdb.guile/scm-parameter.exp: undocumented gdb parameter: input 3:    #:command-class COMMAND_DATA
   #:parameter-type PARAM_BOOLEAN
>PASS: gdb.guile/scm-parameter.exp: undocumented gdb parameter: input 4:    #:parameter-type PARAM_BOOLEAN
   #:show-func (lambda (self value)
>PASS: gdb.guile/scm-parameter.exp: undocumented gdb parameter: input 5:    #:show-func (lambda (self value)
      (format #f "The state of the Test Parameter is ~a." value))
>PASS: gdb.guile/scm-parameter.exp: undocumented gdb parameter: input 6:       (format #f "The state of the Test Parameter is ~a." value))
   #:initial-value #t))
>PASS: gdb.guile/scm-parameter.exp: undocumented gdb parameter: input 7:    #:initial-value #t))
end
(gdb) PASS: gdb.guile/scm-parameter.exp: undocumented gdb parameter: input 8: end
show print test-undoc-param
The state of the Test Parameter is on.
(gdb) PASS: gdb.guile/scm-parameter.exp: test-undocumented-param: show parameter on
set print test-undoc-param off
(gdb) PASS: gdb.guile/scm-parameter.exp: test-undocumented-param: set print test-undoc-param off
show print test-undoc-param
The state of the Test Parameter is off.
(gdb) PASS: gdb.guile/scm-parameter.exp: test-undocumented-param: show parameter off
help show print test-undoc-param
Show the current value of 'print test-undoc-param'.
This command is not documented.
(gdb) PASS: gdb.guile/scm-parameter.exp: test-undocumented-param: show help
help set print test-undoc-param
Set the current value of 'print test-undoc-param'.
This command is not documented.
Available options are:
  on, off, 
(gdb) FAIL: gdb.guile/scm-parameter.exp: test-undocumented-param: set help
help set print
set print, set pr, set p
Generic command for setting how things print.

List of "set print" subcommands:

set print address -- Set printing of addresses.
set print array -- Set pretty formatting of arrays.
set print array-indexes -- Set printing of array indexes.
set print asm-demangle -- Set demangling of C++/ObjC names in disassembly listings.
set print characters -- Set limit on string chars to print.
set print demangle -- Set demangling of encoded C++/ObjC names when displaying symbols.
set print elements -- Set limit on array elements to print.
set print entry-values -- Set printing of function arguments at function entry.
set print finish -- Set whether `finish' prints the return value.
set print frame-arguments -- Set printing of non-scalar frame arguments.
set print frame-info -- Set printing of frame information.
set print inferior-events -- Set printing of inferior events (such as inferior start and exit).
set print max-depth -- Set maximum print depth for nested structures, unions and arrays.
set print max-symbolic-offset -- Set the largest offset that will be printed in <SYMBOL+1234> form.
set print memory-tag-violations -- Set printing of memory tag violations for pointers.
set print nibbles -- Set whether to print binary values in groups of four bits.
set print null-stop -- Set printing of char arrays to stop at first null char.
set print object -- Set printing of C++ virtual function tables.
set print pascal_static-members -- Set printing of pascal static members.
set print pretty -- Set pretty formatting of structures.
set print raw-frame-arguments -- Set whether to print frame arguments in raw form.
set print raw-values -- Set whether to print values in raw form.
set print repeats -- Set threshold for repeated print elements.
set print sevenbit-strings -- Set printing of 8-bit characters in strings as \nnn.
set print static-members -- Set printing of C++ static members.
set print symbol -- Set printing of symbol names when printing pointers.
set print symbol-filename -- Set printing of source filename and line number with <SYMBOL>.
set print symbol-loading -- Set printing of symbol loading messages.
set print test-PARAM_UINTEGER-param -- Set the state of PARAM_UINTEGER.
set print test-PARAM_ZINTEGER-param -- Set the state of PARAM_ZINTEGER.
set print test-PARAM_ZUINTEGER-param -- Set the state of PARAM_ZUINTEGER.
set print test-PARAM_ZUINTEGER_UNLIMITED-param -- Set the state of PARAM_ZUINTEGER_UNLIMITED.
set print test-enum-param -- Set the state of the enum.
set print test-param -- Set the state of the boolean test-param.
set print test-undoc-param -- Set the current value of 'print test-undoc-param'.
set print thread-events -- Set printing of thread events (such as thread start and exit).
set print type -- Generic command for showing type-printing settings.
set print union -- Set printing of unions interior to structures.
set print vtbl -- Set printing of C++ virtual function tables.

Type "help set print" followed by subcommand name for full documentation.
Type "apropos word" to search for commands related to "word".
Type "apropos -v word" for full documentation of commands related to "word".
Command name abbreviations are allowed if unambiguous.
(gdb) PASS: gdb.guile/scm-parameter.exp: test-undocumented-param: general help
guile
>PASS: gdb.guile/scm-parameter.exp: restricted gdb parameter: input 1: guile
(register-parameter! (make-parameter "test-restricted-param"
>PASS: gdb.guile/scm-parameter.exp: restricted gdb parameter: input 2: (register-parameter! (make-parameter "test-restricted-param"
   #:command-class COMMAND_DATA
>PASS: gdb.guile/scm-parameter.exp: restricted gdb parameter: input 3:    #:command-class COMMAND_DATA
   #:parameter-type PARAM_ZINTEGER
>PASS: gdb.guile/scm-parameter.exp: restricted gdb parameter: input 4:    #:parameter-type PARAM_ZINTEGER
   #:set-func (lambda (self)
>PASS: gdb.guile/scm-parameter.exp: restricted gdb parameter: input 5:    #:set-func (lambda (self)
      (let ((value (parameter-value self)))
>PASS: gdb.guile/scm-parameter.exp: restricted gdb parameter: input 6:       (let ((value (parameter-value self)))
        (if (and (>= value 0) (<= value 10))
>PASS: gdb.guile/scm-parameter.exp: restricted gdb parameter: input 7:         (if (and (>= value 0) (<= value 10))
            ""
>PASS: gdb.guile/scm-parameter.exp: restricted gdb parameter: input 8:             ""
            (begin
>PASS: gdb.guile/scm-parameter.exp: restricted gdb parameter: input 9:             (begin
              (set-parameter-value! self (object-property self 'value))
>PASS: gdb.guile/scm-parameter.exp: restricted gdb parameter: input 10:               (set-parameter-value! self (object-property self 'value))
              "Error: Range of parameter is 0-10."))))
>PASS: gdb.guile/scm-parameter.exp: restricted gdb parameter: input 11:               "Error: Range of parameter is 0-10."))))
   #:show-func (lambda (self value)
>PASS: gdb.guile/scm-parameter.exp: restricted gdb parameter: input 12:    #:show-func (lambda (self value)
      (format #f "The value of the restricted parameter is ~a." value))
>PASS: gdb.guile/scm-parameter.exp: restricted gdb parameter: input 13:       (format #f "The value of the restricted parameter is ~a." value))
   #:initial-value (lambda (self)
>PASS: gdb.guile/scm-parameter.exp: restricted gdb parameter: input 14:    #:initial-value (lambda (self)
      (set-object-property! self 'value 2)
>PASS: gdb.guile/scm-parameter.exp: restricted gdb parameter: input 15:       (set-object-property! self 'value 2)
      2)))
>PASS: gdb.guile/scm-parameter.exp: restricted gdb parameter: input 16:       2)))
end
(gdb) PASS: gdb.guile/scm-parameter.exp: restricted gdb parameter: input 17: end
show test-restricted-param
The value of the restricted parameter is 2.
(gdb) PASS: gdb.guile/scm-parameter.exp: test-restricted-param: test-restricted-param is initially 2
set test-restricted-param 10
(gdb) PASS: gdb.guile/scm-parameter.exp: test-restricted-param: set test-restricted-param 10
show test-restricted-param
The value of the restricted parameter is 10.
(gdb) PASS: gdb.guile/scm-parameter.exp: test-restricted-param: test-restricted-param is now 10
set test-restricted-param 42
Error: Range of parameter is 0-10.
(gdb) PASS: gdb.guile/scm-parameter.exp: test-restricted-param: set test-restricted-param 42
show test-restricted-param
The value of the restricted parameter is 2.
(gdb) PASS: gdb.guile/scm-parameter.exp: test-restricted-param: test-restricted-param is back to 2 again
guile (register-parameter! (make-parameter "height"))
ERROR: In procedure register-parameter!:
In procedure gdbscm_register_parameter_x: parameter exists, "set" command is already defined in position 1: #<gdb:parameter height {invalid} PARAM_BOOLEAN #f>
Error while executing Scheme code.
(gdb) PASS: gdb.guile/scm-parameter.exp: error registering existing parameter
guile (print (parameter-value (make-parameter "foo")))
= #f
(gdb) PASS: gdb.guile/scm-parameter.exp: guile (print (parameter-value (make-parameter "foo")))
guile (define myparam (make-parameter "foo"))
(gdb) PASS: gdb.guile/scm-parameter.exp: guile (define myparam (make-parameter "foo"))
guile (set-parameter-value! myparam #t)
(gdb) PASS: gdb.guile/scm-parameter.exp: gdb-command<guile (set-parameter-value! myparam #t)>
guile (print (parameter-value myparam))
= #t
(gdb) PASS: gdb.guile/scm-parameter.exp: guile (print (parameter-value myparam))
guile
>PASS: gdb.guile/scm-parameter.exp: previously ambiguously named boolean parameter: input 1: guile
(define prev-ambig
>PASS: gdb.guile/scm-parameter.exp: previously ambiguously named boolean parameter: input 2: (define prev-ambig
  (make-parameter "print s"
>PASS: gdb.guile/scm-parameter.exp: previously ambiguously named boolean parameter: input 3:   (make-parameter "print s"
   #:parameter-type PARAM_BOOLEAN))
>PASS: gdb.guile/scm-parameter.exp: previously ambiguously named boolean parameter: input 4:    #:parameter-type PARAM_BOOLEAN))
end
(gdb) PASS: gdb.guile/scm-parameter.exp: previously ambiguously named boolean parameter: input 5: end
guile (register-parameter! prev-ambig)
(gdb) PASS: gdb.guile/scm-parameter.exp: gdb-command<guile (register-parameter! prev-ambig)>
guile (print (parameter-value prev-ambig))
= #f
(gdb) PASS: gdb.guile/scm-parameter.exp: previously-ambiguous: parameter value, false
show print s
The current value of 'print s' is off.
(gdb) PASS: gdb.guile/scm-parameter.exp: previously-ambiguous: show parameter off
set print s on
(gdb) PASS: gdb.guile/scm-parameter.exp: previously-ambiguous: set print s on
show print s
The current value of 'print s' is on.
(gdb) PASS: gdb.guile/scm-parameter.exp: previously-ambiguous: show parameter on
guile (print (parameter-value prev-ambig))
= #t
(gdb) PASS: gdb.guile/scm-parameter.exp: previously-ambiguous: parameter value, true
help show print s
Show the current value of 'print s'.
This command is not documented.
(gdb) PASS: gdb.guile/scm-parameter.exp: previously-ambiguous: show help
help set print s
Set the current value of 'print s'.
This command is not documented.
Available options are:
  on, off, 
(gdb) FAIL: gdb.guile/scm-parameter.exp: previously-ambiguous: set help
help set print
set print, set pr, set p
Generic command for setting how things print.

List of "set print" subcommands:

set print address -- Set printing of addresses.
set print array -- Set pretty formatting of arrays.
set print array-indexes -- Set printing of array indexes.
set print asm-demangle -- Set demangling of C++/ObjC names in disassembly listings.
set print characters -- Set limit on string chars to print.
set print demangle -- Set demangling of encoded C++/ObjC names when displaying symbols.
set print elements -- Set limit on array elements to print.
set print entry-values -- Set printing of function arguments at function entry.
set print finish -- Set whether `finish' prints the return value.
set print frame-arguments -- Set printing of non-scalar frame arguments.
set print frame-info -- Set printing of frame information.
set print inferior-events -- Set printing of inferior events (such as inferior start and exit).
set print max-depth -- Set maximum print depth for nested structures, unions and arrays.
set print max-symbolic-offset -- Set the largest offset that will be printed in <SYMBOL+1234> form.
set print memory-tag-violations -- Set printing of memory tag violations for pointers.
set print nibbles -- Set whether to print binary values in groups of four bits.
set print null-stop -- Set printing of char arrays to stop at first null char.
set print object -- Set printing of C++ virtual function tables.
set print pascal_static-members -- Set printing of pascal static members.
set print pretty -- Set pretty formatting of structures.
set print raw-frame-arguments -- Set whether to print frame arguments in raw form.
set print raw-values -- Set whether to print values in raw form.
set print repeats -- Set threshold for repeated print elements.
set print s -- Set the current value of 'print s'.
set print sevenbit-strings -- Set printing of 8-bit characters in strings as \nnn.
set print static-members -- Set printing of C++ static members.
set print symbol -- Set printing of symbol names when printing pointers.
set print symbol-filename -- Set printing of source filename and line number with <SYMBOL>.
set print symbol-loading -- Set printing of symbol loading messages.
set print test-PARAM_UINTEGER-param -- Set the state of PARAM_UINTEGER.
set print test-PARAM_ZINTEGER-param -- Set the state of PARAM_ZINTEGER.
set print test-PARAM_ZUINTEGER-param -- Set the state of PARAM_ZUINTEGER.
set print test-PARAM_ZUINTEGER_UNLIMITED-param -- Set the state of PARAM_ZUINTEGER_UNLIMITED.
set print test-enum-param -- Set the state of the enum.
set print test-param -- Set the state of the boolean test-param.
set print test-undoc-param -- Set the current value of 'print test-undoc-param'.
set print thread-events -- Set printing of thread events (such as thread start and exit).
set print type -- Generic command for showing type-printing settings.
set print union -- Set printing of unions interior to structures.
set print vtbl -- Set printing of C++ virtual function tables.

Type "help set print" followed by subcommand name for full documentation.
Type "apropos word" to search for commands related to "word".
Type "apropos -v word" for full documentation of commands related to "word".
Command name abbreviations are allowed if unambiguous.
(gdb) PASS: gdb.guile/scm-parameter.exp: previously-ambiguous: general help
guile
>PASS: gdb.guile/scm-parameter.exp: create set/show foo1 prefix commands: input 1: guile
(register-command! (make-command "set foo1"
>PASS: gdb.guile/scm-parameter.exp: create set/show foo1 prefix commands: input 2: (register-command! (make-command "set foo1"
   #:command-class COMMAND_OBSCURE
>PASS: gdb.guile/scm-parameter.exp: create set/show foo1 prefix commands: input 3:    #:command-class COMMAND_OBSCURE
   #:prefix? #t))
>PASS: gdb.guile/scm-parameter.exp: create set/show foo1 prefix commands: input 4:    #:prefix? #t))
(register-command! (make-command "show foo1"
>PASS: gdb.guile/scm-parameter.exp: create set/show foo1 prefix commands: input 5: (register-command! (make-command "show foo1"
   #:command-class COMMAND_OBSCURE
>PASS: gdb.guile/scm-parameter.exp: create set/show foo1 prefix commands: input 6:    #:command-class COMMAND_OBSCURE
   #:prefix? #t))
>PASS: gdb.guile/scm-parameter.exp: create set/show foo1 prefix commands: input 7:    #:prefix? #t))
end
(gdb) PASS: gdb.guile/scm-parameter.exp: create set/show foo1 prefix commands: input 8: end
guile
>PASS: gdb.guile/scm-parameter.exp: create set/show foo1 baz1 prefix commands: input 1: guile
(register-command! (make-command "set foo1 baz1"
>PASS: gdb.guile/scm-parameter.exp: create set/show foo1 baz1 prefix commands: input 2: (register-command! (make-command "set foo1 baz1"
   #:command-class COMMAND_OBSCURE
>PASS: gdb.guile/scm-parameter.exp: create set/show foo1 baz1 prefix commands: input 3:    #:command-class COMMAND_OBSCURE
   #:prefix? #t))
>PASS: gdb.guile/scm-parameter.exp: create set/show foo1 baz1 prefix commands: input 4:    #:prefix? #t))
(register-command! (make-command "show foo1 baz1"
>PASS: gdb.guile/scm-parameter.exp: create set/show foo1 baz1 prefix commands: input 5: (register-command! (make-command "show foo1 baz1"
   #:command-class COMMAND_OBSCURE
>PASS: gdb.guile/scm-parameter.exp: create set/show foo1 baz1 prefix commands: input 6:    #:command-class COMMAND_OBSCURE
   #:prefix? #t))
>PASS: gdb.guile/scm-parameter.exp: create set/show foo1 baz1 prefix commands: input 7:    #:prefix? #t))
end
(gdb) PASS: gdb.guile/scm-parameter.exp: create set/show foo1 baz1 prefix commands: input 8: end
guile
>PASS: gdb.guile/scm-parameter.exp: create 'foo bar' parameter: input 1: guile
(register-parameter! (make-parameter "foo bar"
>PASS: gdb.guile/scm-parameter.exp: create 'foo bar' parameter: input 2: (register-parameter! (make-parameter "foo bar"
   #:command-class COMMAND_OBSCURE
>PASS: gdb.guile/scm-parameter.exp: create 'foo bar' parameter: input 3:    #:command-class COMMAND_OBSCURE
   #:parameter-type PARAM_BOOLEAN
>PASS: gdb.guile/scm-parameter.exp: create 'foo bar' parameter: input 4:    #:parameter-type PARAM_BOOLEAN
   #:show-func (lambda (self value)
>PASS: gdb.guile/scm-parameter.exp: create 'foo bar' parameter: input 5:    #:show-func (lambda (self value)
      (format #f "The state of 'foo bar' is ~a." value))
>PASS: gdb.guile/scm-parameter.exp: create 'foo bar' parameter: input 6:       (format #f "The state of 'foo bar' is ~a." value))
   #:initial-value #t))
>PASS: gdb.guile/scm-parameter.exp: create 'foo bar' parameter: input 7:    #:initial-value #t))
end
(gdb) PASS: gdb.guile/scm-parameter.exp: create 'foo bar' parameter: input 8: end
show foo1 bar
The state of 'foo bar' is on.
(gdb) PASS: gdb.guile/scm-parameter.exp: show parameter 'foo bar'
guile
>PASS: gdb.guile/scm-parameter.exp: create set/show foo2 prefix commands: input 1: guile
(register-command! (make-command "set foo2"
>PASS: gdb.guile/scm-parameter.exp: create set/show foo2 prefix commands: input 2: (register-command! (make-command "set foo2"
   #:command-class COMMAND_OBSCURE
>PASS: gdb.guile/scm-parameter.exp: create set/show foo2 prefix commands: input 3:    #:command-class COMMAND_OBSCURE
   #:prefix? #t))
>PASS: gdb.guile/scm-parameter.exp: create set/show foo2 prefix commands: input 4:    #:prefix? #t))
(register-command! (make-command "show foo2"
>PASS: gdb.guile/scm-parameter.exp: create set/show foo2 prefix commands: input 5: (register-command! (make-command "show foo2"
   #:command-class COMMAND_OBSCURE
>PASS: gdb.guile/scm-parameter.exp: create set/show foo2 prefix commands: input 6:    #:command-class COMMAND_OBSCURE
   #:prefix? #t))
>PASS: gdb.guile/scm-parameter.exp: create set/show foo2 prefix commands: input 7:    #:prefix? #t))
end
(gdb) PASS: gdb.guile/scm-parameter.exp: create set/show foo2 prefix commands: input 8: end
guile
>PASS: gdb.guile/scm-parameter.exp: create ambiguous 'foo baz' parameter: input 1: guile
(register-parameter! (make-parameter "foo baz"
>PASS: gdb.guile/scm-parameter.exp: create ambiguous 'foo baz' parameter: input 2: (register-parameter! (make-parameter "foo baz"
   #:command-class COMMAND_OBSCURE
>PASS: gdb.guile/scm-parameter.exp: create ambiguous 'foo baz' parameter: input 3:    #:command-class COMMAND_OBSCURE
   #:parameter-type PARAM_BOOLEAN
>PASS: gdb.guile/scm-parameter.exp: create ambiguous 'foo baz' parameter: input 4:    #:parameter-type PARAM_BOOLEAN
   #:show-func (lambda (self value)
>PASS: gdb.guile/scm-parameter.exp: create ambiguous 'foo baz' parameter: input 5:    #:show-func (lambda (self value)
      (format #f "The state of 'foo baz' is ~a." value))
>PASS: gdb.guile/scm-parameter.exp: create ambiguous 'foo baz' parameter: input 6:       (format #f "The state of 'foo baz' is ~a." value))
   #:initial-value #t))
>PASS: gdb.guile/scm-parameter.exp: create ambiguous 'foo baz' parameter: input 7:    #:initial-value #t))
end
ERROR: In procedure register-parameter!:
In procedure gdbscm_register_parameter_x: Out of range: could not find command prefix 'foo' in position 1: "foo baz"
Error while executing Scheme code.
(gdb) PASS: gdb.guile/scm-parameter.exp: create ambiguous 'foo baz' parameter: input 8: end
guile
>PASS: gdb.guile/scm-parameter.exp: empty doc string: empty doc string parameter: input 1: guile
(register-parameter! (make-parameter "empty-doc-string"
>PASS: gdb.guile/scm-parameter.exp: empty doc string: empty doc string parameter: input 2: (register-parameter! (make-parameter "empty-doc-string"
   #:command-class COMMAND_NONE
>PASS: gdb.guile/scm-parameter.exp: empty doc string: empty doc string parameter: input 3:    #:command-class COMMAND_NONE
   #:parameter-type PARAM_ZINTEGER
>PASS: gdb.guile/scm-parameter.exp: empty doc string: empty doc string parameter: input 4:    #:parameter-type PARAM_ZINTEGER
   #:doc ""
>PASS: gdb.guile/scm-parameter.exp: empty doc string: empty doc string parameter: input 5:    #:doc ""
   #:set-doc "Set doc string."
>PASS: gdb.guile/scm-parameter.exp: empty doc string: empty doc string parameter: input 6:    #:set-doc "Set doc string."
   #:show-doc "Show doc string."))
>PASS: gdb.guile/scm-parameter.exp: empty doc string: empty doc string parameter: input 7:    #:show-doc "Show doc string."))
end
(gdb) PASS: gdb.guile/scm-parameter.exp: empty doc string: empty doc string parameter: input 8: end
help set empty-doc-string
Set doc string.
(gdb) PASS: gdb.guile/scm-parameter.exp: empty doc string: help set empty-doc-string
help show empty-doc-string
Show doc string.
(gdb) PASS: gdb.guile/scm-parameter.exp: empty doc string: help show empty-doc-string
guile
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with no invoke: input 1: guile
(register-command! (make-command "set test-prefix"
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with no invoke: input 2: (register-command! (make-command "set test-prefix"
  #:prefix? #t
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with no invoke: input 3:   #:prefix? #t
  #:command-class COMMAND_NONE))
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with no invoke: input 4:   #:command-class COMMAND_NONE))
(register-command! (make-command "show test-prefix"
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with no invoke: input 5: (register-command! (make-command "show test-prefix"
  #:prefix? #t
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with no invoke: input 6:   #:prefix? #t
  #:command-class COMMAND_NONE))
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with no invoke: input 7:   #:command-class COMMAND_NONE))
(register-parameter! (make-parameter "test-prefix param-1"
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with no invoke: input 8: (register-parameter! (make-parameter "test-prefix param-1"
  #:command-class COMMAND_NONE
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with no invoke: input 9:   #:command-class COMMAND_NONE
  #:parameter-type PARAM_BOOLEAN))
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with no invoke: input 10:   #:parameter-type PARAM_BOOLEAN))
(register-parameter! (make-parameter "test-prefix param-2"
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with no invoke: input 11: (register-parameter! (make-parameter "test-prefix param-2"
  #:command-class COMMAND_NONE
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with no invoke: input 12:   #:command-class COMMAND_NONE
  #:parameter-type PARAM_UINTEGER))
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with no invoke: input 13:   #:parameter-type PARAM_UINTEGER))
(register-parameter! (make-parameter "test-prefix param-3"
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with no invoke: input 14: (register-parameter! (make-parameter "test-prefix param-3"
  #:command-class COMMAND_NONE
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with no invoke: input 15:   #:command-class COMMAND_NONE
  #:parameter-type PARAM_STRING))
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with no invoke: input 16:   #:parameter-type PARAM_STRING))
end
(gdb) PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with no invoke: input 17: end
set test-prefix
List of "set test-prefix" subcommands:

set test-prefix param-1 -- Set the current value of 'test-prefix param-1'.
set test-prefix param-2 -- Set the current value of 'test-prefix param-2'.
set test-prefix param-3 -- Set the current value of 'test-prefix param-3'.

Type "help set test-prefix" followed by subcommand name for full documentation.
Type "apropos word" to search for commands related to "word".
Type "apropos -v word" for full documentation of commands related to "word".
Command name abbreviations are allowed if unambiguous.
(gdb) PASS: gdb.guile/scm-parameter.exp: set/show parameter: set test-prefix
show test-prefix
test-prefix param-1:  The current value of 'test-prefix param-1' is off.
test-prefix param-2:  The current value of 'test-prefix param-2' is 0.
test-prefix param-3:  The current value of 'test-prefix param-3' is "".
(gdb) PASS: gdb.guile/scm-parameter.exp: set/show parameter: show test-prefix
guile
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 1: guile
(register-command! (make-command "set test-prefix-2"
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 2: (register-command! (make-command "set test-prefix-2"
  #:prefix? #t
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 3:   #:prefix? #t
  #:command-class COMMAND_NONE
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 4:   #:command-class COMMAND_NONE
  #:invoke (lambda (self arg from-tty)
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 5:   #:invoke (lambda (self arg from-tty)
    (display "invoke -- set\n"))))
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 6:     (display "invoke -- set\n"))))
(register-command! (make-command "show test-prefix-2"
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 7: (register-command! (make-command "show test-prefix-2"
  #:prefix? #t
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 8:   #:prefix? #t
  #:command-class COMMAND_NONE
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 9:   #:command-class COMMAND_NONE
  #:invoke (lambda (self arg from-tty)
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 10:   #:invoke (lambda (self arg from-tty)
    (display "invoke -- show\n"))))
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 11:     (display "invoke -- show\n"))))
(register-parameter! (make-parameter "test-prefix-2 param-1"
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 12: (register-parameter! (make-parameter "test-prefix-2 param-1"
  #:command-class COMMAND_NONE
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 13:   #:command-class COMMAND_NONE
  #:parameter-type PARAM_BOOLEAN))
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 14:   #:parameter-type PARAM_BOOLEAN))
(register-parameter! (make-parameter "test-prefix-2 param-2"
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 15: (register-parameter! (make-parameter "test-prefix-2 param-2"
  #:command-class COMMAND_NONE
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 16:   #:command-class COMMAND_NONE
  #:parameter-type PARAM_UINTEGER))
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 17:   #:parameter-type PARAM_UINTEGER))
(register-parameter! (make-parameter "test-prefix-2 param-3"
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 18: (register-parameter! (make-parameter "test-prefix-2 param-3"
  #:command-class COMMAND_NONE
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 19:   #:command-class COMMAND_NONE
  #:parameter-type PARAM_STRING))
>PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 20:   #:parameter-type PARAM_STRING))
end
(gdb) PASS: gdb.guile/scm-parameter.exp: set/show parameter: Setup set/show parameter prefix with invoke: input 21: end
set test-prefix-2
invoke -- set
(gdb) PASS: gdb.guile/scm-parameter.exp: set/show parameter: set test-prefix-2
show test-prefix-2
invoke -- show
(gdb) PASS: gdb.guile/scm-parameter.exp: set/show parameter: show test-prefix-2

Starting logfile: /home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/aarch64-unknown-linux-gnu/aarch64-unknown-linux-gnu/gdb-gdb.git~master/gdb/testsuite/outputs/gdb.guile/scm-parameter/gdb.in.2

builtin_spawn /home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/aarch64-unknown-linux-gnu/aarch64-unknown-linux-gnu/gdb-gdb.git~master/gdb/testsuite/../../gdb/gdb -nw -nx -q -iex set height 0 -iex set width 0 -data-directory /home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/aarch64-unknown-linux-gnu/aarch64-unknown-linux-gnu/gdb-gdb.git~master/gdb/data-directory -iex set interactive-mode on
(gdb) set height 0
(gdb) set width 0
(gdb) dir
Reinitialize source path to empty? (y or n) y
Source directories searched: $cdir:$cwd
(gdb) dir /home/tcwg-build/workspace/tcwg_gnu_4/gdb/gdb/testsuite/gdb.guile
Source directories searched: /home/tcwg-build/workspace/tcwg_gnu_4/gdb/gdb/testsuite/gdb.guile:$cdir:$cwd
(gdb) guile (define (print x) (format #t "= ~A" x) (newline))
(gdb) guile (define (raw-print x) (format #t "= ~S" x) (newline))
(gdb) guile (use-modules (gdb))
(gdb) guile
>PASS: gdb.guile/scm-parameter.exp: color gdb parameter: input 1: guile
(define test-color-param
>PASS: gdb.guile/scm-parameter.exp: color gdb parameter: input 2: (define test-color-param
  (make-parameter "print test-color-param"
>PASS: gdb.guile/scm-parameter.exp: color gdb parameter: input 3:   (make-parameter "print test-color-param"
   #:command-class COMMAND_DATA
>PASS: gdb.guile/scm-parameter.exp: color gdb parameter: input 4:    #:command-class COMMAND_DATA
   #:parameter-type PARAM_COLOR
>PASS: gdb.guile/scm-parameter.exp: color gdb parameter: input 5:    #:parameter-type PARAM_COLOR
   #:doc "When set, test param does something useful. When disabled, does nothing."
>PASS: gdb.guile/scm-parameter.exp: color gdb parameter: input 6:    #:doc "When set, test param does something useful. When disabled, does nothing."
   #:show-doc "Show the state of the test-color-param."
>PASS: gdb.guile/scm-parameter.exp: color gdb parameter: input 7:    #:show-doc "Show the state of the test-color-param."
   #:set-doc "Set the state of the test-color-param."
>PASS: gdb.guile/scm-parameter.exp: color gdb parameter: input 8:    #:set-doc "Set the state of the test-color-param."
   #:show-func (lambda (self value)
>PASS: gdb.guile/scm-parameter.exp: color gdb parameter: input 9:    #:show-func (lambda (self value)
      (format #f "The state of the test-color-param is ~a." value))
>PASS: gdb.guile/scm-parameter.exp: color gdb parameter: input 10:       (format #f "The state of the test-color-param is ~a." value))
   #:initial-value (make-color "green")))
>PASS: gdb.guile/scm-parameter.exp: color gdb parameter: input 11:    #:initial-value (make-color "green")))
(register-parameter! test-color-param)
>PASS: gdb.guile/scm-parameter.exp: color gdb parameter: input 12: (register-parameter! test-color-param)
end
WARNING: (guile-user): imported module (gdb) overrides core binding `make-parameter'
(gdb) PASS: gdb.guile/scm-parameter.exp: color gdb parameter: input 13: end
guile (print (parameter-value test-color-param))
= #<gdb:color green COLORSPACE_ANSI_8COLOR>
(gdb) PASS: gdb.guile/scm-parameter.exp: test-color-param: initial-value: color parameter value (green)
show print test-color-param
The state of the test-color-param is green.
(gdb) PASS: gdb.guile/scm-parameter.exp: test-color-param: initial-value: show initial value
set print test-color-param 255
(gdb) PASS: gdb.guile/scm-parameter.exp: test-color-param: initial-value: set print test-color-param 255
show print test-color-param
The state of the test-color-param is 255.
(gdb) PASS: gdb.guile/scm-parameter.exp: test-color-param: new-value: show new value
guile (print (parameter-value test-color-param))
= #<gdb:color 255 COLORSPACE_XTERM_256COLOR>
(gdb) PASS: gdb.guile/scm-parameter.exp: test-color-param: new-value: color parameter value (255)
set print test-color-param 256
integer 256 out of range
(gdb) PASS: gdb.guile/scm-parameter.exp: test-color-param: new-value: set invalid color parameter
testcase /home/tcwg-build/workspace/tcwg_gnu_4/abe/snapshots/gdb.git~master/gdb/testsuite/gdb.guile/scm-parameter.exp completed in 3 seconds

		=== gdb Summary ===

# of expected passes		373
# of unexpected failures	3
Executing on host: /home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/aarch64-unknown-linux-gnu/aarch64-unknown-linux-gnu/gdb-gdb.git~master/gdb/testsuite/../../gdb/gdb -nw -nx -q -iex "set height 0" -iex "set width 0" -data-directory /home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/aarch64-unknown-linux-gnu/aarch64-unknown-linux-gnu/gdb-gdb.git~master/gdb/data-directory -iex "set interactive-mode on" --version    (timeout = 300)
builtin_spawn -ignore SIGHUP /home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/aarch64-unknown-linux-gnu/aarch64-unknown-linux-gnu/gdb-gdb.git~master/gdb/testsuite/../../gdb/gdb -nw -nx -q -iex set height 0 -iex set width 0 -data-directory /home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/aarch64-unknown-linux-gnu/aarch64-unknown-linux-gnu/gdb-gdb.git~master/gdb/data-directory -iex set interactive-mode on --version
GNU gdb (Linaro_GDB-2026.03.11) 18.0.50.20260311-git
Copyright (C) 2026 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.
/home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/aarch64-unknown-linux-gnu/aarch64-unknown-linux-gnu/gdb-gdb.git~master/gdb/gdb version  18.0.50.20260311-git -nw -nx -q -iex "set height 0" -iex "set width 0" -data-directory /home/tcwg-build/workspace/tcwg_gnu_4/abe/builds/aarch64-unknown-linux-gnu/aarch64-unknown-linux-gnu/gdb-gdb.git~master/gdb/data-directory -iex "set interactive-mode on" 

runtest completed at Wed Mar 11 09:21:06 2026
