diff options
author | Ben Gamari <ben@smart-cactus.org> | 2022-07-14 09:06:46 -0400 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2022-07-14 19:49:11 -0400 |
commit | ae428688426b9d4f432412b61045086cbefbbcc6 (patch) | |
tree | 101cb9110d92a88385c621c860778ecc74006c65 | |
parent | 114b9bc4c9aceaa244739494000e67353c7b8819 (diff) | |
download | haskell-ae428688426b9d4f432412b61045086cbefbbcc6.tar.gz |
rts/linker: Fix resolution of __dso_handle on Darwin
Darwin expects a leading underscore.
(cherry picked from commit 1790cc8d6193ea08526b0ae556167aa4146f2cc4)
-rw-r--r-- | rts/Linker.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index e3bcd5d795..0672873a2d 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -846,7 +846,7 @@ SymbolAddr* lookupDependentSymbol (SymbolName* lbl, ObjectCode *dependent, SymTy RtsSymbolInfo *pinfo; /* See Note [Resolving __dso_handle] */ - if (strcmp(lbl, "__dso_handle") == 0) { + if (strcmp(lbl, MAYBE_LEADING_UNDERSCORE_STR("__dso_handle")) == 0) { if (dependent) { return dependent->image; } else { |