2015-03-03 17:45:47 -05:00
|
|
|
USING: alien alien.c-types assocs compiler.cfg.registers
|
|
|
|
|
cpu.architecture cpu.x86.64 cpu.x86.assembler cpu.x86.assembler.operands make
|
|
|
|
|
sequences tools.test ;
|
2010-01-06 23:59:17 -05:00
|
|
|
IN: cpu.x86.64.tests
|
|
|
|
|
|
2010-03-31 22:20:35 -04:00
|
|
|
: assembly-test-1 ( -- x ) int { } cdecl [ RAX 3 MOV ] alien-assembly ;
|
2010-01-06 23:59:17 -05:00
|
|
|
|
|
|
|
|
[ 3 ] [ assembly-test-1 ] unit-test
|
|
|
|
|
|
|
|
|
|
: assembly-test-2 ( a b -- x )
|
2010-03-31 22:20:35 -04:00
|
|
|
int { int int } cdecl [
|
2010-01-06 23:59:17 -05:00
|
|
|
param-reg-0 param-reg-1 ADD
|
2010-05-16 03:43:02 -04:00
|
|
|
int-regs return-regs at first param-reg-0 MOV
|
2010-01-06 23:59:17 -05:00
|
|
|
] alien-assembly ;
|
|
|
|
|
|
|
|
|
|
[ 23 ] [ 17 6 assembly-test-2 ] unit-test
|
2015-03-03 17:45:47 -05:00
|
|
|
|
|
|
|
|
{ B{ 73 131 198 24 } } [
|
|
|
|
|
[ T{ ds-loc { n 3 } } %inc ] B{ } make
|
|
|
|
|
] unit-test
|
