equal
deleted
inserted
replaced
59 ^ LLVMType intptr |
59 ^ LLVMType intptr |
60 ]. |
60 ]. |
61 name = 'tSmallInteger' ifTrue:[ |
61 name = 'tSmallInteger' ifTrue:[ |
62 ^ LLVMType intptr |
62 ^ LLVMType intptr |
63 ]. |
63 ]. |
64 self notYetImplemented |
64 ^ LLVMType void pointer |
65 |
65 |
66 "Created: / 31-08-2015 / 09:06:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
66 "Created: / 31-08-2015 / 09:06:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
67 "Modified: / 01-09-2015 / 21:53:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
67 "Modified: / 03-09-2015 / 16:31:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
68 ! ! |
68 ! ! |
69 |
69 |
70 !TSimpleType methodsFor:'initialization'! |
70 !TSimpleType methodsFor:'initialization'! |
71 |
71 |
72 initializeWithName: aString |
72 initializeWithName: aString |
93 |
93 |
94 !TSimpleType methodsFor:'testing'! |
94 !TSimpleType methodsFor:'testing'! |
95 |
95 |
96 isSimpleType |
96 isSimpleType |
97 ^ true |
97 ^ true |
|
98 ! |
|
99 |
|
100 isSubtypeOf: anotherType |
|
101 "/ Hack for now - types must match exactly... |
|
102 ^ anotherType class == self class and:[ anotherType name = name ] |
|
103 |
|
104 "Created: / 02-09-2015 / 17:11:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
98 ! ! |
105 ! ! |
99 |
106 |