diff options
| author | Tamar Christina <tamar@zhox.com> | 2018-05-28 19:19:18 +0100 |
|---|---|---|
| committer | Tamar Christina <tamar@zhox.com> | 2018-05-28 19:29:44 +0100 |
| commit | 4778cba1dbb6adf495930322d7f9e9db0af60d8f (patch) | |
| tree | 2b8180103d3699eb9ec2aa8450cb8501e7b2d06f /rts/win32 | |
| parent | a5446c4501cf30aa06eab636823d031bb98db739 (diff) | |
| download | haskell-4778cba1dbb6adf495930322d7f9e9db0af60d8f.tar.gz | |
Fix 32 bit windows build
Summary:
Fix a number of issues that have broken the 32 bit build.
This makes it build again.
Test Plan: ./validate
Reviewers: hvr, goldfire, bgamari, erikd, simonmar
Reviewed By: bgamari
Subscribers: rwbarton, thomie, carter
Differential Revision: https://phabricator.haskell.org/D4691
Diffstat (limited to 'rts/win32')
| -rw-r--r-- | rts/win32/OSThreads.c | 2 | ||||
| -rw-r--r-- | rts/win32/veh_excn.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/rts/win32/OSThreads.c b/rts/win32/OSThreads.c index cc673532d7..c67d621bc2 100644 --- a/rts/win32/OSThreads.c +++ b/rts/win32/OSThreads.c @@ -578,7 +578,7 @@ void setThreadNode (uint32_t node) { if (osNumaAvailable()) { - StgWord mask = 0; + uint64_t mask = 0; if (!GetNumaNodeProcessorMask(node, &mask) && !SetThreadAffinityMask(GetCurrentThread(), mask)) { sysErrorBelch( diff --git a/rts/win32/veh_excn.c b/rts/win32/veh_excn.c index a4e5ef68c5..2d9de52199 100644 --- a/rts/win32/veh_excn.c +++ b/rts/win32/veh_excn.c @@ -314,7 +314,7 @@ void generateStack (EXCEPTION_POINTERS* pExceptionPointers) fprintf (stderr, " * 0x%" PRIxPTR "\t%ls\n", (uintptr_t)stackFrame.AddrFrame.Offset, resolveSymbolAddr ((wchar_t*)&buffer, 1024, - (SymbolAddr*)stackFrame.AddrPC.Offset, + (SymbolAddr*)(intptr_t)stackFrame.AddrPC.Offset, &topSp)); if (lastBp >= stackFrame.AddrFrame.Offset) { |