lib/Target/X86/X86CodeEmitter.cpp

   1 //===-- X86/MachineCodeEmitter.cpp - Convert X86 code to machine code -----===//
   2 //
   3 // This file contains the pass that transforms the X86 machine instructions into
   4 // actual executable machine code.
   5 //
   6 //===----------------------------------------------------------------------===//
   7
   8 #include "X86TargetMachine.h"
   9 #include "X86.h"
  10 #include "llvm/PassManager.h"
  11 #include "llvm/CodeGen/MachineCodeEmitter.h"
  12 #include "llvm/CodeGen/MachineFunction.h"
  13 #include "llvm/CodeGen/MachineInstr.h"
  14 #include "llvm/Value.h"
  15
  16 namespace {
  17   class Emitter : public FunctionPass {
  18     X86TargetMachine    &TM;
  19     const X86InstrInfo  &II;
  20     MachineCodeEmitter  &MCE;
  21   public:
  22
  23     Emitter(X86TargetMachine &tm, MachineCodeEmitter &mce)
  24       : TM(tm), II(TM.getInstrInfo()), MCE(mce) {}
  25
  26     bool runOnFunction(Function &F);
  27
  28   private:
  29     void emitBasicBlock(MachineBasicBlock &MBB);
  30     void emitInstruction(MachineInstr &MI);
  31
  32     void emitRegModRMByte(unsigned ModRMReg, unsigned RegOpcodeField);
  33     void emitSIBByte(unsigned SS, unsigned Index, unsigned Base);
  34     void emitConstant(unsigned Val, unsigned Size);
  35
  36     void emitMemModRMByte(const MachineInstr &MI,
  37                           unsigned Op, unsigned RegOpcodeField);
  38
  39   };
  40 }
  41
  42
  43 /// addPassesToEmitMachineCode - Add passes to the specified pass manager to get
  44 /// machine code emitted.  This uses a MAchineCodeEmitter object to handle
  45 /// actually outputting the machine code and resolving things like the address
  46 /// of functions.  This method should returns true if machine code emission is
  47 /// not supported.
  48 ///
  49 bool X86TargetMachine::addPassesToEmitMachineCode(PassManager &PM,
  50                                                   MachineCodeEmitter &MCE) {
  51   PM.add(new Emitter(*this, MCE));
  52   return false;
  53 }
  54
  55 bool Emitter::runOnFunction(Function &F) {
  56   MachineFunction &MF = MachineFunction::get(&F);
  57
  58   MCE.startFunction(MF);
  59   for (MachineFunction::iterator I = MF.begin(), E = MF.end(); I != E; ++I)
  60     emitBasicBlock(*I);
  61   MCE.finishFunction(MF);
  62   return false;
  63 }
  64
  65 void Emitter::emitBasicBlock(MachineBasicBlock &MBB) {
  66   MCE.startBasicBlock(MBB);
  67   for (MachineBasicBlock::iterator I = MBB.begin(), E = MBB.end(); I != E; ++I)
  68     emitInstruction(**I);
  69 }
  70
  71
  72 namespace N86 {  // Native X86 Register numbers...
  73   enum {
  74     EAX = 0, ECX = 1, EDX = 2, EBX = 3, ESP = 4, EBP = 5, ESI = 6, EDI = 7
  75   };
  76 }
  77
  78
  79 // getX86RegNum - This function maps LLVM register identifiers to their X86
  80 // specific numbering, which is used in various places encoding instructions.
  81 //
  82 static unsigned getX86RegNum(unsigned RegNo) {
  83   switch(RegNo) {
  84   case X86::EAX: case X86::AX: case X86::AL: return N86::EAX;
  85   case X86::ECX: case X86::CX: case X86::CL: return N86::ECX;
  86   case X86::EDX: case X86::DX: case X86::DL: return N86::EDX;
  87   case X86::EBX: case X86::BX: case X86::BL: return N86::EBX;
  88   case X86::ESP: case X86::SP: case X86::AH: return N86::ESP;
  89   case X86::EBP: case X86::BP: case X86::CH: return N86::EBP;
  90   case X86::ESI: case X86::SI: case X86::DH: return N86::ESI;
  91   case X86::EDI: case X86::DI: case X86::BH: return N86::EDI;
  92   default:
  93     assert(RegNo >= MRegisterInfo::FirstVirtualRegister &&
  94            "Unknown physical register!");
  95     assert(0 && "Register allocator hasn't allocated reg correctly yet!");
  96     return 0;
  97   }
  98 }
  99
 100 inline static unsigned char ModRMByte(unsigned Mod, unsigned RegOpcode,
 101                                       unsigned RM) {
 102   assert(Mod < 4 && RegOpcode < 8 && RM < 8 && "ModRM Fields out of range!");
 103   return RM | (RegOpcode << 3) | (Mod << 6);
 104 }
 105
 106 void Emitter::emitRegModRMByte(unsigned ModRMReg, unsigned RegOpcodeFld){
 107   MCE.emitByte(ModRMByte(3, RegOpcodeFld, getX86RegNum(ModRMReg)));
 108 }
 109
 110 void Emitter::emitSIBByte(unsigned SS, unsigned Index, unsigned Base) {
 111   // SIB byte is in the same format as the ModRMByte...
 112   MCE.emitByte(ModRMByte(SS, Index, Base));
 113 }
 114
 115 void Emitter::emitConstant(unsigned Val, unsigned Size) {
 116   // Output the constant in little endian byte order...
 117   for (unsigned i = 0; i != Size; ++i) {
 118     MCE.emitByte(Val & 255);
 119     Val >>= 8;
 120   }
 121 }
 122
 123 static bool isDisp8(int Value) {
 124   return Value == (signed char)Value;
 125 }
 126
 127 void Emitter::emitMemModRMByte(const MachineInstr &MI,
 128                                unsigned Op, unsigned RegOpcodeField) {
 129   const MachineOperand &BaseReg  = MI.getOperand(Op);
 130   const MachineOperand &Scale    = MI.getOperand(Op+1);
 131   const MachineOperand &IndexReg = MI.getOperand(Op+2);
 132   const MachineOperand &Disp     = MI.getOperand(Op+3);
 133
 134   // Is a SIB byte needed?
 135   if (IndexReg.getReg() == 0 && BaseReg.getReg() != X86::ESP) {
 136     if (BaseReg.getReg() == 0) {  // Just a displacement?
 137       // Emit special case [disp32] encoding
 138       MCE.emitByte(ModRMByte(0, RegOpcodeField, 5));
 139       emitConstant(Disp.getImmedValue(), 4);
 140     } else {
 141       unsigned BaseRegNo = getX86RegNum(BaseReg.getReg());
 142       if (Disp.getImmedValue() == 0 && BaseRegNo != N86::EBP) {
 143         // Emit simple indirect register encoding... [EAX] f.e.
 144         MCE.emitByte(ModRMByte(0, RegOpcodeField, BaseRegNo));
 145       } else if (isDisp8(Disp.getImmedValue())) {
 146         // Emit the disp8 encoding... [REG+disp8]
 147         MCE.emitByte(ModRMByte(1, RegOpcodeField, BaseRegNo));
 148         emitConstant(Disp.getImmedValue(), 1);
 149       } else {
 150         // Emit the most general non-SIB encoding: [REG+disp32]
 151         MCE.emitByte(ModRMByte(1, RegOpcodeField, BaseRegNo));
 152         emitConstant(Disp.getImmedValue(), 4);
 153       }
 154     }
 155
 156   } else {  // We need a SIB byte, so start by outputting the ModR/M byte first
 157     assert(IndexReg.getReg() != X86::ESP && "Cannot use ESP as index reg!");
 158
 159     bool ForceDisp32 = false;
 160     if (BaseReg.getReg() == 0) {
 161       // If there is no base register, we emit the special case SIB byte with
 162       // MOD=0, BASE=5, to JUST get the index, scale, and displacement.
 163       MCE.emitByte(ModRMByte(0, RegOpcodeField, 4));
 164       ForceDisp32 = true;
 165     } else if (Disp.getImmedValue() == 0) {
 166       // Emit no displacement ModR/M byte
 167       MCE.emitByte(ModRMByte(0, RegOpcodeField, 4));
 168     } else if (isDisp8(Disp.getImmedValue())) {
 169       // Emit the disp8 encoding...
 170       MCE.emitByte(ModRMByte(1, RegOpcodeField, 4));
 171     } else {
 172       // Emit the normal disp32 encoding...
 173       MCE.emitByte(ModRMByte(2, RegOpcodeField, 4));
 174     }
 175
 176     // Calculate what the SS field value should be...
 177     static const unsigned SSTable[] = { ~0, 0, 1, ~0, 2, ~0, ~0, ~0, 3 };
 178     unsigned SS = SSTable[Scale.getImmedValue()];
 179
 180     if (BaseReg.getReg() == 0) {
 181       // Handle the SIB byte for the case where there is no base.  The
 182       // displacement has already been output.
 183       assert(IndexReg.getReg() && "Index register must be specified!");
 184       emitSIBByte(SS, getX86RegNum(IndexReg.getReg()), 5);
 185     } else {
 186       unsigned BaseRegNo = getX86RegNum(BaseReg.getReg());
 187       unsigned IndexRegNo = getX86RegNum(IndexReg.getReg());
 188       emitSIBByte(SS, IndexRegNo, BaseRegNo);
 189     }
 190
 191     // Do we need to output a displacement?
 192     if (Disp.getImmedValue() != 0 || ForceDisp32) {
 193       if (!ForceDisp32 && isDisp8(Disp.getImmedValue()))
 194         emitConstant(Disp.getImmedValue(), 1);
 195       else
 196         emitConstant(Disp.getImmedValue(), 4);
 197     }
 198   }
 199 }
 200
 201 static bool isImmediate(const MachineOperand &MO) {
 202   return MO.getType() == MachineOperand::MO_SignExtendedImmed ||
 203          MO.getType() == MachineOperand::MO_UnextendedImmed;
 204 }
 205
 206 void Emitter::emitInstruction(MachineInstr &MI) {
 207   unsigned Opcode = MI.getOpcode();
 208   const MachineInstrDescriptor &Desc = II.get(Opcode);
 209
 210   // Emit instruction prefixes if neccesary
 211   if (Desc.TSFlags & X86II::OpSize) MCE.emitByte(0x66);// Operand size...
 212   if (Desc.TSFlags & X86II::TB)     MCE.emitByte(0x0F);// Two-byte opcode prefix
 213
 214   unsigned char BaseOpcode = II.getBaseOpcodeFor(Opcode);
 215   switch (Desc.TSFlags & X86II::FormMask) {
 216   case X86II::RawFrm:
 217     MCE.emitByte(BaseOpcode);
 218
 219     if (MI.getNumOperands() == 1) {
 220       assert(MI.getOperand(0).getType() == MachineOperand::MO_PCRelativeDisp);
 221       MCE.emitPCRelativeDisp(MI.getOperand(0).getVRegValue());
 222     }
 223     break;
 224   case X86II::AddRegFrm:
 225     MCE.emitByte(BaseOpcode + getX86RegNum(MI.getOperand(0).getReg()));
 226     if (MI.getNumOperands() == 2) {
 227       unsigned Size = 4;
 228       if (Value *V = MI.getOperand(1).getVRegValue()) {
 229         assert(Size == 4 && "Don't know how to emit non-pointer values!");
 230         MCE.emitGlobalAddress(cast<GlobalValue>(V));
 231       } else {
 232         emitConstant(MI.getOperand(1).getImmedValue(), Size);
 233       }
 234     }
 235     break;
 236   case X86II::MRMDestReg:
 237     MCE.emitByte(BaseOpcode);
 238     emitRegModRMByte(MI.getOperand(0).getReg(),
 239                getX86RegNum(MI.getOperand(MI.getNumOperands()-1).getReg()));
 240     break;
 241   case X86II::MRMDestMem:
 242     MCE.emitByte(BaseOpcode);
 243     emitMemModRMByte(MI, 0, getX86RegNum(MI.getOperand(4).getReg()));
 244     break;
 245   case X86II::MRMSrcReg:
 246     MCE.emitByte(BaseOpcode);
 247     emitRegModRMByte(MI.getOperand(MI.getNumOperands()-1).getReg(),
 248                      getX86RegNum(MI.getOperand(0).getReg()));
 249     break;
 250   case X86II::MRMSrcMem:
 251     MCE.emitByte(BaseOpcode);
 252     emitMemModRMByte(MI, MI.getNumOperands()-4,
 253                      getX86RegNum(MI.getOperand(0).getReg()));
 254     break;
 255
 256   case X86II::MRMS0r: case X86II::MRMS1r:
 257   case X86II::MRMS2r: case X86II::MRMS3r:
 258   case X86II::MRMS4r: case X86II::MRMS5r:
 259   case X86II::MRMS6r: case X86II::MRMS7r:
 260     MCE.emitByte(BaseOpcode);
 261     emitRegModRMByte(MI.getOperand(0).getReg(),
 262                      (Desc.TSFlags & X86II::FormMask)-X86II::MRMS0r);
 263
 264     if (isImmediate(MI.getOperand(MI.getNumOperands()-1))) {
 265       unsigned Size = 4;
 266       emitConstant(MI.getOperand(MI.getNumOperands()-1).getImmedValue(), Size);
 267     }
 268     break;
 269
 270
 271   }
 272 }