equal
deleted
inserted
replaced
244 |
244 |
245 digitBytes:aByteArrayOfDigits MSB:msb |
245 digitBytes:aByteArrayOfDigits MSB:msb |
246 "create and return a new LargeInteger with digits (which may be in either msb/lsb order) |
246 "create and return a new LargeInteger with digits (which may be in either msb/lsb order) |
247 from the argument, aByteArray." |
247 from the argument, aByteArray." |
248 |
248 |
|
249 |digits| |
|
250 |
249 msb == false ifTrue:[ |
251 msb == false ifTrue:[ |
250 ^ self basicNew setDigits:aByteArrayOfDigits |
252 digits := aByteArrayOfDigits |
251 ]. |
253 ] ifFalse:[ |
252 ^ self basicNew setDigits:(aByteArrayOfDigits copy reverse) |
254 digits := aByteArrayOfDigits copy reverse |
|
255 ]. |
|
256 ^ self basicNew setDigits:digits |
253 |
257 |
254 " |
258 " |
255 (LargeInteger digitBytes:#[16r10 16r20 16r30 16r00] MSB:false) hexPrintString |
259 (LargeInteger digitBytes:#[16r10 16r20 16r30 16r00] MSB:false) hexPrintString |
256 (LargeInteger digitBytes:#[16r10 16r20 16r30 16r00] MSB:true) hexPrintString |
260 (LargeInteger digitBytes:#[16r10 16r20 16r30 16r00] MSB:true) hexPrintString |
257 " |
261 " |
4391 ! ! |
4395 ! ! |
4392 |
4396 |
4393 !LargeInteger class methodsFor:'documentation'! |
4397 !LargeInteger class methodsFor:'documentation'! |
4394 |
4398 |
4395 version |
4399 version |
4396 ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.161 2001-10-02 14:35:17 cg Exp $' |
4400 ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.162 2001-10-25 15:24:58 cg Exp $' |
4397 ! ! |
4401 ! ! |