--- a/Integer.st Tue Oct 19 16:38:09 1999 +0200
+++ b/Integer.st Tue Oct 19 16:38:52 1999 +0200
@@ -173,7 +173,12 @@
^ val
"
- Integer fromBCDBytes:#[16r12 16r34 16r56 16r78 16r90]
+ Integer fromBCDBytes:#[16r12 16r34 16r56]
+ Integer fromBCDBytes:#[16r12 16r34 16r56 16r78]
+ Integer fromBCDBytes:#[16r12 16r34 16r56 16r78 16r90]
+ Integer fromBCDBytes:#[16r98 16r76 16r54]
+ Integer fromBCDBytes:#[16r98 16r76 16r54 16r32]
+ Integer fromBCDBytes:#[16r98 16r76 16r54 16r32 16r10]
Integer fromBCDBytes:#[16r12 16r34 16r56 16r78 16r90 16r12 16r34 16r56 16r78 16r90]
"
!
@@ -481,8 +486,17 @@
^ rslt
"
+ 16r1073741823 decodeFromBCD
+ 16r1073741824 decodeFromBCD
+ 16r1073741825 decodeFromBCD
+
16r55 decodeFromBCD
16r127 decodeFromBCD
+ 16r800000 decodeFromBCD
+ 16r8000000 decodeFromBCD
+ 16r80000000 decodeFromBCD
+ 16r800000000 decodeFromBCD
+ 16r127567890 decodeFromBCD
16r1234567890 decodeFromBCD
16r5A decodeFromBCD
@@ -507,7 +521,17 @@
"
55 encodeAsBCD hexPrintString
- 127 encodeAsBCD hexPrintString
+ 127 encodeAsBCD hexPrintString
+ 127 encodeAsBCD hexPrintString
+ 8912345 encodeAsBCD hexPrintString
+ 89123456 encodeAsBCD hexPrintString
+ 891234567 encodeAsBCD hexPrintString
+ 900000000 encodeAsBCD hexPrintString
+ 1073741823 encodeAsBCD hexPrintString
+ 1073741824 encodeAsBCD hexPrintString
+ 1073741825 encodeAsBCD hexPrintString
+ 1891234567 encodeAsBCD hexPrintString
+ 8912345678 encodeAsBCD hexPrintString
1234567890 encodeAsBCD hexPrintString
"
@@ -2457,5 +2481,5 @@
!Integer class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.115 1999-10-19 11:57:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.116 1999-10-19 14:38:52 cg Exp $'
! !