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.
return value of signal raise
authorclaus
Mon, 22 Aug 1994 14:20:44 +0200
changeset 131 39599c151f30
parent 130 e09411db2573
child 132 ab2cfccd218c
return value of signal raise
CompCode.st file | annotate | diff | comparison | revisions
CompiledCode.st file | annotate | diff | comparison | revisions
ExecFunc.st file | annotate | diff | comparison | revisions
ExecutableFunction.st file | annotate | diff | comparison | revisions
Float.st file | annotate | diff | comparison | revisions 
--- a/CompCode.st	Mon Aug 22 14:19:19 1994 +0200
+++ b/CompCode.st	Mon Aug 22 14:20:44 1994 +0200
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/CompCode.st,v 1.4 1994-08-11 21:35:47 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/CompCode.st,v 1.5 1994-08-22 12:20:34 claus Exp $
 '!
 
 !ExecutableCodeObject class methodsFor:'documentation'!
@@ -45,7 +45,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/CompCode.st,v 1.4 1994-08-11 21:35:47 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/CompCode.st,v 1.5 1994-08-22 12:20:34 claus Exp $
 "
 !
 
@@ -153,8 +153,7 @@
      Can only happen when Compiler/runtime system is broken or
      someone played around with a block/method."
 
-    NoByteCodeSignal raise.
-    ^ nil
+    ^ NoByteCodeSignal raise.
 !
 
 invalidByteCode
@@ -163,8 +162,7 @@
      Can only happen when Compiler/runtime system is broken or
      someone played around with a block/method."
 
-    InvalidByteCodeSignal raise.
-    ^ nil
+    ^ InvalidByteCodeSignal raise.
 !
 
 invalidInstruction
@@ -173,8 +171,7 @@
      Can only happen when Compiler/runtime system is broken or
      someone played around with the block/methods code."
 
-    InvalidInstructionSignal raise.
-    ^ nil
+    ^ InvalidInstructionSignal raise.
 !
 
 badLiteralTable
@@ -183,8 +180,7 @@
      compiler is broken or someone played around with a block/methods
      literal table or the GC is broken and corrupted it."
 
-    BadLiteralsSignal raise.
-    ^ nil
+    ^ BadLiteralsSignal raise.
 !
 
 receiverNotBoolean:anObject
@@ -192,8 +188,7 @@
      execute ifTrue:/ifFalse or whileTrue: type of expressions where the
      receiver is neither true nor false."
 
-    NonBooleanReceiverSignal raise.
-    ^ nil
+    ^ NonBooleanReceiverSignal raise.
 !
 
 tooManyArguments
@@ -201,7 +196,7 @@
      more arguments than supported by the interpreter. This can only happen,
      if the compiler has been changed without updating the VM."
 
-    ArgumentSignal
+    ^ ArgumentSignal
         raiseRequestWith:self
         errorString:'too many args in send'
 !
@@ -210,7 +205,7 @@
     "this error is triggered, if a non array is passed to #perform:with:
      or #value:with:."
 
-    ArgumentSignal
+    ^ ArgumentSignal
         raiseRequestWith:self
         errorString:'argumentArray must be an Array'
 ! !
--- a/CompiledCode.st	Mon Aug 22 14:19:19 1994 +0200
+++ b/CompiledCode.st	Mon Aug 22 14:20:44 1994 +0200
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.4 1994-08-11 21:35:47 claus Exp $
+$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.5 1994-08-22 12:20:34 claus Exp $
 '!
 
 !ExecutableCodeObject class methodsFor:'documentation'!
@@ -45,7 +45,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.4 1994-08-11 21:35:47 claus Exp $
+$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.5 1994-08-22 12:20:34 claus Exp $
 "
 !
 
@@ -153,8 +153,7 @@
      Can only happen when Compiler/runtime system is broken or
      someone played around with a block/method."
 
-    NoByteCodeSignal raise.
-    ^ nil
+    ^ NoByteCodeSignal raise.
 !
 
 invalidByteCode
@@ -163,8 +162,7 @@
      Can only happen when Compiler/runtime system is broken or
      someone played around with a block/method."
 
-    InvalidByteCodeSignal raise.
-    ^ nil
+    ^ InvalidByteCodeSignal raise.
 !
 
 invalidInstruction
@@ -173,8 +171,7 @@
      Can only happen when Compiler/runtime system is broken or
      someone played around with the block/methods code."
 
-    InvalidInstructionSignal raise.
-    ^ nil
+    ^ InvalidInstructionSignal raise.
 !
 
 badLiteralTable
@@ -183,8 +180,7 @@
      compiler is broken or someone played around with a block/methods
      literal table or the GC is broken and corrupted it."
 
-    BadLiteralsSignal raise.
-    ^ nil
+    ^ BadLiteralsSignal raise.
 !
 
 receiverNotBoolean:anObject
@@ -192,8 +188,7 @@
      execute ifTrue:/ifFalse or whileTrue: type of expressions where the
      receiver is neither true nor false."
 
-    NonBooleanReceiverSignal raise.
-    ^ nil
+    ^ NonBooleanReceiverSignal raise.
 !
 
 tooManyArguments
@@ -201,7 +196,7 @@
      more arguments than supported by the interpreter. This can only happen,
      if the compiler has been changed without updating the VM."
 
-    ArgumentSignal
+    ^ ArgumentSignal
         raiseRequestWith:self
         errorString:'too many args in send'
 !
@@ -210,7 +205,7 @@
     "this error is triggered, if a non array is passed to #perform:with:
      or #value:with:."
 
