(Green) Tidy stack expand messages.

higepon · May 15, 2010 · 3eb2eee · 3eb2eee
1 parent 48600ec
commit 3eb2eee
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/VM.cpp b/src/VM.cpp
@@ -906,9 +906,13 @@ void VM::setCurrentOutputPort(Object port)
 
 void VM::expandStack(int plusSize)
 {
-    fprintf(stderr, "Stack Expand stack=%p plusSize=%d\n", stack_, plusSize);
 
     const int nextStackSize = stackSize_ + plusSize;
+    const int WARN_STACK_SIZE_IN_MB = 48;
+    if  (nextStackSize * sizeof(intptr_t) > WARN_STACK_SIZE_IN_MB * 1024 * 1024) {
+        fprintf(stderr, "Waring: Stack is growing to %ld MB\n", nextStackSize * sizeof(intptr_t) / 1024 / 1024);
+    }
+
     Object* nextStack = Object::makeObjectArray(nextStackSize);
     if (NULL == nextStack) {
         // todo