| author | Jan Vrany <jan.vrany@fit.cvut.cz> |
| Tue, 23 Aug 2016 23:37:31 +0100 | |
| changeset 74 | 47bf2a306c14 |
| parent 41 | e4cbc8e75207 |
| child 77 | 67e1328d58c9 |
| permissions | -rw-r--r-- |
|
29
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1 |
" |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2 |
Copyright (C) 2015-now Jan Vrany |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
3 |
|
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
4 |
This code is not an open-source (yet). You may use this code |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
5 |
for your own experiments and projects, given that: |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
6 |
|
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
7 |
* all modification to the code will be sent to the |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
8 |
original author for inclusion in future releases |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
9 |
* this is not used in any commercial software |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
10 |
|
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
11 |
This license is provisional and may (will) change in |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
12 |
a future. |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
13 |
" |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
14 |
"{ Package: 'jv:llvm_s' }"
|
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
15 |
|
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
16 |
"{ NameSpace: Smalltalk }"
|
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
17 |
|
|
33
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
18 |
LLVMObject subclass:#LLVMMetadata |
|
29
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
19 |
instanceVariableNames:'' |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
20 |
classVariableNames:'' |
|
41
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
21 |
poolDictionaries:'LLVMMetadataKind' |
|
29
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
22 |
category:'LLVM-S-Core' |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
23 |
! |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
24 |
|
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
25 |
!LLVMMetadata class methodsFor:'documentation'! |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
26 |
|
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
27 |
copyright |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
28 |
" |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
29 |
Copyright (C) 2015-now Jan Vrany |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
30 |
|
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
31 |
This code is not an open-source (yet). You may use this code |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
32 |
for your own experiments and projects, given that: |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
33 |
|
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
34 |
* all modification to the code will be sent to the |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
35 |
original author for inclusion in future releases |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
36 |
* this is not used in any commercial software |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
37 |
|
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
38 |
This license is provisional and may (will) change in |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
39 |
a future. |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
40 |
" |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
41 |
! ! |
|
6ea02617c9ab
Added bindings to LLVM C API Extensions library.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
42 |
|
|
41
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
43 |
!LLVMMetadata methodsFor:'accessing'! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
44 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
45 |
kind |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
46 |
^ LLVMCEXT GetMedadataKind: self |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
47 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
48 |
"Created: / 17-09-2015 / 16:42:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
49 |
! ! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
50 |
|
|
33
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
51 |
!LLVMMetadata methodsFor:'converting'! |
|
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
52 |
|
|
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
53 |
asLLVMMetadata |
|
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
54 |
^ self |
|
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
55 |
|
|
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
56 |
"Created: / 15-08-2015 / 06:41:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
57 |
! |
|
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
58 |
|
|
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
59 |
asLLVMValue |
|
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
60 |
^ LLVMCEXT MetadataAsValue: self. |
|
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
61 |
|
|
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
62 |
"Created: / 14-08-2015 / 16:35:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
63 |
! ! |
|
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
64 |
|
|
74
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
65 |
!LLVMMetadata methodsFor:'printing & storing'! |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
66 |
|
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
67 |
printOn:aStream |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
68 |
| kind | |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
69 |
|
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
70 |
kind := self kind. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
71 |
|
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
72 |
MDTupleKind == kind ifTrue:[ aStream nextPutAll:'MDTuple']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
73 |
DILocationKind == kind ifTrue:[ aStream nextPutAll:'DILocation']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
74 |
GenericDINodeKind == kind ifTrue:[ aStream nextPutAll:'GenericDINode']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
75 |
DISubrangeKind == kind ifTrue:[ aStream nextPutAll:'DISubrange']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
76 |
DIEnumeratorKind == kind ifTrue:[ aStream nextPutAll:'DIEnumerator']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
77 |
DIBasicTypeKind == kind ifTrue:[ aStream nextPutAll:'DIBasicType']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
78 |
DIDerivedTypeKind == kind ifTrue:[ aStream nextPutAll:'DIDerivedType']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
79 |
DICompositeTypeKind == kind ifTrue:[ aStream nextPutAll:'DICompositeType']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
80 |
DISubroutineTypeKind == kind ifTrue:[ aStream nextPutAll:'DISubroutineType']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
81 |
DIFileKind == kind ifTrue:[ aStream nextPutAll:'DIFile']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
82 |
DICompileUnitKind == kind ifTrue:[ aStream nextPutAll:'DICompileUnit']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
83 |
DISubprogramKind == kind ifTrue:[ aStream nextPutAll:'DISubprogram']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
84 |
DILexicalBlockKind == kind ifTrue:[ aStream nextPutAll:'DILexicalBlock']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
85 |
DILexicalBlockFileKind == kind ifTrue:[ aStream nextPutAll:'DILexicalBlockFile']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
86 |
DINamespaceKind == kind ifTrue:[ aStream nextPutAll:'DINamespace']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
87 |
DIModuleKind == kind ifTrue:[ aStream nextPutAll:'DIModule']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
88 |
DITemplateTypeParameterKind == kind ifTrue:[ aStream nextPutAll:'DITemplateTypeParameter']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
89 |
DITemplateValueParameterKind == kind ifTrue:[ aStream nextPutAll:'DITemplateValueParameter']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
90 |
DIGlobalVariableKind == kind ifTrue:[ aStream nextPutAll:'DIGlobalVariable']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
91 |
DILocalVariableKind == kind ifTrue:[ aStream nextPutAll:'DILocalVariable']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
92 |
DIExpressionKind == kind ifTrue:[ aStream nextPutAll:'DIExpression']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
93 |
DIObjCPropertyKind == kind ifTrue:[ aStream nextPutAll:'DIObjCProperty']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
94 |
DIImportedEntityKind == kind ifTrue:[ aStream nextPutAll:'DIImportedEntity']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
95 |
ConstantAsMetadataKind == kind ifTrue:[ aStream nextPutAll:'ConstantAsMetadata']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
96 |
LocalAsMetadataKind == kind ifTrue:[ aStream nextPutAll:'LocalAsMetadata']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
97 |
MDStringKind == kind ifTrue:[ aStream nextPutAll:'MDString']. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
98 |
|
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
99 |
aStream nextPutAll:'@'. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
100 |
self address printOn:aStream base:16. |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
101 |
|
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
102 |
"Created: / 23-08-2016 / 23:29:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
103 |
! ! |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
104 |
|
|
33
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
105 |
!LLVMMetadata methodsFor:'testing'! |
|
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
106 |
|
|
41
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
107 |
isDIBasicType |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
108 |
^ self kind == DIBasicTypeKind |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
109 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
110 |
"Created: / 17-09-2015 / 16:48:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
111 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
112 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
113 |
isDICompileUnit |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
114 |
^ self kind == DICompileUnitKind |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
115 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
116 |
"Created: / 17-09-2015 / 16:47:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
117 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
118 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
119 |
isDICompositeType |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
120 |
^ self kind == DICompositeTypeKind |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
121 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
122 |
"Created: / 17-09-2015 / 16:48:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
123 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
124 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
125 |
isDIDerivedType |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
126 |
^ self kind == DIDerivedTypeKind |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
127 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
128 |
"Created: / 17-09-2015 / 16:48:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
129 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
130 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
131 |
isDIEnumerator |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
132 |
^ self kind == DIEnumeratorKind |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
133 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
134 |
"Created: / 17-09-2015 / 16:45:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
135 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
136 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
137 |
isDIExpression |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
138 |
^ self kind == DIExpressionKind |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
139 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
140 |
"Created: / 17-09-2015 / 16:45:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
141 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
142 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
143 |
isDIFile |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
144 |
^ self kind == DIFileKind |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
145 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
146 |
"Created: / 17-09-2015 / 16:47:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
147 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
148 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
149 |
isDIGlobalVariable |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
150 |
^ self kind == DIGlobalVariableKind |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
151 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
152 |
"Created: / 17-09-2015 / 16:47:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
153 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
154 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
155 |
isDIImportedEntity |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
156 |
^ self kind == DIImportedEntityKind |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
157 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
158 |
"Created: / 17-09-2015 / 16:45:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
159 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
160 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
161 |
isDILexicalBlock |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
162 |
^ self kind == DILexicalBlockKind |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
163 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
164 |
"Created: / 17-09-2015 / 16:48:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
165 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
166 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
167 |
isDILexicalBlockFile |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
168 |
^ self kind == DILexicalBlockFileKind |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
169 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
170 |
"Created: / 17-09-2015 / 16:48:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
171 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
172 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
173 |
isDILocalScope |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
174 |
^ { DILexicalBlockKind . DILexicalBlockFileKind . DISubprogramKind } includes: self kind.
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
175 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
176 |
"Created: / 17-09-2015 / 16:59:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
177 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
178 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
179 |
isDILocalVariable |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
180 |
^ self kind == DILocalVariableKind |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
181 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
182 |
"Created: / 17-09-2015 / 16:46:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
183 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
184 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
185 |
isDILocation |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
186 |
^ self kind == DILocationKind |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
187 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
188 |
"Created: / 17-09-2015 / 16:43:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
189 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
190 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
191 |
isDINamespace |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
192 |
^ self kind == DINamespaceKind |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
193 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
194 |
"Created: / 17-09-2015 / 16:47:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
195 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
196 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
197 |
isDIObjCProperty |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
198 |
^ self kind == DIObjCPropertyKind |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
199 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
200 |
"Created: / 17-09-2015 / 16:45:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
201 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
202 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
203 |
isDIScope |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
204 |
^ { DILexicalBlockKind . DILexicalBlockFileKind . DISubprogramKind .
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
205 |
DICompileUnitKind . DIFileKind . DINamespaceKind } includes: self kind. |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
206 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
207 |
"Created: / 17-09-2015 / 17:05:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
208 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
209 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
210 |
isDISubprogram |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
211 |
^ self kind == DISubprogramKind |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
212 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
213 |
"Created: / 17-09-2015 / 16:47:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
214 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
215 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
216 |
isDISubprogramType |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
217 |
^ self kind == DISubroutineTypeKind |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
218 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
219 |
"Created: / 17-09-2015 / 16:49:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
220 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
221 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
222 |
isDISubrange |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
223 |
^ self kind == DISubrangeKind |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
224 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
225 |
"Created: / 17-09-2015 / 16:46:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
226 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
227 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
228 |
isDIType |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
229 |
^ { DIBasicTypeKind . DIDerivedTypeKind . DICompositeTypeKind . DISubroutineTypeKind } includes: self kind.
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
230 |
|
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
231 |
"Created: / 17-09-2015 / 16:59:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
232 |
! |
|
e4cbc8e75207
Added testing and assestion methods to test metadata nodes for their type
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
33
diff
changeset
|
233 |
|
|
33
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
234 |
isLLVMMetadata |
|
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
235 |
^ true |
|
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
236 |
|
|
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
237 |
"Created: / 14-08-2015 / 08:51:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
238 |
! ! |
|
feabf14b6c1d
Initial support for generating (DWARF) debug info.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
239 |
|
|
74
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
240 |
!LLVMMetadata class methodsFor:'documentation'! |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
241 |
|
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
242 |
version_HG |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
243 |
|
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
244 |
^ '$Changeset: <not expanded> $' |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
245 |
! ! |
|
47bf2a306c14
Show metadata kind in LLVMMetadata print string
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
246 |