| # Copyright 1998, 1999, 2007, 2008 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 3 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, see <http://www.gnu.org/licenses/>. |
| |
| # This file was written by Elena Zannoni (ezannoni@cygnus.com) |
| |
| # This file is part of the gdb testsuite |
| |
| # |
| # tests to cover evaluate_subexp_standard with the EVAL_SKIP flag set. |
| # this happens for instance when there is short circuit evaluation in the && and || |
| # operators, or in the non returned part of a (x ? y: z) expression. |
| # the part that is not evaluated is parsed and evaluated anyway, but with |
| # the EVAL_SKIP flag set |
| # |
| # source file "int-type.c" |
| # |
| |
| |
| if $tracelevel then { |
| strace $tracelevel |
| } |
| |
| # Check to see if we have an executable to test. If not, then either we |
| # haven't tried to compile one, or the compilation failed for some reason. |
| # In either case, just notify the user and skip the tests in this file. |
| |
| set testfile "int-type" |
| set srcfile ${testfile}.c |
| set binfile ${objdir}/${subdir}/${testfile} |
| |
| if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug nowarnings}] != "" } { |
| untested eval-skip.exp |
| return -1 |
| } |
| |
| if [get_compiler_info $binfile] { |
| return -1 |
| } |
| |
| gdb_exit |
| gdb_start |
| gdb_reinitialize_dir $srcdir/$subdir |
| gdb_load ${binfile} |
| |
| |
| if ![runto_main] then { |
| perror "couldn't run to breakpoint" |
| continue |
| } |
| |
| gdb_test "set variable x=14" "" "set variable x=14" |
| gdb_test "set variable y=2" "" "set variable y=2" |
| gdb_test "set variable z=2" "" "set variable z=2" |
| gdb_test "set variable w=3" "" "set variable w=3" |
| |
| send_gdb "print (0 && (x+y))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x+y))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x+y))" } |
| timeout { fail "(timeout) print value of (0 && (x+y))" } |
| } |
| |
| |
| send_gdb "print (0 && (x-y))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x-y))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x-y))" } |
| timeout { fail "(timeout) print value of (0 && (x-y))" } |
| } |
| |
| |
| send_gdb "print (0 && (x*y))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x*y))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x*y))" } |
| timeout { fail "(timeout) print value of (0 && (x*y))" } |
| } |
| |
| |
| |
| send_gdb "print (0 && (x/y))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x/y))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x/y))" } |
| timeout { fail "(timeout) print value of (0 && (x/y))" } |
| } |
| |
| |
| send_gdb "print (0 && (x%y))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x%y))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x%y))" } |
| timeout { fail "(timeout) print value of (0 && (x%y))" } |
| } |
| |
| |
| send_gdb "print (0 && (x&&y))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x&&y))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x&&y))" } |
| timeout { fail "(timeout) print value of (0 && (x&&y))" } |
| } |
| |
| |
| |
| send_gdb "print (0 && (x||y))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x||y))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x||y))" } |
| timeout { fail "(timeout) print value of (0 && (x||y))" } |
| } |
| |
| |
| |
| send_gdb "print (0 && (x&y))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x&y))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x&y))" } |
| timeout { fail "(timeout) print value of (0 && (x&y))" } |
| } |
| |
| |
| send_gdb "print (0 && (x|y))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x|y))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x|y))" } |
| timeout { fail "(timeout) print value of (0 && (x|y))" } |
| } |
| |
| |
| send_gdb "print (0 && (x^y))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x^y))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x^y))" } |
| timeout { fail "(timeout) print value of (0 && (x^y))" } |
| } |
| |
| |
| |
| send_gdb "print (0 && (x < y))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x < y))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x < y))" } |
| timeout { fail "(timeout) print value of (0 && (x < y))" } |
| } |
| |
| |
| send_gdb "print (0 && (x <= y))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x <= y))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x <= y))" } |
| timeout { fail "(timeout) print value of (0 && (x <= y))" } |
| } |
| |
| |
| |
| send_gdb "print (0 && (x>y))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x>y))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x>y))" } |
| timeout { fail "(timeout) print value of (0 && (x>y))" } |
| } |
| |
| |
| send_gdb "print (0 && (x>=y))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x>=y))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x>=y))" } |
| timeout { fail "(timeout) print value of (0 && (x>=y))" } |
| } |
| |
| |
| |
| send_gdb "print (0 && (x==y))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x==y))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x==y))" } |
| timeout { fail "(timeout) print value of (0 && (x==y))" } |
| } |
| |
| |
| send_gdb "print (0 && (x!=y))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x!=y))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x!=y))" } |
| timeout { fail "(timeout) print value of (0 && (x!=y))" } |
| } |
| |
| |
| send_gdb "print (0 && (x<<31))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x<<31))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x<<31))" } |
| timeout { fail "(timeout) print value of (0 && (x<<31))" } |
| } |
| |
| |
| send_gdb "print (0 && (x>>31))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x>>31))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x>>31))" } |
| timeout { fail "(timeout) print value of (0 && (x>>31))" } |
| } |
| |
| |
| |
| send_gdb "print (0 && (!x))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (!x))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (!x))" } |
| timeout { fail "(timeout) print value of (0 && (!x))" } |
| } |
| |
| |
| send_gdb "print (0 && (~x))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (~x))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (~x))" } |
| timeout { fail "(timeout) print value of (0 && (~x))" } |
| } |
| |
| send_gdb "print (0 && (-x))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (-x))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (-x))" } |
| timeout { fail "(timeout) print value of (0 && (-x))" } |
| } |
| |
| |
| send_gdb "print (0 && (x++))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x++))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x++))" } |
| timeout { fail "(timeout) print value of (0 && (x++))" } |
| } |
| |
| |
| send_gdb "print (0 && (++x))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (++x))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (++x))" } |
| timeout { fail "(timeout) print value of (0 && (++x))" } |
| } |
| |
| |
| send_gdb "print (0 && (x--))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x--))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x--))" } |
| timeout { fail "(timeout) print value of (0 && (x--))" } |
| } |
| |
| |
| send_gdb "print (0 && (--x))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (--x))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (--x))" } |
| timeout { fail "(timeout) print value of (0 && (--x))" } |
| } |
| |
| send_gdb "print (0 && (x+=7))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x+=7))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x+=7))" } |
| timeout { fail "(timeout) print value of (0 && (x+=7))" } |
| } |
| |
| send_gdb "print (0 && (x=y))\n" |
| gdb_expect { |
| -re ".$decimal = $false\r\n$gdb_prompt $" { |
| pass "print value of (0 && (x=y))" |
| } |
| -re ".*$gdb_prompt $" { fail "print value of (0 && (x=y))" } |
| timeout { fail "(timeout) print value of (0 && (x=y))" } |
| } |
| |
| gdb_exit |
| return 0 |
| |
| |
| |
| |
| |
| |
| |