GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 11:19:32 -06:00
Code Issues Packages Projects Releases Wiki 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; return exn;
} }
bool
gu_exn_is_raised(GuExn* err) {
return err && (err->state == GU_EXN_RAISED);
}
void void
gu_exn_block(GuExn* err) 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 bool
gu_exn_is_raised(GuExn* err) { gu_exn_is_raised(GuExn* err);
return err && (err->state == GU_EXN_RAISED);
}
static inline void static inline void
gu_exn_clear(GuExn* err) { gu_exn_clear(GuExn* err) {