home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / gdb-4.9 / gdb / testsuite / gdb.t12 / scope.exp < prev    next >
Encoding:
Text File  |  1993-05-12  |  30.0 KB  |  1,056 lines
  1. # Copyright (C) 1992 Free Software Foundation, Inc.
  2.  
  3. # This program is free software; you can redistribute it and/or modify
  4. # it under the terms of the GNU General Public License as published by
  5. # the Free Software Foundation; either version 2 of the License, or
  6. # (at your option) any later version.
  7. # 
  8. # This program is distributed in the hope that it will be useful,
  9. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11. # GNU General Public License for more details.
  12. # 
  13. # You should have received a copy of the GNU General Public License
  14. # along with this program; if not, write to the Free Software
  15. # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  16.  
  17. # Please email any bugs, comments, and/or additions to this file to:
  18. # bug-gdb@prep.ai.mit.edu
  19.  
  20. # This file was written by Fred Fish. (fnf@cygnus.com)
  21.  
  22. if $tracelevel then {
  23.     strace $tracelevel
  24. }
  25.  
  26. set prms_id 0
  27. set bug_id 0
  28.  
  29. set binfile "gdbme"
  30. set srcfile $binfile.c
  31.  
  32. if ![file exists $objdir/$subdir/$binfile] then {
  33.     error "$objdir/$subdir/$binfile does not exist."
  34.     alldone
  35. }
  36.  
  37. # Test locating various things when stopped just inside main, after
  38. # running init().  To prevent cascading of errors, we report the
  39. # first one and quit.  If all pass, then we print the pass results.
  40.  
  41. proc test_at_main {} {
  42.     global prompt
  43.     global decimal
  44.     global det_file
  45.     global srcdir
  46.     global subdir
  47.  
  48.     set passcount 0
  49.  
  50.     # skip past init.  There may be a call to __main at the start of
  51.     # main, so the first next may only get us to the init call.
  52.     send "next\n"
  53.     expect {
  54.     -re "$decimal.*foo \(\);\r\n$prompt $" {}
  55.     -re "$decimal.*init \(\);\r\n$prompt $"\
  56.         { send "next\n" ; continue -expect }
  57.     -re "$prompt $" { fail "next over init() in main" ; return }
  58.     timeout { fail "(timeout) next over init() in main" ; return }
  59.     }
  60.  
  61.     # Print gdbme0.c::filelocal, which is 1
  62.  
  63.     send "print filelocal\n"
  64.     expect {
  65.     -re "\\\$$decimal = 1\r\n$prompt $" { incr passcount }
  66.     -re "$prompt $" { fail "print filelocal" ; return }
  67.     timeout {
  68.         fail "(timeout) print filelocal" ; return
  69.     }
  70.     }
  71.  
  72.     # The RS/6000 does not seem to be handle print 'file'::var.
  73.     setup_xfail "rs6000-*-*" 1806
  74.     # This used to work, but is now broken for some reason.
  75.     setup_xfail "*-*-*"
  76.     send "print 'gdbme0.c'::filelocal\n"
  77.     expect {
  78.     -re "\\\$$decimal = 1\r\n$prompt $" { incr passcount }
  79.     -re "No symbol \"gdbme0.c\" in current context.*$prompt $" {
  80.         send "print '$srcdir/$subdir/gdbme0.c'::filelocal\n"
  81.         continue -expect
  82.     }
  83.     -re "$prompt $" { fail "print 'gdbme0.c'::filelocal" ; return }
  84.     timeout {
  85.         fail "(timeout) print 'gdbme0.c'::filelocal" ; return
  86.     }
  87.     }
  88.  
  89.     # Print gdbme0.c::filelocal_bss, which is 101
  90.  
  91.     send "print filelocal_bss\n"
  92.     expect {
  93.     -re "\\\$$decimal = 101\r\n$prompt $" { incr passcount }
  94.     -re "$prompt $" { print filelocal_bss" ; return }
  95.     timeout {
  96.         fail "(timeout) print filelocal_bss" ; return
  97.     }
  98.     }
  99.  
  100.     setup_xfail "rs6000-*-*" 1806
  101.     send "print 'gdbme0.c'::filelocal_bss\n"
  102.     expect {
  103.     -re "\\\$$decimal = 101\r\n$prompt $" { incr passcount }
  104.     -re "No symbol \"gdbme0.c\" in current context.*$prompt $" {
  105.         send "print '$srcdir/$subdir/gdbme0.c'::filelocal_bss\n"
  106.         continue -expect
  107.     }
  108.     -re "$prompt $" { fail "print 'gdbme0.c'::filelocal_bss" ; return }
  109.     timeout {
  110.         fail "(timeout) print 'gdbme0.c'::filelocal_bss" ; return
  111.     }
  112.     }
  113.  
  114.     # Print gdbme0.c::filelocal_ro, which is 201
  115.  
  116.     send "print filelocal_ro\n"
  117.     expect {
  118.     -re "\\\$$decimal = 201\r\n$prompt $" { incr passcount }
  119.     -re "$prompt $" { fail "print filelocal_ro" ; return }
  120.     timeout {
  121.         fail "(timeout) print filelocal_ro" ; return
  122.     }
  123.     }
  124.  
  125.     setup_xfail "rs6000-*-*" 1806
  126.     send "print 'gdbme0.c'::filelocal_ro\n"
  127.     expect {
  128.     -re "\\\$$decimal = 201\r\n$prompt $" { incr passcount }
  129.     -re "No symbol \"gdbme0.c\" in current context.*$prompt $" {
  130.         send "print '$srcdir/$subdir/gdbme0.c'::filelocal_ro\n"
  131.         continue -expect
  132.     }
  133.     -re "$prompt $" { fail "print 'gdbme0.c'::filelocal_ro" ; return }
  134.     timeout {
  135.         fail "(timeout) print 'gdbme0.c'::filelocal_ro" ; return
  136.     }
  137.     }
  138.  
  139.     # Print gdbme1.c::filelocal, which is 2
  140.  
  141.     setup_xfail "rs6000-*-*" 1806
  142.     send "print 'gdbme1.c'::filelocal\n"
  143.     expect {
  144.     -re "\\\$$decimal = 2\r\n$prompt $" { incr passcount }
  145.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  146.         send "print '$srcdir/$subdir/gdbme1.c'::filelocal\n"
  147.         continue -expect
  148.     }
  149.     -re "$prompt $" { fail "print 'gdbme1.c'::filelocal" ; return }
  150.     timeout {
  151.         fail "(timeout) print 'gdbme1.c'::filelocal" ; return
  152.     }
  153.     }
  154.  
  155.     # Print gdbme1.c::filelocal_bss, which is 102
  156.  
  157.     setup_xfail "rs6000-*-*" 1806
  158.     send "print 'gdbme1.c'::filelocal_bss\n"
  159.     expect {
  160.     -re "\\\$$decimal = 102\r\n$prompt $" { incr passcount }
  161.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  162.         send "print '$srcdir/$subdir/gdbme1.c'::filelocal_bss\n"
  163.         continue -expect
  164.     }
  165.     -re "$prompt $" { fail "print 'gdbme1.c'::filelocal_bss" ; return }
  166.     timeout {
  167.         fail "(timeout) print 'gdbme1.c'::filelocal_bss" ; return
  168.     }
  169.     }
  170.  
  171.     # Print gdbme1.c::filelocal_ro, which is 202
  172.  
  173.     setup_xfail "rs6000-*-*" 1806
  174.     send "print 'gdbme1.c'::filelocal_ro\n"
  175.     expect {
  176.     -re "\\\$$decimal = 202\r\n$prompt $" { incr passcount }
  177.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  178.         send "print '$srcdir/$subdir/gdbme1.c'::filelocal_ro\n"
  179.         continue -expect
  180.     }
  181.     -re "$prompt " {fail "print 'gdbme1.c'::filelocal_ro" ; return }
  182.     timeout {
  183.         fail "(timeout) print 'gdbme1.c'::filelocal_ro" ; return
  184.     }
  185.     }
  186.  
  187.     # Print gdbme1.c::foo::funclocal, which is 3
  188.  
  189.     setup_xfail "mips-*-*" 1843
  190.     send "print foo::funclocal\n"
  191.     expect {
  192.     -re "\\\$$decimal = 3\r\n$prompt $" { incr passcount }
  193.     -re "$prompt $" { fail "print foo::funclocal" ; return }
  194.     timeout {
  195.         fail "(timeout) print foo::funclocal" ; return
  196.     }
  197.     }
  198.  
  199.     setup_xfail "rs6000-*-*" 1806
  200.     send "print 'gdbme1.c'::foo::funclocal\n"
  201.     expect {
  202.     -re "\\\$$decimal = 3\r\n$prompt $" { incr passcount }
  203.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  204.         send "print '$srcdir/$subdir/gdbme1.c'::foo::funclocal\n"
  205.         continue -expect
  206.     }
  207.     -re "$prompt $" { fail "print 'gdbme1.c'::foo::funclocal" ; return }
  208.     timeout {
  209.         fail "(timeout) print 'gdbme1.c'::foo::funclocal" ; return
  210.     }
  211.     }
  212.  
  213.     # Print gdbme1.c::foo::funclocal_ro, which is 203
  214.  
  215.     send "print foo::funclocal_ro\n"
  216.     expect {
  217.     -re "\\\$$decimal = 203\r\n$prompt $" { incr passcount }
  218.     -re "$prompt $" { fail "print foo::funclocal_ro" ; return }
  219.     timeout {
  220.         fail "(timeout) print foo::funclocal_ro" ; return
  221.     }
  222.     }
  223.  
  224.     setup_xfail "rs6000-*-*" 1806
  225.     send "print 'gdbme1.c'::foo::funclocal_ro\n"
  226.     expect {
  227.     -re "\\\$$decimal = 203\r\n$prompt $" { incr passcount }
  228.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  229.         send "print '$srcdir/$subdir/gdbme1.c'::foo::funclocal_ro\n"
  230.         continue -expect
  231.     }
  232.     -re "$prompt $" { fail "print 'gdbme1.c'::foo::funclocal_ro" ; return }
  233.     timeout {
  234.         fail "(timeout) print 'gdbme1.c'::foo::funclocal_ro" ; return
  235.     }
  236.     }
  237.  
  238.     # Print gdbme1.c::bar::funclocal, which is 4
  239.  
  240.     send "print bar::funclocal\n"
  241.     expect {
  242.     -re "\\\$$decimal = 4\r\n$prompt $" { incr passcount }
  243.     -re "$prompt $" { fail "print bar::funclocal" ; return }
  244.     timeout {
  245.         fail "(timeout) print bar::funclocal" ; return
  246.     }
  247.     }
  248.  
  249.     setup_xfail "rs6000-*-*" 1806
  250.     send "print 'gdbme1.c'::bar::funclocal\n"
  251.     expect {
  252.     -re "\\\$$decimal = 4\r\n$prompt $" { incr passcount }
  253.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  254.         send "print '$srcdir/$subdir/gdbme1.c'::bar::funclocal\n"
  255.         continue -expect
  256.     }
  257.     -re "$prompt $" { fail "print 'gdbme1.c'::bar::funclocal" ; return }
  258.     timeout {
  259.         fail "print 'gdbme1.c'::bar::funclocal" ; return
  260.     }
  261.     }
  262.  
  263.     pass "$passcount correct scope resolutions from main()"
  264. }
  265.  
  266. proc test_at_foo {} {
  267.     global prompt
  268.     global decimal
  269.     global det_file
  270.     global srcdir
  271.     global subdir
  272.  
  273.     set passcount 0
  274.  
  275.     send "next\n"
  276.     expect {
  277.     -re ".*bar \(\);\r\n$prompt $" {}
  278.     -re "$prompt $" { fail "continue to foo()" ; return }
  279.     timeout { fail "(timeout) continue to foo()" ; return }
  280.     }
  281.  
  282.     # Print gdbme0.c::filelocal, which is 1
  283.  
  284.     setup_xfail "rs6000-*-*" 1806
  285.     # This used to work, but is now broken for some reason.
  286.     setup_xfail "*-*-*"
  287.     send "print 'gdbme0.c'::filelocal\n"
  288.     expect {
  289.     -re "\\\$$decimal = 1\r\n$prompt $" { incr passcount }
  290.     -re "No symbol \"gdbme0.c\" in current context.*$prompt $" {
  291.         send "print '$srcdir/$subdir/gdbme0.c'::filelocal\n"
  292.         continue -expect
  293.     }
  294.     -re "$prompt $" { fail "print 'gdbme0.c'::filelocal" ; return }
  295.     timeout {
  296.         fail "(timeout) print 'gdbme0.c'::filelocal" ; return
  297.     }
  298.     }
  299.  
  300.    # Print gdbme0.c::filelocal_bss, which is 101
  301.  
  302.     setup_xfail "rs6000-*-*" 1806
  303.     send "print 'gdbme0.c'::filelocal_bss\n"
  304.     expect {
  305.     -re "\\\$$decimal = 101\r\n$prompt $" { incr passcount }
  306.     -re "No symbol \"gdbme0.c\" in current context.*$prompt $" {
  307.         send "print '$srcdir/$subdir/gdbme0.c'::filelocal_bss\n"
  308.         continue -expect
  309.     }
  310.     -re "$prompt $" { fail "print 'gdbme0.c'::filelocal_bss" ; return }
  311.     timeout {
  312.         fail "(timeout) print 'gdbme0.c'::filelocal_bss" ; return
  313.     }
  314.     }
  315.  
  316.    # Print gdbme0.c::filelocal_ro, which is 201
  317.  
  318.     setup_xfail "rs6000-*-*" 1806
  319.     send "print 'gdbme0.c'::filelocal_ro\n"
  320.     expect {
  321.     -re "\\\$$decimal = 201\r\n$prompt $" { incr passcount }
  322.     -re "No symbol \"gdbme0.c\" in current context.*$prompt $" {
  323.         send "print '$srcdir/$subdir/gdbme0.c'::filelocal_ro\n"
  324.         continue -expect
  325.     }
  326.     -re "$prompt $" { fail "print 'gdbme0.c'::filelocal_ro" ; return }
  327.     timeout {
  328.         fail "(timeout) print 'gdbme0.c'::filelocal_ro" ; return
  329.     }
  330.     }
  331.  
  332.     # Print gdbme1.c::filelocal, which is 2
  333.  
  334.     send "print filelocal\n"
  335.     expect {
  336.     -re "\\\$$decimal = 2\r\n$prompt $" { incr passcount }
  337.     -re "$prompt $" { fail "print filelocal" ; return }
  338.     timeout {
  339.         fail "(timeout) print filelocal" ; return
  340.     }
  341.     }
  342.  
  343.     setup_xfail "rs6000-*-*" 1806
  344.     send "print 'gdbme1.c'::filelocal\n"
  345.     expect {
  346.     -re "\\\$$decimal = 2\r\n$prompt $" { incr passcount }
  347.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  348.         send "print '$srcdir/$subdir/gdbme1.c'::filelocal\n"
  349.         continue -expect
  350.     }
  351.     -re "$prompt $" { fail "print 'gdbme1.c'::filelocal" ; return }
  352.     timeout {
  353.         fail "(timeout) print 'gdbme1.c'::filelocal" ; return
  354.     }
  355.     }
  356.  
  357.     # Print gdbme1.c::filelocal_bss, which is 102
  358.  
  359.     send "print filelocal_bss\n"
  360.     expect {
  361.     -re "\\\$$decimal = 102\r\n$prompt $" { incr passcount }
  362.     -re "$prompt $" { fail "print filelocal_bss" ; return }
  363.     timeout {
  364.         fail "(timeout) print filelocal_bss" ; return
  365.     }
  366.     }
  367.  
  368.     setup_xfail "rs6000-*-*" 1806
  369.     send "print 'gdbme1.c'::filelocal_bss\n"
  370.     expect {
  371.     -re "\\\$$decimal = 102\r\n$prompt $" { incr passcount }
  372.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  373.         send "print '$srcdir/$subdir/gdbme1.c'::filelocal_bss\n"
  374.         continue -expect
  375.     }
  376.     -re "$prompt $" { fail "print 'gdbme1.c'::filelocal_bss" ; return }
  377.     timeout {
  378.         fail "(timeout) print 'gdbme1.c'::filelocal_bss" ; return
  379.     }
  380.     }
  381.  
  382.     # Print gdbme1.c::filelocal_ro, which is 202
  383.  
  384.     send "print filelocal_ro\n"
  385.     expect {
  386.     -re "\\\$$decimal = 202\r\n$prompt $" { incr passcount }
  387.     -re "$prompt $" { fail "print filelocal_ro" ; return }
  388.     timeout {
  389.         fail "(timeout) print filelocal_ro" ; return
  390.     }
  391.     }
  392.  
  393.     setup_xfail "rs6000-*-*" 1806
  394.     send "print 'gdbme1.c'::filelocal_ro\n"
  395.     expect {
  396.     -re "\\\$$decimal = 202\r\n$prompt $" { incr passcount }
  397.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  398.         send "print '$srcdir/$subdir/gdbme1.c'::filelocal_ro\n"
  399.         continue -expect
  400.     }
  401.     -re "$prompt $" { fail "print 'gdbme1.c'::filelocal_ro" ; return }
  402.     timeout {
  403.         fail "(timeout) print 'gdbme1.c'::filelocal_ro" ; return
  404.     }
  405.     }
  406.  
  407.     # Print gdbme1.c::foo::funclocal, which is 3
  408.  
  409.     send "print funclocal\n"
  410.     expect {
  411.     -re "\\\$$decimal = 3\r\n$prompt $" { incr passcount }
  412.     -re "$prompt $" { fail "print funclocal" ; return }
  413.     timeout {
  414.         fail "(timeout) print funclocal" ; return
  415.     }
  416.     }
  417.  
  418.     setup_xfail "mips-*-*" 1843
  419.     send "print foo::funclocal\n"
  420.     expect {
  421.     -re "\\\$$decimal = 3\r\n$prompt $" { incr passcount }
  422.     -re "$prompt $" { fail "print foo::funclocal" ; return }
  423.     timeout {
  424.         fail "(timeout) print foo::funclocal" ; return
  425.     }
  426.     }
  427.  
  428.     setup_xfail "rs6000-*-*" 1806
  429.     send "print 'gdbme1.c'::foo::funclocal\n"
  430.     expect {
  431.     -re "\\\$$decimal = 3\r\n$prompt $" { incr passcount }
  432.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  433.         send "print '$srcdir/$subdir/gdbme1.c'::foo::funclocal\n"
  434.         continue -expect
  435.     }
  436.     -re "$prompt $" { fail "print 'gdbme1.c'::foo::funclocal" ; return }
  437.     timeout {
  438.         fail "(timeout) print 'gdbme1.c'::foo::funclocal" ; return
  439.     }
  440.     }
  441.  
  442.     # Print gdbme1.c::foo::funclocal_bss, which is 103
  443.  
  444.     send "print funclocal_bss\n"
  445.     expect {
  446.     -re "\\\$$decimal = 103\r\n$prompt $" { incr passcount }
  447.     -re "$prompt $" { fail "print funclocal_bss" ; return }
  448.     timeout {
  449.         fail "(timeout) print funclocal_bss" ; return
  450.     }
  451.     }
  452.  
  453.     send "print foo::funclocal_bss\n"
  454.     expect {
  455.     -re "\\\$$decimal = 103\r\n$prompt $" { incr passcount }
  456.     -re "$prompt $" { fail "print foo::funclocal_bss" ; return }
  457.     timeout {
  458.         fail "(timeout) print foo::funclocal_bss" ; return
  459.     }
  460.     }
  461.  
  462.     setup_xfail "rs6000-*-*" 1806
  463.     send "print 'gdbme1.c'::foo::funclocal_bss\n"
  464.     expect {
  465.     -re "\\\$$decimal = 103\r\n$prompt $" { incr passcount }
  466.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  467.         send "print '$srcdir/$subdir/gdbme1.c'::foo::funclocal_bss\n"
  468.         continue -expect
  469.     }
  470.     -re "$prompt $" { fail "print 'gdbme1.c'::foo::funclocal_bss" ; return }
  471.     timeout {
  472.         fail "(timeout) print 'gdbme1.c'::foo::funclocal_bss" ; return
  473.     }
  474.     }
  475.  
  476.     # Print gdbme1.c::foo::funclocal_ro, which is 203
  477.  
  478.     send "print funclocal_ro\n"
  479.     expect {
  480.     -re "\\\$$decimal = 203\r\n$prompt $" { incr passcount }
  481.     -re "$prompt $" { fail "print funclocal_ro" ; return }
  482.     timeout {
  483.         fail "(timeout) print funclocal_ro" ; return
  484.     }
  485.     }
  486.  
  487.     send "print foo::funclocal_ro\n"
  488.     expect {
  489.     -re "\\\$$decimal = 203\r\n$prompt $" { incr passcount }
  490.     -re "$prompt $" { fail "print foo::funclocal_ro" ; return }
  491.     timeout {
  492.         fail "(timeout) print foo::funclocal_ro" ; return
  493.     }
  494.     }
  495.  
  496.     setup_xfail "rs6000-*-*" 1806
  497.     send "print 'gdbme1.c'::foo::funclocal_ro\n"
  498.     expect {
  499.     -re "\\\$$decimal = 203\r\n$prompt $" { incr passcount }
  500.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  501.         send "print '$srcdir/$subdir/gdbme1.c'::foo::funclocal_ro\n"
  502.         continue -expect
  503.     }
  504.     -re "$prompt $" { fail "print 'gdbme1.c'::foo::funclocal_ro" ; return }
  505.     timeout {
  506.         fail "(timeout) print 'gdbme1.c'::foo::funclocal_ro" ; return
  507.     }
  508.     }
  509.  
  510.     # Print gdbme1.c::bar::funclocal, which is 4
  511.  
  512.     send "print bar::funclocal\n"
  513.     expect {
  514.     -re "\\\$$decimal = 4\r\n$prompt $" { incr passcount }
  515.     -re "$prompt $" { fail "print bar::funclocal" ; return }
  516.     timeout {
  517.         fail "(timeout) print bar::funclocal" ; return
  518.     }
  519.     }
  520.  
  521.     setup_xfail "rs6000-*-*" 1806
  522.     send "print 'gdbme1.c'::bar::funclocal\n"
  523.     expect {
  524.     -re "\\\$$decimal = 4\r\n$prompt $" { incr passcount }
  525.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  526.         send "print '$srcdir/$subdir/gdbme1.c'::bar::funclocal\n"
  527.         continue -expect
  528.     }
  529.     -re "$prompt $" { fail "print 'gdbme1.c'::bar::funclocal" ; return }
  530.     timeout {
  531.         fail "(timeout) print 'gdbme1.c'::bar::funclocal" ; return
  532.     }
  533.     }
  534.  
  535.     pass "$passcount correct scope resolutions from foo()"
  536. }
  537.  
  538. proc test_at_bar {} {
  539.     global prompt
  540.     global decimal
  541.     global det_file
  542.     global srcdir
  543.     global subdir
  544.  
  545.     set passcount 0
  546.  
  547.     send "next\n"
  548.     expect {
  549.     -re ".*$prompt $" {}
  550.     timeout { fail "next in bar()" ; return }
  551.     }
  552.  
  553.     # Print gdbme0.c::filelocal, which is 1
  554.  
  555.     setup_xfail "rs6000-*-*" 1806
  556.     # This used to work, but is now broken for some reason.
  557.     setup_xfail "*-*-*"
  558.     send "print 'gdbme0.c'::filelocal\n"
  559.     expect {
  560.     -re "\\\$$decimal = 1\r\n$prompt $" { incr passcount }
  561.     -re "No symbol \"gdbme0.c\" in current context.*$prompt $" {
  562.         send "print '$srcdir/$subdir/gdbme0.c'::filelocal\n"
  563.         continue -expect
  564.     }
  565.     -re "$prompt $" { fail "print 'gdbme0.c'::filelocal" ; return }
  566.     timeout {
  567.         fail "(timeout) print 'gdbme0.c'::filelocal" ; return
  568.     }
  569.     }
  570.  
  571.    # Print gdbme0.c::filelocal_bss, which is 101
  572.  
  573.     setup_xfail "rs6000-*-*" 1806
  574.     send "print 'gdbme0.c'::filelocal_bss\n"
  575.     expect {
  576.     -re "\\\$$decimal = 101\r\n$prompt $" { incr passcount }
  577.     -re "No symbol \"gdbme0.c\" in current context.*$prompt $" {
  578.         send "print '$srcdir/$subdir/gdbme0.c'::filelocal_bss\n"
  579.         continue -expect
  580.     }
  581.     -re "$prompt $" { fail "print 'gdbme0.c'::filelocal_bss" ; return }
  582.     timeout {
  583.         fail "(timeout) print 'gdbme0.c'::filelocal_bss" ; return
  584.     }
  585.     }
  586.  
  587.    # Print gdbme0.c::filelocal_ro, which is 201
  588.  
  589.     setup_xfail "rs6000-*-*" 1806
  590.     send "print 'gdbme0.c'::filelocal_ro\n"
  591.     expect {
  592.     -re "\\\$$decimal = 201\r\n$prompt $" { incr passcount }
  593.     -re "No symbol \"gdbme0.c\" in current context.*$prompt $" {
  594.         send "print '$srcdir/$subdir/gdbme0.c'::filelocal_ro\n"
  595.         continue -expect
  596.     }
  597.     -re "$prompt $" { fail "print 'gdbme0.c'::filelocal_ro" ; return }
  598.     timeout {
  599.         fail "(timeout) print 'gdbme0.c'::filelocal_ro" ; return
  600.     }
  601.     }
  602.  
  603.     # Print gdbme1.c::filelocal, which is 2
  604.  
  605.     send "print filelocal\n"
  606.     expect {
  607.     -re "\\\$$decimal = 2\r\n$prompt $" { incr passcount }
  608.     -re "$prompt $" { fail "print filelocal" ; return }
  609.     timeout {
  610.         fail "(timeout) print filelocal" ; return
  611.     }
  612.     }
  613.  
  614.     setup_xfail "rs6000-*-*" 1806
  615.     send "print 'gdbme1.c'::filelocal\n"
  616.     expect {
  617.     -re "\\\$$decimal = 2\r\n$prompt $" { incr passcount }
  618.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  619.         send "print '$srcdir/$subdir/gdbme1.c'::filelocal\n"
  620.         continue -expect
  621.     }
  622.     -re "$prompt $" { fail "print 'gdbme1.c'::filelocal" ; return }
  623.     timeout {
  624.         fail "(timeout) print 'gdbme1.c'::filelocal" ; return
  625.     }
  626.     }
  627.  
  628.     # Print gdbme1.c::filelocal_bss, which is 102
  629.  
  630.     send "print filelocal_bss\n"
  631.     expect {
  632.     -re "\\\$$decimal = 102\r\n$prompt $" { incr passcount }
  633.     -re "$prompt $" { fail "print filelocal_bss" ; return }
  634.     timeout {
  635.         fail "(timeout) print filelocal_bss" ; return
  636.     }
  637.     }
  638.  
  639.     setup_xfail "rs6000-*-*" 1806
  640.     send "print 'gdbme1.c'::filelocal_bss\n"
  641.     expect {
  642.     -re "\\\$$decimal = 102\r\n$prompt $" { incr passcount }
  643.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  644.         send "print '$srcdir/$subdir/gdbme1.c'::filelocal_bss\n"
  645.         continue -expect
  646.     }
  647.     -re "$prompt $" { fail "print 'gdbme1.c'::filelocal_bss" ; return }
  648.     timeout {
  649.         fail "(timeout) print 'gdbme1.c'::filelocal_bss" ; return
  650.     }
  651.     }
  652.  
  653.     # Print gdbme1.c::filelocal_ro, which is 202
  654.  
  655.     send "print filelocal_ro\n"
  656.     expect {
  657.     -re "\\\$$decimal = 202\r\n$prompt $" { incr passcount }
  658.     -re "$prompt $" { fail "print filelocal_ro" ; return }
  659.     timeout {
  660.         fail "(timeout) print filelocal_ro" ; return
  661.     }
  662.     }
  663.  
  664.     setup_xfail "rs6000-*-*" 1806
  665.     send "print 'gdbme1.c'::filelocal_ro\n"
  666.     expect {
  667.     -re "\\\$$decimal = 202\r\n$prompt $" { incr passcount }
  668.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  669.         send "print '$srcdir/$subdir/gdbme1.c'::filelocal_ro\n"
  670.         continue -expect
  671.     }
  672.     -re "$prompt $" { fail "print 'gdbme1.c'::filelocal_ro" ; return }
  673.     timeout {
  674.         fail "(timeout) print 'gdbme1.c'::filelocal_ro" ; return
  675.     }
  676.     }
  677.  
  678.     # Print gdbme1.c::foo::funclocal, which is 3
  679.  
  680.     setup_xfail "mips-*-*" 1843
  681.     send "print foo::funclocal\n"
  682.     expect {
  683.     -re "\\\$$decimal = 3\r\n$prompt $" { incr passcount }
  684.     -re "$prompt $" { fail "print foo::funclocal" ; return }
  685.     timeout {
  686.         fail "(timeout) print foo::funclocal" ; return
  687.     }
  688.     }
  689.  
  690.     setup_xfail "rs6000-*-*" 1806
  691.     send "print 'gdbme1.c'::foo::funclocal\n"
  692.     expect {
  693.     -re "\\\$$decimal = 3\r\n$prompt $" { incr passcount }
  694.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  695.         send "print '$srcdir/$subdir/gdbme1.c'::foo::funclocal\n"
  696.         continue -expect
  697.     }
  698.     -re "$prompt $" { fail "print 'gdbme1.c'::foo::funclocal" ; return }
  699.     timeout {
  700.         fail "(timeout) print 'gdbme1.c'::foo::funclocal" ; return
  701.     }
  702.     }
  703.  
  704.     # Print gdbme1.c::foo::funclocal_bss, which is 103
  705.  
  706.     send "print foo::funclocal_bss\n"
  707.     expect {
  708.     -re "\\\$$decimal = 103\r\n$prompt $" { incr passcount }
  709.     -re "$prompt $" { fail "print foo::funclocal_bss" ; return }
  710.     timeout {
  711.         fail "(timeout) print foo::funclocal_bss" ; return
  712.     }
  713.     }
  714.  
  715.     setup_xfail "rs6000-*-*" 1806
  716.     send "print 'gdbme1.c'::foo::funclocal_bss\n"
  717.     expect {
  718.     -re "\\\$$decimal = 103\r\n$prompt $" { incr passcount }
  719.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  720.         send "print '$srcdir/$subdir/gdbme1.c'::foo::funclocal_bss\n"
  721.         continue -expect
  722.     }
  723.     -re "$prompt $" { fail "print 'gdbme1.c'::foo::funclocal_bss" ; return }
  724.     timeout {
  725.         fail "(timeout) print 'gdbme1.c'::foo::funclocal_bss" ; return
  726.     }
  727.     }
  728.  
  729.     # Print gdbme1.c::foo::funclocal_ro, which is 203
  730.  
  731.     send "print foo::funclocal_ro\n"
  732.     expect {
  733.     -re "\\\$$decimal = 203\r\n$prompt $" { incr passcount }
  734.     -re "$prompt $" { fail "print foo::funclocal_ro" ; return }
  735.     timeout {
  736.         fail "(timeout) print foo::funclocal_ro" ; return
  737.     }
  738.     }
  739.  
  740.     setup_xfail "rs6000-*-*" 1806
  741.     send "print 'gdbme1.c'::foo::funclocal_ro\n"
  742.     expect {
  743.     -re "\\\$$decimal = 203\r\n$prompt $" { incr passcount }
  744.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  745.         send "print '$srcdir/$subdir/gdbme1.c'::foo::funclocal_ro\n"
  746.         continue -expect
  747.     }
  748.     -re "$prompt $" { fail "print 'gdbme1.c'::foo::funclocal_ro" ; return }
  749.     timeout {
  750.         fail "(timeout) print 'gdbme1.c'::foo::funclocal_ro" ; return
  751.     }
  752.     }
  753.  
  754.     # Print gdbme1.c::bar::funclocal, which is 4
  755.  
  756.     send "print funclocal\n"
  757.     expect {
  758.     -re "\\\$$decimal = 4\r\n$prompt $" { incr passcount }
  759.     -re "$prompt $" { fail "print funclocal" ; return }
  760.     timeout {
  761.         fail "(timeout) print funclocal" ; return
  762.     }
  763.     }
  764.  
  765.     send "print bar::funclocal\n"
  766.     expect {
  767.     -re "\\\$$decimal = 4\r\n$prompt $" { incr passcount }
  768.     -re "$prompt $" { fail "print bar::funclocal" ; return }
  769.     timeout {
  770.         fail "(timeout) print bar::funclocal" ; return
  771.     }
  772.     }
  773.  
  774.     setup_xfail "rs6000-*-*" 1806
  775.     send "print 'gdbme1.c'::bar::funclocal\n"
  776.     expect {
  777.     -re "\\\$$decimal = 4\r\n$prompt $" { incr passcount }
  778.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  779.         send "print '$srcdir/$subdir/gdbme1.c'::bar::funclocal\n"
  780.         continue -expect
  781.     }
  782.     -re "$prompt $" { fail "print 'gdbme1.c'::bar::funclocal" ; return }
  783.     timeout {
  784.         fail "(timeout) print 'gdbme1.c'::bar::funclocal" ; return
  785.     }
  786.     }
  787.  
  788.     # Print gdbme1.c::bar::funclocal_bss, which is 104
  789.  
  790.     send "print funclocal_bss\n"
  791.     expect {
  792.     -re "\\\$$decimal = 104\r\n$prompt $" { incr passcount }
  793.     -re "$prompt $" { fail "print funclocal_bss" ; return }
  794.     timeout {
  795.         fail "(timeout) print funclocal_bss" ; return
  796.     }
  797.     }
  798.  
  799.     send "print bar::funclocal_bss\n"
  800.     expect {
  801.     -re "\\\$$decimal = 104\r\n$prompt $" { incr passcount }
  802.     -re "$prompt $" { fail "print bar::funclocal_bss" ; return }
  803.     timeout {
  804.         fail "(timeout) print bar::funclocal_bss" ; return
  805.     }
  806.     }
  807.  
  808.     setup_xfail "rs6000-*-*" 1806
  809.     send "print 'gdbme1.c'::bar::funclocal_bss\n"
  810.     expect {
  811.     -re "\\\$$decimal = 104\r\n$prompt $" { incr passcount }
  812.     -re "No symbol \"gdbme1.c\" in current context.*$prompt $" {
  813.         send "print '$srcdir/$subdir/gdbme1.c'::bar::funclocal_bss\n"
  814.         continue -expect
  815.     }
  816.     -re "$prompt $" { fail "print 'gdbme1.c'::bar::funclocal_bss" ; return }
  817.     timeout {
  818.         fail "(timeout) print 'gdbme1.c'::bar::funclocal_bss" ; return
  819.     }
  820.     }
  821.  
  822.     pass "$passcount correct scope resolutions from bar()"
  823. }
  824.  
  825. # FIXME:  This test was originally part of some local scope resolution
  826. # tests.  It probably belongs somewhere else now.
  827.  
  828. proc test_at_autovars {} {
  829.     global prompt
  830.     global decimal
  831.     global hex
  832.     global srcfile
  833.  
  834.     # Test symbol table lookup with 100 local (auto) variables.
  835.  
  836.     send "break marker1\n" ; expect -re ".*$prompt $"
  837.  
  838.     send "cont\n"
  839.     expect {
  840.     -re "Break.* marker1 \(\) at .*:$decimal.*$prompt $" {
  841.         send "up\n"
  842.         expect {
  843.         -re ".*$prompt $" {}
  844.         timeout { fail "up from marker1" ; return }
  845.         }
  846.     }
  847.     -re "$prompt $" { fail "continue to marker1" ; return }
  848.     timeout { fail "(timeout) continue to marker1" ; return }
  849.     }
  850.  
  851.     set count 0
  852.     while {$count < 100} {
  853.     send "print i$count\n"
  854.     expect {
  855.         -re ".* = $count\r\n$prompt $" {}
  856.         -re "$prompt $" {
  857.         fail "bad value for auto variable i$count"; return
  858.         }
  859.         timeout {
  860.         fail "(timeout) bad value for auto variable i$count"; return
  861.         }
  862.     }
  863.     set count [expr $count+1]
  864.     }
  865.     pass "$count auto variables correctly initialized"
  866. }
  867.  
  868. proc test_at_localscopes {} {
  869.     global prompt
  870.     global decimal
  871.     global hex
  872.     global srcfile
  873.  
  874.     set passcount 0
  875.  
  876.     send "break marker2\n" ; expect -re ".*$prompt $"
  877.     send "break marker3\n" ; expect -re ".*$prompt $"
  878.     send "break marker4\n" ; expect -re ".*$prompt $"
  879.  
  880.     send "cont\n"
  881.     expect {
  882.     -re "Break.* marker2 \(\) at .*:$decimal.*$prompt $" {
  883.         send "up\n"
  884.         expect {
  885.         -re ".*$prompt $" {}
  886.         timeout { fail "up from marker2" ; return }
  887.         }
  888.     }
  889.     -re "$prompt $" { fail "continue to marker2" ; return }
  890.     timeout { fail "(timeout) continue to marker2" ; return }
  891.     }
  892.  
  893.     # Should be at first (outermost) scope.  Check values.
  894.  
  895.     send "print localval\n"
  896.     expect {
  897.     -re ".* = 10\r\n$prompt $" { incr passcount }
  898.     -re "$prompt $" { fail "bad value for localval" ; return }
  899.     timeout { fail "(timeout) bad value for localval" ; return }
  900.     }
  901.     send "print localval1\n"
  902.     expect {
  903.     -re ".* = 11\r\n$prompt $" { incr passcount }
  904.     -re "$prompt $" { fail "bad value for localval1" ; return }
  905.     timeout { fail "(timeout) bad value for localval1" ; return }
  906.     }
  907.     send "print localval2\n"
  908.     expect {
  909.     -re "No symbol \"localval2\" in current context.\r\n$prompt $" {
  910.         incr passcount
  911.     }
  912.     -re "$prompt $" { fail "bad value for localval2" ; return }
  913.     timeout { fail "(timeout) bad value for localval2" ; return }
  914.     }
  915.     send "print localval3\n"
  916.     expect {
  917.     -re "No symbol \"localval3\" in current context.\r\n$prompt $" {
  918.         incr passcount
  919.     }
  920.     -re "$prompt $" { fail "bad value for localval3" ; return }
  921.     timeout { fail "(timeout) bad value for localval3" ; return }
  922.     }
  923.  
  924.     send "cont\n"
  925.     expect {
  926.     -re "Break.* marker3 \(\) at .*:$decimal.*$prompt $" {
  927.         send "up\n"
  928.         expect {
  929.         -re ".*$prompt $" {}
  930.         timeout { fail "up from marker3" ; return }
  931.         }
  932.     }
  933.     -re "$prompt $" { fail "continue to marker3" ; return }
  934.     timeout { fail "(timeout) continue to marker3" ; return }
  935.     }
  936.  
  937.     # Should be at next (first nested) scope.  Check values.
  938.  
  939.     send "print localval\n"
  940.     expect {
  941.     -re ".* = 20\r\n$prompt $" { incr passcount }
  942.     -re "$prompt $" { fail "bad value for localval" ; return }
  943.     timeout { fail "(timeout) bad value for localval" ; return }
  944.     }
  945.     send "print localval1\n"
  946.     expect {
  947.     -re ".* = 11\r\n$prompt $" { incr passcount }
  948.     -re "$prompt $" { fail "bad value for localval1" ; return }
  949.     timeout { fail "(timeout) bad value for localval1" ; return }
  950.     }
  951.     send "print localval2\n"
  952.     expect {
  953.     -re ".* = 12\r\n$prompt $" { incr passcount }
  954.     -re "$prompt $" { fail "bad value for localval2" ; return }
  955.     timeout { fail "(timeout) bad value for localval2" ; return }
  956.     }
  957.     send "print localval3\n"
  958.     expect {
  959.     -re "No symbol \"localval3\" in current context.\r\n$prompt $" {
  960.         incr passcount
  961.     }
  962.     -re "$prompt $" { fail "bad value for localval3" ; return }
  963.     timeout { fail "(timeout) bad value for localval3" ; return }
  964.     }
  965.  
  966.     # This test will only fail if the file was compiled by gcc, but
  967.     # there's no way to check that.
  968.     setup_xfail "mips-*-*" 1868
  969.     setup_xfail "a29k-*-udi" 2423
  970.     send "cont\n"
  971.     expect {
  972.     -re "Break.* marker4 \(\) at .*:$decimal.*$prompt $" {
  973.         send "up\n"
  974.         expect {
  975.         -re ".*$prompt $" {}
  976.         timeout { fail "up from marker4" ; return }
  977.         }
  978.     }
  979.     -re "$prompt $" { fail "continue to marker4" ; return }
  980.     timeout { fail "(timeout) continue to marker4" ; return }
  981.     }
  982.  
  983.     send "print localval\n"
  984.     expect {
  985.     -re ".* = 30\r\n$prompt $" { incr passcount }
  986.     -re "$prompt $" { fail "bad value for localval" ; return }
  987.     timeout { fail "(timeout) bad value for localval" ; return }
  988.     }
  989.     send "print localval1\n"
  990.     expect {
  991.     -re ".* = 11\r\n$prompt $" { incr passcount }
  992.     -re "$prompt $" { fail "bad value for localval1" ; return }
  993.     timeout { fail "(timeout) bad value for localval1" ; return }
  994.     }
  995.     send "print localval2\n"
  996.     expect {
  997.     -re ".* = 12\r\n$prompt $" { incr passcount }
  998.     -re "$prompt $" { fail "bad value for localval2" ; return }
  999.     timeout { fail "(timeout) bad value for localval2" ; return }
  1000.     }
  1001.     send "print localval3\n"
  1002.     expect {
  1003.     -re ".* = 13\r\n$prompt $" { incr passcount }
  1004.     -re "$prompt $" { fail "bad value for localval3" ; return }
  1005.     timeout { fail "(timeout) bad value for localval3" ; return }
  1006.     }
  1007.  
  1008.     pass "$passcount correct scope resolutions from localscopes()"
  1009. }
  1010.  
  1011. # Start with a fresh gdb.
  1012.  
  1013. gdb_exit
  1014. gdb_start
  1015. gdb_reinitialize_dir $srcdir/$subdir
  1016. gdb_load $objdir/$subdir/$binfile
  1017.  
  1018. if [istarget "*-*-vxworks"] {
  1019.     set timeout 120
  1020. }
  1021.  
  1022. if [runto main] then { test_at_main }
  1023. if [istarget "a29k-*-udi"] then {
  1024.     # FIXME: If PR 2415 is fixed, this is not needed.
  1025.     gdb_target_udi
  1026.     gdb_load $objdir/$subdir/$binfile
  1027. }
  1028. if [runto foo] then { test_at_foo }
  1029. if [istarget "a29k-*-udi"] then {
  1030.     # FIXME: If PR 2415 is fixed, this is not needed.
  1031.     gdb_target_udi
  1032.     gdb_load $objdir/$subdir/$binfile
  1033. }
  1034. if [runto bar] then { test_at_bar }
  1035. if [istarget "a29k-*-udi"] then {
  1036.     # FIXME: If PR 2415 is fixed, this is not needed.
  1037.     gdb_target_udi
  1038.     gdb_load $objdir/$subdir/$binfile
  1039. }
  1040. if [runto localscopes] then { test_at_localscopes }
  1041. if [istarget "a29k-*-udi"] then {
  1042.     # FIXME: If PR 2415 is fixed, this is not needed.
  1043.     gdb_target_udi
  1044.     gdb_load $objdir/$subdir/$binfile
  1045. }
  1046. if [runto autovars] then { test_at_autovars }
  1047.  
  1048. if [istarget "a29k-*-udi"] then {
  1049.     # FIXME: If PR 2415 is fixed, this is not needed.
  1050.     gdb_target_udi
  1051. }
  1052.  
  1053. if [istarget "*-*-vxworks"] {
  1054.     set timeout 120
  1055. }
  1056.