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
21# This file is part of the gdb testsuite
22
23
24# pxdb.exp   Test that gdb calls pxdb on an application
25#            built without it.
26#
27if $tracelevel then {
28	strace $tracelevel
29}
30
31set prms_id 0
32set bug_id 0
33
34if { [skip_hp_tests] } then { continue }
35
36set testfile pxdb
37set srcfile ${testfile}.c
38set objfile ${objdir}/${subdir}/${testfile}.o
39set binfile ${objdir}/${subdir}/${testfile}
40
41if [get_compiler_info ${binfile} "c++"] {
42    return -1;
43}
44
45if { $gcc_compiled } then { continue }
46
47# To build a non-pxdb-ed file, use
48#
49#     <compile to .o file>
50#     export LD_PXDB /dev/null
51#     ld -o hello_no_pxdb hello.o /opt/langtools/lib/end.o /usr/ccs/lib/crt0.o -lc
52#
53
54if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${objfile}" object {debug}] != "" } {
55    gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
56}
57
58#
59# use this to debug:
60#log_user 1
61
62
63# Following should get the error message:
64#
65#      ld: (Warning) Can't exec pxdb using path: /dev/null
66#
67#execute_anywhere "ksh -c \"export LD_PXDB=/dev/null\""
68
69if [istarget "hppa64-*-*"] {
70set cmdline  "ksh -c \"LD_PXDB=/dev/null ld -o ${binfile} ${objfile} /opt/langtools/lib/pa20_64/crt0.o /opt/langtools/lib/pa20_64/end.o -lc\""
71} else {
72set cmdline  "ksh -c \"LD_PXDB=/dev/null ld -o ${binfile} ${objfile} /usr/ccs/lib/crt0.o /opt/langtools/lib/end.o -lc\""
73}
74
75remote_exec build "rm ${binfile}"
76remote_exec build $cmdline
77
78gdb_exit
79gdb_start
80gdb_reinitialize_dir $srcdir/$subdir
81
82# We expect to see this:
83#
84#  "warning: File not processed by pxdb--about to process now.
85#  "
86#  ".
87#  "Procedures: 7
88#  "Files: 2
89#  "Reading symbols from ~/c_code.dir/hello_no_pxdb...done.
90#  "(gdb)
91#
92send_gdb "file ${binfile}\n"
93gdb_expect {
94
95    -re ".*warning: File not processed by pxdb.*Procedures: \[0-9\]+.*$gdb_prompt $"\
96                            { pass "PXDB call"        }
97
98    -re "$gdb_prompt $" {
99      if [istarget hppa*-*-hpux*] {
100        pass "Didn't call pxdb"
101      } else {
102        fail "Didn't call pxdb"
103      }
104    }
105
106    -re ".*$gdb_prompt $"       { fail "Some other message" }
107
108    timeout                 { fail "call pxdb (timeout)" }
109}
110
111# Make sure the new data makes sense
112#
113if { ![runto callee] } then { return }
114
115send_gdb "print x\n"
116gdb_expect {
117   -re ".*= 1.*$gdb_prompt $"    { pass "Good data after pxdb call" }
118   -re ".*$gdb_prompt $"         { fail "No data after pxdb call" }
119   timeout { fail "(timeout)" }
120}
121
122gdb_exit
123return 0
124
125
126
127
128
129