Cleanups/externalize internalize

extracted/vm/include/common/sqVirtualMachine.h

@@ -247,19 +247,6 @@ typedef struct VirtualMachine {
 #if VM_PROXY_MINOR > 7
   /* New methods for proxy version 1.8 */
 
-  /* callbackEnter: Re-enter the interpreter loop for a callback.
-     Arguments:
-       callbackID: Pointer to a location receiving the callback ID
-                   used in callbackLeave
-     Returns: True if successful, false otherwise */
-  sqInt (*callbackEnter)(sqInt *callbackID);
-
-  /* callbackLeave: Leave the interpreter from a previous callback
-     Arguments:
-       callbackID: The ID of the callback received from callbackEnter()
-     Returns: True if succcessful, false otherwise. */
-  sqInt (*callbackLeave)(sqInt  callbackID);
-
   /* addGCRoot: Add a variable location to the garbage collector.
      The contents of the variable location will be updated accordingly.
      Arguments:

extracted/vm/src/common/sqVirtualMachine.c

@@ -191,15 +191,6 @@ void waitOnExternalSemaphoreIndex(sqInt semaphoreIndex);
 
 
 /* Proxy declarations for v1.8 */
-#if NewspeakVM
-static sqInt
-callbackEnter(sqInt *callbackID) { return 0; }
-static sqInt
-callbackLeave(sqInt callbackID) { return 0; }
-#else
-sqInt callbackEnter(sqInt *callbackID);
-sqInt callbackLeave(sqInt  callbackID);
-#endif
 sqInt addGCRoot(sqInt *varLoc);
 sqInt removeGCRoot(sqInt *varLoc);
 
@@ -431,8 +422,6 @@ struct VirtualMachine* sqGetInterpreterProxy(void)
 #endif
 
 #if VM_PROXY_MINOR > 7
-	VM->callbackEnter = callbackEnter;
-	VM->callbackLeave = callbackLeave;
 	VM->addGCRoot = addGCRoot;
 	VM->removeGCRoot = removeGCRoot;
 #endif

smalltalksrc/Slang/SlangMemoryManager.class.st

@@ -158,6 +158,12 @@ SlangMemoryManager >> initialize [
 	memoryMap := Dictionary new
 ]
 
+{ #category : #'memory-access' }
+SlangMemoryManager >> int32AtPointer: address put: aValue [ 
+
+	^ self writeSignedInteger: aValue at: address size: 4
+]
+
 { #category : #'memory-access' }
 SlangMemoryManager >> isValidAddress: address [
 

smalltalksrc/Slang/TMethod.class.st

@@ -3158,8 +3158,6 @@ TMethod >> tryToInlineMethodStatementsIn: aCodeGen statementListsInto: aBlock [
 	stmtLists do: [ :stmtList | 
 		newStatements := OrderedCollection new: stmtList statements size.
 		stmtList statements do: [ :stmt | 
-			1 haltIf: [ 
-				stmt isSend and: [ stmt selector = #initStackPagesAndInterpret ] ].
 			(self
 				 inlineCodeOrNilForStatement: stmt
 				 returningNodes: returningNodes

smalltalksrc/VMMaker-Tools/VMTStackFrame.class.st

@@ -64,5 +64,5 @@ VMTStackFrame >> memory: anObject [
 
 { #category : #accessing }
 VMTStackFrame >> method [
-	^ self interpreter frameMethod: framePointer
+	^ self interpreter iframeMethod: framePointer
 ]