Refactor

[factor.git] / vm / os-windows.cpp

diff --git a/vm/os-windows.cpp b/vm/os-windows.cpp
index 8b48d08ac390b9a41c03d1f12c06be213a069cca..320b5dcee6d6201693c18a7c26332e3de5b0c849 100644 (file)
--- a/vm/os-windows.cpp
+++ b/vm/os-windows.cpp
@@ -107,9 +107,7 @@ segment::segment(cell size_, bool executable_p) {
 }
 
 segment::~segment() {
-  SYSTEM_INFO si;
-  GetSystemInfo(&si);
-  if (!VirtualFree((void*)(start - si.dwPageSize), 0, MEM_RELEASE))
+  if (!VirtualFree((void*)(start - getpagesize()), 0, MEM_RELEASE))
     fatal_error("Segment deallocation failed", 0);
 }