--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/libt/tSIntegerW.tea Sun Sep 27 07:07:46 2015 +0100
@@ -0,0 +1,41 @@
+nil subclass: #tSIntegerW
+ category: 't-Kernel'
+!
+
+!tSIntegerW methodsFor: 'comparing'!
+< another <tSIntegerW> <^tBoolean>
+ <primitive: [:asm |
+ asm ret: (asm icmp: self _: another cond: LLVMIntSLT)
+ ]>
+!
+
+> another <tSIntegerW> <^tBoolean>
+ <primitive: [:asm |
+ asm ret: (asm icmp: self _: another cond: LLVMIntSGT)
+ ]>
+!
+
+= another <tSIntegerW> <^tBoolean>
+ <primitive: [:asm |
+ asm ret: (asm icmp: self _: another cond: LLVMIntEQ)
+ ]>
+! !
+
+!tSIntegerW methodsFor: 'arithmetic'!
++ another <tSIntegerW> <^tSIntegerW>
+ <primitive: [:asm |
+ asm ret: (asm add: self _: another)
+ ]>
+!
+
+- another <tSIntegerW> <^tSIntegerW>
+ <primitive: [:asm |
+ asm ret: (asm sub: self _: another)
+ ]>
+!
+
+* another <tSIntegerW> <^tSIntegerW>
+ <primitive: [:asm |
+ asm ret: (asm mul: self _: another)
+ ]>
+! !