hg/jv-dragonfly: asm/AJStackAlignmentTests.st@d2d9a2d4d6bf (annotated)

3 483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'jv:dragonfly/asm' }"
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Smalltalk }"
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	TestCase subclass:#AJStackAlignmentTests
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:'AJx86Registers'
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'AsmJit-Tests'
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	!AJStackAlignmentTests methodsFor:'tests'!
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	testJumps
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	\| asm callInfo \|
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	asm := self newAssembler.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	asm noStackFrame.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	asm jmp: #foo;
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	nop;
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	nop;
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	nop;
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	nop;
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	nop;
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	nop;
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	nop;
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	nop;
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	label: #foo.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	^ asm generatedCode.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	!
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	testNewProtocolForAlignedCalls
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	\| asm callInfo \|
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	asm := self newAssembler.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	asm cdeclCall: [:call \|
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	call
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	push: EAX;
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	push: EAX;
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	push: 4.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	asm call: EAX.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	callInfo := call.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	] alignment: 32.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54	asm generatedCode. "to analyze instructions"
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	self assert: callInfo stackSize = 12.
4 f2d0d2859193 Fixed AsmJit tests. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	56	self assert: callInfo needsAlignment
3 483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57
4 f2d0d2859193 Fixed AsmJit tests. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	58	"Modified (format): / 15-12-2015 / 23:20:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3 483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	! !
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	!AJStackAlignmentTests methodsFor:'utility'!
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	newAssembler
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	^ AJx86Assembler new
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	! !
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 15 Jun 2016 23:46:29 +0100
changeset 23	d2d9a2d4d6bf
parent 10	588414eaacff
child 24	5aace704e3c8
permissions	-rw-r--r--