--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/LLVMTypeHalt.st Fri Aug 14 06:26:02 2015 +0100
@@ -0,0 +1,64 @@
+"
+ Copyright (C) 2015-now Jan Vrany
+
+ This code is not an open-source (yet). You may use this code
+ for your own experiments and projects, given that:
+
+ * all modification to the code will be sent to the
+ original author for inclusion in future releases
+ * this is not used in any commercial software
+
+ This license is provisional and may (will) change in
+ a future.
+"
+"{ Package: 'jv:llvm_s' }"
+
+"{ NameSpace: Smalltalk }"
+
+LLVMType subclass:#LLVMTypeHalt
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'LLVM-S-Core-Types'
+!
+
+!LLVMTypeHalt class methodsFor:'documentation'!
+
+copyright
+"
+ Copyright (C) 2015-now Jan Vrany
+
+ This code is not an open-source (yet). You may use this code
+ for your own experiments and projects, given that:
+
+ * all modification to the code will be sent to the
+ original author for inclusion in future releases
+ * this is not used in any commercial software
+
+ This license is provisional and may (will) change in
+ a future.
+"
+! !
+
+!LLVMTypeHalt methodsFor:'accessing'!
+
+sizeInBits
+ "For integer, pointer, FP types, return the size in bits. For all
+ other types, throw an LLVMTypeError.
+
+ LLVMType int32 sizeInBits -> 32
+ LLVMType int1 sizeInBits -> 1
+ "
+ ^ 16
+
+ "Created: / 13-08-2015 / 17:02:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!LLVMTypeHalt methodsFor:'testing'!
+
+isHalfType
+ ^ true
+
+ "Created: / 13-08-2015 / 16:51:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+