LargeInteger.st
changeset 22267 77906926cbae
parent 22101 bf59a1a919c7
child 22370 590a315a9d33
--- 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