[commit: ghc] wip/erikd/rts: wip (384439f)
git at git.haskell.org
git at git.haskell.org
Thu Oct 20 09:44:33 UTC 2016
Repository : ssh://git@git.haskell.org/ghc
On branch : wip/erikd/rts
Link : http://ghc.haskell.org/trac/ghc/changeset/384439fab5ced4c884cb77019d75e1c36de2008a/ghc
>---------------------------------------------------------------
commit 384439fab5ced4c884cb77019d75e1c36de2008a
Author: Erik de Castro Lopo <erikd at mega-nerd.com>
Date: Fri Jul 1 20:21:26 2016 +1000
wip
>---------------------------------------------------------------
384439fab5ced4c884cb77019d75e1c36de2008a
rts/posix/OSMem.c | 9 ++++-----
rts/posix/OSThreads.c | 2 +-
2 files changed, 5 insertions(+), 6 deletions(-)
diff --git a/rts/posix/OSMem.c b/rts/posix/OSMem.c
index f2177b4..7865623 100644
--- a/rts/posix/OSMem.c
+++ b/rts/posix/OSMem.c
@@ -10,7 +10,6 @@
// #include "PosixSource.h"
#include "Rts.h"
-
#include "RtsUtils.h"
#include "sm/OSMem.h"
#include "sm/HeapAlloc.h"
@@ -306,7 +305,7 @@ void osBindMBlocksToNode(
StgWord size STG_UNUSED,
uint32_t node STG_UNUSED)
{
-#if HAVE_LIBNUMA
+#if USE_LIBNUMA
int ret;
StgWord mask = 0;
mask |= 1 << node;
@@ -564,7 +563,7 @@ void osReleaseHeapMemory(void)
rtsBool osNumaAvailable(void)
{
-#if HAVE_LIBNUMA
+#if USE_LIBNUMA
return (numa_available() != -1);
#else
return rtsFalse;
@@ -573,7 +572,7 @@ rtsBool osNumaAvailable(void)
uint32_t osNumaNodes(void)
{
-#if HAVE_LIBNUMA
+#if USE_LIBNUMA
return numa_num_configured_nodes();
#else
return 1;
@@ -582,7 +581,7 @@ uint32_t osNumaNodes(void)
StgWord osNumaMask(void)
{
-#if HAVE_LIBNUMA
+#if USE_LIBNUMA
struct bitmask *mask;
mask = numa_get_mems_allowed();
if (mask->size > sizeof(StgWord)*8) {
diff --git a/rts/posix/OSThreads.c b/rts/posix/OSThreads.c
index f0444b7..04658e1 100644
--- a/rts/posix/OSThreads.c
+++ b/rts/posix/OSThreads.c
@@ -325,7 +325,7 @@ setThreadAffinity (uint32_t n STG_UNUSED,
}
#endif
-#if HAVE_LIBNUMA
+#if USE_LIBNUMA
void setThreadNode (uint32_t node)
{
if (numa_run_on_node(node) == -1) {
More information about the ghc-commits
mailing list