basis/cpu/x86/64/windows/windows.factor

   1 ! Copyright (C) 2008, 2010 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel layouts system math alien.c-types sequences
   4 compiler.cfg.registers cpu.architecture cpu.x86.assembler
   5 cpu.x86 cpu.x86.64 cpu.x86.assembler.operands ;
   6 IN: cpu.x86.64.windows
   7
   8 M: x86.64 param-regs
   9     drop {
  10         { int-regs { RCX RDX R8 R9 } }
  11         { float-regs { XMM0 XMM1 XMM2 XMM3 } }
  12     } ;
  13
  14 M: x86.64 reserved-stack-space 4 cells ;
  15
  16 M: x86.64 return-struct-in-registers? ( c-type -- ? )
  17     heap-size { 1 2 4 8 } member? ;
  18
  19 M: x86.64 value-struct? heap-size { 1 2 4 8 } member? ;
  20
  21 M: x86.64 dummy-stack-params? f ;
  22
  23 M: x86.64 dummy-int-params? t ;
  24
  25 M: x86.64 dummy-fp-params? t ;
  26
  27 M: x86.64 %prepare-var-args ( reg-inputs -- )
  28     drop ;