diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2013-11-01 16:38:16 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2013-11-01 16:38:16 +0000 |
| commit | 8073f9abf5d76e4051132b4d1b514b305585efd4 (patch) | |
| tree | ccc69c8eeb331a45cd082ab809f735cb51a42aad /src/runtime | |
| parent | d454165f24a27ea64a18b8558a756fdfe373d1ee (diff) | |
make gu_exn_is_raised non inlined. this is useful to make it callable from Haskell
Diffstat (limited to 'src/runtime')
| -rw-r--r-- | src/runtime/c/gu/exn.c | 5 | ||||
| -rw-r--r-- | src/runtime/c/gu/exn.h | 6 |
2 files changed, 7 insertions, 4 deletions
diff --git a/src/runtime/c/gu/exn.c b/src/runtime/c/gu/exn.c index cdcf9c9f4..003a4357f 100644 --- a/src/runtime/c/gu/exn.c +++ b/src/runtime/c/gu/exn.c @@ -15,6 +15,11 @@ gu_new_exn(GuExn* parent, GuKind* catch, GuPool* pool) return exn; } +bool +gu_exn_is_raised(GuExn* err) { + return err && (err->state == GU_EXN_RAISED); +} + void gu_exn_block(GuExn* err) { diff --git a/src/runtime/c/gu/exn.h b/src/runtime/c/gu/exn.h index c043c4b8a..3fefae738 100644 --- a/src/runtime/c/gu/exn.h +++ b/src/runtime/c/gu/exn.h @@ -75,10 +75,8 @@ gu_new_exn(GuExn* parent, GuKind* catch_kind, GuPool* pool); -static inline bool -gu_exn_is_raised(GuExn* err) { - return err && (err->state == GU_EXN_RAISED); -} +bool +gu_exn_is_raised(GuExn* err); static inline void gu_exn_clear(GuExn* err) { |