use of com.oracle.truffle.llvm.runtime.debug.LLVMSourceStaticMemberType in project sulong by graalvm.
the class DebugInfoModuleProcessor method processModule.
public static void processModule(ModelModule irModel, Source bitcodeSource, MetadataValueList metadata) {
MDUpgrade.perform(metadata);
final DebugInfoCache cache = new DebugInfoCache(metadata, irModel.getSourceStaticMembers());
final Map<LLVMSourceSymbol, SymbolImpl> globals = irModel.getSourceGlobals();
final Map<LLVMSourceStaticMemberType, SymbolImpl> staticMembers = irModel.getSourceStaticMembers();
irModel.accept(new SymbolProcessor(cache, bitcodeSource, globals, staticMembers));
final MDBaseNode cuNode = metadata.getNamedNode(MDNamedNode.COMPILEUNIT_NAME);
final MetadataProcessor mdParser = new MetadataProcessor(cache, globals, staticMembers);
if (cuNode != null) {
cuNode.accept(mdParser);
}
irModel.setFunctionProcessor(new DebugInfoFunctionProcessor(cache));
}
use of com.oracle.truffle.llvm.runtime.debug.LLVMSourceStaticMemberType in project sulong by graalvm.
the class DITypeExtractor method visit.
@Override
public void visit(MDCompositeType mdType) {
final long size = mdType.getSize();
final long align = mdType.getAlign();
final long offset = mdType.getOffset();
final LLVMSourceLocation location = scopeBuilder.buildLocation(mdType);
switch(mdType.getTag()) {
case DW_TAG_VECTOR_TYPE:
case DW_TAG_ARRAY_TYPE:
{
final boolean isVector = mdType.getTag() == MDType.DwarfTag.DW_TAG_VECTOR_TYPE;
final LLVMSourceArrayLikeType type = new LLVMSourceArrayLikeType(size, align, offset, location);
parsedTypes.put(mdType, type);
LLVMSourceType baseType = resolve(mdType.getBaseType());
final List<LLVMSourceType> members = new ArrayList<>(1);
getElements(mdType.getMembers(), members, false);
for (int i = members.size() - 1; i > 0; i--) {
final long length = extractLength(members.get(i));
final long tmpSize = length * baseType.getSize();
final LLVMSourceArrayLikeType tmp = new LLVMSourceArrayLikeType(tmpSize, align, 0L, location);
setAggregateProperties(isVector, tmp, length, baseType);
baseType = tmp;
}
setAggregateProperties(isVector, type, extractLength(members.get(0)), baseType);
break;
}
case DW_TAG_CLASS_TYPE:
case DW_TAG_UNION_TYPE:
case DW_TAG_STRUCTURE_TYPE:
{
String name = MDNameExtractor.getName(mdType.getName());
if (mdType.getTag() == MDType.DwarfTag.DW_TAG_STRUCTURE_TYPE) {
name = String.format("struct %s", name);
} else if (mdType.getTag() == MDType.DwarfTag.DW_TAG_UNION_TYPE) {
name = String.format("union %s", name);
}
final LLVMSourceStructLikeType type = new LLVMSourceStructLikeType(name, size, align, offset, location);
parsedTypes.put(mdType, type);
final List<LLVMSourceType> members = new ArrayList<>();
getElements(mdType.getMembers(), members, false);
for (final LLVMSourceType member : members) {
if (member instanceof LLVMSourceMemberType) {
type.addDynamicMember((LLVMSourceMemberType) member);
} else if (member instanceof LLVMSourceStaticMemberType) {
type.addStaticMember((LLVMSourceStaticMemberType) member);
}
}
break;
}
case DW_TAG_ENUMERATION_TYPE:
{
final String name = String.format("enum %s", MDNameExtractor.getName(mdType.getName()));
final LLVMSourceEnumLikeType type = new LLVMSourceEnumLikeType(() -> name, size, align, offset, location);
parsedTypes.put(mdType, type);
final List<LLVMSourceType> members = new ArrayList<>();
getElements(mdType.getMembers(), members, false);
for (final LLVMSourceType member : members) {
type.addValue((int) member.getOffset(), member.getName());
}
break;
}
default:
{
parsedTypes.put(mdType, LLVMSourceType.UNKNOWN);
}
}
}
use of com.oracle.truffle.llvm.runtime.debug.LLVMSourceStaticMemberType in project sulong by graalvm.
the class DITypeExtractor method visit.
@Override
public void visit(MDDerivedType mdType) {
final long size = mdType.getSize();
final long align = mdType.getAlign();
final long offset = mdType.getOffset();
final LLVMSourceLocation location = scopeBuilder.buildLocation(mdType);
switch(mdType.getTag()) {
case DW_TAG_MEMBER:
{
if (Flags.ARTIFICIAL.isAllFlags(mdType.getFlags())) {
parsedTypes.put(mdType, LLVMSourceType.VOID);
break;
}
final String name = MDNameExtractor.getName(mdType.getName());
if (Flags.STATIC_MEMBER.isSetIn(mdType.getFlags())) {
final LLVMSourceStaticMemberType type = new LLVMSourceStaticMemberType(name, size, align, location);
parsedTypes.put(mdType, type);
final LLVMSourceType baseType = resolve(mdType.getBaseType());
type.setElementType(baseType);
if (mdType.getExtraData() instanceof MDValue) {
staticMembers.put(type, ((MDValue) mdType.getExtraData()).getValue());
}
break;
}
final LLVMSourceMemberType type = new LLVMSourceMemberType(name, size, align, offset, location);
parsedTypes.put(mdType, type);
LLVMSourceType baseType = resolve(mdType.getBaseType());
if (Flags.BITFIELD.isSetIn(mdType.getFlags()) || (baseType != UNKNOWN && baseType.getSize() != size)) {
final LLVMSourceDecoratorType decorator = new LLVMSourceDecoratorType(size, align, offset, Function.identity(), location);
decorator.setBaseType(baseType);
baseType = decorator;
}
type.setElementType(baseType);
break;
}
case DW_TAG_REFERENCE_TYPE:
case DW_TAG_POINTER_TYPE:
{
final boolean isSafeToDereference = Flags.OBJECT_POINTER.isSetIn(mdType.getFlags());
final boolean isReference = mdType.getTag() == MDType.DwarfTag.DW_TAG_REFERENCE_TYPE;
final LLVMSourcePointerType type = new LLVMSourcePointerType(size, align, offset, isSafeToDereference, isReference, location);
parsedTypes.put(mdType, type);
// LLVM does not specify a void type, if this is indicated, the reference is simply
// null
final LLVMSourceType baseType = resolve(mdType.getBaseType(), LLVMSourceType.VOID);
type.setBaseType(baseType);
type.setName(() -> {
final String baseName = baseType.getName();
final String sym = isReference ? " &" : "*";
if (!baseType.isPointer() && baseName.contains(" ")) {
return String.format("(%s)%s", baseName, sym);
} else {
return String.format("%s%s", baseName, sym);
}
});
break;
}
case DW_TAG_TYPEDEF:
case DW_TAG_VOLATILE_TYPE:
case DW_TAG_CONST_TYPE:
{
final Function<String, String> decorator;
switch(mdType.getTag()) {
case DW_TAG_VOLATILE_TYPE:
decorator = s -> String.format("volatile %s", s);
break;
case DW_TAG_CONST_TYPE:
decorator = s -> String.format("const %s", s);
break;
case DW_TAG_TYPEDEF:
{
final String name = MDNameExtractor.getName(mdType.getName());
decorator = s -> name;
break;
}
default:
decorator = Function.identity();
}
final LLVMSourceDecoratorType type = new LLVMSourceDecoratorType(size, align, offset, decorator, location);
parsedTypes.put(mdType, type);
final LLVMSourceType baseType = resolve(mdType.getBaseType());
type.setBaseType(baseType);
type.setSize(baseType.getSize());
break;
}
case DW_TAG_INHERITANCE:
{
final LLVMSourceMemberType type = new LLVMSourceMemberType("super", size, align, offset, location);
parsedTypes.put(mdType, type);
final LLVMSourceType baseType = resolve(mdType.getBaseType());
type.setElementType(baseType);
type.setName(() -> String.format("super (%s)", baseType.getName()));
break;
}
default:
{
parsedTypes.put(mdType, LLVMSourceType.UNKNOWN);
}
}
}
use of com.oracle.truffle.llvm.runtime.debug.LLVMSourceStaticMemberType in project sulong by graalvm.
the class DITypeExtractor method visit.
@Override
public void visit(MDGlobalVariable mdGlobal) {
final LLVMSourceType type = resolve(mdGlobal.getType());
parsedTypes.put(mdGlobal, type);
if (mdGlobal.getStaticMemberDeclaration() != MDVoidNode.INSTANCE && mdGlobal.getVariable() instanceof MDValue) {
final LLVMSourceType declType = resolve(mdGlobal.getStaticMemberDeclaration());
final SymbolImpl symbol = ((MDValue) mdGlobal.getVariable()).getValue();
if (declType instanceof LLVMSourceStaticMemberType) {
staticMembers.put((LLVMSourceStaticMemberType) declType, symbol);
}
}
}
Aggregations