UnicornProcessor.class.st

Class {
	#name : #UnicornProcessor,
	#superclass : #Object,
	#instVars : [
		'machineSimulator'
	],
	#category : #'VMMakerTests-Unicorn'
}

{ #category : #'as yet unclassified' }
UnicornProcessor >> cResultRegister [
	
	^ machineSimulator cResultRegisterValue
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> cResultRegister: anInteger [ 
	
	machineSimulator cResultRegisterValue: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> convertIntegerToInternal: anInteger [ 
	
	^ machineSimulator convertIntegerToInternal: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> convertInternalToInteger: anInteger [ 

	^ machineSimulator convertInternalToInteger: anInteger 
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> eax: anInteger [ 
	
	machineSimulator eax: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> ebp: anInteger [ 
	
	machineSimulator ebp: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> ebx: anInteger [ 

	machineSimulator ebx: anInteger 
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> ecx: anInteger [ 

	machineSimulator ecx: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> edi: anInteger [ 
	
	machineSimulator edi: anInteger
]

{ #category : #registers }
UnicornProcessor >> edx: anInteger [ 
	
	^ machineSimulator edx: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> esp: anInteger [ 
	
	machineSimulator esp: anInteger
]

{ #category : #caching }
UnicornProcessor >> flushICacheFrom: startAddress to: endAddress [

	"Do nothing for now..."
	machineSimulator flushICacheFrom: startAddress to: endAddress
]

{ #category : #registers }
UnicornProcessor >> fp [
	
	^ machineSimulator framePointerRegisterValue
]

{ #category : #registers }
UnicornProcessor >> fp: aValue [

	^ machineSimulator framePointerRegisterValue: aValue
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> hasLinkRegister [
	
	^ machineSimulator hasLinkRegister 
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> initializeStackFor: aCompiler [
	
	"Initialize the machine code simulator"
	machineSimulator := UnicornSimulator perform: aCompiler backend class ISA asSymbol.
	machineSimulator memory: aCompiler objectMemory.
	machineSimulator mapMemoryInManager: aCompiler objectMemory memoryManager.

	aCompiler backend configureStackAlignment
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> integerRegisterState [
	
	^ machineSimulator integerRegisterState 
]

{ #category : #registers }
UnicornProcessor >> linkRegisterValue [
	
	^ machineSimulator linkRegisterValue 
]

{ #category : #registers }
UnicornProcessor >> lr: anInteger [ 

	machineSimulator lr: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> machineSimulator [
	^ machineSimulator
]

{ #category : #accessing }
UnicornProcessor >> machineSimulator: aMachineSimulator [
	
	machineSimulator := aMachineSimulator
]

{ #category : #registers }
UnicornProcessor >> pc [
	
	^ machineSimulator instructionPointerRegisterValue
]

{ #category : #registers }
UnicornProcessor >> pc: anInteger [ 
	
	^ machineSimulator instructionPointerRegisterValue: anInteger
]

{ #category : #'stack-management' }
UnicornProcessor >> popWord [
	
	^ machineSimulator popWord
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> postCallArgumentsNumArgs: anInteger in: aSpurSimulatedMemory [ 
	
	^ machineSimulator postCallArgumentsNumArgs: anInteger in: aSpurSimulatedMemory
]

{ #category : #'stack-management' }
UnicornProcessor >> pushWord: anInteger [ 
	
	machineSimulator pushWord: anInteger
]

{ #category : #registers }
UnicornProcessor >> r0: anInteger [ 

	^ machineSimulator r0: anInteger
]

{ #category : #registers }
UnicornProcessor >> r10: anInteger [ 
	
	machineSimulator r10: anInteger
]

{ #category : #registers }
UnicornProcessor >> r11: anInteger [ 
	
	machineSimulator r11: anInteger
]

{ #category : #registers }
UnicornProcessor >> r1: anInteger [ 
	
	^ machineSimulator r1: anInteger 
]

{ #category : #accessing }
UnicornProcessor >> r2: anInteger [ 
	
	machineSimulator r2: anInteger 
]

{ #category : #registers }
UnicornProcessor >> r3: anInteger [ 
	
	machineSimulator r3: anInteger 
]

{ #category : #registers }
UnicornProcessor >> r4: anInteger [ 
	
	machineSimulator r4: anInteger 
]

{ #category : #registers }
UnicornProcessor >> r5: anInteger [ 

	machineSimulator r5: anInteger 
]

{ #category : #registers }
UnicornProcessor >> r6: anInteger [ 
	
	machineSimulator r6: anInteger
]

{ #category : #accessing }
UnicornProcessor >> r8 [

	^ machineSimulator r8
]

{ #category : #accessing }
UnicornProcessor >> r8: anInteger [ 
	
	machineSimulator r8: anInteger 
]

{ #category : #registers }
UnicornProcessor >> r9: anInteger [
	
	machineSimulator r9: anInteger
]

{ #category : #registers }
UnicornProcessor >> r9b: anInteger [ 

	machineSimulator r9b: anInteger
]

{ #category : #registers }
UnicornProcessor >> rax: anInteger [ 
	
	machineSimulator rax: anInteger
]

{ #category : #registers }
UnicornProcessor >> rbp: anInteger [ 
	
	machineSimulator rbp: anInteger
]

{ #category : #registers }
UnicornProcessor >> rcx: anInteger [ 
	
	machineSimulator rcx: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> rdi: anInteger [ 

	machineSimulator rdi: anInteger 
]

{ #category : #registers }
UnicornProcessor >> rdx: anInteger [ 
	
	machineSimulator rdx: anInteger
]

{ #category : #registers }
UnicornProcessor >> retpcIn: aSpurSimulatedMemory [ 

	^ machineSimulator retpcIn: aSpurSimulatedMemory 
]

{ #category : #'accessing registers' }
UnicornProcessor >> rsi: anInteger [ 
	
	^ machineSimulator rsi: anInteger
]

{ #category : #registers }
UnicornProcessor >> rsp: anInteger [ 
	
	machineSimulator rsp: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> runInMemory: aMemory minimumAddress: minimumAddress readOnlyBelow: minimumWritableAddress [


	^ machineSimulator startAt: machineSimulator instructionPointerRegisterValue
		until: 0
		timeout: 0
		count: 0
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> runUntil: anAddress [

	^ machineSimulator startAt: machineSimulator instructionPointerRegisterValue
		until: anAddress
		timeout: 100000 "microseconds = 100ms"
		count: 0
]

{ #category : #initialization }
UnicornProcessor >> setFramePointer: framePointer stackPointer: stackPointer [
	
	machineSimulator framePointerRegisterValue: framePointer.
	machineSimulator stackPointerRegisterValue: stackPointer
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> simulateJumpCallOf: anInteger memory: aSpurSimulatedMemory [

	machineSimulator simulateJumpCallOf: anInteger memory: aSpurSimulatedMemory
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> simulateLeafCallOf: address nextpc: nextpc memory: aMemory [

	machineSimulator simulateLeafCallOf: address nextpc: nextpc memory: aMemory
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> simulateReturnIn: aSpurSimulatedMemory [ 

	^ machineSimulator simulateReturnIn: aSpurSimulatedMemory 

]

{ #category : #'as yet unclassified' }
UnicornProcessor >> smashCallerSavedRegistersWithValuesFrom: anInteger by: anInteger2 in: aSpurSimulatedMemory [ 
	
	machineSimulator smashCallerSavedRegistersWithValuesFrom: anInteger by: anInteger2 in: aSpurSimulatedMemory 
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> smashRegistersWithValuesFrom: base by: step [
	
	machineSimulator smashRegistersWithValuesFrom: base by: step
]

{ #category : #registers }
UnicornProcessor >> sp [
	
	^ machineSimulator stackPointerRegisterValue
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> sp: anInteger [ 
	
	machineSimulator stackPointerRegisterValue: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> w25: anInteger [ 
	
	machineSimulator w25: anInteger 
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> w6: anInteger [ 
	
	machineSimulator w6: anInteger 
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> x12: anInteger [ 
	
	machineSimulator x12: anInteger
]

{ #category : #accessing }
UnicornProcessor >> x16: anInteger [ 
	
	machineSimulator x16: anInteger
]

{ #category : #accessing }
UnicornProcessor >> x19: anInteger [ 

	machineSimulator x19: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> x1: anInteger [ 

	machineSimulator x1: anInteger
]

{ #category : #accessing }
UnicornProcessor >> x23: anInteger [ 
	
	machineSimulator x23: anInteger
]

{ #category : #accessing }
UnicornProcessor >> x24: anInteger [ 
	
	machineSimulator x24: anInteger
]

{ #category : #accessing }
UnicornProcessor >> x25: anInteger [ 
	
	machineSimulator x25: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> x28: anInteger [ 
	
	machineSimulator x28: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> x29: anInteger [ 
	
	machineSimulator x29: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> x30: anInteger [ 

	machineSimulator x30: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> x3: anInteger [ 
	
	machineSimulator x3: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> x4: anInteger [ 

	machineSimulator x4: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> x5: anInteger [ 
	
	machineSimulator x5: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> x6: anInteger [ 
	
	machineSimulator x6: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> x7: anInteger [ 
	
	machineSimulator x7: anInteger
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> xzr [
	
	^ machineSimulator xzr
]

{ #category : #'as yet unclassified' }
UnicornProcessor >> xzr: anInteger [ 
	
	machineSimulator xzr: anInteger
]