1# Copyright (C) 1998 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
16
17# Please email any bugs, comments, and/or additions to this file to:
18# bug-gdb@prep.ai.mit.edu
19
20# optimize.exp -- Expect script for testing apps compiled with -O
21
22# There is no DOC support for gdb yet, return 0 for now.
23return 0
24
25global timeout
26
27# use this to debug:
28#
29#log_user 1
30
31if $tracelevel then {
32    strace $tracelevel
33}
34
35if { [skip_hp_tests] } then { continue }
36
37set testfile optimize
38set srcfile ${testfile}.c
39set binfile ${objdir}/${subdir}/${testfile}
40
41if [get_compiler_info ${binfile}] {
42    return -1;
43}
44
45
46if { $gcc_compiled } then { continue }
47
48
49# Vanilla -O, which is the same as +O2
50#
51if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug optimize=+O2}] != "" } {
52     gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
53}
54
55
56gdb_exit
57gdb_start
58gdb_reinitialize_dir $srcdir/$subdir
59
60send_gdb "file $binfile\n"
61gdb_expect {
62    -re ".*no debugging symbols found.*$gdb_prompt $" {
63        fail "Didn't find debug symbols; CHFts23488"
64    }
65    -re ".*No header section (PXDB data).*$gdb_prompt $" {
66        fail "pointless warning"
67    }
68    -re ".*done.*$gdb_prompt $" {
69        pass "load debug symbols"
70    }
71    timeout { fail "timeout on file" }
72}
73
74# Two lines at the same place after opt.
75#
76gdb_test "b 28"   ".*"
77gdb_test "b 26"   ".*also set at.*" "same line"
78
79gdb_test "b 47"   ".*"
80gdb_test "b 48"   ".*also set at.*" "same line"
81
82gdb_test "tb main" ".*"
83
84set old_timeout $timeout
85set timeout [expr "$timeout + 200"]
86send_gdb "r\n"
87gdb_expect {
88    -re ".*No header section (PXDB data).*$gdb_prompt $" {
89        fail "pointless warning"
90    }
91    -re ".*main.*2\[12].*$gdb_prompt $" {
92        # All the lines before line 21 or 22 are
93        # evaporated by the compiler.
94        #
95        pass "hit main"
96    }
97    -re ".*$gdb_prompt $" {
98        fail "didn't hit main"
99    }
100    timeout { fail "timeout on run" }
101}
102set timeout $old_timeout
103
104gdb_test "c" ".*Breakpoint 1.*33.*"
105gdb_test "c" ".*51.*"
106gdb_test "cle" ".*Deleted breakpoints.*" "set 2, so del 2"
107
108gdb_test "b callee" ".*"
109gdb_test "c" ".*callee.*" "hit called rtn"
110
111gdb_exit
112
113# +O4, don't use -g
114#
115if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {optimize=+O4}] != "" } {
116     gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
117}
118
119gdb_start
120gdb_reinitialize_dir $srcdir/$subdir
121
122send_gdb "file $binfile\n"
123gdb_expect {
124    -re ".*no debugging symbols found.*$gdb_prompt $" {
125        pass "Didn't find debug symbols, as expected"
126    }
127    -re ".*No header section (PXDB data).*$gdb_prompt $" {
128        fail "pointless warning"
129    }
130    -re ".*done.*$gdb_prompt $" {
131        fail "Somehow found debug symbols--make this a pass?"
132    }
133    timeout { fail "timeout on file" }
134}
135
136gdb_test "b main"   ".*"
137gdb_test "b callee" ".*"
138gdb_test "r"        ".*Breakpoint 1.*main.*"
139gdb_test "si 3"     ".*main.*" "steps"
140gdb_test "x/4i \$pc" ".*main.*main+4.*main+8.*"
141gdb_test "c"        ".*callee.*" "hit bp"
142gdb_test "disas"    ".*callee.*callee+4.*callee+12.*"
143gdb_test "si"       ".*callee.*"
144gdb_test "fin"      ".*Run till exit.*main.*" "finish"
145gdb_test "x/i \$pc" ".*main+.*" "back in main"
146gdb_exit
147
148#remote_exec build "rm -f ${binfile}"
149return 0
150