equal
deleted
inserted
replaced
1129 an any-precision IEEE floating point number, consisting of: |
1129 an any-precision IEEE floating point number, consisting of: |
1130 numMantissaBits bits of normalized mantissa (i.e. with hidden leading 1-bit) |
1130 numMantissaBits bits of normalized mantissa (i.e. with hidden leading 1-bit) |
1131 optional numExtraBits between mantissa and exponent (normalized flag for ext-real) |
1131 optional numExtraBits between mantissa and exponent (normalized flag for ext-real) |
1132 numExponentBits bits of 2s complement exponent |
1132 numExponentBits bits of 2s complement exponent |
1133 1 sign bit. |
1133 1 sign bit. |
1134 Taken from Floats asTrueFraction" |
1134 Taken from Float's asTrueFraction" |
1135 |
1135 |
1136 |shifty sign expPart exp fraction fractionPart result zeroBitsCount |
1136 |shifty sign expPart exp fraction fractionPart result zeroBitsCount |
1137 numBytes numBits numBitsInMantissa maskMantissa numBitsInExponent maskExponent |
1137 numBytes numBits numBitsInMantissa maskMantissa numBitsInExponent maskExponent |
1138 biasExponent numIntegerBits| |
1138 biasExponent numIntegerBits| |
1139 |
1139 |
1219 LongFloat negativeInfinity asTrueFraction |
1219 LongFloat negativeInfinity asTrueFraction |
1220 " |
1220 " |
1221 |
1221 |
1222 "Modified: / 25-08-2017 / 12:34:08 / cg" |
1222 "Modified: / 25-08-2017 / 12:34:08 / cg" |
1223 "Modified: / 28-05-2019 / 09:04:52 / Claus Gittinger" |
1223 "Modified: / 28-05-2019 / 09:04:52 / Claus Gittinger" |
|
1224 "Modified (comment): / 08-06-2019 / 13:59:40 / Claus Gittinger" |
1224 ! ! |
1225 ! ! |
1225 |
1226 |
1226 !LimitedPrecisionReal methodsFor:'comparing'! |
1227 !LimitedPrecisionReal methodsFor:'comparing'! |
1227 |
1228 |
1228 < aNumber |
1229 < aNumber |
1537 size |
1538 size |
1538 "redefined since reals are kludgy (ByteArry)" |
1539 "redefined since reals are kludgy (ByteArry)" |
1539 |
1540 |
1540 ^ 0 |
1541 ^ 0 |
1541 ! ! |
1542 ! ! |
1542 |
|
1543 |
1543 |
1544 !LimitedPrecisionReal methodsFor:'special access'! |
1544 !LimitedPrecisionReal methodsFor:'special access'! |
1545 |
1545 |
1546 partValues:aBlock |
1546 partValues:aBlock |
1547 "invoke aBlock with sign, exponent and abs(mantissa)" |
1547 "invoke aBlock with sign, exponent and abs(mantissa)" |