paulsemel updated this revision to Diff 137141.
paulsemel added a comment.
Applied Aaron change suggestions
Repository:
rC Clang
https://reviews.llvm.org/D44093
Files:
include/clang/Basic/Builtins.def
lib/CodeGen/CGBuiltin.cpp
Index: lib/CodeGen/CGBuiltin.cpp
===================================================================
--- lib/CodeGen/CGBuiltin.cpp
+++ lib/CodeGen/CGBuiltin.cpp
@@ -14,6 +14,7 @@
#include "CGCXXABI.h"
#include "CGObjCRuntime.h"
#include "CGOpenCLRuntime.h"
+#include "CGRecordLayout.h"
#include "CodeGenFunction.h"
#include "CodeGenModule.h"
#include "ConstantEmitter.h"
@@ -1196,6 +1197,80 @@
return RValue::get(ComplexVal.first);
}
+ case Builtin::BI__builtin_dump_struct: {
+ Value *Func = EmitScalarExpr(E->getArg(1)->IgnoreImpCasts());
+ CharUnits Arg0Align = EmitPointerWithAlignment(E->getArg(0)).getAlignment();
+
+ const Expr *Arg0 = E->getArg(0)->IgnoreImpCasts();
+ QualType Arg0Type = Arg0->getType()->getPointeeType();
+ const RecordType *RT = Arg0Type->getAs<RecordType>();
+
+ assert(RT && "The first argument must be a record type");
+
+ RecordDecl *RD = RT->getDecl()->getDefinition();
+ ASTContext &ASTContext = RD->getASTContext();
+ const ASTRecordLayout &RL = ASTContext.getASTRecordLayout(RD);
+
+ Value *GString = Builder.CreateGlobalStringPtr(Arg0Type.getAsString()
+ + " {\n");
+ Value *Res = Builder.CreateCall(Func, {GString});
+
+ static llvm::DenseMap<QualType, const char *> Types;
+ if (Types.empty()) {
+ Types[getContext().CharTy] = "%c";
+ Types[getContext().BoolTy] = "%d";
+ Types[getContext().IntTy] = "%d";
+ Types[getContext().UnsignedIntTy] = "%u";
+ Types[getContext().LongTy] = "%ld";
+ Types[getContext().UnsignedLongTy] = "%lu";
+ Types[getContext().LongLongTy] = "%lld";
+ Types[getContext().UnsignedLongLongTy] = "%llu";
+ Types[getContext().ShortTy] = "%hd";
+ Types[getContext().UnsignedShortTy] = "%hu";
+ Types[getContext().VoidPtrTy] = "%p";
+ Types[getContext().FloatTy] = "%f";
+ Types[getContext().DoubleTy] = "%f";
+ Types[getContext().LongDoubleTy] = "%Lf";
+ Types[getContext().getPointerType(getContext().CharTy)] = "%s";
+ }
+
+ /* field : RecordDecl::field_iterator */
+ for (auto *FD : RD->fields()) {
+ uint64_t Off = RL.getFieldOffset(FD->getFieldIndex());
+ Off = ASTContext.toCharUnitsFromBits(Off).getQuantity();
+
+ Value *FieldPtr = EmitScalarExpr(E->getArg(0));
+ if (Off) {
+ FieldPtr = Builder.CreatePtrToInt(FieldPtr, IntPtrTy);
+ FieldPtr = Builder.CreateAdd(FieldPtr, ConstantInt::get(IntPtrTy, Off));
+ FieldPtr = Builder.CreateIntToPtr(FieldPtr, VoidPtrTy);
+ }
+ std::string Format = FD->getType().getAsString() + std::string(" ") +
+ FD->getNameAsString() + " : ";
+
+ Format += Types[FD->getType()];
+
+ QualType ResPtrType = getContext().getPointerType(FD->getType());
+ llvm::Type *ResType = ConvertType(ResPtrType);
+ FieldPtr = Builder.CreatePointerCast(FieldPtr, ResType);
+ Address FieldAddress = Address(FieldPtr, Arg0Align);
+ FieldPtr = Builder.CreateLoad(FieldAddress);
+
+ // Need to handle bitfield here
+
+ GString = Builder.CreateGlobalStringPtr(Format + "\n");
+ Value *TmpRes = Builder.CreateCall(Func, {GString, FieldPtr});
+ Res = Builder.CreateAdd(Res, TmpRes);
+ }
+
+ std::string Format = "}\n";
+ GString = Builder.CreateGlobalStringPtr(Format);
+ Value *TmpRes = Builder.CreateCall(Func, {GString});
+ Res = Builder.CreateAdd(Res, TmpRes);
+
+ return RValue::get(Res);
+ }
+
case Builtin::BI__builtin_cimag:
case Builtin::BI__builtin_cimagf:
case Builtin::BI__builtin_cimagl:
Index: include/clang/Basic/Builtins.def
===================================================================
--- include/clang/Basic/Builtins.def
+++ include/clang/Basic/Builtins.def
@@ -1374,6 +1374,7 @@
BUILTIN(__builtin_operator_new, "v*z", "c")
BUILTIN(__builtin_operator_delete, "vv*", "n")
BUILTIN(__builtin_char_memchr, "c*cC*iz", "n")
+BUILTIN(__builtin_dump_struct, "ivC*v*", "n")
// Safestack builtins
BUILTIN(__builtin___get_unsafe_stack_start, "v*", "Fn")
_______________________________________________
cfe-commits mailing list
cfe-commits@lists.llvm.org
http://lists.llvm.org/cgi-bin/mailman/listinfo/cfe-commits
