From 15a12947a48541cdd77633ffc42c4ea8a6085f83 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 22 Apr 2013 22:08:59 -0700
Subject: [PATCH] system-info.macosx: Stop using 4byte numbers to query system
 RAM. Fixes #858.

---
 basis/system-info/macosx/macosx.factor | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/basis/system-info/macosx/macosx.factor b/basis/system-info/macosx/macosx.factor
index 570ed21887..38cec11a74 100644
--- a/basis/system-info/macosx/macosx.factor
+++ b/basis/system-info/macosx/macosx.factor
@@ -73,8 +73,11 @@ FUNCTION: int sysctl ( int* name, uint namelen, void* oldp, size_t* oldlenp, voi
 : model ( -- str ) { 6 2 } sysctl-query-string ;
 M: macosx cpus ( -- n ) { 6 3 } sysctl-query-uint ;
 : byte-order ( -- n ) { 6 4 } sysctl-query-uint ;
-M: macosx physical-mem ( -- n ) { 6 5 } sysctl-query-uint ;
-: user-mem ( -- n ) { 6 6 } sysctl-query-uint ;
+
+! Only an int, not large enough. Deprecated.
+! M: macosx physical-mem ( -- n ) { 6 5 } sysctl-query-int ;
+! : user-mem ( -- n ) { 6 6 } sysctl-query-uint ;
+
 : page-size ( -- n ) { 6 7 } sysctl-query-uint ;
 : disknames ( -- n ) { 6 8 } 8 sysctl-query ;
 : diskstats ( -- n ) { 6 9 } 8 sysctl-query ;
@@ -92,5 +95,5 @@ M: macosx cpu-mhz ( -- n ) { 6 15 } sysctl-query-uint ;
 : l3-cache-settings ( -- n ) { 6 21 } sysctl-query-uint ;
 : l3-cache-size ( -- n ) { 6 22 } sysctl-query-uint ;
 : tb-frequency ( -- n ) { 6 23 } sysctl-query-uint ;
-: mem-size ( -- n ) { 6 24 } sysctl-query-ulonglong ;
+M: macosx physical-mem ( -- n ) { 6 24 } sysctl-query-ulonglong ;
 : available-cpus ( -- n ) { 6 25 } sysctl-query-uint ;