--- 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 $'
! !