- BugFix:
[libfirm] / ir / be / ia32 / ia32_spec.pl
1 # Creation: 2005/10/19
2 # $Id$
3 # This is the specification for the ia32 assembler Firm-operations
4
5 use File::Basename;
6
7 $new_emit_syntax = 1;
8 my $myname = $0;
9
10 # the cpu architecture (ia32, ia64, mips, sparc, ppc, ...)
11 $arch = "ia32";
12
13 # The node description is done as a perl hash initializer with the
14 # following structure:
15 #
16 # %nodes = (
17 #
18 # <op-name> => {
19 #   op_flags  => "N|L|C|X|I|F|Y|H|c|K",
20 #   irn_flags => "R|N|I|S"
21 #   arity     => "0|1|2|3 ... |variable|dynamic|any",
22 #   state     => "floats|pinned|mem_pinned|exc_pinned",
23 #   args      => [
24 #                    { type => "type 1", name => "name 1" },
25 #                    { type => "type 2", name => "name 2" },
26 #                    ...
27 #                  ],
28 #   comment   => "any comment for constructor",
29 #   reg_req   => { in => [ "reg_class|register" ], out => [ "reg_class|register|in_rX" ] },
30 #   cmp_attr  => "c source code for comparing node attributes",
31 #   emit      => "emit code with templates",
32 #   attr      => "attitional attribute arguments for constructor"
33 #   init_attr => "emit attribute initialization template"
34 #   rd_constructor => "c source code which constructs an ir_node"
35 #   attr_type => "name of the attribute struct",
36 # },
37 #
38 # ... # (all nodes you need to describe)
39 #
40 # ); # close the %nodes initializer
41
42 # op_flags: flags for the operation, OPTIONAL (default is "N")
43 # the op_flags correspond to the firm irop_flags:
44 #   N   irop_flag_none
45 #   L   irop_flag_labeled
46 #   C   irop_flag_commutative
47 #   X   irop_flag_cfopcode
48 #   I   irop_flag_ip_cfopcode
49 #   F   irop_flag_fragile
50 #   Y   irop_flag_forking
51 #   H   irop_flag_highlevel
52 #   c   irop_flag_constlike
53 #   K   irop_flag_keep
54 #
55 # irn_flags: special node flags, OPTIONAL (default is 0)
56 # following irn_flags are supported:
57 #   R   rematerializeable
58 #   N   not spillable
59 #   I   ignore for register allocation
60 #   S   modifies stack pointer
61 #
62 # state: state of the operation, OPTIONAL (default is "floats")
63 #
64 # arity: arity of the operation, MUST NOT BE OMITTED
65 #
66 # args:  the OPTIONAL arguments of the node constructor (debug, irg and block
67 #        are always the first 3 arguments and are always autmatically
68 #        created)
69 #        If this key is missing the following arguments will be created:
70 #        for i = 1 .. arity: ir_node *op_i
71 #        ir_mode *mode
72 #
73 # outs:  if a node defines more than one output, the names of the projections
74 #        nodes having outs having automatically the mode mode_T
75 #        One can also annotate some flags for each out, additional to irn_flags.
76 #        They are separated from name with a colon ':', and concatenated by pipe '|'
77 #        Only I and S are available at the moment (same meaning as in irn_flags).
78 #        example: [ "frame:I", "stack:I|S", "M" ]
79 #
80 # comment: OPTIONAL comment for the node constructor
81 #
82 # rd_constructor: for every operation there will be a
83 #      new_rd_<arch>_<op-name> function with the arguments from above
84 #      which creates the ir_node corresponding to the defined operation
85 #      you can either put the complete source code of this function here
86 #
87 #      This key is OPTIONAL. If omitted, the following constructor will
88 #      be created:
89 #      if (!op_<arch>_<op-name>) assert(0);
90 #      for i = 1 to arity
91 #         set in[i] = op_i
92 #      done
93 #      res = new_ir_node(db, irg, block, op_<arch>_<op-name>, mode, arity, in)
94 #      return res
95 #
96 # NOTE: rd_constructor and args are only optional if and only if arity is 0,1,2 or 3
97 #
98
99 # register types:
100 #   0 - no special type
101 #   1 - caller save (register must be saved by the caller of a function)
102 #   2 - callee save (register must be saved by the called function)
103 #   4 - ignore (do not assign this register)
104 #   8 - emitter can choose an arbitrary register of this class
105 #  16 - the register is a virtual one
106 #  32 - register represents a state
107 # NOTE: Last entry of each class is the largest Firm-Mode a register can hold
108 %reg_classes = (
109         gp => [
110                 { name => "edx", type => 1 },
111                 { name => "ecx", type => 1 },
112                 { name => "eax", type => 1 },
113                 { name => "ebx", type => 2 },
114                 { name => "esi", type => 2 },
115                 { name => "edi", type => 2 },
116                 { name => "ebp", type => 2 },
117                 { name => "esp", type => 4 },
118                 { name => "gp_NOREG", type => 4 | 8 | 16 }, # we need a dummy register for NoReg nodes
119                 { name => "gp_UKNWN", type => 4 | 8 | 16 },  # we need a dummy register for Unknown nodes
120                 { mode => "mode_Iu" }
121         ],
122         mmx => [
123                 { name => "mm0", type => 4 },
124                 { name => "mm1", type => 4 },
125                 { name => "mm2", type => 4 },
126                 { name => "mm3", type => 4 },
127                 { name => "mm4", type => 4 },
128                 { name => "mm5", type => 4 },
129                 { name => "mm6", type => 4 },
130                 { name => "mm7", type => 4 },
131                 { mode => "mode_E", flags => "manual_ra" }
132         ],
133         xmm => [
134                 { name => "xmm0", type => 1 },
135                 { name => "xmm1", type => 1 },
136                 { name => "xmm2", type => 1 },
137                 { name => "xmm3", type => 1 },
138                 { name => "xmm4", type => 1 },
139                 { name => "xmm5", type => 1 },
140                 { name => "xmm6", type => 1 },
141                 { name => "xmm7", type => 1 },
142                 { name => "xmm_NOREG", type => 4 | 16 },     # we need a dummy register for NoReg nodes
143                 { name => "xmm_UKNWN", type => 4 | 8 | 16},  # we need a dummy register for Unknown nodes
144                 { mode => "mode_E" }
145         ],
146         vfp => [
147                 { name => "vf0", type => 1 | 16 },
148                 { name => "vf1", type => 1 | 16 },
149                 { name => "vf2", type => 1 | 16 },
150                 { name => "vf3", type => 1 | 16 },
151                 { name => "vf4", type => 1 | 16 },
152                 { name => "vf5", type => 1 | 16 },
153                 { name => "vf6", type => 1 | 16 },
154                 { name => "vf7", type => 1 | 16 },
155                 { name => "vfp_NOREG", type => 4 | 8 | 16 }, # we need a dummy register for NoReg nodes
156                 { name => "vfp_UKNWN", type => 4 | 8 | 16 },  # we need a dummy register for Unknown nodes
157                 { mode => "mode_E" }
158         ],
159         st => [
160                 { name => "st0", realname => "st",    type => 4 },
161                 { name => "st1", realname => "st(1)", type => 4 },
162                 { name => "st2", realname => "st(2)", type => 4 },
163                 { name => "st3", realname => "st(3)", type => 4 },
164                 { name => "st4", realname => "st(4)", type => 4 },
165                 { name => "st5", realname => "st(5)", type => 4 },
166                 { name => "st6", realname => "st(6)", type => 4 },
167                 { name => "st7", realname => "st(7)", type => 4 },
168                 { mode => "mode_E", flags => "manual_ra" }
169         ],
170         fp_cw => [      # the floating point control word
171                 { name => "fpcw", type => 4|32 },
172                 { mode => "mode_fpcw", flags => "manual_ra|state" }
173         ],
174         flags => [
175                 { name => "eflags", type => 0 },
176                 { mode => "mode_Iu", flags => "manual_ra" }
177         ],
178 ); # %reg_classes
179
180 %cpu = (
181         GP     => [ 1, "GP_EAX", "GP_EBX", "GP_ECX", "GP_EDX", "GP_ESI", "GP_EDI", "GP_EBP" ],
182         SSE    => [ 1, "SSE_XMM0", "SSE_XMM1", "SSE_XMM2", "SSE_XMM3", "SSE_XMM4", "SSE_XMM5", "SSE_XMM6", "SSE_XMM7" ],
183         VFP    => [ 1, "VFP_VF0", "VFP_VF1", "VFP_VF2", "VFP_VF3", "VFP_VF4", "VFP_VF5", "VFP_VF6", "VFP_VF7" ],
184         BRANCH => [ 1, "BRANCH1", "BRANCH2" ],
185 ); # %cpu
186
187 %vliw = (
188         bundle_size       => 1,
189         bundels_per_cycle => 1
190 ); # vliw
191
192 %emit_templates = (
193         S0 => "${arch}_emit_source_register(node, 0);",
194         S1 => "${arch}_emit_source_register(node, 1);",
195         S2 => "${arch}_emit_source_register(node, 2);",
196         S3 => "${arch}_emit_source_register(node, 3);",
197         SB1 => "${arch}_emit_8bit_source_register_or_immediate(node, 1);",
198         SB2 => "${arch}_emit_8bit_source_register_or_immediate(node, 2);",
199         SB3 => "${arch}_emit_8bit_source_register_or_immediate(node, 3);",
200         SI1 => "${arch}_emit_source_register_or_immediate(node, 1);",
201         SI3 => "${arch}_emit_source_register_or_immediate(node, 3);",
202         D0 => "${arch}_emit_dest_register(node, 0);",
203         D1 => "${arch}_emit_dest_register(node, 1);",
204         DB0 => "${arch}_emit_8bit_dest_register(node, 0);",
205         X0 => "${arch}_emit_x87_register(node, 0);",
206         X1 => "${arch}_emit_x87_register(node, 1);",
207         SE => "${arch}_emit_extend_suffix(get_ia32_ls_mode(node));",
208         ME => "if(get_mode_size_bits(get_ia32_ls_mode(node)) != 32)\n
209                    ia32_emit_mode_suffix(node);",
210         M  => "${arch}_emit_mode_suffix(node);",
211         XM => "${arch}_emit_x87_mode_suffix(node);",
212         XXM => "${arch}_emit_xmm_mode_suffix(node);",
213         XSD => "${arch}_emit_xmm_mode_suffix_s(node);",
214         AM => "${arch}_emit_am(node);",
215         unop3 => "${arch}_emit_unop(node, 3);",
216         unop4 => "${arch}_emit_unop(node, 4);",
217         binop => "${arch}_emit_binop(node);",
218         x87_binop => "${arch}_emit_x87_binop(node);",
219         CMP0  => "${arch}_emit_cmp_suffix_node(node, 0);",
220         CMP3  => "${arch}_emit_cmp_suffix_node(node, 3);",
221 );
222
223 #--------------------------------------------------#
224 #                        _                         #
225 #                       (_)                        #
226 #  _ __   _____      __  _ _ __    ___  _ __  ___  #
227 # | '_ \ / _ \ \ /\ / / | | '__|  / _ \| '_ \/ __| #
228 # | | | |  __/\ V  V /  | | |    | (_) | |_) \__ \ #
229 # |_| |_|\___| \_/\_/   |_|_|     \___/| .__/|___/ #
230 #                                      | |         #
231 #                                      |_|         #
232 #--------------------------------------------------#
233
234 $default_op_attr_type = "ia32_op_attr_t";
235 $default_attr_type    = "ia32_attr_t";
236 $default_copy_attr    = "ia32_copy_attr";
237
238 sub ia32_custom_init_attr {
239         my $node = shift;
240         my $name = shift;
241         my $res = "";
242
243         if(defined($node->{modified_flags})) {
244                 $res .= "\tset_ia32_flags(res, get_ia32_flags(res) | arch_irn_flags_modify_flags);\n";
245         }
246         if(defined($node->{am})) {
247                 my $am = $node->{am};
248                 if($am eq "source,unary") {
249                         $res .= "\tset_ia32_am_support(res, ia32_am_Source, ia32_am_unary);";
250                 } elsif($am eq "source,binary") {
251                         $res .= "\tset_ia32_am_support(res, ia32_am_Source, ia32_am_binary);";
252                 } elsif($am eq "source,ternary") {
253                         $res .= "\tset_ia32_am_support(res, ia32_am_Source, ia32_am_ternary);";
254                 } elsif($am eq "none") {
255                         # nothing to do
256                 } else {
257                         die("Invalid address mode '$am' specified on op $name");
258                 }
259                 if($am ne "none") {
260                         if($node->{state} ne "exc_pinned"
261                                         and $node->{state} ne "pinned") {
262                                 die("AM nodes must have pinned or AM pinned state ($name)");
263                         }
264                 }
265         }
266         return $res;
267 }
268 $custom_init_attr_func = \&ia32_custom_init_attr;
269
270 %init_attr = (
271         ia32_attr_t     => "\tinit_ia32_attributes(res, flags, in_reqs, out_reqs, exec_units, n_res);",
272         ia32_x87_attr_t =>
273                 "\tinit_ia32_attributes(res, flags, in_reqs, out_reqs, exec_units, n_res);\n".
274                 "\tinit_ia32_x87_attributes(res);",
275         ia32_asm_attr_t =>
276                 "\tinit_ia32_attributes(res, flags, in_reqs, out_reqs, exec_units, n_res);\n".
277                 "\tinit_ia32_x87_attributes(res);".
278                 "\tinit_ia32_asm_attributes(res);",
279         ia32_immediate_attr_t =>
280                 "\tinit_ia32_attributes(res, flags, in_reqs, out_reqs, exec_units, n_res);\n".
281                 "\tinit_ia32_immediate_attributes(res, symconst, symconst_sign, offset);",
282         ia32_copyb_attr_t =>
283                 "\tinit_ia32_attributes(res, flags, in_reqs, out_reqs, exec_units, n_res);\n".
284                 "\tinit_ia32_copyb_attributes(res, size);",
285         ia32_condcode_attr_t =>
286                 "\tinit_ia32_attributes(res, flags, in_reqs, out_reqs, exec_units, n_res);\n".
287                 "\tinit_ia32_condcode_attributes(res, pnc);",
288 );
289
290 %compare_attr = (
291         ia32_attr_t           => "ia32_compare_nodes_attr",
292         ia32_x87_attr_t       => "ia32_compare_x87_attr",
293         ia32_asm_attr_t       => "ia32_compare_asm_attr",
294         ia32_immediate_attr_t => "ia32_compare_immediate_attr",
295         ia32_copyb_attr_t     => "ia32_compare_copyb_attr",
296         ia32_condcode_attr_t  => "ia32_compare_condcode_attr",
297 );
298
299 %operands = (
300 );
301
302 $mode_xmm     = "mode_E";
303 $mode_gp      = "mode_Iu";
304 $mode_flags   = "mode_Iu";
305 $mode_fpcw    = "mode_fpcw";
306 $status_flags = [ "CF", "PF", "AF", "ZF", "SF", "OF" ];
307 $fpcw_flags   = [ "FP_IM", "FP_DM", "FP_ZM", "FP_OM", "FP_UM", "FP_PM",
308                   "FP_PC0", "FP_PC1", "FP_RC0", "FP_RC1", "FP_X" ];
309
310 %nodes = (
311
312 Immediate => {
313         state     => "pinned",
314         op_flags  => "c",
315         irn_flags => "I",
316         reg_req   => { out => [ "gp_NOREG" ] },
317         attr      => "ir_entity *symconst, int symconst_sign, long offset",
318         attr_type => "ia32_immediate_attr_t",
319         latency   => 0,
320         mode      => $mode_gp,
321 },
322
323 Asm => {
324         mode      => "mode_T",
325         arity     => "variable",
326         out_arity => "variable",
327         attr_type => "ia32_asm_attr_t",
328         attr      => "ident *asm_text, const ia32_asm_reg_t *register_map",
329         init_attr => "attr->asm_text = asm_text;\n".
330                      "\tattr->register_map = register_map;\n",
331         latency   => 10,
332         modified_flags => 1,
333 },
334
335 ProduceVal => {
336         op_flags  => "c",
337         irn_flags => "R",
338         reg_req   => { out => [ "gp" ] },
339         emit      => "",
340         units     => [ ],
341         latency   => 0,
342         mode      => $mode_gp,
343         cmp_attr  => "return 1;",
344 },
345
346 #-----------------------------------------------------------------#
347 #  _       _                                         _            #
348 # (_)     | |                                       | |           #
349 #  _ _ __ | |_ ___  __ _  ___ _ __   _ __   ___   __| | ___  ___  #
350 # | | '_ \| __/ _ \/ _` |/ _ \ '__| | '_ \ / _ \ / _` |/ _ \/ __| #
351 # | | | | | ||  __/ (_| |  __/ |    | | | | (_) | (_| |  __/\__ \ #
352 # |_|_| |_|\__\___|\__, |\___|_|    |_| |_|\___/ \__,_|\___||___/ #
353 #                   __/ |                                         #
354 #                  |___/                                          #
355 #-----------------------------------------------------------------#
356
357 # commutative operations
358
359 Add => {
360         irn_flags => "R",
361         state     => "exc_pinned",
362         reg_req   => { in  => [ "gp", "gp", "none", "gp", "gp" ],
363                        out => [ "in_r4 in_r5", "flags", "none" ] },
364         ins       => [ "base", "index", "mem", "left", "right" ],
365         outs      => [ "res", "flags", "M" ],
366         emit      => '. add%M %binop',
367         am        => "source,binary",
368         units     => [ "GP" ],
369         latency   => 1,
370         mode      => $mode_gp,
371         modified_flags => $status_flags
372 },
373
374 AddMem => {
375         irn_flags => "R",
376         state     => "exc_pinned",
377         reg_req   => { in => [ "gp", "gp", "none", "gp" ], out => [ "none" ] },
378         ins       => [ "base", "index", "mem", "val" ],
379         emit      => ". add%M %SI3, %AM",
380         units     => [ "GP" ],
381         latency   => 1,
382         mode      => "mode_M",
383         modified_flags => $status_flags
384 },
385
386 AddMem8Bit => {
387         irn_flags => "R",
388         state     => "exc_pinned",
389         reg_req   => { in => [ "gp", "gp", "none", "eax ebx ecx edx" ], out => [ "none" ] },
390         ins       => [ "base", "index", "mem", "val" ],
391         emit      => ". add%M %SB3, %AM",
392         units     => [ "GP" ],
393         latency   => 1,
394         mode      => "mode_M",
395         modified_flags => $status_flags
396 },
397
398 Adc => {
399         state     => "exc_pinned",
400         reg_req   => { in => [ "gp", "gp", "none", "gp", "gp", "flags" ],
401                        out => [ "in_r4 in_r5", "flags", "none" ] },
402         ins       => [ "base", "index", "mem", "left", "right", "eflags" ],
403         outs      => [ "res", "flags", "M" ],
404         emit      => '. adc%M %binop',
405         am        => "source,binary",
406         units     => [ "GP" ],
407         latency   => 1,
408         mode      => $mode_gp,
409         modified_flags => $status_flags
410 },
411
412 l_Add => {
413         op_flags  => "C",
414         reg_req   => { in => [ "none", "none" ], out => [ "none" ] },
415         ins       => [ "left", "right" ],
416 },
417
418 l_Adc => {
419         reg_req   => { in => [ "none", "none", "none" ], out => [ "none" ] },
420         ins       => [ "left", "right", "eflags" ],
421 },
422
423 Mul => {
424         # we should not rematrialize this node. It produces 2 results and has
425         # very strict constrains
426         state     => "exc_pinned",
427         reg_req   => { in => [ "gp", "gp", "none", "eax", "gp" ],
428                        out => [ "eax", "edx", "none" ] },
429         ins       => [ "base", "index", "mem", "val_high", "val_low" ],
430         emit      => '. mul%M %unop4',
431         outs      => [ "res_low", "res_high", "M" ],
432         am        => "source,binary",
433         latency   => 10,
434         units     => [ "GP" ],
435         modified_flags => $status_flags
436 },
437
438 l_Mul => {
439         # we should not rematrialize this node. It produces 2 results and has
440         # very strict constrains
441         op_flags  => "C",
442         cmp_attr  => "return 1;",
443         outs      => [ "EAX", "EDX", "M" ],
444         arity     => 2
445 },
446
447 IMul => {
448         irn_flags => "R",
449         state     => "exc_pinned",
450         # TODO: adjust out requirements for the 3 operand form
451         # (no need for should_be_same then)
452         reg_req   => { in => [ "gp", "gp", "none", "gp", "gp" ],
453                            out => [ "in_r4 in_r5", "flags", "none" ] },
454         ins       => [ "base", "index", "mem", "left", "right" ],
455         outs      => [ "res", "flags", "M" ],
456         am        => "source,binary",
457         latency   => 5,
458         units     => [ "GP" ],
459         mode      => $mode_gp,
460         modified_flags => $status_flags
461 },
462
463 IMul1OP => {
464         irn_flags => "R",
465         state     => "exc_pinned",
466         reg_req   => { in => [ "gp", "gp", "none", "eax", "gp" ],
467                        out => [ "eax", "edx", "none" ] },
468         ins       => [ "base", "index", "mem", "val_high", "val_low" ],
469         emit      => '. imul%M %unop4',
470         outs      => [ "res_low", "res_high", "M" ],
471         am        => "source,binary",
472         latency   => 5,
473         units     => [ "GP" ],
474         modified_flags => $status_flags
475 },
476
477 l_IMul => {
478         op_flags  => "C",
479         cmp_attr  => "return 1;",
480         outs      => [ "res_low", "res_high", "M" ],
481         arity     => 2
482 },
483
484 And => {
485         irn_flags => "R",
486         state     => "exc_pinned",
487         reg_req   => { in => [ "gp", "gp", "none", "gp", "gp" ],
488                            out => [ "in_r4 in_r5", "flags", "none" ] },
489         ins       => [ "base", "index", "mem", "left", "right" ],
490         outs      => [ "res", "flags", "M" ],
491         op_modes  => "commutative | am | immediate | mode_neutral",
492         am        => "source,binary",
493         emit      => '. and%M %binop',
494         units     => [ "GP" ],
495         latency   => 1,
496         mode      => $mode_gp,
497         modified_flags => $status_flags
498 },
499
500 AndMem => {
501         irn_flags => "R",
502         state     => "exc_pinned",
503         reg_req   => { in => [ "gp", "gp", "none", "gp" ], out => [ "none" ] },
504         ins       => [ "base", "index", "mem", "val" ],
505         emit      => '. and%M %SI3, %AM',
506         units     => [ "GP" ],
507         latency   => 1,
508         mode      => "mode_M",
509         modified_flags => $status_flags
510 },
511
512 AndMem8Bit => {
513         irn_flags => "R",
514         state     => "exc_pinned",
515         reg_req   => { in => [ "gp", "gp", "none",  "eax ebx ecx edx" ], out => [ "none" ] },
516         ins       => [ "base", "index", "mem", "val" ],
517         emit      => '. and%M %SB3, %AM',
518         units     => [ "GP" ],
519         latency   => 1,
520         mode      => "mode_M",
521         modified_flags => $status_flags
522 },
523
524 Or => {
525         irn_flags => "R",
526         state     => "exc_pinned",
527         reg_req   => { in => [ "gp", "gp", "none", "gp", "gp" ],
528                        out => [ "in_r4 in_r5", "flags", "none" ] },
529         ins       => [ "base", "index", "mem", "left", "right" ],
530         outs      => [ "res", "flags", "M" ],
531         am        => "source,binary",
532         emit      => '. or%M %binop',
533         units     => [ "GP" ],
534         latency   => 1,
535         mode      => $mode_gp,
536         modified_flags => $status_flags
537 },
538
539 OrMem => {
540         irn_flags => "R",
541         state     => "exc_pinned",
542         reg_req   => { in => [ "gp", "gp", "none", "gp" ], out => [ "none" ] },
543         ins       => [ "base", "index", "mem", "val" ],
544         emit      => '. or%M %SI3, %AM',
545         units     => [ "GP" ],
546         latency   => 1,
547         mode      => "mode_M",
548         modified_flags => $status_flags
549 },
550
551 OrMem8Bit => {
552         irn_flags => "R",
553         state     => "exc_pinned",
554         reg_req   => { in => [ "gp", "gp", "none", "eax ebx ecx edx" ], out => [ "none" ] },
555         ins       => [ "base", "index", "mem", "val" ],
556         emit      => '. or%M %SB3, %AM',
557         units     => [ "GP" ],
558         latency   => 1,
559         mode      => "mode_M",
560         modified_flags => $status_flags
561 },
562
563 Xor => {
564         irn_flags => "R",
565         state     => "exc_pinned",
566         reg_req   => { in => [ "gp", "gp", "none", "gp", "gp" ],
567                        out => [ "in_r4 in_r5", "flags", "none" ] },
568         ins       => [ "base", "index", "mem", "left", "right" ],
569         outs      => [ "res", "flags", "M" ],
570         am        => "source,binary",
571         emit      => '. xor%M %binop',
572         units     => [ "GP" ],
573         latency   => 1,
574         mode      => $mode_gp,
575         modified_flags => $status_flags
576 },
577
578 XorMem => {
579         irn_flags => "R",
580         state     => "exc_pinned",
581         reg_req   => { in => [ "gp", "gp", "none", "gp" ], out => [ "none" ] },
582         ins       => [ "base", "index", "mem", "val" ],
583         emit      => '. xor%M %SI3, %AM',
584         units     => [ "GP" ],
585         latency   => 1,
586         mode      => "mode_M",
587         modified_flags => $status_flags
588 },
589
590 XorMem8Bit => {
591         irn_flags => "R",
592         state     => "exc_pinned",
593         reg_req   => { in => [ "gp", "gp", "none", "eax ebx ecx edx" ], out => [ "none" ] },
594         ins       => [ "base", "index", "mem", "val" ],
595         emit      => '. xor%M %SB3, %AM',
596         units     => [ "GP" ],
597         latency   => 1,
598         mode      => "mode_M",
599         modified_flags => $status_flags
600 },
601
602 # not commutative operations
603
604 Sub => {
605         irn_flags => "R",
606         state     => "exc_pinned",
607         reg_req   => { in => [ "gp", "gp", "none", "gp", "gp" ],
608                        out => [ "in_r4", "flags", "none" ] },
609         ins       => [ "base", "index", "mem", "minuend", "subtrahend" ],
610         outs      => [ "res", "flags", "M" ],
611         am        => "source,binary",
612         emit      => '. sub%M %binop',
613         units     => [ "GP" ],
614         latency   => 1,
615         mode      => $mode_gp,
616         modified_flags => $status_flags
617 },
618
619 SubMem => {
620         irn_flags => "R",
621         state     => "exc_pinned",
622         reg_req   => { in => [ "gp", "gp", "none", "gp" ], out => [ "none" ] },
623         ins       => [ "base", "index", "mem", "subtrahend" ],
624         emit      => '. sub%M %SI3, %AM',
625         units     => [ "GP" ],
626         latency   => 1,
627         mode      => 'mode_M',
628         modified_flags => $status_flags
629 },
630
631 SubMem8Bit => {
632         irn_flags => "R",
633         state     => "exc_pinned",
634         reg_req   => { in => [ "gp", "gp", "none", "eax ebx ecx edx" ], out => [ "none" ] },
635         ins       => [ "base", "index", "mem", "subtrahend" ],
636         emit      => '. sub%M %SB3, %AM',
637         units     => [ "GP" ],
638         latency   => 1,
639         mode      => 'mode_M',
640         modified_flags => $status_flags
641 },
642
643 Sbb => {
644         state     => "exc_pinned",
645         reg_req   => { in => [ "gp", "gp", "none", "gp", "gp", "flags" ],
646                        out => [ "in_r4 !in_r5", "flags", "none" ] },
647         ins       => [ "base", "index", "mem", "minuend", "subtrahend", "eflags" ],
648         outs      => [ "res", "flags", "M" ],
649         am        => "source,binary",
650         emit      => '. sbb%M %binop',
651         units     => [ "GP" ],
652         latency   => 1,
653         mode      => $mode_gp,
654         modified_flags => $status_flags
655 },
656
657 l_Sub => {
658         reg_req   => { in => [ "none", "none" ], out => [ "none" ] },
659         ins       => [ "minuend", "subtrahend" ],
660 },
661
662 l_Sbb => {
663         reg_req   => { in => [ "none", "none", "none" ], out => [ "none" ] },
664         ins       => [ "minuend", "subtrahend", "eflags" ],
665 },
666
667 IDiv => {
668         op_flags  => "F|L",
669         state     => "exc_pinned",
670         reg_req   => { in => [ "gp", "gp", "none", "gp", "eax", "edx" ],
671                        out => [ "eax", "flags", "none", "edx", "none" ] },
672         ins       => [ "base", "index", "mem", "divisor", "dividend_low", "dividend_high" ],
673         outs      => [ "div_res", "flags", "M", "mod_res", "X_exc" ],
674         am        => "source,ternary",
675         emit      => ". idiv%M %unop3",
676         latency   => 25,
677         units     => [ "GP" ],
678         modified_flags => $status_flags
679 },
680
681 Div => {
682         op_flags  => "F|L",
683         state     => "exc_pinned",
684         reg_req   => { in => [ "gp", "gp", "none", "gp", "eax", "edx" ],
685                        out => [ "eax", "flags", "none", "edx", "none" ] },
686         ins       => [ "base", "index", "mem", "divisor", "dividend_low", "dividend_high" ],
687         outs      => [ "div_res", "flags", "M", "mod_res", "X_exc" ],
688         am        => "source,ternary",
689         emit      => ". div%M %unop3",
690         latency   => 25,
691         units     => [ "GP" ],
692         modified_flags => $status_flags
693 },
694
695 Shl => {
696         irn_flags => "R",
697         reg_req   => { in => [ "gp", "ecx" ],
698                        out => [ "in_r1 !in_r2", "flags" ] },
699         ins       => [ "val", "count" ],
700         outs      => [ "res", "flags" ],
701         emit      => '. shl %SB1, %S0',
702         units     => [ "GP" ],
703         latency   => 1,
704         mode      => $mode_gp,
705         modified_flags => $status_flags
706 },
707
708 ShlMem => {
709         irn_flags => "R",
710         state     => "exc_pinned",
711         reg_req   => { in => [ "gp", "gp", "none", "ecx" ], out => [ "none" ] },
712         ins       => [ "base", "index", "mem", "count" ],
713         emit      => '. shl%M %SB3, %AM',
714         units     => [ "GP" ],
715         latency   => 1,
716         mode      => "mode_M",
717         modified_flags => $status_flags
718 },
719
720 l_ShlDep => {
721         cmp_attr => "return 1;",
722         ins      => [ "val", "count", "dep" ],
723         arity    => 3
724 },
725
726 ShlD => {
727         irn_flags => "R",
728         reg_req   => { in => [ "gp", "gp", "ecx" ],
729                        out => [ "in_r1 !in_r2 !in_r3", "flags" ] },
730         ins       => [ "val_high", "val_low", "count" ],
731         outs      => [ "res", "flags" ],
732         emit      => ". shld%M %SB2, %S1, %D0",
733         latency   => 6,
734         units     => [ "GP" ],
735         mode      => $mode_gp,
736         modified_flags => $status_flags
737 },
738
739 l_ShlD => {
740         cmp_attr  => "return 1;",
741         ins       => [ "val_high", "val_low", "count" ],
742         arity     => 3,
743 },
744
745 Shr => {
746         irn_flags => "R",
747         reg_req   => { in => [ "gp", "ecx" ],
748                        out => [ "in_r1 !in_r2", "flags" ] },
749         ins       => [ "val", "count" ],
750         outs      => [ "res", "flags" ],
751         emit      => '. shr %SB1, %S0',
752         units     => [ "GP" ],
753         mode      => $mode_gp,
754         latency   => 1,
755         modified_flags => $status_flags
756 },
757
758 ShrMem => {
759         irn_flags => "R",
760         state     => "exc_pinned",
761         reg_req   => { in => [ "gp", "gp", "none", "ecx" ], out => [ "none" ] },
762         ins       => [ "base", "index", "mem", "count" ],
763         emit      => '. shr%M %SB3, %AM',
764         units     => [ "GP" ],
765         mode      => "mode_M",
766         latency   => 1,
767         modified_flags => $status_flags
768 },
769
770 l_ShrDep => {
771         cmp_attr  => "return 1;",
772         ins       => [ "val", "count", "dep" ],
773         arity     => 3
774 },
775
776 ShrD => {
777         irn_flags => "R",
778         reg_req   => { in => [ "gp", "gp", "ecx" ],
779                        out => [ "in_r1 !in_r2 !in_r3", "flags" ] },
780         ins       => [ "val_high", "val_low", "count" ],
781         outs      => [ "res", "flags" ],
782         emit      => ". shrd%M %SB2, %S1, %D0",
783         latency   => 6,
784         units     => [ "GP" ],
785         mode      => $mode_gp,
786         modified_flags => $status_flags
787 },
788
789 l_ShrD => {
790         cmp_attr  => "return 1;",
791         arity     => 3,
792         ins       => [ "val_high", "val_low", "count" ],
793 },
794
795 Sar => {
796         irn_flags => "R",
797         reg_req   => { in => [ "gp", "ecx" ],
798                        out => [ "in_r1 !in_r2", "flags" ] },
799         ins       => [ "val", "count" ],
800         outs      => [ "res", "flags" ],
801         emit      => '. sar %SB1, %S0',
802         units     => [ "GP" ],
803         latency   => 1,
804         mode      => $mode_gp,
805         modified_flags => $status_flags
806 },
807
808 SarMem => {
809         irn_flags => "R",
810         state     => "exc_pinned",
811         reg_req   => { in => [ "gp", "gp", "none", "ecx" ], out => [ "none" ] },
812         ins       => [ "base", "index", "mem", "count" ],
813         emit      => '. sar%M %SB3, %AM',
814         units     => [ "GP" ],
815         latency   => 1,
816         mode      => "mode_M",
817         modified_flags => $status_flags
818 },
819
820 l_SarDep => {
821         cmp_attr  => "return 1;",
822         ins       => [ "val", "count", "dep" ],
823         arity     => 3
824 },
825
826 Ror => {
827         irn_flags => "R",
828         reg_req   => { in => [ "gp", "ecx" ],
829                        out => [ "in_r1 !in_r2", "flags" ] },
830         ins       => [ "val", "count" ],
831         outs      => [ "res", "flags" ],
832         emit      => '. ror %SB1, %S0',
833         units     => [ "GP" ],
834         latency   => 1,
835         mode      => $mode_gp,
836         modified_flags => $status_flags
837 },
838
839 RorMem => {
840         irn_flags => "R",
841         state     => "exc_pinned",
842         reg_req   => { in => [ "gp", "gp", "none", "ecx" ], out => [ "none" ] },
843         ins       => [ "base", "index", "mem", "count" ],
844         emit      => '. ror%M %SB3, %AM',
845         units     => [ "GP" ],
846         latency   => 1,
847         mode      => "mode_M",
848         modified_flags => $status_flags
849 },
850
851 Rol => {
852         irn_flags => "R",
853         reg_req   => { in => [ "gp", "ecx" ],
854                        out => [ "in_r1 !in_r2", "flags" ] },
855         ins       => [ "val", "count" ],
856         outs      => [ "res", "flags" ],
857         emit      => '. rol %SB1, %S0',
858         units     => [ "GP" ],
859         latency   => 1,
860         mode      => $mode_gp,
861         modified_flags => $status_flags
862 },
863
864 RolMem => {
865         irn_flags => "R",
866         state     => "exc_pinned",
867         reg_req   => { in => [ "gp", "gp", "none", "ecx" ], out => [ "none" ] },
868         ins       => [ "base", "index", "mem", "count" ],
869         emit      => '. rol%M %SB3, %AM',
870         units     => [ "GP" ],
871         latency   => 1,
872         mode      => "mode_M",
873         modified_flags => $status_flags
874 },
875
876 # unary operations
877
878 Neg => {
879         irn_flags => "R",
880         reg_req   => { in => [ "gp" ],
881                        out => [ "in_r1", "flags" ] },
882         emit      => '. neg %S0',
883         ins       => [ "val" ],
884         outs      => [ "res", "flags" ],
885         units     => [ "GP" ],
886         latency   => 1,
887         mode      => $mode_gp,
888         modified_flags => $status_flags
889 },
890
891 NegMem => {
892         irn_flags => "R",
893         state     => "exc_pinned",
894         reg_req   => { in => [ "gp", "gp", "none" ], out => [ "none" ] },
895         ins       => [ "base", "index", "mem" ],
896         emit      => '. neg%M %AM',
897         units     => [ "GP" ],
898         latency   => 1,
899         mode      => "mode_M",
900         modified_flags => $status_flags
901 },
902
903 Minus64Bit => {
904         irn_flags => "R",
905         reg_req   => { in => [ "gp", "gp" ], out => [ "in_r1", "gp" ] },
906         outs      => [ "low_res", "high_res" ],
907         units     => [ "GP" ],
908         latency   => 3,
909         modified_flags => $status_flags
910 },
911
912
913 Inc => {
914         irn_flags => "R",
915         reg_req   => { in => [ "gp" ],
916                        out => [ "in_r1", "flags" ] },
917         ins       => [ "val" ],
918         outs      => [ "res", "flags" ],
919         emit      => '. inc %S0',
920         units     => [ "GP" ],
921         mode      => $mode_gp,
922         latency   => 1,
923         modified_flags => [ "OF", "SF", "ZF", "AF", "PF" ]
924 },
925
926 IncMem => {
927         irn_flags => "R",
928         state     => "exc_pinned",
929         reg_req   => { in => [ "gp", "gp", "none" ], out => [ "none" ] },
930         ins       => [ "base", "index", "mem" ],
931         emit      => '. inc%M %AM',
932         units     => [ "GP" ],
933         mode      => "mode_M",
934         latency   => 1,
935         modified_flags => [ "OF", "SF", "ZF", "AF", "PF" ]
936 },
937
938 Dec => {
939         irn_flags => "R",
940         reg_req   => { in => [ "gp" ],
941                        out => [ "in_r1", "flags" ] },
942         ins       => [ "val" ],
943         outs      => [ "res", "flags" ],
944         emit      => '. dec %S0',
945         units     => [ "GP" ],
946         mode      => $mode_gp,
947         latency   => 1,
948         modified_flags => [ "OF", "SF", "ZF", "AF", "PF" ]
949 },
950
951 DecMem => {
952         irn_flags => "R",
953         state     => "exc_pinned",
954         reg_req   => { in => [ "gp", "gp", "none" ], out => [ "none" ] },
955         ins       => [ "base", "index", "mem" ],
956         emit      => '. dec%M %AM',
957         units     => [ "GP" ],
958         mode      => "mode_M",
959         latency   => 1,
960         modified_flags => [ "OF", "SF", "ZF", "AF", "PF" ]
961 },
962
963 Not => {
964         irn_flags => "R",
965         reg_req   => { in => [ "gp" ],
966                        out => [ "in_r1", "flags" ] },
967         ins       => [ "val" ],
968         outs      => [ "res", "flags" ],
969         emit      => '. not %S0',
970         units     => [ "GP" ],
971         latency   => 1,
972         mode      => $mode_gp,
973         # no flags modified
974 },
975
976 NotMem => {
977         irn_flags => "R",
978         state     => "exc_pinned",
979         reg_req   => { in => [ "gp", "gp", "none" ], out => [ "none" ] },
980         ins       => [ "base", "index", "mem" ],
981         emit      => '. not%M %AM',
982         units     => [ "GP" ],
983         latency   => 1,
984         mode      => "mode_M",
985         # no flags modified
986 },
987
988 Cmc => {
989         reg_req => { in => [ "flags" ], out => [ "flags" ] },
990         emit    => '.cmc',
991         units     => [ "GP" ],
992         latency   => 1,
993         mode      => $mode_flags,
994         modified_flags => $status_flags
995 },
996
997 Stc => {
998         reg_req => { out => [ "flags" ] },
999         emit    => '.stc',
1000         units     => [ "GP" ],
1001         latency   => 1,
1002         mode      => $mode_flags,
1003         modified_flags => $status_flags
1004 },
1005
1006 # other operations
1007
1008 Cmp => {
1009         irn_flags => "R",
1010         state     => "exc_pinned",
1011         reg_req   => { in => [ "gp", "gp", "none", "gp", "gp" ] , out => [ "flags" ] },
1012         ins       => [ "base", "index", "mem", "left", "right" ],
1013         outs      => [ "eflags" ],
1014         am        => "source,binary",
1015         emit      => '. cmp%M %binop',
1016         attr      => "int ins_permuted, int cmp_unsigned",
1017         init_attr => "attr->data.ins_permuted   = ins_permuted;\n".
1018                      "\tattr->data.cmp_unsigned = cmp_unsigned;\n",
1019         latency   => 1,
1020         units     => [ "GP" ],
1021         mode      => $mode_flags,
1022         modified_flags => $status_flags
1023 },
1024
1025 Cmp8Bit => {
1026         irn_flags => "R",
1027         state     => "exc_pinned",
1028         reg_req   => { in => [ "gp", "gp", "none", "eax ebx ecx edx", "eax ebx ecx edx" ] , out => [ "flags" ] },
1029         ins       => [ "base", "index", "mem", "left", "right" ],
1030         outs      => [ "eflags" ],
1031         am        => "source,binary",
1032         emit      => '. cmpb %binop',
1033         attr      => "int ins_permuted, int cmp_unsigned",
1034         init_attr => "attr->data.ins_permuted   = ins_permuted;\n".
1035                      "\tattr->data.cmp_unsigned = cmp_unsigned;\n",
1036         latency   => 1,
1037         units     => [ "GP" ],
1038         mode      => $mode_flags,
1039         modified_flags => $status_flags
1040 },
1041
1042 Test => {
1043         irn_flags => "R",
1044         state     => "exc_pinned",
1045         reg_req   => { in => [ "gp", "gp", "none", "gp", "gp" ] , out => [ "flags" ] },
1046         ins       => [ "base", "index", "mem", "left", "right" ],
1047         outs      => [ "eflags" ],
1048         am        => "source,binary",
1049         emit      => '. test%M %binop',
1050         attr      => "int ins_permuted, int cmp_unsigned",
1051         init_attr => "attr->data.ins_permuted = ins_permuted;\n".
1052                      "\tattr->data.cmp_unsigned = cmp_unsigned;\n",
1053         latency   => 1,
1054         units     => [ "GP" ],
1055         mode      => $mode_flags,
1056         modified_flags => $status_flags
1057 },
1058
1059 Test8Bit => {
1060         irn_flags => "R",
1061         state     => "exc_pinned",
1062         reg_req   => { in => [ "gp", "gp", "none", "eax ebx ecx edx", "eax ebx ecx edx" ] , out => [ "flags" ] },
1063         ins       => [ "base", "index", "mem", "left", "right" ],
1064         outs      => [ "eflags" ],
1065         am        => "source,binary",
1066         emit      => '. testb %binop',
1067         attr      => "int ins_permuted, int cmp_unsigned",
1068         init_attr => "attr->data.ins_permuted = ins_permuted;\n".
1069                      "\tattr->data.cmp_unsigned = cmp_unsigned;\n",
1070         latency   => 1,
1071         units     => [ "GP" ],
1072         mode      => $mode_flags,
1073         modified_flags => $status_flags
1074 },
1075
1076 Set => {
1077         #irn_flags => "R",
1078         reg_req   => { in => [ "eflags" ], out => [ "eax ebx ecx edx" ] },
1079         ins       => [ "eflags" ],
1080         attr_type => "ia32_condcode_attr_t",
1081         attr      => "pn_Cmp pnc, int ins_permuted",
1082         init_attr => "attr->attr.data.ins_permuted = ins_permuted;\n".
1083                       "\tset_ia32_ls_mode(res, mode_Bu);\n",
1084         emit      => '. set%CMP0 %DB0',
1085         latency   => 1,
1086         units     => [ "GP" ],
1087         mode      => $mode_gp,
1088 },
1089
1090 SetMem => {
1091         #irn_flags => "R",
1092         state     => "exc_pinned",
1093         reg_req   => { in => [ "gp", "gp", "none", "eflags" ], out => [ "none" ] },
1094         ins       => [ "base", "index", "mem","eflags" ],
1095         attr_type => "ia32_condcode_attr_t",
1096         attr      => "pn_Cmp pnc, int ins_permuted",
1097         init_attr => "attr->attr.data.ins_permuted = ins_permuted;\n".
1098                       "\tset_ia32_ls_mode(res, mode_Bu);\n",
1099         emit      => '. set%CMP3 %AM',
1100         latency   => 1,
1101         units     => [ "GP" ],
1102         mode      => 'mode_M',
1103 },
1104
1105 CMov => {
1106         #irn_flags => "R",
1107         # (note: leave the false,true order intact to make it compatible with other
1108         #  ia32_binary ops)
1109         state     => "exc_pinned",
1110         reg_req   => { in => [ "gp", "gp", "none", "gp", "gp", "eflags" ], out => [ "in_r4 in_r5" ] },
1111         ins       => [ "base", "index", "mem", "val_false", "val_true", "eflags" ],
1112         am        => "source,binary",
1113         attr_type => "ia32_condcode_attr_t",
1114         attr      => "int ins_permuted, pn_Cmp pnc",
1115         init_attr => "attr->attr.data.ins_permuted = ins_permuted;",
1116         latency   => 1,
1117         units     => [ "GP" ],
1118         mode      => $mode_gp,
1119 },
1120
1121 Jcc => {
1122         state     => "pinned",
1123         op_flags  => "L|X|Y",
1124         reg_req   => { in  => [ "eflags" ], out => [ "none", "none" ] },
1125         ins       => [ "eflags" ],
1126         outs      => [ "false", "true" ],
1127         attr_type => "ia32_condcode_attr_t",
1128         attr      => "pn_Cmp pnc",
1129         latency   => 2,
1130         units     => [ "BRANCH" ],
1131 },
1132
1133 SwitchJmp => {
1134         state     => "pinned",
1135         op_flags  => "L|X|Y",
1136         reg_req   => { in => [ "gp" ], out => [ "none" ] },
1137         mode      => "mode_T",
1138         attr_type => "ia32_condcode_attr_t",
1139         attr      => "pn_Cmp pnc",
1140         latency   => 3,
1141         units     => [ "BRANCH" ],
1142         modified_flags => $status_flags,
1143 },
1144
1145 IJmp => {
1146         state     => "pinned",
1147         op_flags  => "X",
1148         reg_req   => { in => [ "gp", "gp", "none", "gp" ] },
1149         ins       => [ "base", "index", "mem", "target" ],
1150         am        => "source,unary",
1151         emit      => '. jmp *%unop3',
1152         latency   => 1,
1153         units     => [ "BRANCH" ],
1154         mode      => "mode_X",
1155 },
1156
1157 Const => {
1158         op_flags  => "c",
1159         irn_flags => "R",
1160         reg_req   => { out => [ "gp" ] },
1161         units     => [ "GP" ],
1162         attr      => "ir_entity *symconst, int symconst_sign, long offset",
1163         attr_type => "ia32_immediate_attr_t",
1164         latency   => 1,
1165         mode      => $mode_gp,
1166 },
1167
1168 GetEIP => {
1169         op_flags => "c",
1170         reg_req  => { out => [ "gp" ] },
1171         units    => [ "GP" ],
1172         latency  => 5,
1173         mode     => $mode_gp,
1174         modified_flags => $status_flags,
1175 },
1176
1177 Unknown_GP => {
1178         state     => "pinned",
1179         op_flags  => "c",
1180         irn_flags => "I",
1181         reg_req   => { out => [ "gp_UKNWN" ] },
1182         units     => [],
1183         emit      => "",
1184         latency   => 0,
1185         mode      => $mode_gp
1186 },
1187
1188 Unknown_VFP => {
1189         state     => "pinned",
1190         op_flags  => "c",
1191         irn_flags => "I",
1192         reg_req   => { out => [ "vfp_UKNWN" ] },
1193         units     => [],
1194         emit      => "",
1195         mode      => "mode_E",
1196         latency   => 0,
1197         attr_type => "ia32_x87_attr_t",
1198 },
1199
1200 Unknown_XMM => {
1201         state     => "pinned",
1202         op_flags  => "c",
1203         irn_flags => "I",
1204         reg_req   => { out => [ "xmm_UKNWN" ] },
1205         units     => [],
1206         emit      => "",
1207         latency   => 0,
1208         mode      => "mode_E"
1209 },
1210
1211 NoReg_GP => {
1212         state     => "pinned",
1213         op_flags  => "c",
1214         irn_flags => "I",
1215         reg_req   => { out => [ "gp_NOREG" ] },
1216         units     => [],
1217         emit      => "",
1218         latency   => 0,
1219         mode      => $mode_gp
1220 },
1221
1222 NoReg_VFP => {
1223         state     => "pinned",
1224         op_flags  => "c",
1225         irn_flags => "I",
1226         reg_req   => { out => [ "vfp_NOREG" ] },
1227         units     => [],
1228         emit      => "",
1229         mode      => "mode_E",
1230         latency   => 0,
1231         attr_type => "ia32_x87_attr_t",
1232 },
1233
1234 NoReg_XMM => {
1235         state     => "pinned",
1236         op_flags  => "c",
1237         irn_flags => "I",
1238         reg_req   => { out => [ "xmm_NOREG" ] },
1239         units     => [],
1240         emit      => "",
1241         latency   => 0,
1242         mode      => "mode_E"
1243 },
1244
1245 ChangeCW => {
1246         state     => "pinned",
1247         op_flags  => "c",
1248         irn_flags => "I",
1249         reg_req   => { out => [ "fp_cw" ] },
1250         mode      => $mode_fpcw,
1251         latency   => 3,
1252         units     => [ "GP" ],
1253         modified_flags => $fpcw_flags
1254 },
1255
1256 FldCW => {
1257         op_flags  => "L|F",
1258         state     => "pinned",
1259         reg_req   => { in => [ "gp", "gp", "none" ], out => [ "fp_cw" ] },
1260         ins       => [ "base", "index", "mem" ],
1261         latency   => 5,
1262         emit      => ". fldcw %AM",
1263         mode      => $mode_fpcw,
1264         units     => [ "GP" ],
1265         modified_flags => $fpcw_flags
1266 },
1267
1268 FnstCW => {
1269         op_flags  => "L|F",
1270         state     => "pinned",
1271         reg_req   => { in => [ "gp", "gp", "none", "fp_cw" ], out => [ "none" ] },
1272         ins       => [ "base", "index", "mem", "fpcw" ],
1273         latency   => 5,
1274         emit      => ". fnstcw %AM",
1275         mode      => "mode_M",
1276         units     => [ "GP" ],
1277 },
1278
1279 FnstCWNOP => {
1280         op_flags  => "L|F",
1281         state     => "pinned",
1282         reg_req   => { in => [ "fp_cw" ], out => [ "none" ] },
1283         ins       => [ "fpcw" ],
1284         latency   => 0,
1285         emit      => "",
1286         mode      => "mode_M",
1287 },
1288
1289 Cltd => {
1290         # we should not rematrialize this node. It has very strict constraints.
1291         reg_req   => { in => [ "eax", "edx" ], out => [ "edx" ] },
1292         ins       => [ "val", "clobbered" ],
1293         emit      => '. cltd',
1294         latency   => 1,
1295         mode      => $mode_gp,
1296         units     => [ "GP" ],
1297 },
1298
1299 # Load / Store
1300 #
1301 # Note that we add additional latency values depending on address mode, so a
1302 # lateny of 0 for load is correct
1303
1304 Load => {
1305         op_flags  => "L|F",
1306         state     => "exc_pinned",
1307         reg_req   => { in => [ "gp", "gp", "none" ], out => [ "gp", "none", "none" ] },
1308         ins       => [ "base", "index", "mem" ],
1309         outs      => [ "res", "M", "X_exc" ],
1310         latency   => 0,
1311         emit      => ". mov%SE%ME%.l %AM, %D0",
1312         units     => [ "GP" ],
1313 },
1314
1315 l_Load => {
1316         op_flags  => "L|F",
1317         cmp_attr  => "return 1;",
1318         outs      => [ "res", "M" ],
1319         arity     => 2,
1320 },
1321
1322 l_Store => {
1323         op_flags  => "L|F",
1324         cmp_attr  => "return 1;",
1325         state     => "exc_pinned",
1326         arity     => 3,
1327         mode      => "mode_M",
1328 },
1329
1330 Store => {
1331         op_flags  => "L|F",
1332         state     => "exc_pinned",
1333         reg_req   => { in => [ "gp", "gp", "none", "gp" ], out => [ "none", "none" ] },
1334         ins       => [ "base", "index", "mem", "val" ],
1335         outs      => [ "M", "X_exc" ],
1336         emit      => '. mov%M %SI3, %AM',
1337         latency   => 2,
1338         units     => [ "GP" ],
1339         mode      => "mode_M",
1340 },
1341
1342 Store8Bit => {
1343         op_flags  => "L|F",
1344         state     => "exc_pinned",
1345         reg_req   => { in => [ "gp", "gp", "none", "eax ebx ecx edx" ], out => ["none", "none" ] },
1346         ins       => [ "base", "index", "mem", "val" ],
1347         outs      => [ "M", "X_exc" ],
1348         emit      => '. mov%M %SB3, %AM',
1349         latency   => 2,
1350         units     => [ "GP" ],
1351         mode      => "mode_M",
1352 },
1353
1354 Lea => {
1355         irn_flags => "R",
1356         reg_req   => { in => [ "gp", "gp" ], out => [ "gp" ] },
1357         ins       => [ "base", "index" ],
1358         emit      => '. leal %AM, %D0',
1359         latency   => 2,
1360         units     => [ "GP" ],
1361         mode      => $mode_gp,
1362 # lea doesn't modify the flags, but setting this seems advantageous since it
1363 # increases chances that the Lea is transformed back to an Add
1364         modified_flags => 1,
1365 },
1366
1367 Push => {
1368         state     => "exc_pinned",
1369         reg_req   => { in => [ "gp", "gp", "none", "gp", "esp" ], out => [ "esp", "none" ] },
1370         ins       => [ "base", "index", "mem", "val", "stack" ],
1371         emit      => '. push%M %unop3',
1372         outs      => [ "stack:I|S", "M" ],
1373         am        => "source,binary",
1374         latency   => 2,
1375         units     => [ "GP" ],
1376 },
1377
1378 Pop => {
1379         state     => "exc_pinned",
1380         reg_req   => { in => [ "none", "esp" ], out => [ "gp", "none", "none", "esp" ] },
1381         ins       => [ "mem", "stack" ],
1382         outs      => [ "res", "M", "unused", "stack:I|S" ],
1383         emit      => '. pop%M %D0',
1384         latency   => 3, # Pop is more expensive than Push on Athlon
1385         units     => [ "GP" ],
1386 },
1387
1388 PopMem => {
1389         state     => "exc_pinned",
1390         reg_req   => { in => [ "gp", "gp", "none", "esp" ], out => [ "none", "none", "none", "esp" ] },
1391         ins       => [ "base", "index", "mem", "stack" ],
1392         outs      => [ "unused0", "M", "unused1", "stack:I|S" ],
1393         emit      => '. pop%M %AM',
1394         latency   => 3, # Pop is more expensive than Push on Athlon
1395         units     => [ "GP" ],
1396 },
1397
1398 Enter => {
1399         reg_req   => { in => [ "esp" ], out => [ "ebp", "esp", "none" ] },
1400         emit      => '. enter',
1401         outs      => [ "frame:I", "stack:I|S", "M" ],
1402         latency   => 15,
1403         units     => [ "GP" ],
1404 },
1405
1406 Leave => {
1407         reg_req   => { in => [ "esp", "ebp" ], out => [ "ebp", "esp" ] },
1408         emit      => '. leave',
1409         outs      => [ "frame:I", "stack:I|S" ],
1410         latency   => 3,
1411         units     => [ "GP" ],
1412 },
1413
1414 AddSP => {
1415         irn_flags => "I",
1416         state     => "pinned",
1417         reg_req   => { in => [ "gp", "gp", "none", "esp", "gp" ], out => [ "in_r4", "none" ] },
1418         ins       => [ "base", "index", "mem", "stack", "size" ],
1419         am        => "source,binary",
1420         emit      => '. addl %binop',
1421         latency   => 1,
1422         outs      => [ "stack:I|S", "M" ],
1423         units     => [ "GP" ],
1424         modified_flags => $status_flags
1425 },
1426
1427 SubSP => {
1428 #irn_flags => "I",
1429         state     => "pinned",
1430         reg_req   => { in => [ "gp", "gp", "none", "esp", "gp" ], out => [ "in_r4", "gp", "none" ] },
1431         ins       => [ "base", "index", "mem", "stack", "size" ],
1432         am        => "source,binary",
1433         emit      => ". subl %binop\n".
1434                      ". movl %%esp, %D1",
1435         latency   => 2,
1436         outs      => [ "stack:I|S", "addr", "M" ],
1437         units     => [ "GP" ],
1438         modified_flags => $status_flags
1439 },
1440
1441 RepPrefix => {
1442         op_flags  => "K",
1443         state     => "pinned",
1444         mode      => "mode_M",
1445         emit      => ". rep",
1446         latency   => 0,
1447 },
1448
1449 LdTls => {
1450         irn_flags => "R",
1451         reg_req   => { out => [ "gp" ] },
1452         units     => [ "GP" ],
1453         latency   => 1,
1454 },
1455
1456
1457 #-----------------------------------------------------------------------------#
1458 #   _____ _____ ______    __ _             _                     _            #
1459 #  / ____/ ____|  ____|  / _| |           | |                   | |           #
1460 # | (___| (___ | |__    | |_| | ___   __ _| |_   _ __   ___   __| | ___  ___  #
1461 #  \___ \\___ \|  __|   |  _| |/ _ \ / _` | __| | '_ \ / _ \ / _` |/ _ \/ __| #
1462 #  ____) |___) | |____  | | | | (_) | (_| | |_  | | | | (_) | (_| |  __/\__ \ #
1463 # |_____/_____/|______| |_| |_|\___/ \__,_|\__| |_| |_|\___/ \__,_|\___||___/ #
1464 #-----------------------------------------------------------------------------#
1465
1466 # produces a 0/+0.0
1467 xZero => {
1468         irn_flags => "R",
1469         reg_req   => { out => [ "xmm" ] },
1470         emit      => '. xorp%XSD %D0, %D0',
1471         latency   => 3,
1472         units     => [ "SSE" ],
1473         mode      => "mode_E",
1474 },
1475
1476 # produces all 1 bits
1477 xAllOnes => {
1478         irn_flags => "R",
1479         reg_req   => { out => [ "xmm" ] },
1480         emit      => '. pcmpeqb %D0, %D0',
1481         latency   => 3,
1482         units     => [ "SSE" ],
1483         mode      => "mode_E",
1484 },
1485
1486 # integer shift left, dword
1487 xPslld => {
1488         irn_flags => "R",
1489         reg_req   => { in => [ "xmm", "xmm" ], out => [ "in_r1 !in_r2" ] },
1490         emit      => '. pslld %SI1, %D0',
1491         units     => [ "SSE" ],
1492         mode      => "mode_E",
1493         latency   => 3,
1494 },
1495
1496 # integer shift left, qword
1497 xPsllq => {
1498         irn_flags => "R",
1499         reg_req   => { in => [ "xmm", "xmm" ], out => [ "in_r1 !in_r2" ] },
1500         emit      => '. psllq %SI1, %D0',
1501         units     => [ "SSE" ],
1502         mode      => "mode_E",
1503         latency   => 3,
1504 },
1505
1506 # integer shift right, dword
1507 xPsrld => {
1508         irn_flags => "R",
1509         reg_req   => { in => [ "xmm", "xmm" ], out => [ "in_r1 !in_r2" ] },
1510         emit      => '. psrld %SI1, %D0',
1511         units     => [ "SSE" ],
1512         mode      => "mode_E",
1513         latency   => 1,
1514 },
1515
1516 # mov from integer to SSE register
1517 xMovd  => {
1518         irn_flags => "R",
1519         reg_req   => { in => [ "gp" ], out => [ "xmm" ] },
1520         emit      => '. movd %S0, %D0',
1521         units     => [ "SSE" ],
1522         mode      => "mode_E",
1523         latency   => 1,
1524 },
1525
1526 # commutative operations
1527
1528 xAdd => {
1529         irn_flags => "R",
1530         state     => "exc_pinned",
1531         reg_req   => { in => [ "gp", "gp", "none", "xmm", "xmm" ], out => [ "in_r4 in_r5" ] },
1532         ins       => [ "base", "index", "mem", "left", "right" ],
1533         am        => "source,binary",
1534         emit      => '. add%XXM %binop',
1535         latency   => 4,
1536         units     => [ "SSE" ],
1537         mode      => "mode_E",
1538 },
1539
1540 xMul => {
1541         irn_flags => "R",
1542         state     => "exc_pinned",
1543         reg_req   => { in => [ "gp", "gp", "none", "xmm", "xmm" ], out => [ "in_r4 in_r5" ] },
1544         ins       => [ "base", "index", "mem", "left", "right" ],
1545         am        => "source,binary",
1546         emit      => '. mul%XXM %binop',
1547         latency   => 4,
1548         units     => [ "SSE" ],
1549         mode      => "mode_E",
1550 },
1551
1552 xMax => {
1553         irn_flags => "R",
1554         state     => "exc_pinned",
1555         reg_req   => { in => [ "gp", "gp", "none", "xmm", "xmm" ], out => [ "in_r4 in_r5" ] },
1556         ins       => [ "base", "index", "mem", "left", "right" ],
1557         am        => "source,binary",
1558         emit      => '. max%XXM %binop',
1559         latency   => 2,
1560         units     => [ "SSE" ],
1561         mode      => "mode_E",
1562 },
1563
1564 xMin => {
1565         irn_flags => "R",
1566         state     => "exc_pinned",
1567         reg_req   => { in => [ "gp", "gp", "none", "xmm", "xmm" ], out => [ "in_r4 in_r5" ] },
1568         ins       => [ "base", "index", "mem", "left", "right" ],
1569         am        => "source,binary",
1570         emit      => '. min%XXM %binop',
1571         latency   => 2,
1572         units     => [ "SSE" ],
1573         mode      => "mode_E",
1574 },
1575
1576 xAnd => {
1577         irn_flags => "R",
1578         state     => "exc_pinned",
1579         reg_req   => { in => [ "gp", "gp", "none", "xmm", "xmm" ], out => [ "in_r4 in_r5" ] },
1580         ins       => [ "base", "index", "mem", "left", "right" ],
1581         am        => "source,binary",
1582         emit      => '. andp%XSD %binop',
1583         latency   => 3,
1584         units     => [ "SSE" ],
1585         mode      => "mode_E",
1586 },
1587
1588 xOr => {
1589         irn_flags => "R",
1590         state     => "exc_pinned",
1591         reg_req   => { in => [ "gp", "gp", "none", "xmm", "xmm" ], out => [ "in_r4 in_r5" ] },
1592         ins       => [ "base", "index", "mem", "left", "right" ],
1593         am        => "source,binary",
1594         emit      => '. orp%XSD %binop',
1595         latency   => 3,
1596         units     => [ "SSE" ],
1597         mode      => "mode_E",
1598 },
1599
1600 xXor => {
1601         irn_flags => "R",
1602         state     => "exc_pinned",
1603         reg_req   => { in => [ "gp", "gp", "none", "xmm", "xmm" ], out => [ "in_r4 in_r5" ] },
1604         ins       => [ "base", "index", "mem", "left", "right" ],
1605         am        => "source,binary",
1606         emit      => '. xorp%XSD %binop',
1607         latency   => 3,
1608         units     => [ "SSE" ],
1609         mode      => "mode_E",
1610 },
1611
1612 # not commutative operations
1613
1614 xAndNot => {
1615         irn_flags => "R",
1616         state     => "exc_pinned",
1617         reg_req   => { in => [ "gp", "gp", "none", "xmm", "xmm" ], out => [ "in_r4 !in_r5" ] },
1618         ins       => [ "base", "index", "mem", "left", "right" ],
1619         am        => "source,binary",
1620         emit      => '. andnp%XSD %binop',
1621         latency   => 3,
1622         units     => [ "SSE" ],
1623         mode      => "mode_E",
1624 },
1625
1626 xSub => {
1627         irn_flags => "R",
1628         state     => "exc_pinned",
1629         reg_req   => { in => [ "gp", "gp", "none", "xmm", "xmm" ], out => [ "in_r4" ] },
1630         ins       => [ "base", "index", "mem", "minuend", "subtrahend" ],
1631         am        => "source,binary",
1632         emit      => '. sub%XXM %binop',
1633         latency   => 4,
1634         units     => [ "SSE" ],
1635         mode      => "mode_E",
1636 },
1637
1638 xDiv => {
1639         irn_flags => "R",
1640         state     => "exc_pinned",
1641         reg_req   => { in => [ "gp", "gp", "none", "xmm", "xmm" ], out => [ "in_r4 !in_r5", "none" ] },
1642         ins       => [ "base", "index", "mem", "dividend", "divisor" ],
1643         am        => "source,binary",
1644         outs      => [ "res", "M" ],
1645         emit      => '. div%XXM %binop',
1646         latency   => 16,
1647         units     => [ "SSE" ],
1648 },
1649
1650 # other operations
1651
1652 Ucomi => {
1653         irn_flags => "R",
1654         state     => "exc_pinned",
1655         reg_req   => { in => [ "gp", "gp", "none", "xmm", "xmm" ], out => [ "eflags" ] },
1656         ins       => [ "base", "index", "mem", "left", "right" ],
1657         outs      => [ "flags" ],
1658         am        => "source,binary",
1659         attr      => "int ins_permuted",
1660         init_attr => "attr->data.ins_permuted = ins_permuted;",
1661         emit      => ' .ucomi%XXM %binop',
1662         latency   => 3,
1663         units     => [ "SSE" ],
1664         mode      => $mode_flags,
1665         modified_flags => 1,
1666 },
1667
1668 # Load / Store
1669
1670 xLoad => {
1671         op_flags  => "L|F",
1672         state     => "exc_pinned",
1673         reg_req   => { in => [ "gp", "gp", "none" ], out => [ "xmm", "none", "none" ] },
1674         ins       => [ "base", "index", "mem" ],
1675         outs      => [ "res", "M", "X_exc" ],
1676         emit      => '. mov%XXM %AM, %D0',
1677         attr      => "ir_mode *load_mode",
1678         init_attr => "attr->ls_mode = load_mode;",
1679         latency   => 0,
1680         units     => [ "SSE" ],
1681 },
1682
1683 xStore => {
1684         op_flags => "L|F",
1685         state    => "exc_pinned",
1686         reg_req  => { in => [ "gp", "gp", "none", "xmm" ], out => [ "none", "none" ] },
1687         ins       => [ "base", "index", "mem", "val" ],
1688         outs      => [ "M", "X_exc" ],
1689         emit     => '. mov%XXM %S3, %AM',
1690         latency  => 0,
1691         units    => [ "SSE" ],
1692         mode     => "mode_M",
1693 },
1694
1695 xStoreSimple => {
1696         op_flags => "L|F",
1697         state    => "exc_pinned",
1698         reg_req  => { in => [ "gp", "gp", "none", "xmm" ] },
1699         ins      => [ "base", "index", "mem", "val" ],
1700         emit     => '. mov%XXM %S3, %AM',
1701         latency  => 0,
1702         units    => [ "SSE" ],
1703         mode     => "mode_M",
1704 },
1705
1706 CvtSI2SS => {
1707         op_flags => "L|F",
1708         state     => "exc_pinned",
1709         reg_req  => { in => [ "gp", "gp", "none", "gp" ], out => [ "xmm" ] },
1710         ins      => [ "base", "index", "mem", "val" ],
1711         am       => "source,unary",
1712         emit     => '. cvtsi2ss %unop3, %D0',
1713         latency  => 2,
1714         units    => [ "SSE" ],
1715         mode     => $mode_xmm
1716 },
1717
1718 CvtSI2SD => {
1719         op_flags => "L|F",
1720         state     => "exc_pinned",
1721         reg_req  => { in => [ "gp", "gp", "none", "gp" ], out => [ "xmm" ] },
1722         ins      => [ "base", "index", "mem", "val" ],
1723         am       => "source,unary",
1724         emit     => '. cvtsi2sd %unop3, %D0',
1725         latency  => 2,
1726         units    => [ "SSE" ],
1727         mode     => $mode_xmm
1728 },
1729
1730
1731 l_LLtoFloat => {
1732         op_flags => "L|F",
1733         cmp_attr => "return 1;",
1734         ins      => [ "val_high", "val_low" ],
1735 },
1736
1737 l_FloattoLL => {
1738         op_flags => "L|F",
1739         cmp_attr => "return 1;",
1740         ins      => [ "val" ],
1741         outs     => [ "res_high", "res_low" ],
1742 },
1743
1744 # CopyB
1745
1746 CopyB => {
1747         op_flags  => "F|H",
1748         state     => "pinned",
1749         reg_req   => { in => [ "edi", "esi", "ecx", "none" ], out => [ "edi", "esi", "ecx", "none" ] },
1750         outs      => [ "DST", "SRC", "CNT", "M" ],
1751         attr_type => "ia32_copyb_attr_t",
1752         attr      => "unsigned size",
1753         units     => [ "GP" ],
1754         latency  => 3,
1755 # we don't care about this flag, so no need to mark this node
1756 #       modified_flags => [ "DF" ]
1757 },
1758
1759 CopyB_i => {
1760         op_flags  => "F|H",
1761         state     => "pinned",
1762         reg_req   => { in => [ "edi", "esi", "none" ], out => [  "edi", "esi", "none" ] },
1763         outs      => [ "DST", "SRC", "M" ],
1764         attr_type => "ia32_copyb_attr_t",
1765         attr      => "unsigned size",
1766         units     => [ "GP" ],
1767         latency  => 3,
1768 # we don't care about this flag, so no need to mark this node
1769 #       modified_flags => [ "DF" ]
1770 },
1771
1772 # Conversions
1773
1774 Conv_I2I => {
1775         state     => "exc_pinned",
1776         reg_req   => { in => [ "gp", "gp", "none", "gp" ], out => [ "gp", "none" ] },
1777         ins       => [ "base", "index", "mem", "val" ],
1778         am        => "source,unary",
1779         units     => [ "GP" ],
1780         latency   => 1,
1781         attr      => "ir_mode *smaller_mode",
1782         init_attr => "attr->ls_mode = smaller_mode;",
1783         mode      => $mode_gp,
1784 },
1785
1786 Conv_I2I8Bit => {
1787         state     => "exc_pinned",
1788         reg_req   => { in => [ "gp", "gp", "none", "eax ebx ecx edx" ], out => [ "gp", "none" ] },
1789         ins       => [ "base", "index", "mem", "val" ],
1790         am        => "source,unary",
1791         units     => [ "GP" ],
1792         latency   => 1,
1793         attr      => "ir_mode *smaller_mode",
1794         init_attr => "attr->ls_mode = smaller_mode;",
1795         mode      => $mode_gp,
1796 },
1797
1798 Conv_I2FP => {
1799         state     => "exc_pinned",
1800         reg_req   => { in => [ "gp", "gp", "none", "gp" ], out => [ "xmm", "none" ] },
1801         ins       => [ "base", "index", "mem", "val" ],
1802         am        => "source,unary",
1803         latency   => 10,
1804         units     => [ "SSE" ],
1805         mode      => "mode_E",
1806 },
1807
1808 Conv_FP2I => {
1809         state     => "exc_pinned",
1810         reg_req   => { in => [ "gp", "gp", "none", "xmm" ], out => [ "gp", "none" ] },
1811         ins       => [ "base", "index", "mem", "val" ],
1812         am        => "source,unary",
1813         latency   => 10,
1814         units     => [ "SSE" ],
1815         mode      => $mode_gp,
1816 },
1817
1818 Conv_FP2FP => {
1819         state     => "exc_pinned",
1820         reg_req   => { in => [ "gp", "gp", "none", "xmm" ], out => [ "xmm", "none" ] },
1821         ins       => [ "base", "index", "mem", "val" ],
1822         am        => "source,unary",
1823         latency   => 8,
1824         units     => [ "SSE" ],
1825         mode      => "mode_E",
1826 },
1827
1828 #----------------------------------------------------------#
1829 #        _      _               _    __ _             _    #
1830 #       (_)    | |             | |  / _| |           | |   #
1831 # __   ___ _ __| |_ _   _  __ _| | | |_| | ___   __ _| |_  #
1832 # \ \ / / | '__| __| | | |/ _` | | |  _| |/ _ \ / _` | __| #
1833 #  \ V /| | |  | |_| |_| | (_| | | | | | | (_) | (_| | |_  #
1834 #   \_/ |_|_|   \__|\__,_|\__,_|_| |_| |_|\___/ \__,_|\__| #
1835 #                 | |                                      #
1836 #  _ __   ___   __| | ___  ___                             #
1837 # | '_ \ / _ \ / _` |/ _ \/ __|                            #
1838 # | | | | (_) | (_| |  __/\__ \                            #
1839 # |_| |_|\___/ \__,_|\___||___/                            #
1840 #----------------------------------------------------------#
1841
1842 # rematerialisation disabled for all float nodes for now, because the fpcw
1843 # handler runs before spilling and we might end up with wrong fpcw then
1844
1845 vfadd => {
1846 #       irn_flags => "R",
1847         state     => "exc_pinned",
1848         reg_req   => { in => [ "gp", "gp", "none", "vfp", "vfp", "fpcw" ], out => [ "vfp" ] },
1849         ins       => [ "base", "index", "mem", "left", "right", "fpcw" ],
1850         am        => "source,binary",
1851         latency   => 4,
1852         units     => [ "VFP" ],
1853         mode      => "mode_E",
1854         attr_type => "ia32_x87_attr_t",
1855 },
1856
1857 vfmul => {
1858 #       irn_flags => "R",
1859         state     => "exc_pinned",
1860         reg_req   => { in => [ "gp", "gp", "none", "vfp", "vfp", "fpcw" ], out => [ "vfp" ] },
1861         ins       => [ "base", "index", "mem", "left", "right", "fpcw" ],
1862         am        => "source,binary",
1863         latency   => 4,
1864         units     => [ "VFP" ],
1865         mode      => "mode_E",
1866         attr_type => "ia32_x87_attr_t",
1867 },
1868
1869 vfsub => {
1870 #       irn_flags => "R",
1871         state     => "exc_pinned",
1872         reg_req   => { in => [ "gp", "gp", "none", "vfp", "vfp", "fpcw" ], out => [ "vfp" ] },
1873         ins       => [ "base", "index", "mem", "minuend", "subtrahend", "fpcw" ],
1874         am        => "source,binary",
1875         latency   => 4,
1876         units     => [ "VFP" ],
1877         mode      => "mode_E",
1878         attr_type => "ia32_x87_attr_t",
1879 },
1880
1881 vfdiv => {
1882         state     => "exc_pinned",
1883         reg_req   => { in => [ "gp", "gp", "none", "vfp", "vfp", "fpcw" ], out => [ "vfp", "none" ] },
1884         ins       => [ "base", "index", "mem", "dividend", "divisor", "fpcw" ],
1885         am        => "source,binary",
1886         outs      => [ "res", "M" ],
1887         latency   => 20,
1888         units     => [ "VFP" ],
1889         attr_type => "ia32_x87_attr_t",
1890 },
1891
1892 vfprem => {
1893         reg_req   => { in => [ "vfp", "vfp", "fpcw" ], out => [ "vfp" ] },
1894         ins       => [ "left", "right", "fpcw" ],
1895         latency   => 20,
1896         units     => [ "VFP" ],
1897         mode      => "mode_E",
1898         attr_type => "ia32_x87_attr_t",
1899 },
1900
1901 vfabs => {
1902         irn_flags => "R",
1903         reg_req   => { in => [ "vfp"], out => [ "vfp" ] },
1904         ins       => [ "value" ],
1905         latency   => 2,
1906         units     => [ "VFP" ],
1907         mode      => "mode_E",
1908         attr_type => "ia32_x87_attr_t",
1909 },
1910
1911 vfchs => {
1912         irn_flags => "R",
1913         reg_req   => { in => [ "vfp"], out => [ "vfp" ] },
1914         ins       => [ "value" ],
1915         latency   => 2,
1916         units     => [ "VFP" ],
1917         mode      => "mode_E",
1918         attr_type => "ia32_x87_attr_t",
1919 },
1920
1921 # virtual Load and Store
1922
1923 vfld => {
1924         irn_flags => "R",
1925         op_flags  => "L|F",
1926         state     => "exc_pinned",
1927         reg_req   => { in => [ "gp", "gp", "none" ], out => [ "vfp", "none", "none" ] },
1928         ins       => [ "base", "index", "mem" ],
1929         outs      => [ "res", "M", "X_exc" ],
1930         attr      => "ir_mode *load_mode",
1931         init_attr => "attr->attr.ls_mode = load_mode;",
1932         latency   => 2,
1933         units     => [ "VFP" ],
1934         attr_type => "ia32_x87_attr_t",
1935 },
1936
1937 vfst => {
1938         irn_flags => "R",
1939         op_flags  => "L|F",
1940         state     => "exc_pinned",
1941         reg_req   => { in => [ "gp", "gp", "none", "vfp" ], out => [ "none", "none" ] },
1942         ins       => [ "base", "index", "mem", "val" ],
1943         outs      => [ "M", "X_exc" ],
1944         attr      => "ir_mode *store_mode",
1945         init_attr => "attr->attr.ls_mode = store_mode;",
1946         latency   => 2,
1947         units     => [ "VFP" ],
1948         mode      => "mode_M",
1949         attr_type => "ia32_x87_attr_t",
1950 },
1951
1952 # Conversions
1953
1954 vfild => {
1955         state     => "exc_pinned",
1956         reg_req   => { in => [ "gp", "gp", "none" ], out => [ "vfp", "none" ] },
1957         outs      => [ "res", "M" ],
1958         ins       => [ "base", "index", "mem" ],
1959         latency   => 4,
1960         units     => [ "VFP" ],
1961         attr_type => "ia32_x87_attr_t",
1962 },
1963
1964 l_vfild => {
1965         cmp_attr  => "return 1;",
1966         outs      => [ "res", "M" ],
1967         arity     => 2,
1968 },
1969
1970 vfist => {
1971         state     => "exc_pinned",
1972         reg_req   => { in => [ "gp", "gp", "none", "vfp", "fpcw" ] },
1973         ins       => [ "base", "index", "mem", "val", "fpcw" ],
1974         latency   => 4,
1975         units     => [ "VFP" ],
1976         mode      => "mode_M",
1977         attr_type => "ia32_x87_attr_t",
1978 },
1979
1980 l_vfist => {
1981         cmp_attr  => "return 1;",
1982         state     => "exc_pinned",
1983         arity     => 3,
1984         mode      => "mode_M",
1985 },
1986
1987
1988 # constants
1989
1990 vfldz => {
1991         irn_flags => "R",
1992         reg_req   => { out => [ "vfp" ] },
1993         latency   => 4,
1994         units     => [ "VFP" ],
1995         mode      => "mode_E",
1996         attr_type => "ia32_x87_attr_t",
1997 },
1998
1999 vfld1 => {
2000         irn_flags => "R",
2001         reg_req   => { out => [ "vfp" ] },
2002         latency   => 4,
2003         units     => [ "VFP" ],
2004         mode      => "mode_E",
2005         attr_type => "ia32_x87_attr_t",
2006 },
2007
2008 vfldpi => {
2009         irn_flags => "R",
2010         reg_req   => { out => [ "vfp" ] },
2011         latency   => 4,
2012         units     => [ "VFP" ],
2013         mode      => "mode_E",
2014         attr_type => "ia32_x87_attr_t",
2015 },
2016
2017 vfldln2 => {
2018         irn_flags => "R",
2019         reg_req   => { out => [ "vfp" ] },
2020         latency   => 4,
2021         units     => [ "VFP" ],
2022         mode      => "mode_E",
2023         attr_type => "ia32_x87_attr_t",
2024 },
2025
2026 vfldlg2 => {
2027         irn_flags => "R",
2028         reg_req   => { out => [ "vfp" ] },
2029         latency   => 4,
2030         units     => [ "VFP" ],
2031         mode      => "mode_E",
2032         attr_type => "ia32_x87_attr_t",
2033 },
2034
2035 vfldl2t => {
2036         irn_flags => "R",
2037         reg_req   => { out => [ "vfp" ] },
2038         latency   => 4,
2039         units     => [ "VFP" ],
2040         mode      => "mode_E",
2041         attr_type => "ia32_x87_attr_t",
2042 },
2043
2044 vfldl2e => {
2045         irn_flags => "R",
2046         reg_req   => { out => [ "vfp" ] },
2047         latency   => 4,
2048         units     => [ "VFP" ],
2049         mode      => "mode_E",
2050         attr_type => "ia32_x87_attr_t",
2051 },
2052
2053 # other
2054
2055 vFucomFnstsw => {
2056 # we can't allow to rematerialize this node so we don't have
2057 #  accidently produce Phi(Fucom, Fucom(ins_permuted))
2058 #       irn_flags => "R",
2059         reg_req   => { in => [ "vfp", "vfp" ], out => [ "eax" ] },
2060         ins       => [ "left", "right" ],
2061         outs      => [ "flags" ],
2062         attr      => "int ins_permuted",
2063         init_attr => "attr->attr.data.ins_permuted = ins_permuted;",
2064         latency   => 3,
2065         units     => [ "VFP" ],
2066         attr_type => "ia32_x87_attr_t",
2067         mode      => $mode_gp
2068 },
2069
2070 vFucomi => {
2071         irn_flags => "R",
2072         reg_req   => { in => [ "vfp", "vfp" ], out => [ "eflags" ] },
2073         ins       => [ "left", "right" ],
2074         outs      => [ "flags" ],
2075         attr      => "int ins_permuted",
2076         init_attr => "attr->attr.data.ins_permuted = ins_permuted;",
2077         latency   => 3,
2078         units     => [ "VFP" ],
2079         attr_type => "ia32_x87_attr_t",
2080         mode      => $mode_gp
2081 },
2082
2083 vFtstFnstsw => {
2084 #       irn_flags => "R",
2085         reg_req   => { in => [ "vfp" ], out => [ "eax" ] },
2086         ins       => [ "left" ],
2087         outs      => [ "flags" ],
2088         attr      => "int ins_permuted",
2089         init_attr => "attr->attr.data.ins_permuted = ins_permuted;",
2090         latency   => 3,
2091         units     => [ "VFP" ],
2092         attr_type => "ia32_x87_attr_t",
2093         mode      => $mode_gp
2094 },
2095
2096 Sahf => {
2097         irn_flags => "R",
2098         reg_req   => { in => [ "eax" ], out => [ "eflags" ] },
2099         ins       => [ "val" ],
2100         outs      => [ "flags" ],
2101         emit      => '. sahf',
2102         latency   => 1,
2103         units     => [ "GP" ],
2104         mode      => $mode_flags,
2105 },
2106
2107 #------------------------------------------------------------------------#
2108 #       ___ _____    __ _             _                     _            #
2109 # __  _( _ )___  |  / _| | ___   __ _| |_   _ __   ___   __| | ___  ___  #
2110 # \ \/ / _ \  / /  | |_| |/ _ \ / _` | __| | '_ \ / _ \ / _` |/ _ \/ __| #
2111 #  >  < (_) |/ /   |  _| | (_) | (_| | |_  | | | | (_) | (_| |  __/\__ \ #
2112 # /_/\_\___//_/    |_| |_|\___/ \__,_|\__| |_| |_|\___/ \__,_|\___||___/ #
2113 #------------------------------------------------------------------------#
2114
2115 # Note: gas is strangely buggy: fdivrp and fdivp as well as fsubrp and fsubp
2116 #       are swapped, we work this around in the emitter...
2117
2118 fadd => {
2119         state     => "exc_pinned",
2120         rd_constructor => "NONE",
2121         reg_req   => { },
2122         emit      => '. fadd%XM %x87_binop',
2123         latency   => 4,
2124         attr_type => "ia32_x87_attr_t",
2125 },
2126
2127 faddp => {
2128         state     => "exc_pinned",
2129         rd_constructor => "NONE",
2130         reg_req   => { },
2131         emit      => '. faddp%XM %x87_binop',
2132         latency   => 4,
2133         attr_type => "ia32_x87_attr_t",
2134 },
2135
2136 fmul => {
2137         state     => "exc_pinned",
2138         rd_constructor => "NONE",
2139         reg_req   => { },
2140         emit      => '. fmul%XM %x87_binop',
2141         latency   => 4,
2142         attr_type => "ia32_x87_attr_t",
2143 },
2144
2145 fmulp => {
2146         state     => "exc_pinned",
2147         rd_constructor => "NONE",
2148         reg_req   => { },
2149         emit      => '. fmulp%XM %x87_binop',,
2150         latency   => 4,
2151         attr_type => "ia32_x87_attr_t",
2152 },
2153
2154 fsub => {
2155         state     => "exc_pinned",
2156         rd_constructor => "NONE",
2157         reg_req   => { },
2158         emit      => '. fsub%XM %x87_binop',
2159         latency   => 4,
2160         attr_type => "ia32_x87_attr_t",
2161 },
2162
2163 fsubp => {
2164         state     => "exc_pinned",
2165         rd_constructor => "NONE",
2166         reg_req   => { },
2167 # see note about gas bugs
2168         emit      => '. fsubrp%XM %x87_binop',
2169         latency   => 4,
2170         attr_type => "ia32_x87_attr_t",
2171 },
2172
2173 fsubr => {
2174         state     => "exc_pinned",
2175         rd_constructor => "NONE",
2176         irn_flags => "R",
2177         reg_req   => { },
2178         emit      => '. fsubr%XM %x87_binop',
2179         latency   => 4,
2180         attr_type => "ia32_x87_attr_t",
2181 },
2182
2183 fsubrp => {
2184         state     => "exc_pinned",
2185         rd_constructor => "NONE",
2186         irn_flags => "R",
2187         reg_req   => { },
2188 # see note about gas bugs
2189         emit      => '. fsubp%XM %x87_binop',
2190         latency   => 4,
2191         attr_type => "ia32_x87_attr_t",
2192 },
2193
2194 fprem => {
2195         rd_constructor => "NONE",
2196         reg_req   => { },
2197         emit      => '. fprem1',
2198         latency   => 20,
2199         attr_type => "ia32_x87_attr_t",
2200 },
2201
2202 # this node is just here, to keep the simulator running
2203 # we can omit this when a fprem simulation function exists
2204 fpremp => {
2205         rd_constructor => "NONE",
2206         reg_req   => { },
2207         emit      => '. fprem1\n'.
2208                      '. fstp %X0',
2209         latency   => 20,
2210         attr_type => "ia32_x87_attr_t",
2211 },
2212
2213 fdiv => {
2214         state     => "exc_pinned",
2215         rd_constructor => "NONE",
2216         reg_req   => { },
2217         emit      => '. fdiv%XM %x87_binop',
2218         latency   => 20,
2219         attr_type => "ia32_x87_attr_t",
2220 },
2221
2222 fdivp => {
2223         state     => "exc_pinned",
2224         rd_constructor => "NONE",
2225         reg_req   => { },
2226 # see note about gas bugs
2227         emit      => '. fdivrp%XM %x87_binop',
2228         latency   => 20,
2229         attr_type => "ia32_x87_attr_t",
2230 },
2231
2232 fdivr => {
2233         state     => "exc_pinned",
2234         rd_constructor => "NONE",
2235         reg_req   => { },
2236         emit      => '. fdivr%XM %x87_binop',
2237         latency   => 20,
2238         attr_type => "ia32_x87_attr_t",
2239 },
2240
2241 fdivrp => {
2242         state     => "exc_pinned",
2243         rd_constructor => "NONE",
2244         reg_req   => { },
2245 # see note about gas bugs
2246         emit      => '. fdivp%XM %x87_binop',
2247         latency   => 20,
2248         attr_type => "ia32_x87_attr_t",
2249 },
2250
2251 fabs => {
2252         rd_constructor => "NONE",
2253         reg_req   => { },
2254         emit      => '. fabs',
2255         latency   => 4,
2256         attr_type => "ia32_x87_attr_t",
2257 },
2258
2259 fchs => {
2260         op_flags  => "R|K",
2261         rd_constructor => "NONE",
2262         reg_req   => { },
2263         emit      => '. fchs',
2264         latency   => 4,
2265         attr_type => "ia32_x87_attr_t",
2266 },
2267
2268 # x87 Load and Store
2269
2270 fld => {
2271         rd_constructor => "NONE",
2272         op_flags  => "R|L|F",
2273         state     => "exc_pinned",
2274         reg_req   => { },
2275         emit      => '. fld%XM %AM',
2276         attr_type => "ia32_x87_attr_t",
2277         latency   => 2,
2278 },
2279
2280 fst => {
2281         rd_constructor => "NONE",
2282         op_flags  => "R|L|F",
2283         state     => "exc_pinned",
2284         reg_req   => { },
2285         emit      => '. fst%XM %AM',
2286         mode      => "mode_M",
2287         attr_type => "ia32_x87_attr_t",
2288         latency   => 2,
2289 },
2290
2291 fstp => {
2292         rd_constructor => "NONE",
2293         op_flags  => "R|L|F",
2294         state     => "exc_pinned",
2295         reg_req   => { },
2296         emit      => '. fstp%XM %AM',
2297         mode      => "mode_M",
2298         attr_type => "ia32_x87_attr_t",
2299         latency   => 2,
2300 },
2301
2302 # Conversions
2303
2304 fild => {
2305         state     => "exc_pinned",
2306         rd_constructor => "NONE",
2307         reg_req   => { },
2308         emit      => '. fild%M %AM',
2309         attr_type => "ia32_x87_attr_t",
2310         latency   => 2,
2311 },
2312
2313 fist => {
2314         state     => "exc_pinned",
2315         rd_constructor => "NONE",
2316         reg_req   => { },
2317         emit      => '. fist%M %AM',
2318         mode      => "mode_M",
2319         attr_type => "ia32_x87_attr_t",
2320         latency   => 2,
2321 },
2322
2323 fistp => {
2324         state     => "exc_pinned",
2325         rd_constructor => "NONE",
2326         reg_req   => { },
2327         emit      => '. fistp%M %AM',
2328         mode      => "mode_M",
2329         attr_type => "ia32_x87_attr_t",
2330         latency   => 2,
2331 },
2332
2333 # constants
2334
2335 fldz => {
2336         op_flags  => "R|c|K",
2337         irn_flags => "R",
2338         reg_req   => { out => [ "vfp" ] },
2339         emit      => '. fldz',
2340         attr_type => "ia32_x87_attr_t",
2341         latency   => 2,
2342 },
2343
2344 fld1 => {
2345         op_flags  => "R|c|K",
2346         irn_flags => "R",
2347         reg_req   => { out => [ "vfp" ] },
2348         emit      => '. fld1',
2349         attr_type => "ia32_x87_attr_t",
2350         latency   => 2,
2351 },
2352
2353 fldpi => {
2354         op_flags  => "R|c|K",
2355         irn_flags => "R",
2356         reg_req   => { out => [ "vfp" ] },
2357         emit      => '. fldpi',
2358         attr_type => "ia32_x87_attr_t",
2359         latency   => 2,
2360 },
2361
2362 fldln2 => {
2363         op_flags  => "R|c|K",
2364         irn_flags => "R",
2365         reg_req   => { out => [ "vfp" ] },
2366         emit      => '. fldln2',
2367         attr_type => "ia32_x87_attr_t",
2368         latency   => 2,
2369 },
2370
2371 fldlg2 => {
2372         op_flags  => "R|c|K",
2373         irn_flags => "R",
2374         reg_req   => { out => [ "vfp" ] },
2375         emit      => '. fldlg2',
2376         attr_type => "ia32_x87_attr_t",
2377         latency   => 2,
2378 },
2379
2380 fldl2t => {
2381         op_flags  => "R|c|K",
2382         irn_flags => "R",
2383         reg_req   => { out => [ "vfp" ] },
2384         emit      => '. fldll2t',
2385         attr_type => "ia32_x87_attr_t",
2386         latency   => 2,
2387 },
2388
2389 fldl2e => {
2390         op_flags  => "R|c|K",
2391         irn_flags => "R",
2392         reg_req   => { out => [ "vfp" ] },
2393         emit      => '. fldl2e',
2394         attr_type => "ia32_x87_attr_t",
2395         latency   => 2,
2396 },
2397
2398 # fxch, fpush, fpop
2399 # Note that it is NEVER allowed to do CSE on these nodes
2400 # Moreover, note the virtual register requierements!
2401
2402 fxch => {
2403         op_flags  => "R|K",
2404         reg_req   => { },
2405         cmp_attr  => "return 1;",
2406         emit      => '. fxch %X0',
2407         attr_type => "ia32_x87_attr_t",
2408         mode      => "mode_ANY",
2409         latency   => 1,
2410 },
2411
2412 fpush => {
2413         op_flags  => "R|K",
2414         reg_req   => {},
2415         cmp_attr  => "return 1;",
2416         emit      => '. fld %X0',
2417         attr_type => "ia32_x87_attr_t",
2418         mode      => "mode_ANY",
2419         latency   => 1,
2420 },
2421
2422 fpushCopy => {
2423         reg_req   => { in => [ "vfp"], out => [ "vfp" ] },
2424         cmp_attr  => "return 1;",
2425         emit      => '. fld %X0',
2426         attr_type => "ia32_x87_attr_t",
2427         latency   => 1,
2428 },
2429
2430 fpop => {
2431         op_flags  => "K",
2432         reg_req   => { },
2433         cmp_attr  => "return 1;",
2434         emit      => '. fstp %X0',
2435         attr_type => "ia32_x87_attr_t",
2436         mode      => "mode_ANY",
2437         latency   => 1,
2438 },
2439
2440 ffreep => {
2441         op_flags  => "K",
2442         reg_req   => { },
2443         cmp_attr  => "return 1;",
2444         emit      => '. ffreep %X0',
2445         attr_type => "ia32_x87_attr_t",
2446         mode      => "mode_ANY",
2447         latency   => 1,
2448 },
2449
2450 emms => {
2451         op_flags  => "K",
2452         reg_req   => { },
2453         cmp_attr  => "return 1;",
2454         emit      => '. emms',
2455         attr_type => "ia32_x87_attr_t",
2456         mode      => "mode_ANY",
2457         latency   => 3,
2458 },
2459
2460 femms => {
2461         op_flags  => "K",
2462         reg_req   => { },
2463         cmp_attr  => "return 1;",
2464         emit      => '. femms',
2465         attr_type => "ia32_x87_attr_t",
2466         mode      => "mode_ANY",
2467         latency   => 3,
2468 },
2469
2470 # compare
2471
2472 FucomFnstsw => {
2473         reg_req   => { },
2474         emit      => ". fucom %X1\n".
2475                      ". fnstsw %%ax",
2476         attr_type => "ia32_x87_attr_t",
2477         latency   => 2,
2478 },
2479
2480 FucompFnstsw => {
2481         reg_req   => { },
2482         emit      => ". fucomp %X1\n".
2483                      ". fnstsw %%ax",
2484         attr_type => "ia32_x87_attr_t",
2485         latency   => 2,
2486 },
2487
2488 FucomppFnstsw => {
2489         reg_req   => { },
2490         emit      => ". fucompp\n".
2491                      ". fnstsw %%ax",
2492         attr_type => "ia32_x87_attr_t",
2493         latency   => 2,
2494 },
2495
2496 Fucomi => {
2497         reg_req   => { },
2498         emit      => '. fucomi %X1',
2499         attr_type => "ia32_x87_attr_t",
2500         latency   => 1,
2501 },
2502
2503 Fucompi => {
2504         reg_req   => { },
2505         emit      => '. fucompi %X1',
2506         attr_type => "ia32_x87_attr_t",
2507         latency   => 1,
2508 },
2509
2510 FtstFnstsw => {
2511         reg_req   => { },
2512         emit      => ". ftst\n".
2513                      ". fnstsw %%ax",
2514         attr_type => "ia32_x87_attr_t",
2515         latency   => 2,
2516 },
2517
2518
2519 # -------------------------------------------------------------------------------- #
2520 #  ____ ____  _____                  _                               _             #
2521 # / ___/ ___|| ____| __   _____  ___| |_ ___  _ __   _ __   ___   __| | ___  ___   #
2522 # \___ \___ \|  _|   \ \ / / _ \/ __| __/ _ \| '__| | '_ \ / _ \ / _` |/ _ \/ __|  #
2523 #  ___) |__) | |___   \ V /  __/ (__| || (_) | |    | | | | (_) | (_| |  __/\__ \  #
2524 # |____/____/|_____|   \_/ \___|\___|\__\___/|_|    |_| |_|\___/ \__,_|\___||___/  #
2525 #                                                                                  #
2526 # -------------------------------------------------------------------------------- #
2527
2528
2529 # Spilling and reloading of SSE registers, hardcoded, not generated #
2530
2531 xxLoad => {
2532         op_flags  => "L|F",
2533         state     => "exc_pinned",
2534         reg_req   => { in => [ "gp", "gp", "none" ], out => [ "xmm", "none" ] },
2535         emit      => '. movdqu %D0, %AM',
2536         outs      => [ "res", "M" ],
2537         units     => [ "SSE" ],
2538         latency   => 1,
2539 },
2540
2541 xxStore => {
2542         op_flags => "L|F",
2543         state    => "exc_pinned",
2544         reg_req  => { in => [ "gp", "gp", "none", "xmm" ] },
2545         ins      => [ "base", "index", "mem", "val" ],
2546         emit     => '. movdqu %binop',
2547         units    => [ "SSE" ],
2548         latency   => 1,
2549         mode     => "mode_M",
2550 },
2551
2552 ); # end of %nodes
2553
2554 # Include the generated SIMD node specification written by the SIMD optimization
2555 $my_script_name = dirname($myname) . "/../ia32/ia32_simd_spec.pl";
2556 unless ($return = do $my_script_name) {
2557         warn "couldn't parse $my_script_name: $@" if $@;
2558         warn "couldn't do $my_script_name: $!"    unless defined $return;
2559         warn "couldn't run $my_script_name"       unless $return;
2560 }
2561
2562 # Transform some attributes
2563 foreach my $op (keys(%nodes)) {
2564         my $node         = $nodes{$op};
2565         my $op_attr_init = $node->{op_attr_init};
2566
2567         if(defined($op_attr_init)) {
2568                 $op_attr_init .= "\n\t";
2569         } else {
2570                 $op_attr_init = "";
2571         }
2572
2573         if(!defined($node->{latency})) {
2574                 if($op =~ m/^l_/) {
2575                         $node->{latency} = 0;
2576                 } else {
2577                         die("Latency missing for op $op");
2578                 }
2579         }
2580         $op_attr_init .= "attr->latency = ".$node->{latency} . ";";
2581
2582         $node->{op_attr_init} = $op_attr_init;
2583 }
2584
2585 print "";