+
+
+static string calcTypeName(const Type *Ty, vector<const Type *> &TypeStack,
+ map<const Type *, string> &TypeNames) {
+ if (Ty->isPrimitiveType()) return Ty->getDescription(); // Base case
+
+ // Check to see if the type is named.
+ map<const Type *, string>::iterator I = TypeNames.find(Ty);
+ if (I != TypeNames.end()) return I->second;
+
+ // Check to see if the Type is already on the stack...
+ unsigned Slot = 0, CurSize = TypeStack.size();
+ while (Slot < CurSize && TypeStack[Slot] != Ty) ++Slot; // Scan for type
+
+ // This is another base case for the recursion. In this case, we know
+ // that we have looped back to a type that we have previously visited.
+ // Generate the appropriate upreference to handle this.
+ //
+ if (Slot < CurSize)
+ return "\\" + utostr(CurSize-Slot); // Here's the upreference
+
+ TypeStack.push_back(Ty); // Recursive case: Add us to the stack..
+
+ string Result;
+ switch (Ty->getPrimitiveID()) {
+ case Type::FunctionTyID: {
+ const FunctionType *FTy = cast<const FunctionType>(Ty);
+ Result = calcTypeName(FTy->getReturnType(), TypeStack, TypeNames) + " (";
+ for (FunctionType::ParamTypes::const_iterator
+ I = FTy->getParamTypes().begin(),
+ E = FTy->getParamTypes().end(); I != E; ++I) {
+ if (I != FTy->getParamTypes().begin())
+ Result += ", ";
+ Result += calcTypeName(*I, TypeStack, TypeNames);
+ }
+ if (FTy->isVarArg()) {
+ if (!FTy->getParamTypes().empty()) Result += ", ";
+ Result += "...";
+ }
+ Result += ")";
+ break;
+ }
+ case Type::StructTyID: {
+ const StructType *STy = cast<const StructType>(Ty);
+ Result = "{ ";
+ for (StructType::ElementTypes::const_iterator
+ I = STy->getElementTypes().begin(),
+ E = STy->getElementTypes().end(); I != E; ++I) {
+ if (I != STy->getElementTypes().begin())
+ Result += ", ";
+ Result += calcTypeName(*I, TypeStack, TypeNames);
+ }
+ Result += " }";
+ break;
+ }
+ case Type::PointerTyID:
+ Result = calcTypeName(cast<const PointerType>(Ty)->getElementType(),
+ TypeStack, TypeNames) + "*";
+ break;
+ case Type::ArrayTyID: {
+ const ArrayType *ATy = cast<const ArrayType>(Ty);
+ Result = "[" + utostr(ATy->getNumElements()) + " x ";
+ Result += calcTypeName(ATy->getElementType(), TypeStack, TypeNames) + "]";
+ break;
+ }
+ default:
+ Result = "<unrecognized-type>";
+ }
+
+ TypeStack.pop_back(); // Remove self from stack...
+ return Result;
+}
+
+
+// printTypeInt - The internal guts of printing out a type that has a
+// potentially named portion.
+//
+static ostream &printTypeInt(ostream &Out, const Type *Ty,
+ map<const Type *, string> &TypeNames) {
+ // Primitive types always print out their description, regardless of whether
+ // they have been named or not.
+ //
+ if (Ty->isPrimitiveType()) return Out << Ty->getDescription();
+
+ // Check to see if the type is named.
+ map<const Type *, string>::iterator I = TypeNames.find(Ty);
+ if (I != TypeNames.end()) return Out << I->second;
+
+ // Otherwise we have a type that has not been named but is a derived type.
+ // Carefully recurse the type hierarchy to print out any contained symbolic
+ // names.
+ //
+ vector<const Type *> TypeStack;
+ string TypeName = calcTypeName(Ty, TypeStack, TypeNames);
+ TypeNames.insert(std::make_pair(Ty, TypeName));//Cache type name for later use
+ return Out << TypeName;
+}
+
+
+// WriteTypeSymbolic - This attempts to write the specified type as a symbolic
+// type, iff there is an entry in the modules symbol table for the specified
+// type or one of it's component types. This is slower than a simple x << Type;
+//
+ostream &WriteTypeSymbolic(ostream &Out, const Type *Ty, const Module *M) {
+ Out << " ";
+
+ // If they want us to print out a type, attempt to make it symbolic if there
+ // is a symbol table in the module...
+ if (M && M->hasSymbolTable()) {
+ map<const Type *, string> TypeNames;
+ fillTypeNameTable(M, TypeNames);
+
+ return printTypeInt(Out, Ty, TypeNames);
+ } else {
+ return Out << Ty->getDescription();
+ }
+}
+
+static void WriteConstantInt(ostream &Out, const Constant *CV, bool PrintName,
+ map<const Type *, string> &TypeTable,
+ SlotCalculator *Table) {
+ if (const ConstantBool *CB = dyn_cast<ConstantBool>(CV)) {
+ Out << (CB == ConstantBool::True ? "true" : "false");
+ } else if (const ConstantSInt *CI = dyn_cast<ConstantSInt>(CV)) {
+ Out << CI->getValue();
+ } else if (const ConstantUInt *CI = dyn_cast<ConstantUInt>(CV)) {
+ Out << CI->getValue();
+ } else if (const ConstantFP *CFP = dyn_cast<ConstantFP>(CV)) {
+ // We would like to output the FP constant value in exponential notation,
+ // but we cannot do this if doing so will lose precision. Check here to
+ // make sure that we only output it in exponential format if we can parse
+ // the value back and get the same value.
+ //
+ std::string StrVal = ftostr(CFP->getValue());
+
+ // Check to make sure that the stringized number is not some string like
+ // "Inf" or NaN, that atof will accept, but the lexer will not. Check that
+ // the string matches the "[-+]?[0-9]" regex.
+ //
+ if ((StrVal[0] >= '0' && StrVal[0] <= '9') ||
+ ((StrVal[0] == '-' || StrVal[0] == '+') &&
+ (StrVal[0] >= '0' && StrVal[0] <= '9')))
+ // Reparse stringized version!
+ if (atof(StrVal.c_str()) == CFP->getValue()) {
+ Out << StrVal; return;
+ }
+
+ // Otherwise we could not reparse it to exactly the same value, so we must
+ // output the string in hexadecimal format!
+ //
+ // Behave nicely in the face of C TBAA rules... see:
+ // http://www.nullstone.com/htmls/category/aliastyp.htm
+ //
+ double Val = CFP->getValue();
+ char *Ptr = (char*)&Val;
+ assert(sizeof(double) == sizeof(uint64_t) && sizeof(double) == 8 &&
+ "assuming that double is 64 bits!");
+ Out << "0x" << utohexstr(*(uint64_t*)Ptr);
+
+ } else if (const ConstantArray *CA = dyn_cast<ConstantArray>(CV)) {
+ // As a special case, print the array as a string if it is an array of
+ // ubytes or an array of sbytes with positive values.
+ //
+ const Type *ETy = CA->getType()->getElementType();
+ bool isString = (ETy == Type::SByteTy || ETy == Type::UByteTy);
+
+ if (ETy == Type::SByteTy)
+ for (unsigned i = 0; i < CA->getNumOperands(); ++i)
+ if (cast<ConstantSInt>(CA->getOperand(i))->getValue() < 0) {
+ isString = false;
+ break;
+ }
+
+ if (isString) {
+ Out << "c\"";
+ for (unsigned i = 0; i < CA->getNumOperands(); ++i) {
+ unsigned char C = (ETy == Type::SByteTy) ?
+ (unsigned char)cast<ConstantSInt>(CA->getOperand(i))->getValue() :
+ (unsigned char)cast<ConstantUInt>(CA->getOperand(i))->getValue();
+
+ if (isprint(C) && C != '"' && C != '\\') {
+ Out << C;
+ } else {
+ Out << '\\'
+ << (char) ((C/16 < 10) ? ( C/16 +'0') : ( C/16 -10+'A'))
+ << (char)(((C&15) < 10) ? ((C&15)+'0') : ((C&15)-10+'A'));
+ }
+ }
+ Out << "\"";
+
+ } else { // Cannot output in string format...
+ Out << "[";
+ if (CA->getNumOperands()) {
+ Out << " ";
+ printTypeInt(Out, ETy, TypeTable);
+ WriteAsOperandInternal(Out, CA->getOperand(0),
+ PrintName, TypeTable, Table);
+ for (unsigned i = 1, e = CA->getNumOperands(); i != e; ++i) {
+ Out << ", ";
+ printTypeInt(Out, ETy, TypeTable);
+ WriteAsOperandInternal(Out, CA->getOperand(i), PrintName,
+ TypeTable, Table);
+ }
+ }
+ Out << " ]";
+ }
+ } else if (const ConstantStruct *CS = dyn_cast<ConstantStruct>(CV)) {
+ Out << "{";
+ if (CS->getNumOperands()) {
+ Out << " ";
+ printTypeInt(Out, CS->getOperand(0)->getType(), TypeTable);
+
+ WriteAsOperandInternal(Out, CS->getOperand(0),
+ PrintName, TypeTable, Table);
+
+ for (unsigned i = 1; i < CS->getNumOperands(); i++) {
+ Out << ", ";
+ printTypeInt(Out, CS->getOperand(i)->getType(), TypeTable);
+
+ WriteAsOperandInternal(Out, CS->getOperand(i),
+ PrintName, TypeTable, Table);
+ }
+ }
+
+ Out << " }";
+ } else if (isa<ConstantPointerNull>(CV)) {
+ Out << "null";
+
+ } else if (const ConstantPointerRef *PR = dyn_cast<ConstantPointerRef>(CV)) {
+ const GlobalValue *V = PR->getValue();
+ if (V->hasName()) {
+ Out << "%" << V->getName();
+ } else if (Table) {
+ int Slot = Table->getValSlot(V);
+ if (Slot >= 0)
+ Out << "%" << Slot;
+ else
+ Out << "<pointer reference badref>";
+ } else {
+ Out << "<pointer reference without context info>";
+ }
+
+ } else if (const ConstantExpr *CE = dyn_cast<ConstantExpr>(CV)) {
+ Out << CE->getOpcodeName();
+
+ bool isGEP = CE->getOpcode() == Instruction::GetElementPtr;
+ Out << " (";
+
+ for (User::const_op_iterator OI=CE->op_begin(); OI != CE->op_end(); ++OI) {
+ printTypeInt(Out, (*OI)->getType(), TypeTable);
+ WriteAsOperandInternal(Out, *OI, PrintName, TypeTable, Table);
+ if (OI+1 != CE->op_end())
+ Out << ", ";
+ }
+
+ if (CE->getOpcode() == Instruction::Cast) {
+ Out << " to ";
+ printTypeInt(Out, CE->getType(), TypeTable);
+ }
+ Out << ")";
+
+ } else {
+ Out << "<placeholder or erroneous Constant>";
+ }
+}
+
+