equal
deleted
inserted
replaced
38 This license is provisional and may (will) change in |
38 This license is provisional and may (will) change in |
39 a future. |
39 a future. |
40 " |
40 " |
41 ! ! |
41 ! ! |
42 |
42 |
|
43 !LLVMObject class methodsFor:'queries'! |
|
44 |
|
45 isAbstract |
|
46 "Return if this class is an abstract class. |
|
47 True is returned here for myself only; false for subclasses. |
|
48 Abstract subclasses must redefine again." |
|
49 |
|
50 ^ self == LLVMObject. |
|
51 ! ! |
|
52 |
43 !LLVMObject methodsFor:'assertions'! |
53 !LLVMObject methodsFor:'assertions'! |
44 |
54 |
45 assertIsBasicBlockValue:value |
55 assertIsBasicBlockValue:value |
46 <resource: #skipInDebuggersWalkback> |
56 <resource: #skipInDebuggersWalkback> |
47 |
57 |
64 |
74 |
65 self assert:(value class == LLVMValue) message:'value is not an LLVMValue'. |
75 self assert:(value class == LLVMValue) message:'value is not an LLVMValue'. |
66 self assert:(value isIntegerOrIntegerVectorValue) |
76 self assert:(value isIntegerOrIntegerVectorValue) |
67 |
77 |
68 "Modified (format): / 08-08-2015 / 02:41:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
78 "Modified (format): / 08-08-2015 / 02:41:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
79 ! |
|
80 |
|
81 assertIsIntegerUnsigned: value |
|
82 <resource: #skipInDebuggersWalkback> |
|
83 |
|
84 self assert: value isInteger message: 'value is not an integer'. |
|
85 self assert: (value between: 0 and: 16rFFFFFFFF) message: 'value out of range'. |
|
86 |
|
87 "Created: / 13-08-2015 / 18:57:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
69 ! |
88 ! |
70 |
89 |
71 assertIsString:aString |
90 assertIsString:aString |
72 <resource: #skipInDebuggersWalkback> |
91 <resource: #skipInDebuggersWalkback> |
73 |
92 |