equal
deleted
inserted
replaced
797 ^ BCDConversionErrorSignal |
797 ^ BCDConversionErrorSignal |
798 |
798 |
799 "Modified: / 15.11.1999 / 20:35:20 / cg" |
799 "Modified: / 15.11.1999 / 20:35:20 / cg" |
800 ! ! |
800 ! ! |
801 |
801 |
|
802 |
|
803 |
802 !Integer class methodsFor:'class initialization'! |
804 !Integer class methodsFor:'class initialization'! |
803 |
805 |
804 initialize |
806 initialize |
805 BCDConversionErrorSignal isNil ifTrue:[ |
807 BCDConversionErrorSignal isNil ifTrue:[ |
806 BCDConversionErrorSignal := ConversionError newSignal. |
808 BCDConversionErrorSignal := ConversionError newSignal. |
1232 |
1234 |
1233 ^ self == Integer |
1235 ^ self == Integer |
1234 ! ! |
1236 ! ! |
1235 |
1237 |
1236 |
1238 |
1237 |
|
1238 !Integer methodsFor:'Compatibility-Dolphin'! |
1239 !Integer methodsFor:'Compatibility-Dolphin'! |
1239 |
1240 |
1240 highWord |
1241 highWord |
1241 "return the high 16 bits of a 32 bit value" |
1242 "return the high 16 bits of a 32 bit value" |
1242 |
1243 |
2770 ! |
2771 ! |
2771 |
2772 |
2772 asLargeFloat |
2773 asLargeFloat |
2773 "return a LargeFloat with same value as myself. |
2774 "return a LargeFloat with same value as myself. |
2774 Since largeFloats have a limited precision, you usually loose bits when |
2775 Since largeFloats have a limited precision, you usually loose bits when |
2775 doing this." |
2776 doing this. |
2776 |
2777 If the largeFloat class is not present, a regular float is returned" |
2777 ^ LargeFloat fromInteger:self |
2778 |
|
2779 ^ (LargeFloat ? Float) fromInteger:self |
2778 |
2780 |
2779 " |
2781 " |
2780 1234567890 asLargeFloat |
2782 1234567890 asLargeFloat |
2781 1234567890 asLargeFloat asInteger |
2783 1234567890 asLargeFloat asInteger |
2782 12345678901234567890 asLargeFloat |
2784 12345678901234567890 asLargeFloat |
2783 12345678901234567890 asLargeFloat asInteger |
2785 12345678901234567890 asLargeFloat asInteger |
2784 " |
2786 " |
|
2787 |
|
2788 "Modified (comment): / 07-06-2018 / 16:22:59 / Claus Gittinger" |
2785 ! |
2789 ! |
2786 |
2790 |
2787 asLongFloat |
2791 asLongFloat |
2788 "return a LongFloat with same value as myself. |
2792 "return a LongFloat with same value as myself. |
2789 Since longFloats have a limited precision, you usually loose bits when |
2793 Since longFloats have a limited precision, you usually loose bits when |