forked from OSchip/llvm-project
299 lines
8.4 KiB
C++
299 lines
8.4 KiB
C++
//===--- TargetInfo.cpp - Information about Target machine ----------------===//
|
|
//
|
|
// The LLVM Compiler Infrastructure
|
|
//
|
|
// This file is distributed under the University of Illinois Open Source
|
|
// License. See LICENSE.TXT for details.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
//
|
|
// This file implements the TargetInfo and TargetInfoImpl interfaces.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include "clang/Basic/TargetInfo.h"
|
|
#include "llvm/ADT/APFloat.h"
|
|
#include "llvm/ADT/STLExtras.h"
|
|
#include <cstdlib>
|
|
using namespace clang;
|
|
|
|
// TargetInfo Constructor.
|
|
TargetInfo::TargetInfo(const std::string &T) : Triple(T) {
|
|
// Set defaults. Defaults are set for a 32-bit RISC platform,
|
|
// like PPC or SPARC.
|
|
// These should be overridden by concrete targets as needed.
|
|
CharIsSigned = true;
|
|
PointerWidth = PointerAlign = 32;
|
|
WCharWidth = WCharAlign = 32;
|
|
IntWidth = IntAlign = 32;
|
|
LongWidth = LongAlign = 32;
|
|
LongLongWidth = LongLongAlign = 64;
|
|
FloatWidth = 32;
|
|
FloatAlign = 32;
|
|
DoubleWidth = 64;
|
|
DoubleAlign = 64;
|
|
LongDoubleWidth = 64;
|
|
LongDoubleAlign = 64;
|
|
IntMaxTWidth = 64;
|
|
SizeType = UnsignedLong;
|
|
PtrDiffType = SignedLong;
|
|
IntMaxType = SignedLongLong;
|
|
UIntMaxType = UnsignedLongLong;
|
|
IntPtrType = SignedLong;
|
|
WCharType = SignedInt;
|
|
FloatFormat = &llvm::APFloat::IEEEsingle;
|
|
DoubleFormat = &llvm::APFloat::IEEEdouble;
|
|
LongDoubleFormat = &llvm::APFloat::IEEEdouble;
|
|
DescriptionString = "E-p:32:32:32-i1:8:8-i8:8:8-i16:16:16-i32:32:32-"
|
|
"i64:64:64-f32:32:32-f64:64:64";
|
|
UserLabelPrefix = "_";
|
|
}
|
|
|
|
// Out of line virtual dtor for TargetInfo.
|
|
TargetInfo::~TargetInfo() {}
|
|
|
|
/// getTypeName - Return the user string for the specified integer type enum.
|
|
/// For example, SignedShort -> "short".
|
|
const char *TargetInfo::getTypeName(IntType T) {
|
|
switch (T) {
|
|
default: assert(0 && "not an integer!");
|
|
case SignedShort: return "short";
|
|
case UnsignedShort: return "unsigned short";
|
|
case SignedInt: return "int";
|
|
case UnsignedInt: return "unsigned int";
|
|
case SignedLong: return "long int";
|
|
case UnsignedLong: return "long unsigned int";
|
|
case SignedLongLong: return "long long int";
|
|
case UnsignedLongLong: return "long long unsigned int";
|
|
}
|
|
}
|
|
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
|
|
static void removeGCCRegisterPrefix(const char *&Name) {
|
|
if (Name[0] == '%' || Name[0] == '#')
|
|
Name++;
|
|
}
|
|
|
|
/// isValidGCCRegisterName - Returns whether the passed in string
|
|
/// is a valid register name according to GCC. This is used by Sema for
|
|
/// inline asm statements.
|
|
bool TargetInfo::isValidGCCRegisterName(const char *Name) const {
|
|
const char * const *Names;
|
|
unsigned NumNames;
|
|
|
|
// Get rid of any register prefix.
|
|
removeGCCRegisterPrefix(Name);
|
|
|
|
|
|
if (strcmp(Name, "memory") == 0 ||
|
|
strcmp(Name, "cc") == 0)
|
|
return true;
|
|
|
|
getGCCRegNames(Names, NumNames);
|
|
|
|
// If we have a number it maps to an entry in the register name array.
|
|
if (isdigit(Name[0])) {
|
|
char *End;
|
|
int n = (int)strtol(Name, &End, 0);
|
|
if (*End == 0)
|
|
return n >= 0 && (unsigned)n < NumNames;
|
|
}
|
|
|
|
// Check register names.
|
|
for (unsigned i = 0; i < NumNames; i++) {
|
|
if (strcmp(Name, Names[i]) == 0)
|
|
return true;
|
|
}
|
|
|
|
// Now check aliases.
|
|
const GCCRegAlias *Aliases;
|
|
unsigned NumAliases;
|
|
|
|
getGCCRegAliases(Aliases, NumAliases);
|
|
for (unsigned i = 0; i < NumAliases; i++) {
|
|
for (unsigned j = 0 ; j < llvm::array_lengthof(Aliases[i].Aliases); j++) {
|
|
if (!Aliases[i].Aliases[j])
|
|
break;
|
|
if (strcmp(Aliases[i].Aliases[j], Name) == 0)
|
|
return true;
|
|
}
|
|
}
|
|
|
|
return false;
|
|
}
|
|
|
|
const char *TargetInfo::getNormalizedGCCRegisterName(const char *Name) const {
|
|
assert(isValidGCCRegisterName(Name) && "Invalid register passed in");
|
|
|
|
removeGCCRegisterPrefix(Name);
|
|
|
|
const char * const *Names;
|
|
unsigned NumNames;
|
|
|
|
getGCCRegNames(Names, NumNames);
|
|
|
|
// First, check if we have a number.
|
|
if (isdigit(Name[0])) {
|
|
char *End;
|
|
int n = (int)strtol(Name, &End, 0);
|
|
if (*End == 0) {
|
|
assert(n >= 0 && (unsigned)n < NumNames &&
|
|
"Out of bounds register number!");
|
|
return Names[n];
|
|
}
|
|
}
|
|
|
|
// Now check aliases.
|
|
const GCCRegAlias *Aliases;
|
|
unsigned NumAliases;
|
|
|
|
getGCCRegAliases(Aliases, NumAliases);
|
|
for (unsigned i = 0; i < NumAliases; i++) {
|
|
for (unsigned j = 0 ; j < llvm::array_lengthof(Aliases[i].Aliases); j++) {
|
|
if (!Aliases[i].Aliases[j])
|
|
break;
|
|
if (strcmp(Aliases[i].Aliases[j], Name) == 0)
|
|
return Aliases[i].Register;
|
|
}
|
|
}
|
|
|
|
return Name;
|
|
}
|
|
|
|
bool TargetInfo::validateOutputConstraint(const char *Name,
|
|
ConstraintInfo &info) const
|
|
{
|
|
info = CI_None;
|
|
|
|
// An output constraint must start with '=' or '+'
|
|
if (*Name != '=' && *Name != '+')
|
|
return false;
|
|
|
|
if (*Name == '+')
|
|
info = CI_ReadWrite;
|
|
else
|
|
info = CI_None;
|
|
|
|
Name++;
|
|
while (*Name) {
|
|
switch (*Name) {
|
|
default:
|
|
if (!validateAsmConstraint(*Name, info)) {
|
|
// FIXME: We temporarily return false
|
|
// so we can add more constraints as we hit it.
|
|
// Eventually, an unknown constraint should just be treated as 'g'.
|
|
return false;
|
|
}
|
|
case '&': // early clobber.
|
|
break;
|
|
case 'r': // general register.
|
|
info = (ConstraintInfo)(info|CI_AllowsRegister);
|
|
break;
|
|
case 'm': // memory operand.
|
|
info = (ConstraintInfo)(info|CI_AllowsMemory);
|
|
break;
|
|
case 'g': // general register, memory operand or immediate integer.
|
|
case 'X': // any operand.
|
|
info = (ConstraintInfo)(info|CI_AllowsMemory|CI_AllowsRegister);
|
|
break;
|
|
}
|
|
|
|
Name++;
|
|
}
|
|
|
|
return true;
|
|
}
|
|
|
|
bool TargetInfo::resolveSymbolicName(const char *&Name,
|
|
const std::string *OutputNamesBegin,
|
|
const std::string *OutputNamesEnd,
|
|
unsigned &Index) const
|
|
{
|
|
assert(*Name == '[' && "Symbolic name did not start with '['");
|
|
|
|
Name++;
|
|
const char *Start = Name;
|
|
while (*Name && *Name != ']')
|
|
Name++;
|
|
|
|
if (!*Name) {
|
|
// Missing ']'
|
|
return false;
|
|
}
|
|
|
|
std::string SymbolicName(Start, Name - Start);
|
|
|
|
Index = 0;
|
|
for (const std::string *it = OutputNamesBegin;
|
|
it != OutputNamesEnd;
|
|
++it, Index++) {
|
|
if (SymbolicName == *it)
|
|
return true;
|
|
}
|
|
|
|
return false;
|
|
}
|
|
|
|
bool TargetInfo::validateInputConstraint(const char *Name,
|
|
const std::string *OutputNamesBegin,
|
|
const std::string *OutputNamesEnd,
|
|
ConstraintInfo* OutputConstraints,
|
|
ConstraintInfo &info) const {
|
|
info = CI_None;
|
|
|
|
while (*Name) {
|
|
switch (*Name) {
|
|
default:
|
|
// Check if we have a matching constraint
|
|
if (*Name >= '0' && *Name <= '9') {
|
|
unsigned NumOutputs = OutputNamesEnd - OutputNamesBegin;
|
|
unsigned i = *Name - '0';
|
|
|
|
// Check if matching constraint is out of bounds.
|
|
if (i >= NumOutputs)
|
|
return false;
|
|
|
|
// The constraint should have the same info as the respective
|
|
// output constraint.
|
|
info = (ConstraintInfo)(info|OutputConstraints[i]);
|
|
} else if (!validateAsmConstraint(*Name, info)) {
|
|
// FIXME: This error return is in place temporarily so we can
|
|
// add more constraints as we hit it. Eventually, an unknown
|
|
// constraint should just be treated as 'g'.
|
|
return false;
|
|
}
|
|
break;
|
|
case '[': {
|
|
unsigned Index = 0;
|
|
if (!resolveSymbolicName(Name, OutputNamesBegin, OutputNamesEnd, Index))
|
|
return false;
|
|
|
|
break;
|
|
}
|
|
case '%': // commutative
|
|
// FIXME: Fail if % is used with the last operand.
|
|
break;
|
|
case 'i': // immediate integer.
|
|
case 'I':
|
|
case 'n': // immediate integer with a known value.
|
|
break;
|
|
case 'r': // general register.
|
|
info = (ConstraintInfo)(info|CI_AllowsRegister);
|
|
break;
|
|
case 'm': // memory operand.
|
|
info = (ConstraintInfo)(info|CI_AllowsMemory);
|
|
break;
|
|
case 'g': // general register, memory operand or immediate integer.
|
|
case 'X': // any operand.
|
|
info = (ConstraintInfo)(info|CI_AllowsMemory|CI_AllowsRegister);
|
|
break;
|
|
}
|
|
|
|
Name++;
|
|
}
|
|
|
|
return true;
|
|
}
|