diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2021-01-01 20:43:38 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2021-04-07 18:37:46 -0400 |
| commit | c8b0b726681ac0da032dafead9d3c41c47261055 (patch) | |
| tree | 3c4da54a889927a48aed5d8d98c70e75cb4ca8d2 | |
| parent | fa78c21956d71c470270d81e3f9b2503de61d842 (diff) | |
| download | haskell-c8b0b726681ac0da032dafead9d3c41c47261055.tar.gz | |
rts/Linker: Add noreturn to loadNativeObj on non-ELF platforms
(cherry picked from commit 16a69eafc35eabd1cf579187e980eab685e1d2e1)
| -rw-r--r-- | rts/Linker.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index 483c76431e..307ca73f62 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -1923,19 +1923,23 @@ addSection (Section *s, SectionKind kind, SectionAlloc alloc, #define UNUSED(x) (void)(x) +#if defined(OBJFORMAT_ELF) void * loadNativeObj (pathchar *path, char **errmsg) { -#if defined(OBJFORMAT_ELF) ACQUIRE_LOCK(&linker_mutex); void *r = loadNativeObj_ELF(path, errmsg); RELEASE_LOCK(&linker_mutex); return r; +} #else +void * GNU_ATTRIBUTE(__noreturn__) +loadNativeObj (pathchar *path, char **errmsg) +{ UNUSED(path); UNUSED(errmsg); barf("loadNativeObj: not implemented on this platform"); -#endif } +#endif HsInt unloadNativeObj (void *handle) { |