diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2021-01-01 20:43:38 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-01-07 00:13:22 -0500 |
| commit | 3b3fcc71bec389adbe7f6545ccb4765d7da5ea65 (patch) | |
| tree | 3f9e082ced3a4e07455a1b3682cd1bf9161c176e /rts/Linker.c | |
| parent | 2f629beb0c3b772518f74e6235318e1466e127aa (diff) | |
| download | haskell-3b3fcc71bec389adbe7f6545ccb4765d7da5ea65.tar.gz | |
rts/Linker: Add noreturn to loadNativeObj on non-ELF platforms
Diffstat (limited to 'rts/Linker.c')
| -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 176127da24..5502965355 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -2012,19 +2012,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) { |