projects / deliverable / binutils-gdb.git / blame
| Commit | Line | Data |
|---|---|---|
| 9b254dd1 | 1 | # Copyright 2004, 2006, 2007, 2008 Free Software Foundation, Inc. |
| 7213f6d6 JJ |
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 | |
| e22f8b7c | 5 | # the Free Software Foundation; either version 3 of the License, or |
| 7213f6d6 | 6 | # (at your option) any later version. |
| e22f8b7c | 7 | # |
| 7213f6d6 JJ |
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. | |
| e22f8b7c | 12 | # |
| 7213f6d6 | 13 | # You should have received a copy of the GNU General Public License |
| e22f8b7c | 14 | # along with this program. If not, see <http://www.gnu.org/licenses/>. |
| 7213f6d6 JJ |
15 | |
| 16 | # This file was written by Jeff Johnston. (jjohnstn@redhat.com) | |
| 17 | # | |
| 18 | ||
| 19 | if $tracelevel then { | |
| 20 | strace $tracelevel | |
| 21 | } | |
| 22 | ||
| 23 | load_lib "java.exp" | |
| 24 | ||
| 25 | set testfile "jprint" | |
| 26 | set srcfile ${srcdir}/$subdir/${testfile}.java | |
| 27 | set binfile ${objdir}/${subdir}/${testfile} | |
| 81d2cbae NS |
28 | if { [compile_java_from_source ${srcfile} ${binfile} "-g"] != "" } { |
| 29 | untested "Couldn't compile ${srcfile}" | |
| 30 | return -1 | |
| 7213f6d6 JJ |
31 | } |
| 32 | ||
| 33 | # Set the current language to java. This counts as a test. If it | |
| 34 | # fails, then we skip the other tests. | |
| 35 | ||
| 36 | proc set_lang_java {} { | |
| 37 | global gdb_prompt | |
| 38 | global binfile objdir subdir | |
| 39 | ||
| 40 | verbose "loading file '$binfile'" | |
| 41 | gdb_load $binfile | |
| 42 | ||
| 43 | send_gdb "set language java\n" | |
| 44 | gdb_expect { | |
| 45 | -re ".*$gdb_prompt $" {} | |
| 46 | timeout { fail "set language java (timeout)" ; return 0 } | |
| 47 | } | |
| 48 | ||
| 49 | return [gdb_test "show language" ".* source language is \"java\".*" \ | |
| 50 | "set language to \"java\""] | |
| 51 | } | |
| 52 | ||
| 53 | set prms_id 0 | |
| 54 | set bug_id 0 | |
| 55 | ||
| 56 | # Start with a fresh gdb. | |
| 57 | ||
| 58 | gdb_exit | |
| 59 | gdb_start | |
| 60 | gdb_reinitialize_dir $srcdir/$subdir | |
| 61 | ||
| 62 | gdb_test "set print sevenbit-strings" ".*" | |
| 63 | ||
| 64 | if ![set_lang_java] then { | |
| 65 | # Ref PR gdb:java/1565. Don't use the simpler "break jmisc.main". | |
| 66 | # As of 2004-02-24 it wasn't working and is being tested separatly. | |
| 2fa63963 DJ |
67 | # Before GCJ 4.1 (approximately) the demangled name did not include |
| 68 | # a method signature; after that point it does include a trailing | |
| 69 | # signature. | |
| 70 | runto_main | |
| 71 | set function "${testfile}.main(java.lang.String\[\])" | |
| 72 | gdb_breakpoint "\'$function\'" { allow-pending } | |
| 73 | gdb_breakpoint "\'${function}void\'" { allow-pending } | |
| 74 | gdb_continue_to_breakpoint $function | |
| 7213f6d6 JJ |
75 | |
| 76 | gdb_test "p jvclass.addprint(4,5,6)" "sum is 15\r\n.*" "unambiguous static call" | |
| 77 | ||
| 78 | gdb_test "next" "" | |
| 79 | gdb_test "next" "" | |
| 80 | ||
| 81 | gdb_test "p x.print(44)" "x is 44\r\n.*" "single argument print call" | |
| 82 | gdb_test "p x.print(22,33)" "y is 33\r\n.*" "double argument print call" | |
| 83 | gdb_test "call x.dothat(55)" "new value is 58\r\n.*= 62.*" "virtual fn call" | |
| 84 | gdb_test "p x.addprint(1,2,3)" "sum is 6\r\n.*" "inherited static call" | |
| 85 | gdb_test "call x.addk(44)" "adding k gives 121\r\n.*= 121.*" "inherited virtual fn call" | |
| 86 | } |