blob: 7efb396788e9e8374d421b89e19f98026100f6f7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
-- Test -fbreak-on-exception and -fbreak-on-error
:set -XDeriveDataTypeable
:l break024
:set -fbreak-on-error
exception_caught
exception_uncaught
:force _exception
:co
:set -fno-break-on-error
:set -fbreak-on-exception
exception_uncaught
:force _exception
:co
exception_caught
:force _exception
:co
|
