--- a/ShortFloat.st Mon Jul 26 11:07:53 1999 +0200
+++ b/ShortFloat.st Mon Jul 26 11:11:55 1999 +0200
@@ -359,32 +359,32 @@
double dResult, dVal;
if (__isSmallInteger(aNumber)) {
- if (aNumber != __MKSMALLINT(0)) {
- result = __shortFloatVal(self) / (float)(__intVal(aNumber));
+ if (aNumber != __MKSMALLINT(0)) {
+ result = __shortFloatVal(self) / (float)(__intVal(aNumber));
retResult:
- __qMKSFLOAT(newFloat, result);
- RETURN ( newFloat );
- }
+ __qMKSFLOAT(newFloat, result);
+ RETURN ( newFloat );
+ }
} else if (__isShortFloat(aNumber)) {
- val = __shortFloatVal(aNumber);
- if (val != 0.0) {
- result = __shortFloatVal(self) / val;
- goto retResult;
- }
+ val = __shortFloatVal(aNumber);
+ if (val != 0.0) {
+ result = __shortFloatVal(self) / val;
+ goto retResult;
+ }
} else if (__isFloatLike(aNumber)) {
- dVal = __floatVal(aNumber);
- if (dVal != 0.0) {
- dResult = (double) __shortFloatVal(self) / dVal;
- __qMKFLOAT(newFloat, dResult);
- RETURN ( newFloat );
- }
+ dVal = __floatVal(aNumber);
+ if (dVal != 0.0) {
+ dResult = (double) __shortFloatVal(self) / dVal;
+ __qMKFLOAT(newFloat, dResult);
+ RETURN ( newFloat );
+ }
}
%}.
((aNumber == 0) or:[aNumber = 0.0]) ifTrue:[
- "
- No, you shalt not divide by zero
- "
- ^ DivisionByZeroSignal raise.
+ "
+ No, you shalt not divide by zero
+ "
+ ^ DivisionByZeroSignal raiseRequest.
].
^ aNumber quotientFromShortFloat:self
@@ -960,5 +960,5 @@
!ShortFloat class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.47 1999-06-23 12:41:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.48 1999-07-26 09:11:18 stefan Exp $'
! !