This is the mail archive of the gdb-patches@sourceware.org mailing list for the GDB project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [commit] New Ada testcase for breakpoints on operators.


Joel Brobecker <brobecker@adacore.com> writes:

> +# Set breakpoints for all operators, using just the operator name in quotes.
> +
> +foreach op { "+" "-" } {
> +    set op_re [string_to_regexp $op]
> +    gdb_test "break \"$op\"" \
> +             "Breakpoint $decimal at $hex: \"$op_re\"\. \\(2 locations\\)"
> +}

(gdb) break "+"
Breakpoint 2 at 0x100018cc: "+". (4 locations)
(gdb) FAIL: gdb.ada/operator_bp.exp: break "+"
break "-"
Breakpoint 3 at 0x100018f4: "-". (4 locations)
(gdb) FAIL: gdb.ada/operator_bp.exp: break "-"
break "*"

> +foreach op { "*" "/" "mod" "rem" "**" "<" "<=" ">" ">=" "=" "and" "or" "xor" "&" "abs" "not"} {
> +    set op_re [string_to_regexp $op]
> +    gdb_test "break \"$op\"" \
> +             "Breakpoint $decimal at $hex: file .*ops.adb, line $decimal."
> +}

break "mod"
Breakpoint 6 at 0x10001514: "mod". (2 locations)
(gdb) FAIL: gdb.ada/operator_bp.exp: break "mod"

Andreas.

-- 
Andreas Schwab, schwab@linux-m68k.org
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]