added stix_negateint()

2015-12-25 05:09:17 +00:00
parent 1e7be310fc
commit 27e0186d43
7 changed files with 118 additions and 10 deletions
--- a/stix/kernel/Stix.st
+++ b/stix/kernel/Stix.st
@ -108,6 +108,18 @@
 		self primitiveFailed.
 	}

+	#method negated
+	{
+		<primitive: #_integer_negated>
+		^0 - self.
+	}
+
+	#method bitAt: index
+	{
+		"## index 1 - least significant bit"
+		^(self bitShift: (index - 1) negated) bitAnd: 1.
+	}
+
 	#method bitAnd: aNumber
 	{
 		<primitive: #_integer_bitand>