1 # Copyright
2007, 2008 Free Software Foundation
, Inc.
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.
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.
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
/>.
23 set srcfile $
{testfile
}.pas
24 set binfile $
{objdir
}/$
{subdir
}/$
{testfile
}$
{EXEEXT
}
26 if {[gdb_compile_pascal
"${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug ]] != "" } {
32 gdb_reinitialize_dir $srcdir
/$subdir
34 set bp_location1
[gdb_get_line_number
"set breakpoint 1 here"]
35 set bp_location2
[gdb_get_line_number
"set breakpoint 2 here"]
37 if { [gdb_breakpoint $
{srcfile
}:$
{bp_location1
}] } {
38 pass
"setting breakpoint 1"
40 if { [gdb_breakpoint $
{srcfile
}:$
{bp_location2
}] } {
41 pass
"setting breakpoint 2"
44 # Verify that
"start" lands inside the right procedure.
45 if { [gdb_start_cmd
] < 0 } {
50 # This test fails
for gpc
51 # because debug information
for 'main'
52 # is in some
<implicit code
>
54 ".* at .*hello.pas.*" \
58 "Breakpoint .*:${bp_location1}.*" \
59 "Going to first breakpoint"
64 # This test also fails
for gpc because the
program
65 # stops after the string has been written
66 #
while it should stop before writing it
67 if { $pascal_compiler_is_gpc
} {
71 "Breakpoint .*:${bp_location2}.*" \
72 "Going to second breakpoint"
74 ".* = 'Hello, world!'.*" \
75 "String after assignment check"