#OTHER by mawalch
occure -> occur
occurence -> occurrence
occures -> occurs
occured -> occurred
--- a/UnaryNode.st Mon Aug 15 12:51:30 2016 +0200
+++ b/UnaryNode.st Mon Aug 15 12:52:35 2016 +0200
@@ -11,6 +11,8 @@
"
"{ Package: 'stx:libcomp' }"
+"{ NameSpace: Smalltalk }"
+
MessageNode subclass:#UnaryNode
instanceVariableNames:''
classVariableNames:''
@@ -74,13 +76,13 @@
"/ evaluate at compile time:
"/ Character tab
"/ Character cr
- "/ ...
+ "/ ...
"/ Float pi
"/ Float e
- "/ ...
+ "/ ...
"/ String cr
"/ String crlf
- "/ ...
+ "/ ...
"/ #(...) asFloatArray
r isGlobal ifTrue:[
@@ -115,7 +117,7 @@
"/ However, the JIT compiler compensates for this ;-)
"/ (globalName = 'Smalltalk') ifTrue:[
"/ ( #( isSmalltalkX isVisualWorks isSqueak
-"/ isSmalltalkMT isDolphinSmalltalk isVisualAge
+"/ isSmalltalkMT isDolphinSmalltalk isVisualAge
"/ isSmalltalkV) includes:selector)
"/ ifTrue:[
"/ (recVal respondsTo:selector) ifTrue:[
@@ -144,19 +146,19 @@
"
we could do much more here - but then, we need a dependency from
the folded selectors method to the method we generate code for ...
- limit optimizations to those that will never change
+ limit optimizations to those that will never change
(or, if you change them, it will crash badly anyway ...)
"
recVal respondsToArithmetic ifTrue:[
(#( negated abs asPoint degreesToRadians radiansToDegrees
- exp ln log sqrt reciprocal
+ exp ln log sqrt reciprocal
arcCos arcSin arcTan sin cos tan) includes:selector)
ifTrue:[
canFold := true
]
].
recVal isCharacter ifTrue:[
- (#( asciiValue asInteger digitValue asString) includes:selector)
+ (#( asciiValue asInteger digitValue asString) includes:selector)
ifTrue:[
canFold := true
]
@@ -194,7 +196,7 @@
^ ConstantNode type:(ConstantNode typeOfConstant:result) value:result
].
"when we reach here, something went wrong (something like 0.0 log)"
- ^ ParseErrorNode errorString:'error occured while evaluating constant expression'
+ ^ ParseErrorNode errorString:'error occurred while evaluating constant expression'
].
].
].
@@ -381,10 +383,10 @@
!UnaryNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.60 2013-10-19 23:05:27 vrany Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.60 2013-10-19 23:05:27 vrany Exp $'
+ ^ '$Header$'
! !