Indentation.
[libfirm] / ir / be / ia32 / ia32_spec.pl
index 7d84912..121aa27 100644 (file)
@@ -28,10 +28,15 @@ $arch = "ia32";
 #   comment   => "any comment for constructor",
 #   reg_req   => { in => [ "reg_class|register" ], out => [ "reg_class|register|in_rX" ] },
 #   cmp_attr  => "c source code for comparing node attributes",
+#   outs      => { "out1", "out2" } # optional, creates pn_op_out1, ... consts
+#   ins       => { "in1", "in2" }   # optional, creates n_op_in1, ... consts
+#   mode      => "mode_Iu"          # optional, predefines the mode
 #   emit      => "emit code with templates",
-#   attr      => "attitional attribute arguments for constructor"
-#   init_attr => "emit attribute initialization template"
-#   rd_constructor => "c source code which constructs an ir_node"
+#   attr      => "attitional attribute arguments for constructor",
+#   init_attr => "emit attribute initialization template",
+#   rd_constructor => "c source code which constructs an ir_node",
+#   hash_func => "name of the hash function for this operation",
+#   latency   => "latency of this operation (can be float)"
 #   attr_type => "name of the attribute struct",
 # },
 #
@@ -51,6 +56,8 @@ $arch = "ia32";
 #   H   irop_flag_highlevel
 #   c   irop_flag_constlike
 #   K   irop_flag_keep
+#   NB  irop_flag_dump_noblock
+#   NI  irop_flag_dump_noinput
 #
 # irn_flags: special node flags, OPTIONAL (default is 0)
 # following irn_flags are supported:
@@ -212,8 +219,8 @@ $arch = "ia32";
        XXM => "${arch}_emit_xmm_mode_suffix(node);",
        XSD => "${arch}_emit_xmm_mode_suffix_s(node);",
        AM => "${arch}_emit_am(node);",
-       unop3 => "${arch}_emit_unop(node, 3);",
-       unop4 => "${arch}_emit_unop(node, 4);",
+       unop3 => "${arch}_emit_unop(node, n_ia32_unary_op);",
+       unop4 => "${arch}_emit_unop(node, n_ia32_binary_right);",
        binop => "${arch}_emit_binop(node);",
        x87_binop => "${arch}_emit_x87_binop(node);",
        CMP0  => "${arch}_emit_cmp_suffix_node(node, 0);",
