basis/cpu/x86/64/64-tests.factor

   1 USING: alien alien.c-types cpu.architecture cpu.x86.64
   2 cpu.x86.assembler cpu.x86.assembler.operands tools.test
   3 assocs sequences ;
   4 IN: cpu.x86.64.tests
   5
   6 : assembly-test-1 ( -- x ) int { } cdecl [ RAX 3 MOV ] alien-assembly ;
   7
   8 [ 3 ] [ assembly-test-1 ] unit-test
   9
  10 : assembly-test-2 ( a b -- x )
  11     int { int int } cdecl [
  12         param-reg-0 param-reg-1 ADD
  13         int-regs return-regs at first param-reg-0 MOV
  14     ] alien-assembly ;
  15
  16 [ 23 ] [ 17 6 assembly-test-2 ] unit-test