diff options
| author | Tamar Christina <tamar@zhox.com> | 2019-01-27 15:54:36 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-02-09 05:50:23 -0500 |
| commit | fb031b9b046e48ffe0d2864ec76bee3bc8ff5625 (patch) | |
| tree | db1b0768f851d9c70c976101225a14e5aef78382 /compiler/nativeGen/X86/Instr.hs | |
| parent | 9bb23d5f8bd7a135670864dfa09dd39a60e94d28 (diff) | |
| download | haskell-fb031b9b046e48ffe0d2864ec76bee3bc8ff5625.tar.gz | |
Stack: fix name mangling.
Diffstat (limited to 'compiler/nativeGen/X86/Instr.hs')
| -rw-r--r-- | compiler/nativeGen/X86/Instr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nativeGen/X86/Instr.hs b/compiler/nativeGen/X86/Instr.hs index 4717ec10d6..beb9a97097 100644 --- a/compiler/nativeGen/X86/Instr.hs +++ b/compiler/nativeGen/X86/Instr.hs @@ -946,7 +946,7 @@ x86_mkStackAllocInstr platform amount ] ArchX86_64 | needs_probe_call platform amount -> [ MOV II64 (OpImm (ImmInt amount)) (OpReg rax) - , CALL (Left $ strImmLit "__chkstk_ms") [rax] + , CALL (Left $ strImmLit "___chkstk_ms") [rax] , SUB II64 (OpReg rax) (OpReg rsp) ] | otherwise -> |