[x64] three operand imul supports first operand in memory location
[platform/upstream/v8.git] / src / compiler / x64 / code-generator-x64.cc
1 // Copyright 2013 the V8 project authors. All rights reserved.
2 // Use of this source code is governed by a BSD-style license that can be
3 // found in the LICENSE file.
4
5 #include "src/compiler/code-generator.h"
6
7 #include "src/compiler/code-generator-impl.h"
8 #include "src/compiler/gap-resolver.h"
9 #include "src/compiler/node-matchers.h"
10 #include "src/compiler/node-properties-inl.h"
11 #include "src/scopes.h"
12 #include "src/x64/assembler-x64.h"
13 #include "src/x64/macro-assembler-x64.h"
14
15 namespace v8 {
16 namespace internal {
17 namespace compiler {
18
19 #define __ masm()->
20
21
22 // TODO(turbofan): Cleanup these hacks.
23 enum Immediate64Type { kImm64Value, kImm64Handle, kImm64Reference };
24
25
26 struct Immediate64 {
27   uint64_t value;
28   Handle<Object> handle;
29   ExternalReference reference;
30   Immediate64Type type;
31 };
32
33
34 enum RegisterOrOperandType { kRegister, kDoubleRegister, kOperand };
35
36
37 struct RegisterOrOperand {
38   RegisterOrOperand() : operand(no_reg, 0) {}
39   Register reg;
40   DoubleRegister double_reg;
41   Operand operand;
42   RegisterOrOperandType type;
43 };
44
45
46 // Adds X64 specific methods for decoding operands.
47 class X64OperandConverter : public InstructionOperandConverter {
48  public:
49   X64OperandConverter(CodeGenerator* gen, Instruction* instr)
50       : InstructionOperandConverter(gen, instr) {}
51
52   RegisterOrOperand InputRegisterOrOperand(int index) {
53     return ToRegisterOrOperand(instr_->InputAt(index));
54   }
55
56   Immediate InputImmediate(int index) {
57     return ToImmediate(instr_->InputAt(index));
58   }
59
60   RegisterOrOperand OutputRegisterOrOperand() {
61     return ToRegisterOrOperand(instr_->Output());
62   }
63
64   Immediate64 InputImmediate64(int index) {
65     return ToImmediate64(instr_->InputAt(index));
66   }
67
68   Immediate64 ToImmediate64(InstructionOperand* operand) {
69     Constant constant = ToConstant(operand);
70     Immediate64 immediate;
71     immediate.value = 0xbeefdeaddeefbeed;
72     immediate.type = kImm64Value;
73     switch (constant.type()) {
74       case Constant::kInt32:
75       case Constant::kInt64:
76         immediate.value = constant.ToInt64();
77         return immediate;
78       case Constant::kFloat64:
79         immediate.type = kImm64Handle;
80         immediate.handle =
81             isolate()->factory()->NewNumber(constant.ToFloat64(), TENURED);
82         return immediate;
83       case Constant::kExternalReference:
84         immediate.type = kImm64Reference;
85         immediate.reference = constant.ToExternalReference();
86         return immediate;
87       case Constant::kHeapObject:
88         immediate.type = kImm64Handle;
89         immediate.handle = constant.ToHeapObject();
90         return immediate;
91     }
92     UNREACHABLE();
93     return immediate;
94   }
95
96   Immediate ToImmediate(InstructionOperand* operand) {
97     Constant constant = ToConstant(operand);
98     switch (constant.type()) {
99       case Constant::kInt32:
100         return Immediate(constant.ToInt32());
101       case Constant::kInt64:
102       case Constant::kFloat64:
103       case Constant::kExternalReference:
104       case Constant::kHeapObject:
105         break;
106     }
107     UNREACHABLE();
108     return Immediate(-1);
109   }
110
111   Operand ToOperand(InstructionOperand* op, int extra = 0) {
112     RegisterOrOperand result = ToRegisterOrOperand(op, extra);
113     DCHECK_EQ(kOperand, result.type);
114     return result.operand;
115   }
116
117   RegisterOrOperand ToRegisterOrOperand(InstructionOperand* op, int extra = 0) {
118     RegisterOrOperand result;
119     if (op->IsRegister()) {
120       DCHECK(extra == 0);
121       result.type = kRegister;
122       result.reg = ToRegister(op);
123       return result;
124     } else if (op->IsDoubleRegister()) {
125       DCHECK(extra == 0);
126       DCHECK(extra == 0);
127       result.type = kDoubleRegister;
128       result.double_reg = ToDoubleRegister(op);
129       return result;
130     }
131
132     DCHECK(op->IsStackSlot() || op->IsDoubleStackSlot());
133
134     result.type = kOperand;
135     // The linkage computes where all spill slots are located.
136     FrameOffset offset = linkage()->GetFrameOffset(op->index(), frame(), extra);
137     result.operand =
138         Operand(offset.from_stack_pointer() ? rsp : rbp, offset.offset());
139     return result;
140   }
141
142   Operand MemoryOperand(int* first_input) {
143     const int offset = *first_input;
144     switch (AddressingModeField::decode(instr_->opcode())) {
145       case kMode_MR1I: {
146         *first_input += 2;
147         Register index = InputRegister(offset + 1);
148         return Operand(InputRegister(offset + 0), index, times_1,
149                        0);  // TODO(dcarney): K != 0
150       }
151       case kMode_MRI:
152         *first_input += 2;
153         return Operand(InputRegister(offset + 0), InputInt32(offset + 1));
154       default:
155         UNREACHABLE();
156         return Operand(no_reg, 0);
157     }
158   }
159
160   Operand MemoryOperand() {
161     int first_input = 0;
162     return MemoryOperand(&first_input);
163   }
164 };
165
166
167 static bool HasImmediateInput(Instruction* instr, int index) {
168   return instr->InputAt(index)->IsImmediate();
169 }
170
171
172 #define ASSEMBLE_BINOP(asm_instr)                            \
173   do {                                                       \
174     if (HasImmediateInput(instr, 1)) {                       \
175       RegisterOrOperand input = i.InputRegisterOrOperand(0); \
176       if (input.type == kRegister) {                         \
177         __ asm_instr(input.reg, i.InputImmediate(1));        \
178       } else {                                               \
179         __ asm_instr(input.operand, i.InputImmediate(1));    \
180       }                                                      \
181     } else {                                                 \
182       RegisterOrOperand input = i.InputRegisterOrOperand(1); \
183       if (input.type == kRegister) {                         \
184         __ asm_instr(i.InputRegister(0), input.reg);         \
185       } else {                                               \
186         __ asm_instr(i.InputRegister(0), input.operand);     \
187       }                                                      \
188     }                                                        \
189   } while (0)
190
191
192 #define ASSEMBLE_SHIFT(asm_instr, width)                                 \
193   do {                                                                   \
194     if (HasImmediateInput(instr, 1)) {                                   \
195       __ asm_instr(i.OutputRegister(), Immediate(i.InputInt##width(1))); \
196     } else {                                                             \
197       __ asm_instr##_cl(i.OutputRegister());                             \
198     }                                                                    \
199   } while (0)
200
201
202 // Assembles an instruction after register allocation, producing machine code.
203 void CodeGenerator::AssembleArchInstruction(Instruction* instr) {
204   X64OperandConverter i(this, instr);
205
206   switch (ArchOpcodeField::decode(instr->opcode())) {
207     case kArchCallCodeObject: {
208       EnsureSpaceForLazyDeopt();
209       if (HasImmediateInput(instr, 0)) {
210         Handle<Code> code = Handle<Code>::cast(i.InputHeapObject(0));
211         __ Call(code, RelocInfo::CODE_TARGET);
212       } else {
213         Register reg = i.InputRegister(0);
214         int entry = Code::kHeaderSize - kHeapObjectTag;
215         __ Call(Operand(reg, entry));
216       }
217       AddSafepointAndDeopt(instr);
218       break;
219     }
220     case kArchCallJSFunction: {
221       EnsureSpaceForLazyDeopt();
222       Register func = i.InputRegister(0);
223       if (FLAG_debug_code) {
224         // Check the function's context matches the context argument.
225         __ cmpp(rsi, FieldOperand(func, JSFunction::kContextOffset));
226         __ Assert(equal, kWrongFunctionContext);
227       }
228       __ Call(FieldOperand(func, JSFunction::kCodeEntryOffset));
229       AddSafepointAndDeopt(instr);
230       break;
231     }
232     case kArchJmp:
233       __ jmp(code_->GetLabel(i.InputBlock(0)));
234       break;
235     case kArchNop:
236       // don't emit code for nops.
237       break;
238     case kArchRet:
239       AssembleReturn();
240       break;
241     case kArchTruncateDoubleToI:
242       __ TruncateDoubleToI(i.OutputRegister(), i.InputDoubleRegister(0));
243       break;
244     case kX64Add32:
245       ASSEMBLE_BINOP(addl);
246       break;
247     case kX64Add:
248       ASSEMBLE_BINOP(addq);
249       break;
250     case kX64Sub32:
251       ASSEMBLE_BINOP(subl);
252       break;
253     case kX64Sub:
254       ASSEMBLE_BINOP(subq);
255       break;
256     case kX64And32:
257       ASSEMBLE_BINOP(andl);
258       break;
259     case kX64And:
260       ASSEMBLE_BINOP(andq);
261       break;
262     case kX64Cmp32:
263       ASSEMBLE_BINOP(cmpl);
264       break;
265     case kX64Cmp:
266       ASSEMBLE_BINOP(cmpq);
267       break;
268     case kX64Test32:
269       ASSEMBLE_BINOP(testl);
270       break;
271     case kX64Test:
272       ASSEMBLE_BINOP(testq);
273       break;
274     case kX64Imul32:
275       if (HasImmediateInput(instr, 1)) {
276         RegisterOrOperand input = i.InputRegisterOrOperand(0);
277         if (input.type == kRegister) {
278           __ imull(i.OutputRegister(), input.reg, i.InputImmediate(1));
279         } else {
280           __ imull(i.OutputRegister(), input.operand, i.InputImmediate(1));
281         }
282       } else {
283         RegisterOrOperand input = i.InputRegisterOrOperand(1);
284         if (input.type == kRegister) {
285           __ imull(i.OutputRegister(), input.reg);
286         } else {
287           __ imull(i.OutputRegister(), input.operand);
288         }
289       }
290       break;
291     case kX64Imul:
292       if (HasImmediateInput(instr, 1)) {
293         RegisterOrOperand input = i.InputRegisterOrOperand(0);
294         if (input.type == kRegister) {
295           __ imulq(i.OutputRegister(), input.reg, i.InputImmediate(1));
296         } else {
297           __ imulq(i.OutputRegister(), input.operand, i.InputImmediate(1));
298         }
299       } else {
300         RegisterOrOperand input = i.InputRegisterOrOperand(1);
301         if (input.type == kRegister) {
302           __ imulq(i.OutputRegister(), input.reg);
303         } else {
304           __ imulq(i.OutputRegister(), input.operand);
305         }
306       }
307       break;
308     case kX64Idiv32:
309       __ cdq();
310       __ idivl(i.InputRegister(1));
311       break;
312     case kX64Idiv:
313       __ cqo();
314       __ idivq(i.InputRegister(1));
315       break;
316     case kX64Udiv32:
317       __ xorl(rdx, rdx);
318       __ divl(i.InputRegister(1));
319       break;
320     case kX64Udiv:
321       __ xorq(rdx, rdx);
322       __ divq(i.InputRegister(1));
323       break;
324     case kX64Not: {
325       RegisterOrOperand output = i.OutputRegisterOrOperand();
326       if (output.type == kRegister) {
327         __ notq(output.reg);
328       } else {
329         __ notq(output.operand);
330       }
331       break;
332     }
333     case kX64Not32: {
334       RegisterOrOperand output = i.OutputRegisterOrOperand();
335       if (output.type == kRegister) {
336         __ notl(output.reg);
337       } else {
338         __ notl(output.operand);
339       }
340       break;
341     }
342     case kX64Neg: {
343       RegisterOrOperand output = i.OutputRegisterOrOperand();
344       if (output.type == kRegister) {
345         __ negq(output.reg);
346       } else {
347         __ negq(output.operand);
348       }
349       break;
350     }
351     case kX64Neg32: {
352       RegisterOrOperand output = i.OutputRegisterOrOperand();
353       if (output.type == kRegister) {
354         __ negl(output.reg);
355       } else {
356         __ negl(output.operand);
357       }
358       break;
359     }
360     case kX64Or32:
361       ASSEMBLE_BINOP(orl);
362       break;
363     case kX64Or:
364       ASSEMBLE_BINOP(orq);
365       break;
366     case kX64Xor32:
367       ASSEMBLE_BINOP(xorl);
368       break;
369     case kX64Xor:
370       ASSEMBLE_BINOP(xorq);
371       break;
372     case kX64Shl32:
373       ASSEMBLE_SHIFT(shll, 5);
374       break;
375     case kX64Shl:
376       ASSEMBLE_SHIFT(shlq, 6);
377       break;
378     case kX64Shr32:
379       ASSEMBLE_SHIFT(shrl, 5);
380       break;
381     case kX64Shr:
382       ASSEMBLE_SHIFT(shrq, 6);
383       break;
384     case kX64Sar32:
385       ASSEMBLE_SHIFT(sarl, 5);
386       break;
387     case kX64Sar:
388       ASSEMBLE_SHIFT(sarq, 6);
389       break;
390     case kX64Ror32:
391       ASSEMBLE_SHIFT(rorl, 5);
392       break;
393     case kX64Ror:
394       ASSEMBLE_SHIFT(rorq, 6);
395       break;
396     case kSSEFloat64Cmp: {
397       RegisterOrOperand input = i.InputRegisterOrOperand(1);
398       if (input.type == kDoubleRegister) {
399         __ ucomisd(i.InputDoubleRegister(0), input.double_reg);
400       } else {
401         __ ucomisd(i.InputDoubleRegister(0), input.operand);
402       }
403       break;
404     }
405     case kSSEFloat64Add:
406       __ addsd(i.InputDoubleRegister(0), i.InputDoubleRegister(1));
407       break;
408     case kSSEFloat64Sub:
409       __ subsd(i.InputDoubleRegister(0), i.InputDoubleRegister(1));
410       break;
411     case kSSEFloat64Mul:
412       __ mulsd(i.InputDoubleRegister(0), i.InputDoubleRegister(1));
413       break;
414     case kSSEFloat64Div:
415       __ divsd(i.InputDoubleRegister(0), i.InputDoubleRegister(1));
416       break;
417     case kSSEFloat64Mod: {
418       __ subq(rsp, Immediate(kDoubleSize));
419       // Move values to st(0) and st(1).
420       __ movsd(Operand(rsp, 0), i.InputDoubleRegister(1));
421       __ fld_d(Operand(rsp, 0));
422       __ movsd(Operand(rsp, 0), i.InputDoubleRegister(0));
423       __ fld_d(Operand(rsp, 0));
424       // Loop while fprem isn't done.
425       Label mod_loop;
426       __ bind(&mod_loop);
427       // This instructions traps on all kinds inputs, but we are assuming the
428       // floating point control word is set to ignore them all.
429       __ fprem();
430       // The following 2 instruction implicitly use rax.
431       __ fnstsw_ax();
432       if (CpuFeatures::IsSupported(SAHF) && masm()->IsEnabled(SAHF)) {
433         __ sahf();
434       } else {
435         __ shrl(rax, Immediate(8));
436         __ andl(rax, Immediate(0xFF));
437         __ pushq(rax);
438         __ popfq();
439       }
440       __ j(parity_even, &mod_loop);
441       // Move output to stack and clean up.
442       __ fstp(1);
443       __ fstp_d(Operand(rsp, 0));
444       __ movsd(i.OutputDoubleRegister(), Operand(rsp, 0));
445       __ addq(rsp, Immediate(kDoubleSize));
446       break;
447     }
448     case kSSEFloat64Sqrt: {
449       RegisterOrOperand input = i.InputRegisterOrOperand(0);
450       if (input.type == kDoubleRegister) {
451         __ sqrtsd(i.OutputDoubleRegister(), input.double_reg);
452       } else {
453         __ sqrtsd(i.OutputDoubleRegister(), input.operand);
454       }
455       break;
456     }
457     case kSSECvtss2sd:
458       __ cvtss2sd(i.OutputDoubleRegister(), i.InputDoubleRegister(0));
459       break;
460     case kSSECvtsd2ss:
461       __ cvtsd2ss(i.OutputDoubleRegister(), i.InputDoubleRegister(0));
462       break;
463     case kSSEFloat64ToInt32: {
464       RegisterOrOperand input = i.InputRegisterOrOperand(0);
465       if (input.type == kDoubleRegister) {
466         __ cvttsd2si(i.OutputRegister(), input.double_reg);
467       } else {
468         __ cvttsd2si(i.OutputRegister(), input.operand);
469       }
470       break;
471     }
472     case kSSEFloat64ToUint32: {
473       RegisterOrOperand input = i.InputRegisterOrOperand(0);
474       if (input.type == kDoubleRegister) {
475         __ cvttsd2siq(i.OutputRegister(), input.double_reg);
476       } else {
477         __ cvttsd2siq(i.OutputRegister(), input.operand);
478       }
479       __ andl(i.OutputRegister(), i.OutputRegister());  // clear upper bits.
480       // TODO(turbofan): generated code should not look at the upper 32 bits
481       // of the result, but those bits could escape to the outside world.
482       break;
483     }
484     case kSSEInt32ToFloat64: {
485       RegisterOrOperand input = i.InputRegisterOrOperand(0);
486       if (input.type == kRegister) {
487         __ cvtlsi2sd(i.OutputDoubleRegister(), input.reg);
488       } else {
489         __ cvtlsi2sd(i.OutputDoubleRegister(), input.operand);
490       }
491       break;
492     }
493     case kSSEUint32ToFloat64: {
494       // TODO(turbofan): X64 SSE cvtqsi2sd should support operands.
495       __ cvtqsi2sd(i.OutputDoubleRegister(), i.InputRegister(0));
496       break;
497     }
498     case kX64Movsxbl:
499       __ movsxbl(i.OutputRegister(), i.MemoryOperand());
500       break;
501     case kX64Movzxbl:
502       __ movzxbl(i.OutputRegister(), i.MemoryOperand());
503       break;
504     case kX64Movb: {
505       int index = 0;
506       Operand operand = i.MemoryOperand(&index);
507       if (HasImmediateInput(instr, index)) {
508         __ movb(operand, Immediate(i.InputInt8(index)));
509       } else {
510         __ movb(operand, i.InputRegister(index));
511       }
512       break;
513     }
514     case kX64Movsxwl:
515       __ movsxwl(i.OutputRegister(), i.MemoryOperand());
516       break;
517     case kX64Movzxwl:
518       __ movzxwl(i.OutputRegister(), i.MemoryOperand());
519       break;
520     case kX64Movw: {
521       int index = 0;
522       Operand operand = i.MemoryOperand(&index);
523       if (HasImmediateInput(instr, index)) {
524         __ movw(operand, Immediate(i.InputInt16(index)));
525       } else {
526         __ movw(operand, i.InputRegister(index));
527       }
528       break;
529     }
530     case kX64Movl:
531       if (instr->HasOutput()) {
532         if (instr->addressing_mode() == kMode_None) {
533           RegisterOrOperand input = i.InputRegisterOrOperand(0);
534           if (input.type == kRegister) {
535             __ movl(i.OutputRegister(), input.reg);
536           } else {
537             __ movl(i.OutputRegister(), input.operand);
538           }
539         } else {
540           __ movl(i.OutputRegister(), i.MemoryOperand());
541         }
542       } else {
543         int index = 0;
544         Operand operand = i.MemoryOperand(&index);
545         if (HasImmediateInput(instr, index)) {
546           __ movl(operand, i.InputImmediate(index));
547         } else {
548           __ movl(operand, i.InputRegister(index));
549         }
550       }
551       break;
552     case kX64Movsxlq: {
553       RegisterOrOperand input = i.InputRegisterOrOperand(0);
554       if (input.type == kRegister) {
555         __ movsxlq(i.OutputRegister(), input.reg);
556       } else {
557         __ movsxlq(i.OutputRegister(), input.operand);
558       }
559       break;
560     }
561     case kX64Movq:
562       if (instr->HasOutput()) {
563         __ movq(i.OutputRegister(), i.MemoryOperand());
564       } else {
565         int index = 0;
566         Operand operand = i.MemoryOperand(&index);
567         if (HasImmediateInput(instr, index)) {
568           __ movq(operand, i.InputImmediate(index));
569         } else {
570           __ movq(operand, i.InputRegister(index));
571         }
572       }
573       break;
574     case kX64Movss:
575       if (instr->HasOutput()) {
576         __ movss(i.OutputDoubleRegister(), i.MemoryOperand());
577       } else {
578         int index = 0;
579         Operand operand = i.MemoryOperand(&index);
580         __ movss(operand, i.InputDoubleRegister(index));
581       }
582       break;
583     case kX64Movsd:
584       if (instr->HasOutput()) {
585         __ movsd(i.OutputDoubleRegister(), i.MemoryOperand());
586       } else {
587         int index = 0;
588         Operand operand = i.MemoryOperand(&index);
589         __ movsd(operand, i.InputDoubleRegister(index));
590       }
591       break;
592     case kX64Push:
593       if (HasImmediateInput(instr, 0)) {
594         __ pushq(i.InputImmediate(0));
595       } else {
596         RegisterOrOperand input = i.InputRegisterOrOperand(0);
597         if (input.type == kRegister) {
598           __ pushq(input.reg);
599         } else {
600           __ pushq(input.operand);
601         }
602       }
603       break;
604     case kX64StoreWriteBarrier: {
605       Register object = i.InputRegister(0);
606       Register index = i.InputRegister(1);
607       Register value = i.InputRegister(2);
608       __ movsxlq(index, index);
609       __ movq(Operand(object, index, times_1, 0), value);
610       __ leaq(index, Operand(object, index, times_1, 0));
611       SaveFPRegsMode mode = code_->frame()->DidAllocateDoubleRegisters()
612                                 ? kSaveFPRegs
613                                 : kDontSaveFPRegs;
614       __ RecordWrite(object, index, value, mode);
615       break;
616     }
617   }
618 }
619
620
621 // Assembles branches after this instruction.
622 void CodeGenerator::AssembleArchBranch(Instruction* instr,
623                                        FlagsCondition condition) {
624   X64OperandConverter i(this, instr);
625   Label done;
626
627   // Emit a branch. The true and false targets are always the last two inputs
628   // to the instruction.
629   BasicBlock* tblock = i.InputBlock(static_cast<int>(instr->InputCount()) - 2);
630   BasicBlock* fblock = i.InputBlock(static_cast<int>(instr->InputCount()) - 1);
631   bool fallthru = IsNextInAssemblyOrder(fblock);
632   Label* tlabel = code()->GetLabel(tblock);
633   Label* flabel = fallthru ? &done : code()->GetLabel(fblock);
634   Label::Distance flabel_distance = fallthru ? Label::kNear : Label::kFar;
635   switch (condition) {
636     case kUnorderedEqual:
637       __ j(parity_even, flabel, flabel_distance);
638     // Fall through.
639     case kEqual:
640       __ j(equal, tlabel);
641       break;
642     case kUnorderedNotEqual:
643       __ j(parity_even, tlabel);
644     // Fall through.
645     case kNotEqual:
646       __ j(not_equal, tlabel);
647       break;
648     case kSignedLessThan:
649       __ j(less, tlabel);
650       break;
651     case kSignedGreaterThanOrEqual:
652       __ j(greater_equal, tlabel);
653       break;
654     case kSignedLessThanOrEqual:
655       __ j(less_equal, tlabel);
656       break;
657     case kSignedGreaterThan:
658       __ j(greater, tlabel);
659       break;
660     case kUnorderedLessThan:
661       __ j(parity_even, flabel, flabel_distance);
662     // Fall through.
663     case kUnsignedLessThan:
664       __ j(below, tlabel);
665       break;
666     case kUnorderedGreaterThanOrEqual:
667       __ j(parity_even, tlabel);
668     // Fall through.
669     case kUnsignedGreaterThanOrEqual:
670       __ j(above_equal, tlabel);
671       break;
672     case kUnorderedLessThanOrEqual:
673       __ j(parity_even, flabel, flabel_distance);
674     // Fall through.
675     case kUnsignedLessThanOrEqual:
676       __ j(below_equal, tlabel);
677       break;
678     case kUnorderedGreaterThan:
679       __ j(parity_even, tlabel);
680     // Fall through.
681     case kUnsignedGreaterThan:
682       __ j(above, tlabel);
683       break;
684     case kOverflow:
685       __ j(overflow, tlabel);
686       break;
687     case kNotOverflow:
688       __ j(no_overflow, tlabel);
689       break;
690   }
691   if (!fallthru) __ jmp(flabel, flabel_distance);  // no fallthru to flabel.
692   __ bind(&done);
693 }
694
695
696 // Assembles boolean materializations after this instruction.
697 void CodeGenerator::AssembleArchBoolean(Instruction* instr,
698                                         FlagsCondition condition) {
699   X64OperandConverter i(this, instr);
700   Label done;
701
702   // Materialize a full 64-bit 1 or 0 value. The result register is always the
703   // last output of the instruction.
704   Label check;
705   DCHECK_NE(0, instr->OutputCount());
706   Register reg = i.OutputRegister(static_cast<int>(instr->OutputCount() - 1));
707   Condition cc = no_condition;
708   switch (condition) {
709     case kUnorderedEqual:
710       __ j(parity_odd, &check, Label::kNear);
711       __ movl(reg, Immediate(0));
712       __ jmp(&done, Label::kNear);
713     // Fall through.
714     case kEqual:
715       cc = equal;
716       break;
717     case kUnorderedNotEqual:
718       __ j(parity_odd, &check, Label::kNear);
719       __ movl(reg, Immediate(1));
720       __ jmp(&done, Label::kNear);
721     // Fall through.
722     case kNotEqual:
723       cc = not_equal;
724       break;
725     case kSignedLessThan:
726       cc = less;
727       break;
728     case kSignedGreaterThanOrEqual:
729       cc = greater_equal;
730       break;
731     case kSignedLessThanOrEqual:
732       cc = less_equal;
733       break;
734     case kSignedGreaterThan:
735       cc = greater;
736       break;
737     case kUnorderedLessThan:
738       __ j(parity_odd, &check, Label::kNear);
739       __ movl(reg, Immediate(0));
740       __ jmp(&done, Label::kNear);
741     // Fall through.
742     case kUnsignedLessThan:
743       cc = below;
744       break;
745     case kUnorderedGreaterThanOrEqual:
746       __ j(parity_odd, &check, Label::kNear);
747       __ movl(reg, Immediate(1));
748       __ jmp(&done, Label::kNear);
749     // Fall through.
750     case kUnsignedGreaterThanOrEqual:
751       cc = above_equal;
752       break;
753     case kUnorderedLessThanOrEqual:
754       __ j(parity_odd, &check, Label::kNear);
755       __ movl(reg, Immediate(0));
756       __ jmp(&done, Label::kNear);
757     // Fall through.
758     case kUnsignedLessThanOrEqual:
759       cc = below_equal;
760       break;
761     case kUnorderedGreaterThan:
762       __ j(parity_odd, &check, Label::kNear);
763       __ movl(reg, Immediate(1));
764       __ jmp(&done, Label::kNear);
765     // Fall through.
766     case kUnsignedGreaterThan:
767       cc = above;
768       break;
769     case kOverflow:
770       cc = overflow;
771       break;
772     case kNotOverflow:
773       cc = no_overflow;
774       break;
775   }
776   __ bind(&check);
777   __ setcc(cc, reg);
778   __ movzxbl(reg, reg);
779   __ bind(&done);
780 }
781
782
783 void CodeGenerator::AssembleDeoptimizerCall(int deoptimization_id) {
784   Address deopt_entry = Deoptimizer::GetDeoptimizationEntry(
785       isolate(), deoptimization_id, Deoptimizer::LAZY);
786   __ call(deopt_entry, RelocInfo::RUNTIME_ENTRY);
787 }
788
789
790 void CodeGenerator::AssemblePrologue() {
791   CallDescriptor* descriptor = linkage()->GetIncomingDescriptor();
792   int stack_slots = frame()->GetSpillSlotCount();
793   if (descriptor->kind() == CallDescriptor::kCallAddress) {
794     __ pushq(rbp);
795     __ movq(rbp, rsp);
796     const RegList saves = descriptor->CalleeSavedRegisters();
797     if (saves != 0) {  // Save callee-saved registers.
798       int register_save_area_size = 0;
799       for (int i = Register::kNumRegisters - 1; i >= 0; i--) {
800         if (!((1 << i) & saves)) continue;
801         __ pushq(Register::from_code(i));
802         register_save_area_size += kPointerSize;
803       }
804       frame()->SetRegisterSaveAreaSize(register_save_area_size);
805     }
806   } else if (descriptor->IsJSFunctionCall()) {
807     CompilationInfo* info = linkage()->info();
808     __ Prologue(info->IsCodePreAgingActive());
809     frame()->SetRegisterSaveAreaSize(
810         StandardFrameConstants::kFixedFrameSizeFromFp);
811
812     // Sloppy mode functions and builtins need to replace the receiver with the
813     // global proxy when called as functions (without an explicit receiver
814     // object).
815     // TODO(mstarzinger/verwaest): Should this be moved back into the CallIC?
816     if (info->strict_mode() == SLOPPY && !info->is_native()) {
817       Label ok;
818       StackArgumentsAccessor args(rbp, info->scope()->num_parameters());
819       __ movp(rcx, args.GetReceiverOperand());
820       __ CompareRoot(rcx, Heap::kUndefinedValueRootIndex);
821       __ j(not_equal, &ok, Label::kNear);
822       __ movp(rcx, GlobalObjectOperand());
823       __ movp(rcx, FieldOperand(rcx, GlobalObject::kGlobalProxyOffset));
824       __ movp(args.GetReceiverOperand(), rcx);
825       __ bind(&ok);
826     }
827
828   } else {
829     __ StubPrologue();
830     frame()->SetRegisterSaveAreaSize(
831         StandardFrameConstants::kFixedFrameSizeFromFp);
832   }
833   if (stack_slots > 0) {
834     __ subq(rsp, Immediate(stack_slots * kPointerSize));
835   }
836 }
837
838
839 void CodeGenerator::AssembleReturn() {
840   CallDescriptor* descriptor = linkage()->GetIncomingDescriptor();
841   if (descriptor->kind() == CallDescriptor::kCallAddress) {
842     if (frame()->GetRegisterSaveAreaSize() > 0) {
843       // Remove this frame's spill slots first.
844       int stack_slots = frame()->GetSpillSlotCount();
845       if (stack_slots > 0) {
846         __ addq(rsp, Immediate(stack_slots * kPointerSize));
847       }
848       const RegList saves = descriptor->CalleeSavedRegisters();
849       // Restore registers.
850       if (saves != 0) {
851         for (int i = 0; i < Register::kNumRegisters; i++) {
852           if (!((1 << i) & saves)) continue;
853           __ popq(Register::from_code(i));
854         }
855       }
856       __ popq(rbp);  // Pop caller's frame pointer.
857       __ ret(0);
858     } else {
859       // No saved registers.
860       __ movq(rsp, rbp);  // Move stack pointer back to frame pointer.
861       __ popq(rbp);       // Pop caller's frame pointer.
862       __ ret(0);
863     }
864   } else {
865     __ movq(rsp, rbp);  // Move stack pointer back to frame pointer.
866     __ popq(rbp);       // Pop caller's frame pointer.
867     int pop_count = descriptor->IsJSFunctionCall()
868                         ? static_cast<int>(descriptor->JSParameterCount())
869                         : 0;
870     __ ret(pop_count * kPointerSize);
871   }
872 }
873
874
875 void CodeGenerator::AssembleMove(InstructionOperand* source,
876                                  InstructionOperand* destination) {
877   X64OperandConverter g(this, NULL);
878   // Dispatch on the source and destination operand kinds.  Not all
879   // combinations are possible.
880   if (source->IsRegister()) {
881     DCHECK(destination->IsRegister() || destination->IsStackSlot());
882     Register src = g.ToRegister(source);
883     if (destination->IsRegister()) {
884       __ movq(g.ToRegister(destination), src);
885     } else {
886       __ movq(g.ToOperand(destination), src);
887     }
888   } else if (source->IsStackSlot()) {
889     DCHECK(destination->IsRegister() || destination->IsStackSlot());
890     Operand src = g.ToOperand(source);
891     if (destination->IsRegister()) {
892       Register dst = g.ToRegister(destination);
893       __ movq(dst, src);
894     } else {
895       // Spill on demand to use a temporary register for memory-to-memory
896       // moves.
897       Register tmp = kScratchRegister;
898       Operand dst = g.ToOperand(destination);
899       __ movq(tmp, src);
900       __ movq(dst, tmp);
901     }
902   } else if (source->IsConstant()) {
903     ConstantOperand* constant_source = ConstantOperand::cast(source);
904     if (destination->IsRegister() || destination->IsStackSlot()) {
905       Register dst = destination->IsRegister() ? g.ToRegister(destination)
906                                                : kScratchRegister;
907       Immediate64 imm = g.ToImmediate64(constant_source);
908       switch (imm.type) {
909         case kImm64Value:
910           __ Set(dst, imm.value);
911           break;
912         case kImm64Reference:
913           __ Move(dst, imm.reference);
914           break;
915         case kImm64Handle:
916           __ Move(dst, imm.handle);
917           break;
918       }
919       if (destination->IsStackSlot()) {
920         __ movq(g.ToOperand(destination), kScratchRegister);
921       }
922     } else {
923       __ movq(kScratchRegister,
924               bit_cast<uint64_t, double>(g.ToDouble(constant_source)));
925       if (destination->IsDoubleRegister()) {
926         __ movq(g.ToDoubleRegister(destination), kScratchRegister);
927       } else {
928         DCHECK(destination->IsDoubleStackSlot());
929         __ movq(g.ToOperand(destination), kScratchRegister);
930       }
931     }
932   } else if (source->IsDoubleRegister()) {
933     XMMRegister src = g.ToDoubleRegister(source);
934     if (destination->IsDoubleRegister()) {
935       XMMRegister dst = g.ToDoubleRegister(destination);
936       __ movsd(dst, src);
937     } else {
938       DCHECK(destination->IsDoubleStackSlot());
939       Operand dst = g.ToOperand(destination);
940       __ movsd(dst, src);
941     }
942   } else if (source->IsDoubleStackSlot()) {
943     DCHECK(destination->IsDoubleRegister() || destination->IsDoubleStackSlot());
944     Operand src = g.ToOperand(source);
945     if (destination->IsDoubleRegister()) {
946       XMMRegister dst = g.ToDoubleRegister(destination);
947       __ movsd(dst, src);
948     } else {
949       // We rely on having xmm0 available as a fixed scratch register.
950       Operand dst = g.ToOperand(destination);
951       __ movsd(xmm0, src);
952       __ movsd(dst, xmm0);
953     }
954   } else {
955     UNREACHABLE();
956   }
957 }
958
959
960 void CodeGenerator::AssembleSwap(InstructionOperand* source,
961                                  InstructionOperand* destination) {
962   X64OperandConverter g(this, NULL);
963   // Dispatch on the source and destination operand kinds.  Not all
964   // combinations are possible.
965   if (source->IsRegister() && destination->IsRegister()) {
966     // Register-register.
967     __ xchgq(g.ToRegister(source), g.ToRegister(destination));
968   } else if (source->IsRegister() && destination->IsStackSlot()) {
969     Register src = g.ToRegister(source);
970     Operand dst = g.ToOperand(destination);
971     __ xchgq(src, dst);
972   } else if ((source->IsStackSlot() && destination->IsStackSlot()) ||
973              (source->IsDoubleStackSlot() &&
974               destination->IsDoubleStackSlot())) {
975     // Memory-memory.
976     Register tmp = kScratchRegister;
977     Operand src = g.ToOperand(source);
978     Operand dst = g.ToOperand(destination);
979     __ movq(tmp, dst);
980     __ xchgq(tmp, src);
981     __ movq(dst, tmp);
982   } else if (source->IsDoubleRegister() && destination->IsDoubleRegister()) {
983     // XMM register-register swap. We rely on having xmm0
984     // available as a fixed scratch register.
985     XMMRegister src = g.ToDoubleRegister(source);
986     XMMRegister dst = g.ToDoubleRegister(destination);
987     __ movsd(xmm0, src);
988     __ movsd(src, dst);
989     __ movsd(dst, xmm0);
990   } else if (source->IsDoubleRegister() && destination->IsDoubleRegister()) {
991     // XMM register-memory swap.  We rely on having xmm0
992     // available as a fixed scratch register.
993     XMMRegister src = g.ToDoubleRegister(source);
994     Operand dst = g.ToOperand(destination);
995     __ movsd(xmm0, src);
996     __ movsd(src, dst);
997     __ movsd(dst, xmm0);
998   } else {
999     // No other combinations are possible.
1000     UNREACHABLE();
1001   }
1002 }
1003
1004
1005 void CodeGenerator::AddNopForSmiCodeInlining() { __ nop(); }
1006
1007
1008 void CodeGenerator::EnsureSpaceForLazyDeopt() {
1009   int space_needed = Deoptimizer::patch_size();
1010   if (!linkage()->info()->IsStub()) {
1011     // Ensure that we have enough space after the previous lazy-bailout
1012     // instruction for patching the code here.
1013     int current_pc = masm()->pc_offset();
1014     if (current_pc < last_lazy_deopt_pc_ + space_needed) {
1015       int padding_size = last_lazy_deopt_pc_ + space_needed - current_pc;
1016       __ Nop(padding_size);
1017     }
1018   }
1019   MarkLazyDeoptSite();
1020 }
1021
1022 #undef __
1023
1024 }  // namespace internal
1025 }  // namespace compiler
1026 }  // namespace v8