3 files changed, 168 insertions, 0 deletions
diff --git a/Source/JavaScriptCore/interpreter/CallFrame.h b/Source/JavaScriptCore/interpreter/CallFrame.h
index 0488bb4ea..ea98f6652 100644
--- a/Source/JavaScriptCore/interpreter/CallFrame.h
+++ b/Source/JavaScriptCore/interpreter/CallFrame.h
@@ -272,6 +272,8 @@ namespace JSC  {
 #endif
         ExecState();
         ~ExecState();
+
+        friend class VMInspector;
     };
 
 } // namespace JSC
diff --git a/Source/JavaScriptCore/interpreter/VMInspector.cpp b/Source/JavaScriptCore/interpreter/VMInspector.cpp
new file mode 100644
index 000000000..34bf61535
--- /dev/null
+++ b/Source/JavaScriptCore/interpreter/VMInspector.cpp
@@ -0,0 +1,116 @@
+/*
+ * Copyright (C) 2012 Apple Inc. All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ *
+ * THIS SOFTWARE IS PROVIDED BY APPLE INC. ``AS IS'' AND ANY
+ * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL APPLE INC. OR
+ * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+ * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
+ * OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+ * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+ * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 
+ */
+
+#include "config.h"
+#include "VMInspector.h"
+
+#if ENABLE(VMINSPECTOR)
+
+namespace JSC {
+
+const char* VMInspector::getTypeName(JSValue value)
+{
+    if (value.isInt32())
+        return "<Int32>";
+    if (value.isBoolean())
+        return "<Boolean>";
+    if (value.isNull())
+        return "<Empty>";
+    if (value.isUndefined())
+        return "<Undefined>";
+    if (value.isCell())
+        return "<Cell>";
+    if (value.isEmpty())
+        return "<Empty>";
+    return "";
+}
+
+void VMInspector::dumpFrame0(CallFrame* frame)
+{
+    dumpFrame(frame, 0, 0, 0, 0);
+}
+
+void VMInspector::dumpFrame(CallFrame* frame, const char* prefix,
+                            const char* funcName, const char* file, int line)
+{
+    int frameCount = VMInspector::countFrames(frame);
+    if (frameCount < 0)
+        return;
+
+    Instruction* vPC = 0;
+    if (frame->codeBlock())
+        vPC = frame->currentVPC();
+
+    #define CAST reinterpret_cast
+
+    if (prefix)
+        printf("%s ", prefix);
+
+    printf("frame [%d] %p { cb %p:%s, retPC %p:%s, scope %p:%s, callee %p:%s, callerFrame %p:%s, argc %d, vPC %p }",
+           frameCount, frame,
+
+           CAST<void*>(frame[RegisterFile::CodeBlock].payload()),
+           getTypeName(frame[RegisterFile::CodeBlock].jsValue()),
+
+           CAST<void*>(frame[RegisterFile::ReturnPC].payload()),
+           getTypeName(frame[RegisterFile::ReturnPC].jsValue()),
+
+           CAST<void*>(frame[RegisterFile::ScopeChain].payload()),
+           getTypeName(frame[RegisterFile::ScopeChain].jsValue()),
+
+           CAST<void*>(frame[RegisterFile::Callee].payload()),
+           getTypeName(frame[RegisterFile::Callee].jsValue()),
+
+           CAST<void*>(frame[RegisterFile::CallerFrame].payload()),
+           getTypeName(frame[RegisterFile::CallerFrame].jsValue()),
+
+           frame[RegisterFile::ArgumentCount].payload(),
+           vPC);
+
+    if (funcName || file || (line >= 0)) {
+        printf(" @");
+        if (funcName)
+            printf(" %s", funcName);
+        if (file)
+            printf(" %s", file);
+        if (line >= 0)
+            printf(":%d", line);
+    }
+    printf("\n");
+}
+
+int VMInspector::countFrames(CallFrame* frame)
+{
+    int count = -1;
+    while (frame && !frame->hasHostCallFrameFlag()) {
+        count++;
+        frame = frame->callerFrame();
+    }
+    return count;
+}
+
+} // namespace JSC
+
+#endif // ENABLE(VMINSPECTOR)
diff --git a/Source/JavaScriptCore/interpreter/VMInspector.h b/Source/JavaScriptCore/interpreter/VMInspector.h
new file mode 100644
index 000000000..6806cafa1
--- /dev/null
+++ b/Source/JavaScriptCore/interpreter/VMInspector.h
@@ -0,0 +1,50 @@
+/*
+ * Copyright (C) 2012 Apple Inc. All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ *
+ * THIS SOFTWARE IS PROVIDED BY APPLE INC. ``AS IS'' AND ANY
+ * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL APPLE INC. OR
+ * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+ * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
+ * OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+ * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+ * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 
+ */
+
+#ifndef VMInspector_h
+#define VMInspector_h
+
+#define ENABLE_VMINSPECTOR 0
+
+#if ENABLE(VMINSPECTOR)
+
+#include "CallFrame.h"
+#include "JSValue.h"
+
+namespace JSC {
+
+class VMInspector {
+public:    
+    static JS_EXPORT_PRIVATE const char* getTypeName(JSValue);
+    static JS_EXPORT_PRIVATE void dumpFrame0(CallFrame*);
+    static JS_EXPORT_PRIVATE void dumpFrame(CallFrame*, const char* prefix = 0, const char* funcName = 0, const char* file = 0, int line = -1);
+    static JS_EXPORT_PRIVATE int countFrames(CallFrame*);
+};
+
+} // namespace JSC
+
+#endif // ENABLE(VMINSPECTOR)
+
+#endif // VMInspector.h