1# Copyright 1998-2019 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 3 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, see <http://www.gnu.org/licenses/>. 15 16# This file was written by Elena Zannoni (ezannoni@cygnus.com) 17 18# This file is part of the gdb testsuite 19 20# 21# tests to cover evaluate_subexp_standard with the EVAL_SKIP flag set. 22# this happens for instance when there is short circuit evaluation in the && and || 23# operators, or in the non returned part of a (x ? y: z) expression. 24# the part that is not evaluated is parsed and evaluated anyway, but with 25# the EVAL_SKIP flag set 26# 27# source file "int-type.c" 28# 29 30 31# Check to see if we have an executable to test. If not, then either we 32# haven't tried to compile one, or the compilation failed for some reason. 33# In either case, just notify the user and skip the tests in this file. 34 35standard_testfile int-type.c 36 37if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug nowarnings}] != "" } { 38 untested "failed to compile" 39 return -1 40 } 41 42if [get_compiler_info] { 43 return -1 44} 45 46clean_restart ${binfile} 47 48 49if ![runto_main] then { 50 perror "couldn't run to breakpoint" 51 continue 52} 53 54gdb_test_no_output "set variable x=14" "set variable x=14" 55gdb_test_no_output "set variable y=2" "set variable y=2" 56gdb_test_no_output "set variable z=2" "set variable z=2" 57gdb_test_no_output "set variable w=3" "set variable w=3" 58 59gdb_test "print (0 && (x+y))" ".$decimal = $false" \ 60 "print value of (0 && (x+y))" 61 62gdb_test "print (0 && (x-y))" ".$decimal = $false" \ 63 "print value of (0 && (x-y))" 64 65gdb_test "print (0 && (x*y))" ".$decimal = $false" \ 66 "print value of (0 && (x*y))" 67 68gdb_test "print (0 && (x/y))" ".$decimal = $false" \ 69 "print value of (0 && (x/y))" 70 71gdb_test "print (0 && (x%y))" ".$decimal = $false" \ 72 "print value of (0 && (x%y))" 73 74gdb_test "print (0 && (x&&y))" ".$decimal = $false" \ 75 "print value of (0 && (x&&y))" 76 77gdb_test "print (0 && (x||y))" ".$decimal = $false" \ 78 "print value of (0 && (x||y))" 79 80gdb_test "print (0 && (x&y))" ".$decimal = $false" \ 81 "print value of (0 && (x&y))" 82 83gdb_test "print (0 && (x|y))" ".$decimal = $false" \ 84 "print value of (0 && (x|y))" 85 86gdb_test "print (0 && (x^y))" ".$decimal = $false" \ 87 "print value of (0 && (x^y))" 88 89gdb_test "print (0 && (x < y))" ".$decimal = $false" \ 90 "print value of (0 && (x < y))" 91 92gdb_test "print (0 && (x <= y))" ".$decimal = $false" \ 93 "print value of (0 && (x <= y))" 94 95gdb_test "print (0 && (x>y))" ".$decimal = $false" \ 96 "print value of (0 && (x>y))" 97 98gdb_test "print (0 && (x>=y))" ".$decimal = $false" \ 99 "print value of (0 && (x>=y))" 100 101gdb_test "print (0 && (x==y))" ".$decimal = $false" \ 102 "print value of (0 && (x==y))" 103 104gdb_test "print (0 && (x!=y))" ".$decimal = $false" \ 105 "print value of (0 && (x!=y))" 106 107gdb_test "print (0 && (x<<31))" ".$decimal = $false" \ 108 "print value of (0 && (x<<31))" 109 110gdb_test "print (0 && (x>>31))" ".$decimal = $false" \ 111 "print value of (0 && (x>>31))" 112 113gdb_test "print (0 && (!x))" ".$decimal = $false" \ 114 "print value of (0 && (!x))" 115 116gdb_test "print (0 && (~x))" ".$decimal = $false" \ 117 "print value of (0 && (~x))" 118 119gdb_test "print (0 && (-x))" ".$decimal = $false" \ 120 "print value of (0 && (-x))" 121 122gdb_test "print (0 && (x++))" ".$decimal = $false" \ 123 "print value of (0 && (x++))" 124 125gdb_test "print (0 && (++x))" ".$decimal = $false" \ 126 "print value of (0 && (++x))" 127 128gdb_test "print (0 && (x--))" ".$decimal = $false" \ 129 "print value of (0 && (x--))" 130 131gdb_test "print (0 && (--x))" ".$decimal = $false" \ 132 "print value of (0 && (--x))" 133 134gdb_test "print (0 && (x+=7))" ".$decimal = $false" \ 135 "print value of (0 && (x+=7))" 136 137gdb_test "print (0 && (x=y))" ".$decimal = $false" \ 138 "print value of (0 && (x=y))" 139 140 141gdb_exit 142return 0 143 144 145 146 147 148 149 150