[pypy-commit] lang-smalltalk default: added primitives for vmdebugging

[lwassermann]

Author: Lars Wassermann <lars.wassermann at gmail.com>
Branch: 
Changeset: r422:2c471ff9ff49
Date: 2013-05-29 21:18 +0200
http://bitbucket.org/pypy/lang-smalltalk/changeset/2c471ff9ff49/

Log:	added primitives for vmdebugging

diff --git a/spyvm/plugins/vmdebugging.py b/spyvm/plugins/vmdebugging.py
--- a/spyvm/plugins/vmdebugging.py
+++ b/spyvm/plugins/vmdebugging.py
@@ -28,6 +28,18 @@
         raise Exit('Halt is not well defined when translated.')
     return w_rcvr
 
+ at DebuggingPlugin.expose_primitive(unwrap_spec=[object])
+def isRSqueak(interp, s_frame, w_rcvr):
+    return interp.space.w_true
+
+ at DebuggingPlugin.expose_primitive(unwrap_spec=[object])
+def isVMTranslated(interp, s_frame, w_rcvr):
+    from rpython.rlib.objectmodel import we_are_translated
+    if we_are_translated():
+        return interp.space.w_true
+    else:
+        return interp.space.w_false
+
 @DebuggingPlugin.expose_primitive(unwrap_spec=[object, object])
 def debugPrint(interp, s_frame, w_rcvr, w_string):
     if not isinstance(w_string, model.W_BytesObject):