--- a/LargeInteger.st Sun Oct 03 10:50:24 1999 +0200
+++ b/LargeInteger.st Sun Oct 03 11:26:06 1999 +0200
@@ -1068,27 +1068,27 @@
t = __INST(digitByteArray);
if (__isByteArray(t)) {
- unsigned char *_digitBytes = __ByteArrayInstPtr(t)->ba_element;
+ unsigned char *__digitBytes = __ByteArrayInstPtr(t)->ba_element;
int _idx, _idx0;
INT _val;
_idx = _idx0 = __byteArraySize(t);
- while ((_idx > 0) && (_digitBytes[_idx - 1] == 0)) {
+ while ((_idx > 0) && (__digitBytes[_idx - 1] == 0)) {
_idx--;
}
#ifdef alpha64
switch (_idx) {
case 8:
- _val = _digitBytes[7];
+ _val = __digitBytes[7];
if (_val <= 0x40) {
_val = (_val<<8);
- _val = (_val + _digitBytes[6]) << 8;
- _val = (_val + _digitBytes[5]) << 8;
- _val = (_val + _digitBytes[4]) << 8;
- _val = (_val + _digitBytes[3]) << 8;
- _val = (_val + _digitBytes[2]) << 8;
- _val = (_val + _digitBytes[1]) << 8;
- _val += _digitBytes[0];
+ _val = (_val + __digitBytes[6]) << 8;
+ _val = (_val + __digitBytes[5]) << 8;
+ _val = (_val + __digitBytes[4]) << 8;
+ _val = (_val + __digitBytes[3]) << 8;
+ _val = (_val + __digitBytes[2]) << 8;
+ _val = (_val + __digitBytes[1]) << 8;
+ _val += __digitBytes[0];
if (__INST(sign) == __MKSMALLINT(-1))
_val = -_val;
if (__ISVALIDINTEGER(_val)) {
@@ -1097,57 +1097,57 @@
}
break;
case 7:
- _val = (_digitBytes[6]<<8);
- _val = (_val + _digitBytes[5]) << 8;
- _val = (_val + _digitBytes[4]) << 8;
- _val = (_val + _digitBytes[3]) << 8;
- _val = (_val + _digitBytes[2]) << 8;
- _val = (_val + _digitBytes[1]) << 8;
- _val += _digitBytes[0];
+ _val = (__digitBytes[6]<<8);
+ _val = (_val + __digitBytes[5]) << 8;
+ _val = (_val + __digitBytes[4]) << 8;
+ _val = (_val + __digitBytes[3]) << 8;
+ _val = (_val + __digitBytes[2]) << 8;
+ _val = (_val + __digitBytes[1]) << 8;
+ _val += __digitBytes[0];
if (__INST(sign) == __MKSMALLINT(-1))
_val = -_val;
RETURN (__MKSMALLINT(_val));
case 6:
- _val = (_digitBytes[5]<<8);
- _val = (_val + _digitBytes[4]) << 8;
- _val = (_val + _digitBytes[3]) << 8;
- _val = (_val + _digitBytes[2]) << 8;
- _val = (_val + _digitBytes[1]) << 8;
- _val += _digitBytes[0];
+ _val = (__digitBytes[5]<<8);
+ _val = (_val + __digitBytes[4]) << 8;
+ _val = (_val + __digitBytes[3]) << 8;
+ _val = (_val + __digitBytes[2]) << 8;
+ _val = (_val + __digitBytes[1]) << 8;
+ _val += __digitBytes[0];
if (__INST(sign) == __MKSMALLINT(-1))
_val = -_val;
RETURN (__MKSMALLINT(_val));
case 5:
- _val = (_digitBytes[4]<<8);
- _val = (_val + _digitBytes[3]) << 8;
- _val = (_val + _digitBytes[2]) << 8;
- _val = (_val + _digitBytes[1]) << 8;
- _val += _digitBytes[0];
+ _val = (__digitBytes[4]<<8);
+ _val = (_val + __digitBytes[3]) << 8;
+ _val = (_val + __digitBytes[2]) << 8;
+ _val = (_val + __digitBytes[1]) << 8;
+ _val += __digitBytes[0];
if (__INST(sign) == __MKSMALLINT(-1))
_val = -_val;
RETURN (__MKSMALLINT(_val));
case 4:
- _val = (_digitBytes[3]<<8);
- _val = (_val + _digitBytes[2]) << 8;
- _val = (_val + _digitBytes[1]) << 8;
- _val += _digitBytes[0];
+ _val = (__digitBytes[3]<<8);
+ _val = (_val + __digitBytes[2]) << 8;
+ _val = (_val + __digitBytes[1]) << 8;
+ _val += __digitBytes[0];
if (__INST(sign) == __MKSMALLINT(-1))
_val = -_val;
RETURN (__MKSMALLINT(_val));
case 3:
- _val = (_digitBytes[2]<<8);
- _val = (_val + _digitBytes[1]) << 8;
- _val += _digitBytes[0];
+ _val = (__digitBytes[2]<<8);
+ _val = (_val + __digitBytes[1]) << 8;
+ _val += __digitBytes[0];
if (__INST(sign) == __MKSMALLINT(-1))
_val = -_val;
RETURN (__MKSMALLINT(_val));
case 2:
- _val = (_digitBytes[1]<<8) + _digitBytes[0];
+ _val = (__digitBytes[1]<<8) + __digitBytes[0];
if (__INST(sign) == __MKSMALLINT(-1))
_val = -_val;
RETURN (__MKSMALLINT(_val));
case 1:
- _val = _digitBytes[0];
+ _val = __digitBytes[0];
if (__INST(sign) == __MKSMALLINT(-1))
_val = -_val;
RETURN (__MKSMALLINT(_val));
@@ -1162,25 +1162,25 @@
RETURN (__MKSMALLINT(0));
}
if (_idx == 1) {
- _val = _digitBytes[0];
+ _val = __digitBytes[0];
if (__INST(sign) == __MKSMALLINT(-1))
_val = -_val;
RETURN (__MKSMALLINT(_val));
}
- _val = (_digitBytes[1]<<8) + _digitBytes[0];
+ _val = (__digitBytes[1]<<8) + __digitBytes[0];
if (__INST(sign) == __MKSMALLINT(-1))
_val = -_val;
RETURN (__MKSMALLINT(_val));
}
if (_idx == 3) {
- _val = (((_digitBytes[2]<<8) + _digitBytes[1])<<8) + _digitBytes[0];
+ _val = (((__digitBytes[2]<<8) + __digitBytes[1])<<8) + __digitBytes[0];
if (__INST(sign) == __MKSMALLINT(-1))
_val = -_val;
RETURN (__MKSMALLINT(_val));
}
- _val = _digitBytes[3];
+ _val = __digitBytes[3];
if (_val <= 0x40) {
- _val = (((((_val<<8) + _digitBytes[2])<<8) + _digitBytes[1])<<8) + _digitBytes[0];
+ _val = (((((_val<<8) + __digitBytes[2])<<8) + __digitBytes[1])<<8) + __digitBytes[0];
if (__INST(sign) == __MKSMALLINT(-1))
_val = -_val;
if (__ISVALIDINTEGER(_val)) {
@@ -4174,5 +4174,5 @@
!LargeInteger class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.139 1999-10-03 08:43:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.140 1999-10-03 09:26:06 cg Exp $'
! !