1# Copyright 2003, 2004 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@gnu.org
19
20# This file is part of the gdb testsuite.
21
22if $tracelevel {
23    strace $tracelevel
24}
25
26# Test i386 prologue analyzer.
27
28set prms_id 0
29set bug_id 0
30
31if ![istarget "i?86-*-*"] then {
32    verbose "Skipping i386 prologue tests."
33    return
34}
35
36set testfile "i386-prologue"
37set srcfile ${testfile}.c
38set binfile ${objdir}/${subdir}/${testfile}
39
40# some targets have leading underscores on assembly symbols.
41# TODO: detect this automatically
42set additional_flags ""
43if [istarget "i?86-*-cygwin*"] then {
44  set additional_flags "additional_flags=-DSYMBOL_PREFIX=\"_\""
45}
46
47# Don't use "debug", so that we don't have line information for the assembly
48# fragments.
49if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list $additional_flags]] != "" } {
50    gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
51}
52
53
54# The code used by the tests here encodes some breakpoints by using
55# inline assembler.  This will generate a SIGTRAP which will be caught
56# by GDB.  At that point the instruction pointer will point at the
57# next instruction, and execution can continue without any problems.
58# Some systems however (QNX Neutrino, Solaris) will adjust the
59# instruction pointer to point at the breakpoint instruction instead.
60# On these systems we cannot continue unless we skip it.  This
61# procedure takes care of that.
62
63proc skip_breakpoint { msg } {
64    gdb_test "if (*(unsigned char *)\$pc == 0xcc)\nset \$pc = \$pc + 1\nend" \
65	    "" "skip breakpoint in ${msg}"
66}
67
68
69gdb_exit
70gdb_start
71gdb_reinitialize_dir $srcdir/$subdir
72gdb_load ${binfile}
73
74#
75# Run to `main' where we begin our tests.
76#
77
78if ![runto_main] then {
79    gdb_suppress_tests
80}
81
82# Testcase for standard prologue.
83
84gdb_test "continue" "Program received signal SIGTRAP.*" "continue to standard"
85
86skip_breakpoint standard
87
88gdb_test "backtrace 10" \
89	"#0\[ \t\]*$hex in standard.*\r\n#1\[ \t\]*$hex in main.*" \
90	"backtrace in standard"
91
92gdb_test "info frame" \
93	".*Saved registers:.*ebp at.*edi at.*eip at.*" \
94	"saved registers in standard"
95
96# Testcase from symtab/1253.
97
98gdb_test "continue" "Program received signal SIGTRAP.*" "continue to gdb1253"
99
100skip_breakpoint gdb1253
101
102gdb_test "backtrace 10" \
103	"#0\[ \t\]*$hex in gdb1253.*\r\n#1\[ \t\]*$hex in main.*" \
104	"backtrace in gdb1253"
105
106gdb_test "info frame" \
107	".*Saved registers:.*ebp at.*edi at.*eip at.*" \
108	"saved registers in gdb1253"
109
110# Testcase from backtrace/1718.
111
112gdb_test "continue" "Program received signal SIGTRAP.*" "continue to gdb1718"
113
114skip_breakpoint gdb1718
115
116gdb_test "backtrace 10" \
117	"#0\[ \t\]*$hex in gdb1718.*\r\n#1\[ \t\]*$hex in main.*" \
118	"backtrace in gdb1718"
119
120setup_kfail *-*-* gdb/1718
121gdb_test "info frame" \
122	".*Saved registers:.*esi at.*ebx at.*eip at.*" \
123	"saved registers in gdb1718"
124
125# Testcase from backtrace/1338.
126
127gdb_test "continue" "Program received signal SIGTRAP.*" "continue to gdb1338"
128
129skip_breakpoint gdb1338
130
131gdb_test "backtrace 10" \
132	"#0\[ \t\]*$hex in gdb1338.*\r\n#1\[ \t\]*$hex in main.*" \
133	"backtrace in gdb1338"
134
135gdb_test "info frame" \
136	".*Saved registers:.*ebx at.*esi at.*edi at.*eip at.*" \
137	"saved registers in gdb1338"
138
139# Testcase jump_at_beginning.
140gdb_test_multiple "break jump_at_beginning" \
141	"set breakpoint in jump_at_beginning" {
142    -re "Breakpoint \[0-9\]* at ($hex).*$gdb_prompt $" {
143	gdb_test "x/i $expect_out(1,string)" \
144		".*<jump_at_beginning.*>:.*jmp.*" \
145		"check jump_at_beginning prologue end"
146    }
147    default {
148        fail "set breakpoint in jump_at_beginning"
149    }
150}
151