# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1471991851 -3600
# Node ID 47bf2a306c14e9fbc3bf33beb23af2bd3baac5eb
# Parent  466c492b0062de765890dd746319b6a8bf0b62ba
Show metadata kind in LLVMMetadata print string

...i.e., DILocation@12345678 rather then generic LLVMMetadata@12345678

diff -r 466c492b0062 -r 47bf2a306c14 LLVMMetadata.st
--- 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> $'
+! !
+