Show metadata kind in LLVMMetadata print string
...i.e., DILocation@12345678 rather then generic LLVMMetadata@12345678
--- a/LLVMMetadata.st Thu Aug 11 09:12:17 2016 +0100
+++ b/LLVMMetadata.st Tue Aug 23 23:37:31 2016 +0100
@@ -62,6 +62,46 @@
"Created: / 14-08-2015 / 16:35:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+!LLVMMetadata methodsFor:'printing & storing'!
+
+printOn:aStream
+ | kind |
+
+ kind := self kind.
+
+ MDTupleKind == kind ifTrue:[ aStream nextPutAll:'MDTuple'].
+ DILocationKind == kind ifTrue:[ aStream nextPutAll:'DILocation'].
+ GenericDINodeKind == kind ifTrue:[ aStream nextPutAll:'GenericDINode'].
+ DISubrangeKind == kind ifTrue:[ aStream nextPutAll:'DISubrange'].
+ DIEnumeratorKind == kind ifTrue:[ aStream nextPutAll:'DIEnumerator'].
+ DIBasicTypeKind == kind ifTrue:[ aStream nextPutAll:'DIBasicType'].
+ DIDerivedTypeKind == kind ifTrue:[ aStream nextPutAll:'DIDerivedType'].
+ DICompositeTypeKind == kind ifTrue:[ aStream nextPutAll:'DICompositeType'].
+ DISubroutineTypeKind == kind ifTrue:[ aStream nextPutAll:'DISubroutineType'].
+ DIFileKind == kind ifTrue:[ aStream nextPutAll:'DIFile'].
+ DICompileUnitKind == kind ifTrue:[ aStream nextPutAll:'DICompileUnit'].
+ DISubprogramKind == kind ifTrue:[ aStream nextPutAll:'DISubprogram'].
+ DILexicalBlockKind == kind ifTrue:[ aStream nextPutAll:'DILexicalBlock'].
+ DILexicalBlockFileKind == kind ifTrue:[ aStream nextPutAll:'DILexicalBlockFile'].
+ DINamespaceKind == kind ifTrue:[ aStream nextPutAll:'DINamespace'].
+ DIModuleKind == kind ifTrue:[ aStream nextPutAll:'DIModule'].
+ DITemplateTypeParameterKind == kind ifTrue:[ aStream nextPutAll:'DITemplateTypeParameter'].
+ DITemplateValueParameterKind == kind ifTrue:[ aStream nextPutAll:'DITemplateValueParameter'].
+ DIGlobalVariableKind == kind ifTrue:[ aStream nextPutAll:'DIGlobalVariable'].
+ DILocalVariableKind == kind ifTrue:[ aStream nextPutAll:'DILocalVariable'].
+ DIExpressionKind == kind ifTrue:[ aStream nextPutAll:'DIExpression'].
+ DIObjCPropertyKind == kind ifTrue:[ aStream nextPutAll:'DIObjCProperty'].
+ DIImportedEntityKind == kind ifTrue:[ aStream nextPutAll:'DIImportedEntity'].
+ ConstantAsMetadataKind == kind ifTrue:[ aStream nextPutAll:'ConstantAsMetadata'].
+ LocalAsMetadataKind == kind ifTrue:[ aStream nextPutAll:'LocalAsMetadata'].
+ MDStringKind == kind ifTrue:[ aStream nextPutAll:'MDString'].
+
+ aStream nextPutAll:'@'.
+ self address printOn:aStream base:16.
+
+ "Created: / 23-08-2016 / 23:29:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!LLVMMetadata methodsFor:'testing'!
isDIBasicType
@@ -197,3 +237,10 @@
"Created: / 14-08-2015 / 08:51:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+!LLVMMetadata class methodsFor:'documentation'!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+! !
+