nsz Git - libfirm/blob - ir/be/amd64/amd64_spec.pl

   1 $arch = "amd64";
   2
   3 %reg_classes = (
   4         gp => [
   5                 { name => "rax", dwarf => 0 },
   6                 { name => "rcx", dwarf => 2 },
   7                 { name => "rdx", dwarf => 1 },
   8                 { name => "rsi", dwarf => 4 },
   9                 { name => "rdi", dwarf => 5 },
  10                 { name => "rbx", dwarf => 3 },
  11                 { name => "rbp", dwarf => 6 },
  12                 { name => "rsp", dwarf => 7, type => $ignore }, # stackpointer?
  13                 { name => "r8",  dwarf => 8 },
  14                 { name => "r9",  dwarf => 9 },
  15                 { name => "r10", dwarf => 10 },
  16                 { name => "r11", dwarf => 11 },
  17                 { name => "r12", dwarf => 12 },
  18                 { name => "r13", dwarf => 13 },
  19                 { name => "r14", dwarf => 14 },
  20                 { name => "r15", dwarf => 15 },
  21 #               { name => "gp_NOREG", type => $ignore }, # we need a dummy register for NoReg nodes
  22                 { mode => "mode_Lu" }
  23         ],
  24 #       fp => [
  25 #               { name => "xmm0",  dwarf => 17 },
  26 #               { name => "xmm1",  dwarf => 18 },
  27 #               { name => "xmm2",  dwarf => 19 },
  28 #               { name => "xmm3",  dwarf => 20 },
  29 #               { name => "xmm4",  dwarf => 21 },
  30 #               { name => "xmm5",  dwarf => 22 },
  31 #               { name => "xmm6",  dwarf => 23 },
  32 #               { name => "xmm7",  dwarf => 24 },
  33 #               { name => "xmm8",  dwarf => 25 },
  34 #               { name => "xmm9",  dwarf => 26 },
  35 #               { name => "xmm10", dwarf => 27 },
  36 #               { name => "xmm11", dwarf => 28 },
  37 #               { name => "xmm12", dwarf => 29 },
  38 #               { name => "xmm13", dwarf => 30 },
  39 #               { name => "xmm14", dwarf => 31 },
  40 #               { name => "xmm15", dwarf => 32 },
  41 #               { mode => "mode_D" }
  42 #       ]
  43         flags => [
  44                 { name => "eflags", dwarf => 49 },
  45                 { mode => "mode_Iu", flags => "manual_ra" }
  46         ],
  47 );
  48
  49 $mode_gp        = "mode_Lu";
  50 $mode_flags     = "mode_Iu";
  51
  52 sub amd64_custom_init_attr {
  53         my $constr = shift;
  54         my $node   = shift;
  55         my $name   = shift;
  56         my $res    = "";
  57
  58         if(defined($node->{modified_flags})) {
  59                 $res .= "\tarch_add_irn_flags(res, arch_irn_flags_modify_flags);\n";
  60         }
  61         return $res;
  62 }
  63 $custom_init_attr_func = \&amd64_custom_init_attr;
  64
  65 $default_copy_attr = "amd64_copy_attr";
  66
  67 %init_attr = (
  68         amd64_attr_t           =>
  69                  "\tinit_amd64_attributes(res, irn_flags_, in_reqs, n_res);",
  70         amd64_SymConst_attr_t =>
  71                 "\tinit_amd64_attributes(res, irn_flags_, in_reqs, n_res);"
  72                 . "\tinit_amd64_SymConst_attributes(res, entity);",
  73         amd64_condcode_attr_t =>
  74                 "\tinit_amd64_attributes(res, irn_flags_, in_reqs, n_res);"
  75                 . "\tinit_amd64_condcode_attributes(res, pnc);",
  76 );
  77
  78 %compare_attr = (
  79         amd64_attr_t           => "cmp_amd64_attr",
  80         amd64_SymConst_attr_t  => "cmp_amd64_attr_SymConst",
  81         amd64_condcode_attr_t  => "cmp_amd64_attr_condcode",
  82 );
  83
  84 %nodes = (
  85 Push => {
  86         state     => "exc_pinned",
  87         reg_req   => { in => [ "gp", "gp", "none", "gp", "rsp" ], out => [ "rsp:I|S", "none" ] },
  88         ins       => [ "base", "index", "mem", "val", "stack" ],
  89         emit      => 'push %S0',
  90         outs      => [ "stack", "M" ],
  91         am        => "source,unary",
  92         latency   => 2,
  93 #       units     => [ "GP" ],
  94 },
  95
  96 Add => {
  97         op_flags   => [ "commutative" ],
  98         irn_flags  => [ "rematerializable" ],
  99         state      => "exc_pinned",
 100         reg_req    => { in => [ "gp", "gp" ],
 101                         out => [ "gp" ] },
 102         ins        => [ "left", "right" ],
 103         outs       => [ "res" ],
 104         mode       => $mode_gp,
 105         modified_flags => 1,
 106 },
 107
 108 Mul => {
 109         # we should not rematrialize this node. It produces 2 results and has
 110         # very strict constraints
 111         state     => "exc_pinned",
 112         reg_req   => { in  => [ "rax", "gp" ],
 113                        out => [ "rax rdx" ] },
 114         ins       => [ "left", "right" ],
 115         emit      => 'mul %S1',
 116         outs      => [ "res" ],
 117         mode      => $mode_gp,
 118         am        => "source,binary",
 119         modified_flags => $status_flags
 120 },
 121
 122 Sub => {
 123         irn_flags  => [ "rematerializable" ],
 124         state      => "exc_pinned",
 125         reg_req    => { in => [ "gp", "gp" ],
 126                         out => [ "gp" ] },
 127         ins        => [ "left", "right" ],
 128         outs       => [ "res" ],
 129         mode       => $mode_gp,
 130         modified_flags => 1,
 131 },
 132
 133 Neg => {
 134         irn_flags => [ "rematerializable" ],
 135         reg_req   => { in => [ "gp" ],
 136                        out => [ "in_r1", "flags" ] },
 137         emit      => 'neg %S0',
 138         ins       => [ "val" ],
 139         outs      => [ "res", "flags" ],
 140         mode      => $mode_gp,
 141         modified_flags => $status_flags
 142 },
 143
 144 Immediate => {
 145         op_flags  => [ "constlike" ],
 146         attr      => "unsigned imm_value",
 147         init_attr => "attr->ext.imm_value = imm_value;",
 148         reg_req   => { out => [ "gp" ] },
 149         emit      => 'mov %C, %D0',
 150         mode      => $mode_gp,
 151 },
 152
 153 SymConst => {
 154         op_flags  => [ "constlike" ],
 155         irn_flags => [ "rematerializable" ],
 156         attr      => "ir_entity *entity",
 157         attr_type => "amd64_SymConst_attr_t",
 158         reg_req   => { out => [ "gp" ] },
 159         outs      => [ "res" ],
 160         mode      => $mode_gp,
 161 },
 162
 163 Conv => {
 164         state     => "exc_pinned",
 165         attr      => "ir_mode *smaller_mode",
 166         init_attr => "attr->ls_mode = smaller_mode;",
 167         reg_req   => { in => [ "gp" ], out => [ "gp" ] },
 168         ins       => [ "val" ],
 169         outs      => [ "res" ],
 170         mode      => $mode_gp,
 171 },
 172
 173 Jmp => {
 174         state     => "pinned",
 175         op_flags  => [ "cfopcode" ],
 176         reg_req   => { out => [ "none" ] },
 177         mode      => "mode_X",
 178 },
 179
 180 Cmp => {
 181         irn_flags => [ "rematerializable" ],
 182         state     => "exc_pinned",
 183         reg_req   => { in  => [ "gp", "gp" ],
 184                        out => [ "flags" ] },
 185         ins       => [ "left", "right" ],
 186         outs      => [ "eflags" ],
 187         emit      => 'cmp %S0, %S1',
 188         attr      => "int ins_permuted, int cmp_unsigned",
 189         init_attr => "attr->data.ins_permuted   = ins_permuted;\n".
 190                      "\tattr->data.cmp_unsigned = cmp_unsigned;\n",
 191         mode      => $mode_flags,
 192         modified_flags => 1,
 193 },
 194
 195 Jcc => {
 196         state     => "pinned",
 197         op_flags  => [ "cfopcode", "forking" ],
 198         reg_req   => { in  => [ "eflags" ], out => [ "none", "none" ] },
 199         ins       => [ "eflags" ],
 200         outs      => [ "false", "true" ],
 201         attr      => "ir_relation relation",
 202         init_attr => "attr->ext.relation = relation;",
 203         mode      => "mode_T",
 204 },
 205
 206 Load => {
 207         op_flags  => [ "uses_memory" ],
 208         state     => "exc_pinned",
 209         reg_req   => { in => [ "gp", "none" ],
 210                        out => [ "gp", "none" ] },
 211         ins       => [ "ptr", "mem" ],
 212         outs      => [ "res",  "M" ],
 213         attr      => "ir_entity *entity",
 214         attr_type => "amd64_SymConst_attr_t",
 215         emit      => "mov %O(%S0), %D0"
 216 },
 217
 218 FrameAddr => {
 219         op_flags  => [ "constlike" ],
 220         irn_flags => [ "rematerializable" ],
 221         reg_req   => { in => [ "gp" ], out => [ "gp" ] },
 222         ins       => [ "base" ],
 223         attr      => "ir_entity *entity",
 224         attr_type => "amd64_SymConst_attr_t",
 225         mode      => $mode_gp,
 226 },
 227
 228 Store => {
 229         op_flags  => [ "uses_memory" ],
 230         state     => "exc_pinned",
 231         reg_req   => { in => [ "gp", "gp", "none" ], out => [ "none" ] },
 232         ins       => [ "ptr", "val", "mem" ],
 233         outs      => [ "M" ],
 234         attr      => "ir_entity *entity",
 235         attr_type => "amd64_SymConst_attr_t",
 236         mode      => "mode_M",
 237         emit      => "mov %S1, %O(%S0)"
 238 },
 239
 240 #NoReg_GP => {
 241 #       state     => "pinned",
 242 #       op_flags  => [ "constlike", "dump_noblcok" ],
 243 #       reg_req   => { out => [ "gp_NOREG:I" ] },
 244 #       units     => [],
 245 #       emit      => "",
 246 #       latency   => 0,
 247 #       mode      => $mode_gp,
 248 #},
 249 );