--- a/ArithmeticValue.st Tue Sep 04 13:36:39 2001 +0200
+++ b/ArithmeticValue.st Tue Sep 04 13:39:17 2001 +0200
@@ -49,11 +49,14 @@
[class variables:]
ArithmeticSignal <Signal> parent of all arithmetic signals
(never raised itself)
+ New: now a reference to ArithmeticError
DomainErrorSignal <Signal> raised upon float errors
(for example range in trigonometric)
+ New: now a reference to DomainError
DivisionByZeroSignal <Signal> raised when division by 0 is attempted
+ New: now a reference to ZeroDivide
OverflowSignal <Signal> raised on overflow/underflow conditions
UnderflowSignal in float arithmetic.
@@ -86,6 +89,9 @@
DivisionByZeroSignal := ZeroDivide.
ZeroDivide notifierString:'division by zero'.
+ UnorderedSignal := UnorderedNumbersError.
+ UnorderedNumbersError notifierString:'unordered'.
+
"/ ArithmeticSignal isNil ifTrue:[
"/ ArithmeticSignal := ErrorSignal newSignalMayProceed:true.
"/ ArithmeticSignal nameClass:self message:#arithmeticSignal.
@@ -122,11 +128,11 @@
UnderflowSignal notifierString:'underflow'.
].
- UnorderedSignal isNil ifTrue:[
- UnorderedSignal := ArithmeticSignal newSignal.
- UnorderedSignal nameClass:self message:#unorderedSignal.
- UnorderedSignal notifierString:'unordered'.
- ].
+"/ UnorderedSignal isNil ifTrue:[
+"/ UnorderedSignal := ArithmeticSignal newSignal.
+"/ UnorderedSignal nameClass:self message:#unorderedSignal.
+"/ UnorderedSignal notifierString:'unordered'.
+"/ ].
AnyArithmeticSignal := SignalSet with:DomainErrorSignal
with:DivisionByZeroSignal
@@ -944,6 +950,6 @@
!ArithmeticValue class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.36 2001-09-04 11:33:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.37 2001-09-04 11:36:53 cg Exp $'
! !
ArithmeticValue initialize!