equal
deleted
inserted
replaced
897 } else if (__isShortFloat(aNumber)) { |
897 } else if (__isShortFloat(aNumber)) { |
898 val = (double)(__shortFloatVal(aNumber)); |
898 val = (double)(__shortFloatVal(aNumber)); |
899 if (val != 0.0) { |
899 if (val != 0.0) { |
900 goto computeResult; |
900 goto computeResult; |
901 } |
901 } |
|
902 #ifdef LONGFLOAT_KNOWN_HERE |
|
903 } else if (__isLongFloat(aNumber)) { |
|
904 long double lval; |
|
905 |
|
906 lval = (long double)(__longFloatVal(aNumber)); |
|
907 if (val != 0.0) { |
|
908 long double lResult; |
|
909 |
|
910 lResult = fmodl((long double)(__floatVal(self)), lval); |
|
911 __qMKLFLOAT(newFloat, lResult); |
|
912 RETURN (newFloat); |
|
913 } |
|
914 #endif |
902 } |
915 } |
903 %}. |
916 %}. |
904 ((aNumber == 0) or:[aNumber = 0.0]) ifTrue:[ |
917 ((aNumber == 0) or:[aNumber = 0.0]) ifTrue:[ |
905 " |
918 " |
906 No, you shalt not divide by zero |
919 No, you shalt not divide by zero |
2841 ! ! |
2854 ! ! |
2842 |
2855 |
2843 !Float class methodsFor:'documentation'! |
2856 !Float class methodsFor:'documentation'! |
2844 |
2857 |
2845 version |
2858 version |
2846 ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.184 2013-01-23 18:01:17 cg Exp $' |
2859 ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.185 2013-01-26 15:04:17 cg Exp $' |
2847 ! |
2860 ! |
2848 |
2861 |
2849 version_CVS |
2862 version_CVS |
2850 ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.184 2013-01-23 18:01:17 cg Exp $' |
2863 ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.185 2013-01-26 15:04:17 cg Exp $' |
2851 ! ! |
2864 ! ! |
2852 |
2865 |
2853 |
2866 |
2854 Float initialize! |
2867 Float initialize! |