1 ! Copyright (C) 2008, 2010 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors alien.c-types arrays assocs
4 compiler.cfg.builder.alien.boxing cpu.architecture cpu.x86
5 cpu.x86.assembler cpu.x86.assembler.operands kernel layouts locals
6 make math math.order namespaces sequences splitting system ;
11 { int-regs { RDI RSI RDX RCX R8 R9 } }
12 { float-regs { XMM0 XMM1 XMM2 XMM3 XMM4 XMM5 XMM6 XMM7 } }
15 M: x86.64 reserved-stack-space 0 ;
17 : struct-types&offset ( struct-type -- pairs )
19 [ type>> ] [ offset>> ] bi 2array
22 : split-struct ( pairs -- seq )
24 [ 8 mod zero? [ t , ] when , ] assoc-each
25 ] { } make { t } split harvest ;
27 :: flatten-small-struct ( c-type -- seq )
28 c-type struct-types&offset split-struct [
29 [ lookup-c-type c-type-rep reg-class-of ] map
30 int-regs swap member? int-rep double-rep ?
33 int-reg-reps get float-reg-reps get and [
34 reps reg-reps :> ( int-mems float-mems )
35 int-reg-reps get int-mems + 6 >
36 float-reg-reps get float-mems + 8 > or [
37 reps [ first t f 3array ] map
41 M: x86.64 flatten-struct-type
43 [ flatten-small-struct record-reg-reps ] [
44 call-next-method unrecord-reg-reps
45 [ first t f 3array ] map
48 M: x86.64 return-struct-in-registers?
49 heap-size 2 cells <= ;
51 M: x86.64 dummy-stack-params? f ;
53 M: x86.64 dummy-int-params? f ;
55 M: x86.64 dummy-fp-params? f ;
57 M: x86.64 %prepare-var-args
58 [ second reg-class-of float-regs? ] count 8 min
59 [ EAX EAX XOR ] [ <byte> AL swap MOV ] if-zero ;