[Gd-chatter] r10712 - trunk/fundev/sources/lib/memory-manager

[andreas at gwydiondylan.org]

Author: andreas
Date: Fri May  5 00:21:56 2006
New Revision: 10712

Modified:
   trunk/fundev/sources/lib/memory-manager/native-memory-manager.dylan
Log:
job: fd

Ugly workaround for when we allocate more memory than we can represent in an <integer>. Yuck.

Modified: trunk/fundev/sources/lib/memory-manager/native-memory-manager.dylan
==============================================================================
--- trunk/fundev/sources/lib/memory-manager/native-memory-manager.dylan	(original)
+++ trunk/fundev/sources/lib/memory-manager/native-memory-manager.dylan	Fri May  5 00:21:56 2006
@@ -6,7 +6,12 @@
 Warranty:     Distributed WITHOUT WARRANTY OF ANY KIND
 
 define method room () 
-  values(raw-as-integer(primitive-mps-committed()), 0)
+  block()
+    values(raw-as-integer(primitive-mps-committed()), 0)
+  exception (e :: <arithmetic-error>)
+    // yes, it's an ugly workaround, and I demand real integers in Dylan
+    values($maximum-integer, 0)
+  end
 end method;
 
 define method collect-garbage (#key print-stats?)