diff options
author | Simon Marlow <marlowsd@gmail.com> | 2015-10-21 10:42:57 +0100 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2015-10-21 14:05:09 +0100 |
commit | 2bc6efc573d889a81dd28dcf00e0cbd7fafac1b7 (patch) | |
tree | b3eb4e54f3a8730f5072f9c2c8d727387879fbd3 /rts | |
parent | 68a084f378fbab857ccea81643eee15254b2917b (diff) | |
download | haskell-2bc6efc573d889a81dd28dcf00e0cbd7fafac1b7.tar.gz |
Fix caching of pagesize
Summary: Spotted by @erikd
Test Plan: validate
Reviewers: austin, bgamari, erikd
Subscribers: thomie, erikd
Differential Revision: https://phabricator.haskell.org/D1345
Diffstat (limited to 'rts')
-rw-r--r-- | rts/Linker.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index 8e5ffa1353..c40af2feb2 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -2233,10 +2233,9 @@ static StgWord getPageSize(void) { static StgWord pagesize = 0; if (pagesize == 0) { - return sysconf(_SC_PAGESIZE); - } else { - return pagesize; + pagesize = sysconf(_SC_PAGESIZE); } + return pagesize; } static StgWord roundUpToPage (StgWord size) |