LargeInteger.st
changeset 18240 28af09029a8b
parent 18235 9f0914e019a8
child 18261 22bdfc405bca
child 18381 7614c149c77e
--- a/LargeInteger.st	Mon Apr 20 12:39:18 2015 +0200
+++ b/LargeInteger.st	Mon Apr 20 12:48:54 2015 +0200
@@ -1553,7 +1553,7 @@
     "return 8 bits of value, starting at byte index"
 
 %{
-#ifdef __JAVA__
+#ifdef __SCHTEAM__
     return context._RETURN( ((STLargeInteger)self).digitAt( index.intValue() ) );
 #endif
 %}.
@@ -1565,7 +1565,7 @@
     "set the 8 bits, index is a byte index"
 
 %{
-#ifdef __JAVA__
+#ifdef __SCHTEAM__
     ERROR("cannot modify the digits of a LargeInteger");
 #endif
 %}.
@@ -1580,7 +1580,7 @@
     |t digits|
 
 %{
-#ifdef __JAVA__
+#ifdef __SCHTEAM__
     return context._RETURN( ((STLargeInteger)self).digitByteAt( index.intValue() ) );
 #endif
 %}.
@@ -1615,7 +1615,7 @@
      Least significant byte is first!!"
 
 %{
-#ifdef __JAVA__
+#ifdef __SCHTEAM__
     return context._RETURN( ((STLargeInteger)self).digitBytes() );
 #endif
 %}.
@@ -1659,7 +1659,7 @@
     |l "{ Class: SmallInteger }" |
 
 %{
-#ifdef __JAVA__
+#ifdef __SCHTEAM__
     return context._RETURN( ((STLargeInteger)self).digitLength() );
 #endif
 %}.
@@ -5390,7 +5390,7 @@
     "return true, if the receiver is < 0"
 
 %{
-#ifdef __JAVA__
+#ifdef __SCHTEAM__
     return context._RETURN( ((STLargeInteger)self).largeValue.signum() < 0 ? STObject.True : STObject.False);
 #endif
 %}.
@@ -5409,7 +5409,7 @@
     "return true, if the receiver is >= 0"
 
 %{
-#ifdef __JAVA__
+#ifdef __SCHTEAM__
     return context._RETURN( ((STLargeInteger)self).largeValue.signum() >= 0 ? STObject.True : STObject.False);
 #endif
 %}.
@@ -5420,7 +5420,7 @@
     "return the sign of the receiver (-1, 0 or 1)"
 
 %{
-#ifdef __JAVA__
+#ifdef __SCHTEAM__
     return context._RETURN( STInteger._new( ((STLargeInteger)self).largeValue.signum() ));
 #endif
 %}.
@@ -5431,7 +5431,7 @@
     "return true, if the receiver is > 0"
 
 %{
-#ifdef __JAVA__
+#ifdef __SCHTEAM__
     return context._RETURN( ((STLargeInteger)self).largeValue.signum() > 0 ? STObject.True : STObject.False);
 #endif
 %}.
@@ -5441,9 +5441,9 @@
 !LargeInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.224 2015-04-19 22:31:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.225 2015-04-20 10:48:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.224 2015-04-19 22:31:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.225 2015-04-20 10:48:54 cg Exp $'
 ! !