-    ArgumentSignal
+    ^ ArgumentSignal
         raiseRequestWith:self
         errorString:'argumentArray must be an Array'
 ! !
--- a/ExecFunc.st	Mon Aug 22 14:19:19 1994 +0200
+++ b/ExecFunc.st	Mon Aug 22 14:20:44 1994 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/ExecFunc.st,v 1.4 1994-08-11 21:36:14 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ExecFunc.st,v 1.5 1994-08-22 12:20:41 claus Exp $
 '!
 
 !ExecutableFunction class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/ExecFunc.st,v 1.4 1994-08-11 21:36:14 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ExecFunc.st,v 1.5 1994-08-22 12:20:41 claus Exp $
 "
 !
 
@@ -54,7 +54,7 @@
     Instance variables:
 
     code        <not_an_object>   the function pointer to the machine code.
-				  Not accessable from smalltalk code.
+                                  Not accessable from smalltalk code.
 
     flags       <SmallInteger>    special flag bits coded in a number
 
@@ -154,8 +154,7 @@
      Can only happen when the Compiler/runtime system is broken or
      someone played around."
 
-    InvalidCodeSignal raise.
-    ^ nil
+    ^ InvalidCodeSignal raise.
 ! !
 
 !ExecutableFunction methodsFor:'binary storage'!
--- a/ExecutableFunction.st	Mon Aug 22 14:19:19 1994 +0200
+++ b/ExecutableFunction.st	Mon Aug 22 14:20:44 1994 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.4 1994-08-11 21:36:14 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.5 1994-08-22 12:20:41 claus Exp $
 '!
 
 !ExecutableFunction class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.4 1994-08-11 21:36:14 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.5 1994-08-22 12:20:41 claus Exp $
 "
 !
 
@@ -54,7 +54,7 @@
     Instance variables:
 
     code        <not_an_object>   the function pointer to the machine code.
-				  Not accessable from smalltalk code.
+                                  Not accessable from smalltalk code.
 
     flags       <SmallInteger>    special flag bits coded in a number
 
@@ -154,8 +154,7 @@
      Can only happen when the Compiler/runtime system is broken or
      someone played around."
 
-    InvalidCodeSignal raise.
-    ^ nil
+    ^ InvalidCodeSignal raise.
 ! !
 
 !ExecutableFunction methodsFor:'binary storage'!
--- a/Float.st	Mon Aug 22 14:19:19 1994 +0200
+++ b/Float.st	Mon Aug 22 14:20:44 1994 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Float.st,v 1.16 1994-08-05 00:54:50 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Float.st,v 1.17 1994-08-22 12:20:44 claus Exp $
 '!
 
 !Float class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Float.st,v 1.16 1994-08-05 00:54:50 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Float.st,v 1.17 1994-08-22 12:20:44 claus Exp $
 "
 !
 
@@ -228,8 +228,7 @@
 %}
 .
     ((aNumber == 0) or:[aNumber = 0.0]) ifTrue:[
-        DivisionByZeroSignal raise.
-        ^ self
+        ^ DivisionByZeroSignal raise.
     ].
     ^ aNumber quotientFromFloat:self
 !
@@ -549,7 +548,7 @@
     Float_LastErrorNumber = _MKSMALLINT(errno);
 %}
 .
-    DomainErrorSignal raise
+    ^ DomainErrorSignal raise
 !
 
 raisedTo:aNumber
@@ -572,7 +571,7 @@
     }
 %}
 .
-    DomainErrorSignal raise
+    ^ DomainErrorSignal raise
 !
 
 exp
@@ -591,7 +590,7 @@
     Float_LastErrorNumber = _MKSMALLINT(errno);
 %}
 .
-    DomainErrorSignal raise
+    ^ DomainErrorSignal raise
 !
 
 sin
@@ -610,7 +609,7 @@
     Float_LastErrorNumber = _MKSMALLINT(errno);
 %}
 .
-    DomainErrorSignal raise
+    ^ DomainErrorSignal raise
 !
 
 cos
@@ -629,7 +628,7 @@
     Float_LastErrorNumber = _MKSMALLINT(errno);
 %}
 .
-    DomainErrorSignal raise
+    ^ DomainErrorSignal raise
 !
 
 tan
@@ -648,7 +647,7 @@
     Float_LastErrorNumber = _MKSMALLINT(errno);
 %}
 .
-    DomainErrorSignal raise
+    ^ DomainErrorSignal raise
 !
 
 arcSin
@@ -667,7 +666,7 @@
     Float_LastErrorNumber = _MKSMALLINT(errno);
 %}
 .
-    DomainErrorSignal raise
+    ^ DomainErrorSignal raise
 !
 
 arcCos
@@ -686,7 +685,7 @@
     Float_LastErrorNumber = _MKSMALLINT(errno);
 %}
 .
-    DomainErrorSignal raise
+    ^ DomainErrorSignal raise
 !
 
 arcTan
@@ -705,7 +704,7 @@
     Float_LastErrorNumber = _MKSMALLINT(errno);
 %}
 .
-    DomainErrorSignal raise
+    ^ DomainErrorSignal raise
 !
 
 sqrt
@@ -724,7 +723,7 @@
     Float_LastErrorNumber = _MKSMALLINT(errno);
 %}
 .
-    DomainErrorSignal raise
+    ^ DomainErrorSignal raise
 ! !
 
 !Float class methodsFor:'binary storage'!
hg/stx-libbasic