@@ -268,32 +275,33 @@ sub ia32_custom_init_attr {
 $custom_init_attr_func = \&ia32_custom_init_attr;
 
 %init_attr = (
-       ia32_attr_t     => "\tinit_ia32_attributes(res, flags, in_reqs, out_reqs, exec_units, n_res);",
-       ia32_x87_attr_t =>
-               "\tinit_ia32_attributes(res, flags, in_reqs, out_reqs, exec_units, n_res);\n".
-               "\tinit_ia32_x87_attributes(res);",
        ia32_asm_attr_t =>
                "\tinit_ia32_attributes(res, flags, in_reqs, out_reqs, exec_units, n_res);\n".
                "\tinit_ia32_x87_attributes(res);".
                "\tinit_ia32_asm_attributes(res);",
-       ia32_immediate_attr_t =>
+       ia32_attr_t     =>
+               "\tinit_ia32_attributes(res, flags, in_reqs, out_reqs, exec_units, n_res);",
+       ia32_condcode_attr_t =>
                "\tinit_ia32_attributes(res, flags, in_reqs, out_reqs, exec_units, n_res);\n".
-               "\tinit_ia32_immediate_attributes(res, symconst, symconst_sign, offset);",
+               "\tinit_ia32_condcode_attributes(res, pnc);",
        ia32_copyb_attr_t =>
                "\tinit_ia32_attributes(res, flags, in_reqs, out_reqs, exec_units, n_res);\n".
                "\tinit_ia32_copyb_attributes(res, size);",
-       ia32_condcode_attr_t =>
+       ia32_immediate_attr_t =>
                "\tinit_ia32_attributes(res, flags, in_reqs, out_reqs, exec_units, n_res);\n".
-               "\tinit_ia32_condcode_attributes(res, pnc);",
+               "\tinit_ia32_immediate_attributes(res, symconst, symconst_sign, offset);",
+       ia32_x87_attr_t =>
+               "\tinit_ia32_attributes(res, flags, in_reqs, out_reqs, exec_units, n_res);\n".
+               "\tinit_ia32_x87_attributes(res);",
 );
 
 %compare_attr = (
-       ia32_attr_t           => "ia32_compare_nodes_attr",
-       ia32_x87_attr_t       => "ia32_compare_x87_attr",
        ia32_asm_attr_t       => "ia32_compare_asm_attr",
-       ia32_immediate_attr_t => "ia32_compare_immediate_attr",
-       ia32_copyb_attr_t     => "ia32_compare_copyb_attr",
+       ia32_attr_t           => "ia32_compare_nodes_attr",
        ia32_condcode_attr_t  => "ia32_compare_condcode_attr",
+       ia32_copyb_attr_t     => "ia32_compare_copyb_attr",
+       ia32_immediate_attr_t => "ia32_compare_immediate_attr",
+       ia32_x87_attr_t       => "ia32_compare_x87_attr",
 );
 
 %operands = (
@@ -316,6 +324,7 @@ Immediate => {
        reg_req   => { out => [ "gp_NOREG" ] },
        attr      => "ir_entity *symconst, int symconst_sign, long offset",
        attr_type => "ia32_immediate_attr_t",
+       hash_func => "ia32_hash_Immediate",
        latency   => 0,
        mode      => $mode_gp,
 },
@@ -332,6 +341,7 @@ Asm => {
        modified_flags => 1,
 },
 
+# "allocates" a free register
 ProduceVal => {
        op_flags  => "c",
        irn_flags => "R",
@@ -422,11 +432,11 @@ l_Adc => {
 
 Mul => {
        # we should not rematrialize this node. It produces 2 results and has
-       # very strict constrains
+       # very strict constraints
        state     => "exc_pinned",
        reg_req   => { in => [ "gp", "gp", "none", "eax", "gp" ],
                       out => [ "eax", "edx", "none" ] },
-       ins       => [ "base", "index", "mem", "val_high", "val_low" ],
+       ins       => [ "base", "index", "mem", "left", "right" ],
        emit      => '. mul%M %unop4',
        outs      => [ "res_low", "res_high", "M" ],
        am        => "source,binary",
@@ -437,7 +447,7 @@ Mul => {
 
 l_Mul => {
        # we should not rematrialize this node. It produces 2 results and has
-       # very strict constrains
+       # very strict constraints
        op_flags  => "C",
        cmp_attr  => "return 1;",
        outs      => [ "EAX", "EDX", "M" ],
@@ -465,7 +475,7 @@ IMul1OP => {
        state     => "exc_pinned",
        reg_req   => { in => [ "gp", "gp", "none", "eax", "gp" ],
                       out => [ "eax", "edx", "none" ] },
-       ins       => [ "base", "index", "mem", "val_high", "val_low" ],
+       ins       => [ "base", "index", "mem", "left", "right" ],
        emit      => '. imul%M %unop4',
        outs      => [ "res_low", "res_high", "M" ],
        am        => "source,binary",
@@ -1008,9 +1018,10 @@ Stc => {
 Cmp => {
        irn_flags => "R",
        state     => "exc_pinned",
-       reg_req   => { in => [ "gp", "gp", "none", "gp", "gp" ] , out => [ "flags" ] },
+       reg_req   => { in  => [ "gp", "gp", "none", "gp", "gp" ],
+                      out => [ "flags", "none", "none" ] },
        ins       => [ "base", "index", "mem", "left", "right" ],
-       outs      => [ "eflags" ],
+       outs      => [ "eflags", "unused", "M" ],
        am        => "source,binary",
        emit      => '. cmp%M %binop',
        attr      => "int ins_permuted, int cmp_unsigned",
@@ -1136,7 +1147,7 @@ SwitchJmp => {
        reg_req   => { in => [ "gp" ], out => [ "none" ] },
        mode      => "mode_T",
        attr_type => "ia32_condcode_attr_t",
-       attr      => "pn_Cmp pnc",
+       attr      => "long pnc",
        latency   => 3,
        units     => [ "BRANCH" ],
        modified_flags => $status_flags,
@@ -1176,7 +1187,7 @@ GetEIP => {
 
 Unknown_GP => {
        state     => "pinned",
-       op_flags  => "c",
+       op_flags  => "c|NB",
        irn_flags => "I",
        reg_req   => { out => [ "gp_UKNWN" ] },
        units     => [],
@@ -1187,7 +1198,7 @@ Unknown_GP => {
 
 Unknown_VFP => {
        state     => "pinned",
-       op_flags  => "c",
+       op_flags  => "c|NB",
        irn_flags => "I",
        reg_req   => { out => [ "vfp_UKNWN" ] },
        units     => [],
@@ -1199,7 +1210,7 @@ Unknown_VFP => {
 
 Unknown_XMM => {
        state     => "pinned",
-       op_flags  => "c",
+       op_flags  => "c|NB",
        irn_flags => "I",
        reg_req   => { out => [ "xmm_UKNWN" ] },
        units     => [],
@@ -1210,7 +1221,7 @@ Unknown_XMM => {
 
 NoReg_GP => {
        state     => "pinned",
-       op_flags  => "c",
+       op_flags  => "c|NB|NI",
        irn_flags => "I",
        reg_req   => { out => [ "gp_NOREG" ] },
        units     => [],
@@ -1221,7 +1232,7 @@ NoReg_GP => {
 
 NoReg_VFP => {
        state     => "pinned",
-       op_flags  => "c",
+       op_flags  => "c|NB|NI",
        irn_flags => "I",
        reg_req   => { out => [ "vfp_NOREG" ] },
        units     => [],
@@ -1233,7 +1244,7 @@ NoReg_VFP => {
 
 NoReg_XMM => {
        state     => "pinned",
-       op_flags  => "c",
+       op_flags  => "c|NB|NI",
        irn_flags => "I",
        reg_req   => { out => [ "xmm_NOREG" ] },
        units     => [],
@@ -1312,21 +1323,6 @@ Load => {
        units     => [ "GP" ],
 },
 
-l_Load => {
-       op_flags  => "L|F",
-       cmp_attr  => "return 1;",
-       outs      => [ "res", "M" ],
-       arity     => 2,
-},
-
-l_Store => {
-       op_flags  => "L|F",
-       cmp_attr  => "return 1;",
-       state     => "exc_pinned",
-       arity     => 3,
-       mode      => "mode_M",
-},
-
 Store => {
        op_flags  => "L|F",
        state     => "exc_pinned",
@@ -1370,7 +1366,7 @@ Push => {
        ins       => [ "base", "index", "mem", "val", "stack" ],
        emit      => '. push%M %unop3',
        outs      => [ "stack:I|S", "M" ],
-       am        => "source,binary",
+       am        => "source,unary",
        latency   => 2,
        units     => [ "GP" ],
 },
@@ -1458,7 +1454,7 @@ Bt => {
        state     => "exc_pinned",
        reg_req   => { in => [ "gp", "gp" ], out => [ "flags" ] },
        ins       => [ "left", "right" ],
-       emit      => '. bt%M %S0, %S1',
+       emit      => '. bt%M %S1, %S0',
        units     => [ "GP" ],
        latency   => 1,
        mode      => $mode_flags,
@@ -1981,12 +1977,6 @@ vfild => {
        attr_type => "ia32_x87_attr_t",
 },
 
-l_vfild => {
-       cmp_attr  => "return 1;",
-       outs      => [ "res", "M" ],
-       arity     => 2,
-},
-
 vfist => {
        state     => "exc_pinned",
        reg_req   => { in => [ "gp", "gp", "none", "vfp", "fpcw" ] },
@@ -1997,11 +1987,15 @@ vfist => {
        attr_type => "ia32_x87_attr_t",
 },
 
-l_vfist => {
-       cmp_attr  => "return 1;",
+# SSE3 fisttp instruction
+vfisttp => {
        state     => "exc_pinned",
-       arity     => 3,
-       mode      => "mode_M",
+       reg_req   => { in => [ "gp", "gp", "none", "vfp" ], out => [ "in_r4", "none" ]},
+       ins       => [ "base", "index", "mem", "val" ],
+       outs      => [ "res", "M" ],
+       latency   => 4,
+       units     => [ "VFP" ],
+       attr_type => "ia32_x87_attr_t",
 },
 
 
@@ -2350,6 +2344,17 @@ fistp => {
        latency   => 2,
 },
 
+# SSE3 firsttp instruction
+fisttp => {
+       state     => "exc_pinned",
+       rd_constructor => "NONE",
+       reg_req   => { },
+       emit      => '. fisttp%M %AM',
+       mode      => "mode_M",
+       attr_type => "ia32_x87_attr_t",
+       latency   => 2,
+},
+
 # constants
 
 fldz => {