Commit 2bc6efc5 authored by Simon Marlow's avatar Simon Marlow

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
parent 68a084f3
...@@ -2233,10 +2233,9 @@ static StgWord getPageSize(void) ...@@ -2233,10 +2233,9 @@ static StgWord getPageSize(void)
{ {
static StgWord pagesize = 0; static StgWord pagesize = 0;
if (pagesize == 0) { if (pagesize == 0) {
return sysconf(_SC_PAGESIZE); pagesize = sysconf(_SC_PAGESIZE);
} else {
return pagesize;
} }
return pagesize;
} }
static StgWord roundUpToPage (StgWord size) static StgWord roundUpToPage (StgWord size)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment