--- a/LargeInteger.st Tue Sep 19 16:36:01 2017 +0200
+++ b/LargeInteger.st Tue Sep 19 16:36:14 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1994 by Claus Gittinger
All Rights Reserved
@@ -317,6 +315,8 @@
"Modified: / 8.5.1998 / 21:40:41 / cg"
! !
+
+
!LargeInteger class methodsFor:'coercing & converting'!
coerce:aNumber
@@ -1637,16 +1637,18 @@
Least significant byte is first!!"
sign > 0 ifTrue:[
- ^ digitByteArray
+ ^ digitByteArray
].
"answer the 2's complement"
^ (self bitInvert + 1) digitBytes.
"
- 16r12345678901234567890 digitBytesSigned
- -16r12345678901234567890 digitBytesSigned
+ 16r12345678901234567890 digitBytesSigned
+ 16r-12345678901234567890 digitBytesSigned
"
+
+ "Modified (comment): / 19-09-2017 / 16:33:19 / stefan"
!
digitLength