OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.pascal/] [hello.exp] - Blame information for rev 24

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn
# Copyright 2007, 2008 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 .
15
 
16
if $tracelevel then {
17
    strace $tracelevel
18
}
19
 
20
load_lib "pascal.exp"
21
 
22
set testfile "hello"
23
set srcfile ${testfile}.pas
24
set binfile ${objdir}/${subdir}/${testfile}${EXEEXT}
25
 
26
if {[gdb_compile_pascal "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug ]] != "" } {
27
  return -1
28
}
29
 
30
gdb_exit
31
gdb_start
32
gdb_reinitialize_dir $srcdir/$subdir
33
gdb_load ${binfile}
34
set bp_location1 [gdb_get_line_number "set breakpoint 1 here"]
35
set bp_location2 [gdb_get_line_number "set breakpoint 2 here"]
36
 
37
if { [gdb_breakpoint ${srcfile}:${bp_location1}] } {
38
    pass "setting breakpoint 1"
39
}
40
if { [gdb_breakpoint ${srcfile}:${bp_location2}] } {
41
    pass "setting breakpoint 2"
42
}
43
 
44
# Verify that "start" lands inside the right procedure.
45
if { [gdb_start_cmd] < 0 } {
46
    untested start
47
    return -1
48
}
49
 
50
# This test fails for gpc
51
# because debug information for 'main'
52
# is in some 
53
gdb_test "" \
54
         ".* at .*hello.pas.*" \
55
         "start"
56
 
57
gdb_test "cont" \
58
         "Breakpoint .*:${bp_location1}.*" \
59
         "Going to first breakpoint"
60
gdb_test "print st" \
61
         ".* = ''.*" \
62
         "Empty string check"
63
 
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 } {
68
    setup_xfail *-*-*
69
}
70
gdb_test "cont" \
71
         "Breakpoint .*:${bp_location2}.*" \
72
         "Going to second breakpoint"
73
gdb_test "print st" \
74
         ".* = 'Hello, world!'.*" \
75
         "String after assignment check"

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.