This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[patch] Tweeks for mi*-var-cmd.exp
- To: gdb-patches at sources dot redhat dot com
- Subject: [patch] Tweeks for mi*-var-cmd.exp
- From: Andrew Cagney <ac131313 at cygnus dot com>
- Date: Wed, 29 Aug 2001 21:44:57 -0400
Hello,
This patch first softens a few FP tests so that they passs more foten
and second updates the pattern for a ``char *'' which has a child.
Andrew
2001-08-29 Andrew Cagney <cagney@redhat.com>
* mi-var-cmd.exp, mi0-var-cmd.exp: Variable lpcharacter has one
child. Soften floating point tests.
Index: mi-var-cmd.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-var-cmd.exp,v
retrieving revision 1.6
diff -p -r1.6 mi-var-cmd.exp
*** mi-var-cmd.exp 2001/08/19 01:23:43 1.6
--- mi-var-cmd.exp 2001/08/30 01:42:23
*************** mi_gdb_test "-var-create lcharacter * lc
*** 100,106 ****
"create local variablelcharacter "
mi_gdb_test "-var-create lpcharacter * lpcharacter" \
! "\\^done,name=\"lpcharacter\",numchild=\"0\",type=\"char \\*\"" \
"create local variable lpcharacter"
mi_gdb_test "-var-create llong * llong" \
--- 100,106 ----
"create local variablelcharacter "
mi_gdb_test "-var-create lpcharacter * lpcharacter" \
! "\\^done,name=\"lpcharacter\",numchild=\"1\",type=\"char \\*\"" \
"create local variable lpcharacter"
mi_gdb_test "-var-create llong * llong" \
*************** mi_gdb_test "-var-assign lplong &llong"
*** 391,404 ****
"\\^done,value=\"$hex\"" \
"assign to lplong"
! mi_gdb_test "-var-assign lfloat 3.4" \
! "\\^done,value=\"3.4.*\"" \
"assign to lfloat"
mi_gdb_test "-var-evaluate-expression lfloat" \
! "\\^done,value=\"3.4.*\"" \
"eval lfloat"
! mi_gdb_test "-var-assign lfloat 1.2" \
! "\\^done,value=\"1.2.*\"" \
"assign to lfloat"
mi_gdb_test "-var-assign lpfloat &lfloat+4" \
--- 391,404 ----
"\\^done,value=\"$hex\"" \
"assign to lplong"
! mi_gdb_test "-var-assign lfloat 3.4567" \
! "\\^done,value=\"3.45.*\"" \
"assign to lfloat"
mi_gdb_test "-var-evaluate-expression lfloat" \
! "\\^done,value=\"3.45.*\"" \
"eval lfloat"
! mi_gdb_test "-var-assign lfloat 1.2345" \
! "\\^done,value=\"1.23.*\"" \
"assign to lfloat"
mi_gdb_test "-var-assign lpfloat &lfloat+4" \
Index: mi0-var-cmd.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi0-var-cmd.exp,v
retrieving revision 1.4
diff -p -r1.4 mi0-var-cmd.exp
*** mi0-var-cmd.exp 2001/08/19 01:23:43 1.4
--- mi0-var-cmd.exp 2001/08/30 01:42:23
*************** mi_gdb_test "-var-create lcharacter * lc
*** 100,106 ****
"create local variablelcharacter "
mi_gdb_test "-var-create lpcharacter * lpcharacter" \
! "\\^done,name=\"lpcharacter\",numchild=\"0\",type=\"char \\*\"" \
"create local variable lpcharacter"
mi_gdb_test "-var-create llong * llong" \
--- 100,106 ----
"create local variablelcharacter "
mi_gdb_test "-var-create lpcharacter * lpcharacter" \
! "\\^done,name=\"lpcharacter\",numchild=\"1\",type=\"char \\*\"" \
"create local variable lpcharacter"
mi_gdb_test "-var-create llong * llong" \
*************** mi_gdb_test "-var-assign lplong &llong"
*** 391,404 ****
"\\^done,value=\"$hex\"" \
"assign to lplong"
! mi_gdb_test "-var-assign lfloat 3.4" \
! "\\^done,value=\"3.4.*\"" \
"assign to lfloat"
mi_gdb_test "-var-evaluate-expression lfloat" \
! "\\^done,value=\"3.4.*\"" \
"eval lfloat"
! mi_gdb_test "-var-assign lfloat 1.2" \
! "\\^done,value=\"1.2.*\"" \
"assign to lfloat"
mi_gdb_test "-var-assign lpfloat &lfloat+4" \
--- 391,404 ----
"\\^done,value=\"$hex\"" \
"assign to lplong"
! mi_gdb_test "-var-assign lfloat 3.4567" \
! "\\^done,value=\"3.45.*\"" \
"assign to lfloat"
mi_gdb_test "-var-evaluate-expression lfloat" \
! "\\^done,value=\"3.45.*\"" \
"eval lfloat"
! mi_gdb_test "-var-assign lfloat 1.2345" \
! "\\^done,value=\"1.23.*\"" \
"assign to lfloat"
mi_gdb_test "-var-assign lpfloat &lfloat+4" \