msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

make gu_exn_is_raised non inlined. this is useful to make it callable from Haskell

Browse Source
This commit is contained in:
kr.angelov
2013-11-01 16:38:16 +00:00
parent d454165f24
commit 8073f9abf5
2 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/runtime/c/gu/exn.c
View File

@@ -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)
{

6
src/runtime/c/gu/exn.h
View File

@@ -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) {