diff options
author | Jason Molenda <jmolenda@apple.com> | 1999-08-09 19:26:28 +0000 |
---|---|---|
committer | Jason Molenda <jmolenda@apple.com> | 1999-08-09 19:26:28 +0000 |
commit | 169f3bd8b5a070a3aa625ade6feb83361deb21e0 (patch) | |
tree | 879d79c65650e9f12653e546126002654957d0ad /gdb | |
parent | 0825afba5d859a8a0fb23a1e0949a7abc4095222 (diff) | |
download | gdb-169f3bd8b5a070a3aa625ade6feb83361deb21e0.zip gdb-169f3bd8b5a070a3aa625ade6feb83361deb21e0.tar.gz gdb-169f3bd8b5a070a3aa625ade6feb83361deb21e0.tar.bz2 |
1999-08-09 Jason Molenda (jsm@bugshack.cygnus.com)
* README-gdb, gdb/testsuite/gdb.c++/ref-types2.cc,
gdb/testsuite/gdb.c++/ref-types2.exp, readline/MANIFEST.doc,
readline/doc/inc-hist.texi: Removed in the 1999-08-02 snapshot.
Diffstat (limited to 'gdb')
-rw-r--r-- | gdb/testsuite/gdb.c++/ref-types2.cc | 47 | ||||
-rw-r--r-- | gdb/testsuite/gdb.c++/ref-types2.exp | 463 |
2 files changed, 0 insertions, 510 deletions
diff --git a/gdb/testsuite/gdb.c++/ref-types2.cc b/gdb/testsuite/gdb.c++/ref-types2.cc deleted file mode 100644 index 62c982d..0000000 --- a/gdb/testsuite/gdb.c++/ref-types2.cc +++ /dev/null @@ -1,47 +0,0 @@ -int f() -{ - int f1; - f1 = 1; - return f1; -} - -int main(void) -{ - char C; - unsigned char UC; - short S; - unsigned short US; - int I; - unsigned int UI; - long L; - unsigned long UL; - float F; - double D; - char &rC = C; - unsigned char &rUC = UC; - short &rS = S; - unsigned short &rUS = US; - int &rI = I; - unsigned int &rUI = UI; - long &rL = L; - unsigned long &rUL = UL; - float &rF = F; - double &rD = D; - C = 'A'; - UC = 21; - S = -14; - US = 7; - I = 102; - UI = 1002; - L = -234; - UL = 234; - F = 1.25E10; - D = -1.375E-123; - I = f(); - #ifdef usestubs - set_debug_traps(); - breakpoint(); - #endif - return 0; - -} diff --git a/gdb/testsuite/gdb.c++/ref-types2.exp b/gdb/testsuite/gdb.c++/ref-types2.exp deleted file mode 100644 index 5557721..0000000 --- a/gdb/testsuite/gdb.c++/ref-types2.exp +++ /dev/null @@ -1,463 +0,0 @@ -# Tests for reference types with elementary type variables in GDB. -# Copyright (C) 1998, 1999 Free Software Foundation, Inc. - -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -# Please email any bugs, comments, and/or additions to this file to: -# bug-gdb@prep.ai.mit.edu - -# written by Elena Zannoni (ezannoni@cygnus.com) - -if $tracelevel then { - strace $tracelevel - } - -# -# test running programs -# -set prms_id 0 -set bug_id 0 - -set testfile "ref-types2" -set srcfile ${testfile}.cc -set binfile ${objdir}/${subdir}/${testfile} - -if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } { - gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail." -} - -gdb_exit -gdb_start -gdb_reinitialize_dir $srcdir/$subdir -gdb_load ${binfile} - - -# -# set it up at a breakpoint so we can play with the variable values -# -if ![runto_main] then { - perror "couldn't run to breakpoint" - continue -} - -send_gdb "break f\n" ; gdb_expect -re ".*$gdb_prompt $" - - send_gdb "cont\n" - gdb_expect { - -re "Break.* f \\(\\) at .*:$decimal.*$gdb_prompt $" { - send_gdb "up\n" - gdb_expect { - -re ".*$gdb_prompt $" {} - timeout { fail "up from f" } - } - } - -re "$gdb_prompt $" { fail "continue to f" } - timeout { fail "(timeout) continue to f" } - } - - -send_gdb "print C\n" -gdb_expect { - -re ".\[0-9\]* = 65 \'A\'.*$gdb_prompt $" { - pass "print value of C" - } - -re ".*$gdb_prompt $" { fail "print value of C" } - timeout { fail "(timeout) print value of C" } - } - - -send_gdb "ptype C\n" -gdb_expect { - -re "type = char.*$gdb_prompt $" { pass "ptype C" } - -re ".*$gdb_prompt $" { fail "ptype C" } - timeout { fail "(timeout) ptype C" } -} - - -send_gdb "print UC\n" -gdb_expect { - -re ".\[0-9\]* = 21 '\.025'\.*$gdb_prompt $" { - pass "print value of UC" - } - -re ".*$gdb_prompt $" { fail "print value of UC" } - timeout { fail "(timeout) print value of UC" } - } - - -send_gdb "ptype UC\n" -gdb_expect { - -re "type = unsigned char.*$gdb_prompt $" { pass "ptype UC" } - -re ".*$gdb_prompt $" { fail "ptype UC" } - timeout { fail "(timeout) ptype UC" } -} - - -send_gdb "print S\n" -gdb_expect { - -re ".\[0-9\]* = -14.*$gdb_prompt $" { - pass "print value of S" - } - -re ".*$gdb_prompt $" { fail "print value of S" } - timeout { fail "(timeout) print value of S" } - } - - -send_gdb "ptype S\n" -gdb_expect { - -re "type = short.*$gdb_prompt $" { pass "ptype S" } - -re ".*$gdb_prompt $" { fail "ptype S" } - timeout { fail "(timeout) ptype S" } -} - - -send_gdb "print US\n" -gdb_expect { - -re ".\[0-9\]* = 7.*$gdb_prompt $" { - pass "print value of US" - } - -re ".*$gdb_prompt $" { fail "print value of US" } - timeout { fail "(timeout) print value of US" } - } - - -send_gdb "ptype US\n" -gdb_expect { - -re "type = unsigned short.*$gdb_prompt $" { pass "ptype US" } - -re "type = short unsigned.*$gdb_prompt $" { pass "ptype US" } - -re ".*$gdb_prompt $" { fail "ptype US" } - timeout { fail "(timeout) ptype US" } -} - - -send_gdb "print I\n" -gdb_expect { - -re ".\[0-9\]* = 102.*$gdb_prompt $" { - pass "print value of I" - } - -re ".*$gdb_prompt $" { fail "print value of I" } - timeout { fail "(timeout) print value of I" } - } - - -send_gdb "ptype I\n" -gdb_expect { - -re "type = int.*$gdb_prompt $" { pass "ptype I" } - -re ".*$gdb_prompt $" { fail "ptype I" } - timeout { fail "(timeout) ptype I" } -} - - -send_gdb "print UI\n" -gdb_expect { - -re ".\[0-9\]* = 1002.*$gdb_prompt $" { - pass "print value of UI" - } - -re ".*$gdb_prompt $" { fail "print value of UI" } - timeout { fail "(timeout) print value of UI" } - } - - -send_gdb "ptype UI\n" -gdb_expect { - -re "type = unsigned int.*$gdb_prompt $" { pass "ptype UI" } - -re ".*$gdb_prompt $" { fail "ptype UI" } - timeout { fail "(timeout) ptype UI" } -} - - -send_gdb "print L\n" -gdb_expect { - -re ".\[0-9\]* = -234.*$gdb_prompt $" { - pass "print value of L" - } - -re ".*$gdb_prompt $" { fail "print value of L" } - timeout { fail "(timeout) print value of L" } - } - - -send_gdb "ptype L\n" -gdb_expect { - -re "type = long.*$gdb_prompt $" { pass "ptype L" } - -re ".*$gdb_prompt $" { fail "ptype L" } - timeout { fail "(timeout) ptype L" } -} - - -send_gdb "print UL\n" -gdb_expect { - -re ".\[0-9\]* = 234.*$gdb_prompt $" { - pass "print value of UL" - } - -re ".*$gdb_prompt $" { fail "print value of UL" } - timeout { fail "(timeout) print value of UL" } - } - - -send_gdb "ptype UL\n" -gdb_expect { - -re "type = unsigned long.*$gdb_prompt $" { pass "ptype UL" } - -re "type = long unsigned.*$gdb_prompt $" { pass "ptype UL" } - -re ".*$gdb_prompt $" { fail "ptype UL" } - timeout { fail "(timeout) ptype UL" } -} - - -send_gdb "print F\n" -gdb_expect { - -re ".\[0-9\]* = 1.2\[0-9\]*e\\+10.*$gdb_prompt $" { - pass "print value of F" - } - -re ".*$gdb_prompt $" { fail "print value of F" } - timeout { fail "(timeout) print value of F" } - } - - - -send_gdb "ptype F\n" -gdb_expect { - -re "type = float.*$gdb_prompt $" { pass "ptype F" } - -re ".*$gdb_prompt $" { fail "ptype F" } - timeout { fail "(timeout) ptype F" } -} - - -send_gdb "print D\n" -gdb_expect { - -re ".\[0-9\]* = -1.375e-123.*$gdb_prompt $" { - pass "print value of D" - } - -re ".*$gdb_prompt $" { fail "print value of D" } - timeout { fail "(timeout) print value of D" } - } - - -send_gdb "ptype D\n" -gdb_expect { - -re "type = double.*$gdb_prompt $" { pass "ptype D" } - -re ".*$gdb_prompt $" { fail "ptype D" } - timeout { fail "(timeout) ptype D" } -} - - - -# -# test reference types -# - - - - -send_gdb "ptype rC\n" -gdb_expect { - -re "type = char &.*$gdb_prompt $" { pass "ptype rC" } - -re ".*$gdb_prompt $" { fail "ptype rC" } - timeout { fail "(timeout) ptype rC" } -} - - - - -send_gdb "ptype rUC\n" -gdb_expect { - -re "type = unsigned char &.*$gdb_prompt $" { pass "ptype rUC" } - -re ".*$gdb_prompt $" { fail "ptype rUC" } - timeout { fail "(timeout) ptype rUC" } -} - - - -send_gdb "ptype rS\n" -gdb_expect { - -re "type = short &.*$gdb_prompt $" { pass "ptype rS" } - -re "type = short int &.*$gdb_prompt $" { pass "ptype rS" } - -re ".*$gdb_prompt $" { fail "ptype rS" } - timeout { fail "(timeout) ptype rS" } -} - - - -send_gdb "ptype rUS\n" -gdb_expect { - -re "type = unsigned short &.*$gdb_prompt $" { pass "ptype rUS" } - -re "type = short unsigned int &.*$gdb_prompt $" { pass "ptype rUS" } - -re ".*$gdb_prompt $" { fail "ptype rUS" } - timeout { fail "(timeout) ptype rUS" } -} - - -send_gdb "ptype rI\n" -gdb_expect { - -re "type = int &.*$gdb_prompt $" { pass "ptype rI" } - -re ".*$gdb_prompt $" { fail "ptype rI" } - timeout { fail "(timeout) ptype rI" } -} - - - -send_gdb "ptype rUI\n" -gdb_expect { - -re "type = unsigned int &.*$gdb_prompt $" { pass "ptype rUI" } - -re ".*$gdb_prompt $" { fail "ptype rUI" } - timeout { fail "(timeout) ptype rUI" } -} - - - -send_gdb "ptype rL\n" -gdb_expect { - -re "type = long &.*$gdb_prompt $" { pass "ptype rL" } - -re "type = long int &.*$gdb_prompt $" { pass "ptype rL" } - -re ".*$gdb_prompt $" { fail "ptype rL" } - timeout { fail "(timeout) ptype rL" } -} - - -send_gdb "ptype rUL\n" -gdb_expect { - -re "type = unsigned long &.*$gdb_prompt $" { pass "ptype rUL" } - -re "type = long unsigned int &.*$gdb_prompt $" { pass "ptype rUL" } - -re ".*$gdb_prompt $" { fail "ptype rUL" } - timeout { fail "(timeout) ptype rUL" } -} - - -send_gdb "ptype rF\n" -gdb_expect { - -re "type = float &.*$gdb_prompt $" { pass "ptype rF" } - -re ".*$gdb_prompt $" { fail "ptype rF" } - timeout { fail "(timeout) ptype rF" } -} - - -send_gdb "ptype rD\n" -gdb_expect { - -re "type = double &.*$gdb_prompt $" { pass "ptype rD" } - -re ".*$gdb_prompt $" { fail "ptype rD" } - timeout { fail "(timeout) ptype rD" } -} - - -send_gdb "print rC\n" -gdb_expect { - -re ".\[0-9\]* = \\(char &\\) @$hex: 65 \'A\'.*$gdb_prompt $" { - pass "print value of rC" - } - -re ".*$gdb_prompt $" { fail "print value of rC" } - timeout { fail "(timeout) print value of rC" } - } - - -send_gdb "print rUC\n" -gdb_expect { - -re ".\[0-9\]* = \\(unsigned char &\\) @$hex: 21 \'.025\'.*$gdb_prompt $" { - pass "print value of rUC" - } - -re ".*$gdb_prompt $" { fail "print value of rUC" } - timeout { fail "(timeout) print value of rUC" } - } - - -send_gdb "print rS\n" -gdb_expect { - -re ".\[0-9\]* = \\(short &\\) @$hex: -14.*$gdb_prompt $" { - pass "print value of rS" - } - -re ".\[0-9\]* = \\(short int &\\) @$hex: -14.*$gdb_prompt $" { - pass "print value of rS" - } - -re ".*$gdb_prompt $" { fail "print value of rS" } - timeout { fail "(timeout) print value of rS" } - } - - -send_gdb "print rUS\n" -gdb_expect { - -re ".\[0-9\]* = \\(unsigned short &\\) @$hex: 7.*$gdb_prompt $" { - pass "print value of rUS" - } - -re ".\[0-9\]* = \\(short unsigned int &\\) @$hex: 7.*$gdb_prompt $" { - pass "print value of rUS" - } - -re ".*$gdb_prompt $" { fail "print value of rUS" } - timeout { fail "(timeout) print value of rUS" } - } - - -send_gdb "print rI\n" -gdb_expect { - -re ".\[0-9\]* = \\(int &\\) @$hex: 102.*$gdb_prompt $" { - pass "print value of rI" - } - -re ".*$gdb_prompt $" { fail "print value of rI" } - timeout { fail "(timeout) print value of rI" } - } - - -send_gdb "print rUI\n" -gdb_expect { - -re ".\[0-9\]* = \\(unsigned int &\\) @$hex: 1002.*$gdb_prompt $" { - pass "print value of UI" - } - -re ".*$gdb_prompt $" { fail "print value of rUI" } - timeout { fail "(timeout) print value of rUI" } - } - - -send_gdb "print rL\n" -gdb_expect { - -re ".\[0-9\]* = \\(long &\\) @$hex: -234.*$gdb_prompt $" { - pass "print value of rL" - } - -re ".\[0-9\]* = \\(long int &\\) @$hex: -234.*$gdb_prompt $" { - pass "print value of rL" - } - -re ".*$gdb_prompt $" { fail "print value of rL" } - timeout { fail "(timeout) print value of rL" } - } - - - -send_gdb "print rUL\n" -gdb_expect { - -re ".\[0-9\]* = \\(unsigned long &\\) @$hex: 234.*$gdb_prompt $" { - pass "print value of rUL" - } - -re ".\[0-9\]* = \\(long unsigned int &\\) @$hex: 234.*$gdb_prompt $" { - pass "print value of rUL" - } - -re ".*$gdb_prompt $" { fail "print value of rUL" } - timeout { fail "(timeout) print value of rUL" } - } - - -send_gdb "print rF\n" -gdb_expect { - -re ".\[0-9\]* = \\(float &\\) @$hex: 1.2\[0-9\]*e\\+10.*$gdb_prompt $" { - pass "print value of rF" - } - -re ".*$gdb_prompt $" { fail "print value of rF" } - timeout { fail "(timeout) print value of rF" } - } - - -send_gdb "print rD\n" -gdb_expect { - -re ".\[0-9\]* = \\(double &\\) @$hex: -1.375e-123.*$gdb_prompt $" { - pass "print value of rD" - } - -re ".*$gdb_prompt $" { fail "print value of rD" } - timeout { fail "(timeout) print value of rD" } - } - |