diff options
Diffstat (limited to 'gdb/testsuite/gdb.chill')
33 files changed, 106 insertions, 106 deletions
diff --git a/gdb/testsuite/gdb.chill/builtins.exp b/gdb/testsuite/gdb.chill/builtins.exp index 1379a84..8597208 100644 --- a/gdb/testsuite/gdb.chill/builtins.exp +++ b/gdb/testsuite/gdb.chill/builtins.exp @@ -37,26 +37,26 @@ if { [compile "${srcfile} -g -w -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" # fails, then we skip the other tests. proc set_lang_chill {} { - global prompt + global gdb_prompt global binfile objdir subdir verbose "loading file '$binfile'" gdb_load $binfile send_gdb "set language chill\n" expect { - -re ".*$prompt $" {} + -re ".*$gdb_prompt $" {} timeout { fail "set language chill (timeout)" ; return 0 } } send_gdb "show language\n" expect { - -re ".* source language is \"chill\".*$prompt $" { + -re ".* source language is \"chill\".*$gdb_prompt $" { pass "set language to \"chill\"" send_gdb "break xx_\n" expect { - -re ".*$prompt $" { + -re ".*$gdb_prompt $" { send_gdb "run\n" - expect -re ".*$prompt $" {} + expect -re ".*$gdb_prompt $" {} return 1 } timeout { @@ -65,7 +65,7 @@ proc set_lang_chill {} { } } } - -re ".*$prompt $" { + -re ".*$gdb_prompt $" { fail "setting language to \"chill\"" return 0 } @@ -90,7 +90,7 @@ proc set_lang_chill {} { # Third one is an optional message to be printed proc test_print_accept { args } { - global prompt + global gdb_prompt global passcount global verbose diff --git a/gdb/testsuite/gdb.chill/callch.exp b/gdb/testsuite/gdb.chill/callch.exp index 4fe4e65..5cbf7fa 100644 --- a/gdb/testsuite/gdb.chill/callch.exp +++ b/gdb/testsuite/gdb.chill/callch.exp @@ -34,7 +34,7 @@ if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 @@ -49,7 +49,7 @@ proc do_tests {} { send_gdb "set language chill\n" ; gdb_test "break callch.ch:48 "" - send_gdb "run\n"; expect -re "Breakpoint .*callch.ch:48.*$prompt $" + send_gdb "run\n"; expect -re "Breakpoint .*callch.ch:48.*$gdb_prompt $" gdb_test {set fred(10, i)} {a is '10'; b is '12'.} gdb_test_exact "call klaus()" {here's klaus calling.} gdb_test_exact "call fred()" {too few arguments in function call} diff --git a/gdb/testsuite/gdb.chill/chexp.exp b/gdb/testsuite/gdb.chill/chexp.exp index 9961b82..bdc100d 100644 --- a/gdb/testsuite/gdb.chill/chexp.exp +++ b/gdb/testsuite/gdb.chill/chexp.exp @@ -30,21 +30,21 @@ set bug_id 0 # fails, then we skip the other tests. proc set_lang_chill {} { - global prompt + global gdb_prompt send_gdb "set language chill\n" expect { - -re ".*$prompt $" {} + -re ".*$gdb_prompt $" {} timeout { fail "set language chill (timeout)" ; return 0 } } send_gdb "show language\n" expect { - -re ".* source language is \"chill\".*$prompt $" { + -re ".* source language is \"chill\".*$gdb_prompt $" { pass "set language to \"chill\"" return 1 } - -re ".*$prompt $" { + -re ".*$gdb_prompt $" { fail "setting language to \"chill\"" return 0 } @@ -56,7 +56,7 @@ proc set_lang_chill {} { } proc test_integer_literals_accepted {} { - global prompt + global gdb_prompt # Test various decimal values. @@ -115,7 +115,7 @@ proc test_integer_literals_accepted {} { } proc test_character_literals_accepted {} { - global prompt + global gdb_prompt # Test various decimal values. @@ -132,7 +132,7 @@ proc test_character_literals_accepted {} { } proc test_integer_literals_rejected {} { - global prompt + global gdb_prompt # These are valid integer literals in Z.200, but not GNU-Chill. @@ -177,7 +177,7 @@ proc test_integer_literals_rejected {} { } proc test_boolean_literals_accepted {} { - global prompt + global gdb_prompt # Test the only possible values for a boolean, TRUE and FALSE. @@ -186,7 +186,7 @@ proc test_boolean_literals_accepted {} { } proc test_float_literals_accepted {} { - global prompt + global gdb_prompt # Test various floating point formats @@ -246,7 +246,7 @@ proc test_float_literals_accepted {} { } proc test_convenience_variables {} { - global prompt + global gdb_prompt gdb_test "set \$foo := 101" " := 101\[\r\]*" \ "Set a new convenience variable" @@ -277,7 +277,7 @@ proc test_convenience_variables {} { } proc test_value_history {} { - global prompt + global gdb_prompt gdb_test "print 101" "\\\$1 = 101" \ "Set value-history\[1\] using \$1" @@ -325,7 +325,7 @@ proc test_value_history {} { } proc test_arithmetic_expressions {} { - global prompt + global gdb_prompt # Test unary minus with various operands diff --git a/gdb/testsuite/gdb.chill/chillvars.exp b/gdb/testsuite/gdb.chill/chillvars.exp index 05d20d5..dd925e4 100644 --- a/gdb/testsuite/gdb.chill/chillvars.exp +++ b/gdb/testsuite/gdb.chill/chillvars.exp @@ -34,7 +34,7 @@ if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 diff --git a/gdb/testsuite/gdb.chill/enum.exp b/gdb/testsuite/gdb.chill/enum.exp index faec871..d5ec0e9 100644 --- a/gdb/testsuite/gdb.chill/enum.exp +++ b/gdb/testsuite/gdb.chill/enum.exp @@ -38,7 +38,7 @@ if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } # fails, then we skip the other tests. proc set_lang_chill {} { - global prompt + global gdb_prompt global binfile objdir subdir verbose "loading file '$binfile'" @@ -46,7 +46,7 @@ proc set_lang_chill {} { send_gdb "set language chill\n" expect { - -re ".*$prompt $" {} + -re ".*$gdb_prompt $" {} timeout { fail "set language chill (timeout)" ; return 0 } } @@ -69,7 +69,7 @@ if ![set_lang_chill] then { runto hugo_ send_gdb "set var \$i := d\n" - expect -re ".*$prompt $" + expect -re ".*$gdb_prompt $" gdb_test "print \$i" { = d} gdb_test "print size (\$i)" { = 1} gdb_test "print b+c" { = 3} diff --git a/gdb/testsuite/gdb.chill/extstruct.exp b/gdb/testsuite/gdb.chill/extstruct.exp index 204daee..c175b6e 100644 --- a/gdb/testsuite/gdb.chill/extstruct.exp +++ b/gdb/testsuite/gdb.chill/extstruct.exp @@ -42,7 +42,7 @@ if { [compile "${srcfile} -g ${objfile2} -o ${binfile} ${CHILL_RT0} ${CHILL_LIB } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 diff --git a/gdb/testsuite/gdb.chill/gch1041.exp b/gdb/testsuite/gdb.chill/gch1041.exp index c033cef..3b035ab 100644 --- a/gdb/testsuite/gdb.chill/gch1041.exp +++ b/gdb/testsuite/gdb.chill/gch1041.exp @@ -39,7 +39,7 @@ if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } # fails, then we skip the other tests. proc set_lang_chill {} { - global prompt + global gdb_prompt global binfile objdir subdir verbose "loading file '$binfile'" @@ -47,7 +47,7 @@ proc set_lang_chill {} { send_gdb "set language chill\n" expect { - -re ".*$prompt $" {} + -re ".*$gdb_prompt $" {} timeout { fail "set language chill (timeout)" ; return 0 } } diff --git a/gdb/testsuite/gdb.chill/gch1272.exp b/gdb/testsuite/gdb.chill/gch1272.exp index eb83c60..3377c2d 100644 --- a/gdb/testsuite/gdb.chill/gch1272.exp +++ b/gdb/testsuite/gdb.chill/gch1272.exp @@ -38,7 +38,7 @@ if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } # fails, then we skip the other tests. proc set_lang_chill {} { - global prompt + global gdb_prompt global binfile objdir subdir verbose "loading file '$binfile'" @@ -46,7 +46,7 @@ proc set_lang_chill {} { send_gdb "set language chill\n" expect { - -re ".*$prompt $" {} + -re ".*$gdb_prompt $" {} timeout { fail "set language chill (timeout)" ; return 0 } } diff --git a/gdb/testsuite/gdb.chill/gch1280.exp b/gdb/testsuite/gdb.chill/gch1280.exp index e33850c..1786ccf 100644 --- a/gdb/testsuite/gdb.chill/gch1280.exp +++ b/gdb/testsuite/gdb.chill/gch1280.exp @@ -38,7 +38,7 @@ if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } # fails, then we skip the other tests. proc set_lang_chill {} { - global prompt + global gdb_prompt global binfile objdir subdir verbose "loading file '$binfile'" @@ -46,7 +46,7 @@ proc set_lang_chill {} { send_gdb "set language chill\n" expect { - -re ".*$prompt $" {} + -re ".*$gdb_prompt $" {} timeout { fail "set language chill (timeout)" ; return 0 } } diff --git a/gdb/testsuite/gdb.chill/gch922.exp b/gdb/testsuite/gdb.chill/gch922.exp index 995384e..f2d023e 100644 --- a/gdb/testsuite/gdb.chill/gch922.exp +++ b/gdb/testsuite/gdb.chill/gch922.exp @@ -41,26 +41,26 @@ if { [compile "${srcfile} -g -w -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" # fails, then we skip the other tests. proc set_lang_chill {} { - global prompt + global gdb_prompt global binfile objdir subdir verbose "loading file '$binfile'" gdb_load $binfile send_gdb "set language chill\n" expect { - -re ".*$prompt $" {} + -re ".*$gdb_prompt $" {} timeout { fail "set language chill (timeout)" ; return 0 } } send_gdb "show language\n" expect { - -re ".* source language is \"chill\".*$prompt $" { + -re ".* source language is \"chill\".*$gdb_prompt $" { pass "set language to \"chill\"" send_gdb "break xx_\n" expect { - -re ".*$prompt $" { + -re ".*$gdb_prompt $" { send_gdb "run\n" - expect -re ".*$prompt $" {} + expect -re ".*$gdb_prompt $" {} return 1 } timeout { @@ -69,7 +69,7 @@ proc set_lang_chill {} { } } } - -re ".*$prompt $" { + -re ".*$gdb_prompt $" { fail "setting language to \"chill\"" return 0 } @@ -94,7 +94,7 @@ proc set_lang_chill {} { # Third one is an optional message to be printed proc test_print_accept { args } { - global prompt + global gdb_prompt global passcount global verbose @@ -112,7 +112,7 @@ proc test_print_accept { args } { proc test_chars {} { - global passcount prompt + global passcount gdb_prompt verbose "Testing Chars" set passcount 0 @@ -125,11 +125,11 @@ proc test_chars {} { gdb_test "set var a := (100)'\^(0,255)' "" test_print_accept "print a" {"\^\(0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255\)"} - send_gdb "set var a := (10)'\^(1)'//(26)\"\^(66,67)\"//\" \"//'I'//' '//'a'//'m'//\" Hugo\" \n" ; expect -re "$prompt $" + send_gdb "set var a := (10)'\^(1)'//(26)\"\^(66,67)\"//\" \"//'I'//' '//'a'//'m'//\" Hugo\" \n" ; expect -re "$gdb_prompt $" test_print_accept "print a" {"\^\(1,1,1,1,1,1,1,1,1,1\)BCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBC I am Hugo"} - send_gdb "set var b := \"Hugo \"\"\^(3,4)\"\"Otto\^(17)\" \n" ; expect -re "$prompt $" + send_gdb "set var b := \"Hugo \"\"\^(3,4)\"\"Otto\^(17)\" \n" ; expect -re "$gdb_prompt $" test_print_accept "print b" {"Hugo ""\^\(3,4\)""Otto\^\(17\)"} - send_gdb "set var c := (70)'b' // \"\^(2,3)Hugo \" // (70)'c' \n" ; expect -re "$prompt $" + send_gdb "set var c := (70)'b' // \"\^(2,3)Hugo \" // (70)'c' \n" ; expect -re "$gdb_prompt $" test_print_accept "print c" {'b'<repeats 70 times>//"\^\(2,3\)Hugo "//'c'<repeats 70 times>} gdb_test "set var d := '\^(199)' "" test_print_accept "print d" {'\^\(199\)'} @@ -137,21 +137,21 @@ proc test_chars {} { test_print_accept "print (10)'\^(0)'//(26)\"\^(66,67)\"//\" \"//'I'//' '//'a'//'m'//\" Hugo\"" {"\^\(0,0,0,0,0,0,0,0,0,0\)BCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBC I am Hugo"} test_print_accept "print \"Jason\"\"\^(0,5)\"\"Hugo\^(10)\"" {"Jason""\^\(0,5\)""Hugo\^\(10\)"} - send_gdb "set var a := \"\" \n" ; expect -re "$prompt $" + send_gdb "set var a := \"\" \n" ; expect -re "$gdb_prompt $" test_print_accept "print a" {""} - send_gdb "set var a := \"\"\"\" \n" ; expect -re "$prompt $" + send_gdb "set var a := \"\"\"\" \n" ; expect -re "$gdb_prompt $" test_print_accept "print a" {""""} - send_gdb "set var a := \" \"\"\" \n" ; expect -re "$prompt $" + send_gdb "set var a := \" \"\"\" \n" ; expect -re "$gdb_prompt $" test_print_accept "print a" {" """} - send_gdb "set var a := \"\^\^\" \n" ; expect -re "$prompt $" + send_gdb "set var a := \"\^\^\" \n" ; expect -re "$gdb_prompt $" test_print_accept "print a" {"\^\^"} - send_gdb "set var a := \"'\" \n" ; expect -re "$prompt $" + send_gdb "set var a := \"'\" \n" ; expect -re "$gdb_prompt $" test_print_accept "print a" {"'"} } proc test_code {} { - global passcount prompt + global passcount gdb_prompt verbose "Testing Chars" set passcount 0 diff --git a/gdb/testsuite/gdb.chill/gch981.exp b/gdb/testsuite/gdb.chill/gch981.exp index 2ebefc8..361389c 100644 --- a/gdb/testsuite/gdb.chill/gch981.exp +++ b/gdb/testsuite/gdb.chill/gch981.exp @@ -41,26 +41,26 @@ if { [compile "${srcfile} -g -w -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" # fails, then we skip the other tests. proc set_lang_chill {} { - global prompt + global gdb_prompt global binfile objdir subdir verbose "loading file '$binfile'" gdb_load $binfile send_gdb "set language chill\n" expect { - -re ".*$prompt $" {} + -re ".*$gdb_prompt $" {} timeout { fail "set language chill (timeout)" ; return 0 } } send_gdb "show language\n" expect { - -re ".* source language is \"chill\".*$prompt $" { + -re ".* source language is \"chill\".*$gdb_prompt $" { pass "set language to \"chill\"" send_gdb "break xx_\n" expect { - -re ".*$prompt $" { + -re ".*$gdb_prompt $" { send_gdb "run\n" - expect -re ".*$prompt $" {} + expect -re ".*$gdb_prompt $" {} return 1 } timeout { @@ -69,7 +69,7 @@ proc set_lang_chill {} { } } } - -re ".*$prompt $" { + -re ".*$gdb_prompt $" { fail "setting language to \"chill\"" return 0 } @@ -94,7 +94,7 @@ proc set_lang_chill {} { # Third one is an optional message to be printed proc test_print_accept { args } { - global prompt + global gdb_prompt global passcount global verbose @@ -111,7 +111,7 @@ proc test_print_accept { args } { } proc test_power {} { - global passcount prompt + global passcount gdb_prompt verbose "Testing some POWERSET Stuff" set passcount 0 @@ -171,7 +171,7 @@ proc test_power {} { gdb_test "set v_power3 := \[b5:b7, b1\] "" test_print_accept "print v_power3" {\[b1, b5:b7\]} - send_gdb "set v_power4 := \[\"b\"\] \n" ; expect -re "$prompt $" + send_gdb "set v_power4 := \[\"b\"\] \n" ; expect -re "$gdb_prompt $" test_print_accept "print v_power4" {\['b':'x'\]} gdb_test "set v_power4 := \[5\] "" test_print_accept "print v_power4" {\['b':'x'\]} diff --git a/gdb/testsuite/gdb.chill/misc.exp b/gdb/testsuite/gdb.chill/misc.exp index bf5b6d3..f064adc 100644 --- a/gdb/testsuite/gdb.chill/misc.exp +++ b/gdb/testsuite/gdb.chill/misc.exp @@ -39,7 +39,7 @@ if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } # fails, then we skip the other tests. proc set_lang_chill {} { - global prompt + global gdb_prompt global binfile objdir subdir verbose "loading file '$binfile'" @@ -47,7 +47,7 @@ proc set_lang_chill {} { send_gdb "set language chill\n" expect { - -re ".*$prompt $" {} + -re ".*$gdb_prompt $" {} timeout { fail "set language chill (timeout)" ; return 0 } } @@ -94,7 +94,7 @@ if ![set_lang_chill] then { gdb_test "print array () ubyte (foo)" { = \[\(0:11\): 0\]} send_gdb "set var \$i := foo\n" - expect -re ".*$prompt $" + expect -re ".*$gdb_prompt $" setup_xfail "m68*-*-hpux*" gdb_test "print/x array () byte (\$i)" { = \[\(0:11\): H'0\]} } diff --git a/gdb/testsuite/gdb.chill/powerset.exp b/gdb/testsuite/gdb.chill/powerset.exp index 9a912d6..525e03c 100644 --- a/gdb/testsuite/gdb.chill/powerset.exp +++ b/gdb/testsuite/gdb.chill/powerset.exp @@ -37,26 +37,26 @@ if { [compile "${srcfile} -g -w -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" # fails, then we skip the other tests. proc set_lang_chill {} { - global prompt + global gdb_prompt global binfile objdir subdir verbose "loading file '$binfile'" gdb_load $binfile send_gdb "set language chill\n" expect { - -re ".*$prompt $" {} + -re ".*$gdb_prompt $" {} timeout { fail "set language chill (timeout)" ; return 0 } } send_gdb "show language\n" expect { - -re ".* source language is \"chill\".*$prompt $" { + -re ".* source language is \"chill\".*$gdb_prompt $" { pass "set language to \"chill\"" send_gdb "break xx_\n" expect { - -re ".*$prompt $" { + -re ".*$gdb_prompt $" { send_gdb "run\n" - expect -re ".*$prompt $" {} + expect -re ".*$gdb_prompt $" {} return 1 } timeout { @@ -65,7 +65,7 @@ proc set_lang_chill {} { } } } - -re ".*$prompt $" { + -re ".*$gdb_prompt $" { fail "setting language to \"chill\"" return 0 } @@ -90,7 +90,7 @@ proc set_lang_chill {} { # Third one is an optional message to be printed proc test_print_accept { args } { - global prompt + global gdb_prompt global passcount global verbose diff --git a/gdb/testsuite/gdb.chill/pr-4975.exp b/gdb/testsuite/gdb.chill/pr-4975.exp index 892f1ed..b679e74 100644 --- a/gdb/testsuite/gdb.chill/pr-4975.exp +++ b/gdb/testsuite/gdb.chill/pr-4975.exp @@ -42,7 +42,7 @@ if { [compile "${srcfile} -g ${objfile2} -o ${binfile} ${CHILL_RT0} ${CHILL_LIB } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 diff --git a/gdb/testsuite/gdb.chill/pr-5016.exp b/gdb/testsuite/gdb.chill/pr-5016.exp index 2a036d1..61cddf8 100644 --- a/gdb/testsuite/gdb.chill/pr-5016.exp +++ b/gdb/testsuite/gdb.chill/pr-5016.exp @@ -34,7 +34,7 @@ if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 diff --git a/gdb/testsuite/gdb.chill/pr-5020.exp b/gdb/testsuite/gdb.chill/pr-5020.exp index 777f664..0f940ea 100644 --- a/gdb/testsuite/gdb.chill/pr-5020.exp +++ b/gdb/testsuite/gdb.chill/pr-5020.exp @@ -34,7 +34,7 @@ if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 @@ -61,7 +61,7 @@ proc do_tests {} { } proc test_pr_5020 {} { - global prompt + global gdb_prompt runto dummy_pr_5020 gdb_test_exact "print y" \ {= [('a'): [.l: 10, .b: TRUE], ('b'): [.l: 111, .b: FALSE]]} diff --git a/gdb/testsuite/gdb.chill/pr-5022.exp b/gdb/testsuite/gdb.chill/pr-5022.exp index e08c40b..d3a5435 100644 --- a/gdb/testsuite/gdb.chill/pr-5022.exp +++ b/gdb/testsuite/gdb.chill/pr-5022.exp @@ -34,7 +34,7 @@ if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 @@ -60,7 +60,7 @@ proc do_tests {} { } proc test_pr_5022 {} { - global prompt + global gdb_prompt runto dummy_pr_5022 gdb_test "p p" " = NULL" "print NULL pointer" gdb_test "continue "" diff --git a/gdb/testsuite/gdb.chill/pr-5646.exp b/gdb/testsuite/gdb.chill/pr-5646.exp index 3ef5524..00189a0 100644 --- a/gdb/testsuite/gdb.chill/pr-5646.exp +++ b/gdb/testsuite/gdb.chill/pr-5646.exp @@ -42,7 +42,7 @@ if { [compile "${srcfile} -g ${objfile2} -o ${binfile} ${CHILL_RT0} ${CHILL_LIB } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 diff --git a/gdb/testsuite/gdb.chill/pr-5984.exp b/gdb/testsuite/gdb.chill/pr-5984.exp index 5ae609c..206413e 100644 --- a/gdb/testsuite/gdb.chill/pr-5984.exp +++ b/gdb/testsuite/gdb.chill/pr-5984.exp @@ -34,7 +34,7 @@ if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 @@ -50,7 +50,7 @@ proc do_tests {} { gdb_test "break pr-5984.ch:6 "" send_gdb "run\n"; expect -re "Breakpoint .*pr-5984.ch:6" - expect -re "$prompt $" + expect -re "$gdb_prompt $" gdb_test "next" "Jason Dark.*" "next over Jason Dark" } diff --git a/gdb/testsuite/gdb.chill/pr-6292.exp b/gdb/testsuite/gdb.chill/pr-6292.exp index 9fa6f74..1fae71a 100644 --- a/gdb/testsuite/gdb.chill/pr-6292.exp +++ b/gdb/testsuite/gdb.chill/pr-6292.exp @@ -34,7 +34,7 @@ if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 @@ -49,7 +49,7 @@ proc do_tests {} { send_gdb "set language chill\n" ; gdb_test "break pr-6292.ch:15 "" - send_gdb "run\n"; expect -re "Breakpoint .*pr-6292.ch:15.*$prompt $" + send_gdb "run\n"; expect -re "Breakpoint .*pr-6292.ch:15.*$gdb_prompt $" gdb_test_exact "call klaus()" {here's klaus calling.} gdb_test {set fred(10, i)} {a was '10'; b was '12'.} gdb_test "print i" { = 13} "print i after call" diff --git a/gdb/testsuite/gdb.chill/pr-6632.exp b/gdb/testsuite/gdb.chill/pr-6632.exp index 5baaded..f6eb144 100644 --- a/gdb/testsuite/gdb.chill/pr-6632.exp +++ b/gdb/testsuite/gdb.chill/pr-6632.exp @@ -43,7 +43,7 @@ if { [compile "${srcfile} ${objfile2} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 diff --git a/gdb/testsuite/gdb.chill/pr-8134.exp b/gdb/testsuite/gdb.chill/pr-8134.exp index 7f26991..a36e20e 100644 --- a/gdb/testsuite/gdb.chill/pr-8134.exp +++ b/gdb/testsuite/gdb.chill/pr-8134.exp @@ -43,7 +43,7 @@ if { [compile "${srcfile} -g ${objfile2} -o ${binfile} ${CHILL_RT0} ${CHILL_LIB } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 diff --git a/gdb/testsuite/gdb.chill/pr-8136.exp b/gdb/testsuite/gdb.chill/pr-8136.exp index 4fc0f7d..3dadf96 100644 --- a/gdb/testsuite/gdb.chill/pr-8136.exp +++ b/gdb/testsuite/gdb.chill/pr-8136.exp @@ -42,7 +42,7 @@ if { [compile "${srcfile} -g ${objfile2} -o ${binfile} ${CHILL_RT0} ${CHILL_LIB } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 diff --git a/gdb/testsuite/gdb.chill/pr-8405.exp b/gdb/testsuite/gdb.chill/pr-8405.exp index c21f961..bf9b433 100644 --- a/gdb/testsuite/gdb.chill/pr-8405.exp +++ b/gdb/testsuite/gdb.chill/pr-8405.exp @@ -24,7 +24,7 @@ if $tracelevel then { } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 diff --git a/gdb/testsuite/gdb.chill/pr-8742.exp b/gdb/testsuite/gdb.chill/pr-8742.exp index 9fbd1c3..d1ce5da 100644 --- a/gdb/testsuite/gdb.chill/pr-8742.exp +++ b/gdb/testsuite/gdb.chill/pr-8742.exp @@ -34,7 +34,7 @@ if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 diff --git a/gdb/testsuite/gdb.chill/pr-8894.exp b/gdb/testsuite/gdb.chill/pr-8894.exp index 0e3ceeb..90d5671 100644 --- a/gdb/testsuite/gdb.chill/pr-8894.exp +++ b/gdb/testsuite/gdb.chill/pr-8894.exp @@ -40,7 +40,7 @@ if { [compile "${srcfile} -g ${objfile2} -o ${binfile} ${CHILL_RT0} ${CHILL_LIB } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 diff --git a/gdb/testsuite/gdb.chill/pr-9095.exp b/gdb/testsuite/gdb.chill/pr-9095.exp index 1a5df3e..b5263e8 100644 --- a/gdb/testsuite/gdb.chill/pr-9095.exp +++ b/gdb/testsuite/gdb.chill/pr-9095.exp @@ -24,7 +24,7 @@ if $tracelevel then { } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 diff --git a/gdb/testsuite/gdb.chill/pr-9946.exp b/gdb/testsuite/gdb.chill/pr-9946.exp index 1897c6a..40d73b0 100644 --- a/gdb/testsuite/gdb.chill/pr-9946.exp +++ b/gdb/testsuite/gdb.chill/pr-9946.exp @@ -39,7 +39,7 @@ if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } # fails, then we skip the other tests. proc set_lang_chill {} { - global prompt + global gdb_prompt global binfile objdir subdir verbose "loading file '$binfile'" @@ -47,7 +47,7 @@ proc set_lang_chill {} { send_gdb "set language chill\n" expect { - -re ".*$prompt $" {} + -re ".*$gdb_prompt $" {} timeout { fail "set language chill (timeout)" ; return 0 } } diff --git a/gdb/testsuite/gdb.chill/result.exp b/gdb/testsuite/gdb.chill/result.exp index 492b007..397c1ed 100644 --- a/gdb/testsuite/gdb.chill/result.exp +++ b/gdb/testsuite/gdb.chill/result.exp @@ -34,7 +34,7 @@ if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 diff --git a/gdb/testsuite/gdb.chill/string.exp b/gdb/testsuite/gdb.chill/string.exp index 794fd73..f257a2a 100644 --- a/gdb/testsuite/gdb.chill/string.exp +++ b/gdb/testsuite/gdb.chill/string.exp @@ -32,7 +32,7 @@ if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 diff --git a/gdb/testsuite/gdb.chill/tests1.exp b/gdb/testsuite/gdb.chill/tests1.exp index 0109687..8a0be28 100644 --- a/gdb/testsuite/gdb.chill/tests1.exp +++ b/gdb/testsuite/gdb.chill/tests1.exp @@ -37,26 +37,26 @@ if { [compile "${srcfile} -g -w -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" # fails, then we skip the other tests. proc set_lang_chill {} { - global prompt + global gdb_prompt global binfile objdir subdir verbose "loading file '$binfile'" gdb_load $binfile send_gdb "set language chill\n" expect { - -re ".*$prompt $" {} + -re ".*$gdb_prompt $" {} timeout { fail "set language chill (timeout)" ; return 0 } } send_gdb "show language\n" expect { - -re ".* source language is \"chill\".*$prompt $" { + -re ".* source language is \"chill\".*$gdb_prompt $" { pass "set language to \"chill\"" send_gdb "break dummyfunc\n" expect { - -re ".*$prompt $" { + -re ".*$gdb_prompt $" { send_gdb "run\n" - expect -re ".*$prompt $" {} + expect -re ".*$gdb_prompt $" {} return 1 } timeout { @@ -65,7 +65,7 @@ proc set_lang_chill {} { } } } - -re ".*$prompt $" { + -re ".*$gdb_prompt $" { fail "setting language to \"chill\"" return 0 } @@ -90,7 +90,7 @@ proc set_lang_chill {} { # Third one is an optional message to be printed proc test_print_accept { args } { - global prompt + global gdb_prompt global passcount global verbose diff --git a/gdb/testsuite/gdb.chill/tests2.exp b/gdb/testsuite/gdb.chill/tests2.exp index 45f89b0..a162e31 100644 --- a/gdb/testsuite/gdb.chill/tests2.exp +++ b/gdb/testsuite/gdb.chill/tests2.exp @@ -45,7 +45,7 @@ if [istarget "i*86-*-sysv4*"] then { } proc set_lang_chill {} { - global prompt + global gdb_prompt global binfile objdir subdir if ![file exists $objdir/$subdir/$binfile] then { @@ -56,19 +56,19 @@ proc set_lang_chill {} { send_gdb "set language chill\n" expect { - -re ".*$prompt $" {} + -re ".*$gdb_prompt $" {} timeout { fail "set language chill (timeout)" ; return 0 } } send_gdb "show language\n" expect { - -re ".* source language is \"chill\".*$prompt $" { + -re ".* source language is \"chill\".*$gdb_prompt $" { pass "set language to \"chill\"" send_gdb "break dummyfunc\n" expect { - -re ".*$prompt $" { + -re ".*$gdb_prompt $" { send_gdb "run\n" - expect -re ".*$prompt $" {} + expect -re ".*$gdb_prompt $" {} return 1 } timeout { @@ -77,7 +77,7 @@ proc set_lang_chill {} { } } } - -re ".*$prompt $" { + -re ".*$gdb_prompt $" { fail "setting language to \"chill\"" return 0 } @@ -90,7 +90,7 @@ proc set_lang_chill {} { # checks if structure was accessed correctly proc test_write { args } { - global prompt + global gdb_prompt if [llength $args]==5 then { set message [lindex $args 4] @@ -117,7 +117,7 @@ proc test_write { args } { verbose "setting var $value..." send_gdb "set var $location.m$extended := $value\n" - expect -re ".*$prompt $" {} + expect -re ".*$gdb_prompt $" {} gdb_test "print $location" \ ".*= \[\[\]\\.p1: 2863311530, \\.m: $matchval, \\.p2: 1431655765\[\]\]"\ "$message" diff --git a/gdb/testsuite/gdb.chill/tuples.exp b/gdb/testsuite/gdb.chill/tuples.exp index 639a10e..ef2a4bf 100644 --- a/gdb/testsuite/gdb.chill/tuples.exp +++ b/gdb/testsuite/gdb.chill/tuples.exp @@ -34,7 +34,7 @@ if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } } proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile prompt + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt set prms_id 0 set bug_id 0 |