Changeset 12019

Timestamp:

06/20/09 18:38:43 (14 years ago)

Author:

ehuelsmann

Message:

Don't GC before returning the free amount;

it clobbers the programmers' view on the state of memory.

At the same time extend the information made available
to the programmer; return free and maximum amounts too.
This is possible because the return value of ROOM is
implementation dependant.

File:

• trunk/abcl/src/org/armedbear/lisp/room.java (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/room.java

@@ -48 +48 @@
             return error(new WrongNumberOfArgumentsException(this));
         Runtime runtime = Runtime.getRuntime();
-        long total = 0;
-        long free = 0;
-        long maxFree = 0;
-        while (true) {
-            try {
-                runtime.gc();
-                Thread.sleep(100);
-                runtime.runFinalization();
-                Thread.sleep(100);
-                runtime.gc();
-                Thread.sleep(100);
-            }
-            catch (InterruptedException e) {}
-            total = runtime.totalMemory();
-            free = runtime.freeMemory();
-            if (free > maxFree)
-                maxFree = free;
-            else
-                break;
-        }
+        long total = runtime.totalMemory();
+        long free = runtime.freeMemory();
+
         long used = total - free;
         Stream out = getStandardOutput();
@@ -82 +65 @@
         out._writeString(sb.toString());
         out._finishOutput();
-        return number(used);
+        return LispThread.currentThread().setValues(number(used),
+                number(total),number(runtime.maxMemory()));
     }