Context: return value of context's pSelf slot as large integer rather then nil. jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Fri, 29 Jul 2016 21:39:49 +0100
branchjv
changeset 20204 9a24c81d04ff
parent 20154 52198bb46e04
child 20205 03e626304d06
Context: return value of context's pSelf slot as large integer rather then nil. While pSelf (pointer to native on-stack frame) is not of any use in Smalltalk, knowing it's value might be useful for debugging.
Context.st
--- a/Context.st	Fri Jul 15 07:00:33 2016 +0200
+++ b/Context.st	Fri Jul 29 21:39:49 2016 +0100
@@ -419,7 +419,7 @@
     } else if (index == __MKSMALLINT(__SLOT_CONTEXT_RETVAL)) {          // retvalTemp - invisible
 	 RETURN (nil);
     } else if (index == __MKSMALLINT(__SLOT_CONTEXT_HANDLE)) {          // handle to machine stack - invisible
-	 RETURN (nil);
+	 RETURN ( __MKUINT ( (unsigned INT)(__ContextInstPtr(self)->c_pSelf) ) );
     }
 #endif
 %}.