diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2020-10-17 15:20:46 -0400 |
|---|---|---|
| committer | Moritz Angermann <moritz.angermann@gmail.com> | 2020-11-19 10:25:12 +0800 |
| commit | 5807df4f99a6d109070b591331ed9f1f90cbd4f7 (patch) | |
| tree | 4364cab39df260544f62d99cbc6b0d0c749fe59f /compiler | |
| parent | 09ce35c7dec394ecb3a28dad9e88ef5f99042883 (diff) | |
| download | haskell-gitlab/wip/T18857.tar.gz | |
CmmToLlvm: Declare signature for memcmpgitlab/wip/T18857
Otherwise `opt` fails with:
error: use of undefined value '@memcmp$def'
fixup ShortText & SymbolExtras
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/GHC/CmmToLlvm/Base.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/GHC/CmmToLlvm/Base.hs b/compiler/GHC/CmmToLlvm/Base.hs index 43eaab424e..1c83c18c6c 100644 --- a/compiler/GHC/CmmToLlvm/Base.hs +++ b/compiler/GHC/CmmToLlvm/Base.hs @@ -476,6 +476,8 @@ ghcInternalFunctions :: LlvmM () ghcInternalFunctions = do platform <- getPlatform let w = llvmWord platform + cint = LMInt $ widthInBits $ cIntWidth platform + mk "memcmp" cint [i8Ptr, i8Ptr, w] mk "memcpy" i8Ptr [i8Ptr, i8Ptr, w] mk "memmove" i8Ptr [i8Ptr, i8Ptr, w] mk "memset" i8Ptr [i8Ptr, w, w] |