Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 04 Sep 2001 13:39:17 +0200
changeset 5957 bfe534c912f6
parent 5956 63762aae964c
child 5958 ccf9a786af36
*** empty log message ***
ArithmeticValue.st file | annotate | diff | comparison | revisions
Make.proto file | annotate | diff | comparison | revisions
abbrev.stc file | annotate | diff | comparison | revisions
bc.mak file | annotate | diff | comparison | revisions
libInit.cc file | annotate | diff | comparison | revisions
nt.mak file | annotate | diff | comparison | revisions 
--- 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!
--- a/Make.proto	Tue Sep 04 13:36:39 2001 +0200
+++ b/Make.proto	Tue Sep 04 13:39:17 2001 +0200
@@ -1,4 +1,4 @@
-# $Header: /cvs/stx/stx/libbasic/Make.proto,v 1.134 2001-09-04 10:48:12 cg Exp $
+# $Header: /cvs/stx/stx/libbasic/Make.proto,v 1.135 2001-09-04 11:37:24 cg Exp $
 #
 # -------------- no need to change anything below ----------
 
@@ -125,6 +125,7 @@
 	      DomainError.$(O) \
 		ZeroDivide.$(O) \
 	      RangeError.$(O) \
+	      UnorderedNumbersError.$(O) \
 	  Warning.$(O)       \
 	    ProceedError.$(O)\
 	  Notification.$(O)  \
--- a/abbrev.stc	Tue Sep 04 13:36:39 2001 +0200
+++ b/abbrev.stc	Tue Sep 04 13:39:17 2001 +0200
@@ -126,6 +126,7 @@
 UnixFileHandle UnixFileHandle stx:libbasic 'OS-Unix'
 UnixFilename UnixFilename stx:libbasic 'OS-Unix'
 UnixOperatingSystem UnixOperatingSystem stx:libbasic 'OS-Unix'
+UnorderedNumbersError UnorderedNumbersError stx:libbasic 'Magnitude-Numbers'
 UserNotification UserNotification stx:libbasic 'Kernel-Exceptions'
 UserPreferences UserPreferences stx:libbasic 'System-Support'
 VarArgBlock VarArgBlock stx:libbasic 'Kernel-Methods'
--- a/bc.mak	Tue Sep 04 13:36:39 2001 +0200
+++ b/bc.mak	Tue Sep 04 13:39:17 2001 +0200
@@ -2,7 +2,7 @@
 # DO NOT EDIT 
 # automatically generated from Make.proto (by make nt.mak)
 #
-# $Header: /cvs/stx/stx/libbasic/bc.mak,v 1.52 2001-09-04 10:48:12 cg Exp $
+# $Header: /cvs/stx/stx/libbasic/bc.mak,v 1.53 2001-09-04 11:38:00 cg Exp $
 #
 TOP=..
 #
@@ -69,6 +69,7 @@
   $(OUTDIR)DomainError.$(O) \
   $(OUTDIR)ZeroDivide.$(O) \
   $(OUTDIR)RangeError.$(O) \
+  $(OUTDIR)UnorderedNumbersError.$(O) \
   $(OUTDIR)ProceedableError.$(O) \
   $(OUTDIR)SignalError.$(O) \
   $(OUTDIR)WrongProceedabilityError.$(O) \
--- a/libInit.cc	Tue Sep 04 13:36:39 2001 +0200
+++ b/libInit.cc	Tue Sep 04 13:39:17 2001 +0200
@@ -68,6 +68,11 @@
 _ProceedableError_Init(pass,__pRT__,snd);
 _SignalError_Init(pass,__pRT__,snd);
 _WrongProceedabilityError_Init(pass,__pRT__,snd);
+_ArithmeticError_Init(pass,__pRT__,snd);
+_DomainError_Init(pass,__pRT__,snd);
+_ZeroDivide_Init(pass,__pRT__,snd);
+_RangeError_Init(pass,__pRT__,snd);
+_UnorderedNumbersError_Init(pass,__pRT__,snd);
 _Warning_Init(pass,__pRT__,snd);
 _ProceedError_Init(pass,__pRT__,snd);
 _Notification_Init(pass,__pRT__,snd);
--- a/nt.mak	Tue Sep 04 13:36:39 2001 +0200
+++ b/nt.mak	Tue Sep 04 13:39:17 2001 +0200
@@ -2,7 +2,7 @@
 # DO NOT EDIT 
 # automatically generated from Make.proto (by make nt.mak)
 #
-# $Header: /cvs/stx/stx/libbasic/Attic/nt.mak,v 1.52 2001-09-04 10:48:12 cg Exp $
+# $Header: /cvs/stx/stx/libbasic/Attic/nt.mak,v 1.53 2001-09-04 11:38:00 cg Exp $
 #
 TOP=..
 #
@@ -69,6 +69,7 @@
   $(OUTDIR)DomainError.$(O) \
   $(OUTDIR)ZeroDivide.$(O) \
   $(OUTDIR)RangeError.$(O) \
+  $(OUTDIR)UnorderedNumbersError.$(O) \
   $(OUTDIR)ProceedableError.$(O) \
   $(OUTDIR)SignalError.$(O) \
   $(OUTDIR)WrongProceedabilityError.$(O) \
hg/stx-libbasic