UnicornRegisterDescriptor.class.st

Class {
	#name : #UnicornRegisterDescriptor,
	#superclass : #Object,
	#instVars : [
		'simulator',
		'name',
		'alias'
	],
	#category : #'VMMakerTests-Unicorn'
}

{ #category : #accessing }
UnicornRegisterDescriptor >> alias [
	^ alias
]

{ #category : #accessing }
UnicornRegisterDescriptor >> alias: aString [ 
	
	alias := aString
]

{ #category : #actions }
UnicornRegisterDescriptor >> copyValueToClipboard [
	
	Clipboard clipboardText: self value hex
]

{ #category : #actions }
UnicornRegisterDescriptor >> inspectValue [

	self value inspect
]

{ #category : #accessing }
UnicornRegisterDescriptor >> name [
	^ name
]

{ #category : #accessing }
UnicornRegisterDescriptor >> name: anObject [
	name := anObject
]

{ #category : #accessing }
UnicornRegisterDescriptor >> printOn: aStream [

	(self value isKindOf: Boolean )
		ifTrue: [ ^ aStream print: self value ].
		
	aStream print: self value hex	

]

{ #category : #actions }
UnicornRegisterDescriptor >> printValue [

	simulator memory interpreter longPrintOop: self value
]

{ #category : #accessing }
UnicornRegisterDescriptor >> simulator [
	^ simulator
]

{ #category : #accessing }
UnicornRegisterDescriptor >> simulator: anObject [
	simulator := anObject
]

{ #category : #accessing }
UnicornRegisterDescriptor >> value [

	^ simulator perform: name
]