--- a/RegressionTests__JITTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__JITTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -28,12 +28,12 @@
cond1:arg
arg == 0 ifTrue:[
- ^ 'zero'
+ ^ 'zero'
].
^ 'not zero'
"
- JITTest cond1:0
+ JITTest cond1:0
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -42,12 +42,12 @@
cond2:arg
self size.
arg == 0 ifTrue:[
- ^ 'zero'
+ ^ 'zero'
].
^ 'not zero'
"
- JITTest cond2:0
+ JITTest cond2:0
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -57,7 +57,7 @@
^ self send1:arg with:(Association new) with:thisContext sender
"
- JITTest send1:1
+ JITTest send1:1
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -67,7 +67,7 @@
self halt
"
- JITTest send1:1
+ JITTest send1:1
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -77,7 +77,7 @@
^ 5
"
- JITTest test1
+ JITTest test1
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -127,7 +127,7 @@
^ 16rFFFF
"
- JITTest test5
+ JITTest test5
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -137,7 +137,7 @@
^ -16rFFFF
"
- JITTest test5b
+ JITTest test5b
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -147,7 +147,7 @@
^ -1
"
- JITTest test5c
+ JITTest test5c
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -157,7 +157,7 @@
^ #hello
"
- JITTest test6
+ JITTest test6
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -217,7 +217,7 @@
^ arg2
"
- JITTest test8b:1 a:2 a:3 a:4
+ JITTest test8b:1 a:2 a:3 a:4
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -227,7 +227,7 @@
^ arg3
"
- JITTest test8c:1 a:2 a:3 a:4
+ JITTest test8c:1 a:2 a:3 a:4
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -474,7 +474,7 @@
needUpdate := mTime notNil and:[mTime > i2].
"
- self new testAndGreater1
+ self new testAndGreater1
"
"Created: / 16.11.2001 / 00:07:52 / cg"
@@ -488,15 +488,15 @@
i3 := '.' asFilename.
self withWaitCursorDo:[
- i2 := i3 modificationTime.
- mTime := i3 modificationTime.
- "/ here, i2 refers to thisContext if the JITTER bug is in ...
- "/ at least on win32
- needUpdate := mTime notNil and:[mTime > i2].
+ i2 := i3 modificationTime.
+ mTime := i3 modificationTime.
+ "/ here, i2 refers to thisContext if the JITTER bug is in ...
+ "/ at least on win32
+ needUpdate := mTime notNil and:[mTime > i2].
]
"
- self new testAndGreater2
+ self new testAndGreater2
"
"Created: / 16.11.2001 / 00:08:49 / cg"
@@ -539,16 +539,16 @@
^ 1 + arg
"
- JITTest new add1:-1000
- JITTest new add1:-1
- JITTest new add1:0
- JITTest new add1:1
- JITTest new add1:1000
- JITTest new add1:SmallInteger maxVal
-
- JITTest new add1:-1.0
- JITTest new add1:0.0
- JITTest new add1:1.0
+ JITTest new add1:-1000
+ JITTest new add1:-1
+ JITTest new add1:0
+ JITTest new add1:1
+ JITTest new add1:1000
+ JITTest new add1:SmallInteger maxVal
+
+ JITTest new add1:-1.0
+ JITTest new add1:0.0
+ JITTest new add1:1.0
"
"Modified: / 3.6.1998 / 16:15:36 / cg"
@@ -558,15 +558,15 @@
^ 1.0 + arg
"
- JITTest new add2:-1000
- JITTest new add2:-1
- JITTest new add2:0
- JITTest new add2:1
- JITTest new add2:1000
-
- JITTest new add2:-1.0
- JITTest new add2:0.0
- JITTest new add2:1.0
+ JITTest new add2:-1000
+ JITTest new add2:-1
+ JITTest new add2:0
+ JITTest new add2:1
+ JITTest new add2:1000
+
+ JITTest new add2:-1.0
+ JITTest new add2:0.0
+ JITTest new add2:1.0
"
!
@@ -574,15 +574,15 @@
^ arg + 1
"
- JITTest new add3:-1000
- JITTest new add3:-1
- JITTest new add3:0
- JITTest new add3:1
- JITTest new add3:1000
-
- JITTest new add3:-1.0
- JITTest new add3:0.0
- JITTest new add3:1.0
+ JITTest new add3:-1000
+ JITTest new add3:-1
+ JITTest new add3:0
+ JITTest new add3:1
+ JITTest new add3:1000
+
+ JITTest new add3:-1.0
+ JITTest new add3:0.0
+ JITTest new add3:1.0
"
!
@@ -590,15 +590,15 @@
^ arg + 1.0
"
- JITTest new add4:-1000
- JITTest new add4:-1
- JITTest new add4:0
- JITTest new add4:1
- JITTest new add4:1000
-
- JITTest new add4:-1.0
- JITTest new add4:0.0
- JITTest new add4:1.0
+ JITTest new add4:-1000
+ JITTest new add4:-1
+ JITTest new add4:0
+ JITTest new add4:1
+ JITTest new add4:1000
+
+ JITTest new add4:-1.0
+ JITTest new add4:0.0
+ JITTest new add4:1.0
"
!
@@ -606,18 +606,18 @@
^ arg + arg
"
- JITTest new add5:-1000
- JITTest new add5:-1
- JITTest new add5:0
- JITTest new add5:1
- JITTest new add5:1000
-
- JITTest new add5:-1.0
- JITTest new add5:0.0
- JITTest new add5:1.0
- JITTest new add5:SmallInteger maxVal
- JITTest new add5:SmallInteger minVal
- JITTest new add5:nil
+ JITTest new add5:-1000
+ JITTest new add5:-1
+ JITTest new add5:0
+ JITTest new add5:1
+ JITTest new add5:1000
+
+ JITTest new add5:-1.0
+ JITTest new add5:0.0
+ JITTest new add5:1.0
+ JITTest new add5:SmallInteger maxVal
+ JITTest new add5:SmallInteger minVal
+ JITTest new add5:nil
"
!
@@ -625,27 +625,27 @@
^ arg * 2
"
- JITTest new mul1:0
- JITTest new mul1:-1
- JITTest new mul1:1
- JITTest new mul1:1000
- JITTest new mul1:-1000
- JITTest new mul1:(SmallInteger maxVal // 2 - 1)
- JITTest new mul1:(SmallInteger maxVal // 2)
- JITTest new mul1:(SmallInteger maxVal // 2 + 1)
+ JITTest new mul1:0
+ JITTest new mul1:-1
+ JITTest new mul1:1
+ JITTest new mul1:1000
+ JITTest new mul1:-1000
+ JITTest new mul1:(SmallInteger maxVal // 2 - 1)
+ JITTest new mul1:(SmallInteger maxVal // 2)
+ JITTest new mul1:(SmallInteger maxVal // 2 + 1)
JITTest new mul1:(SmallInteger maxVal // 2 + 2)
- JITTest new mul1:(SmallInteger maxVal + 1)
- JITTest new mul1:(SmallInteger maxVal)
- JITTest new mul1:(SmallInteger minVal // 2 - 1)
+ JITTest new mul1:(SmallInteger maxVal + 1)
+ JITTest new mul1:(SmallInteger maxVal)
+ JITTest new mul1:(SmallInteger minVal // 2 - 1)
JITTest new mul1:(SmallInteger minVal // 2)
JITTest new mul1:(SmallInteger minVal // 2 + 1)
JITTest new mul1:(SmallInteger minVal // 2 + 2)
JITTest new mul1:(SmallInteger minVal - 1)
JITTest new mul1:(SmallInteger minVal)
- JITTest new mul1:-1.0
- JITTest new mul1:0.0
- JITTest new mul1:1.0
+ JITTest new mul1:-1.0
+ JITTest new mul1:0.0
+ JITTest new mul1:1.0
"
"Modified: / 3.6.1998 / 16:15:36 / cg"
@@ -655,27 +655,27 @@
^ arg * 4
"
- JITTest new mul2:0
- JITTest new mul2:-1
- JITTest new mul2:1
- JITTest new mul2:1000
- JITTest new mul2:-1000
- JITTest new mul2:(SmallInteger maxVal // 2 - 1)
- JITTest new mul2:(SmallInteger maxVal // 2)
- JITTest new mul2:(SmallInteger maxVal // 2 + 1)
+ JITTest new mul2:0
+ JITTest new mul2:-1
+ JITTest new mul2:1
+ JITTest new mul2:1000
+ JITTest new mul2:-1000
+ JITTest new mul2:(SmallInteger maxVal // 2 - 1)
+ JITTest new mul2:(SmallInteger maxVal // 2)
+ JITTest new mul2:(SmallInteger maxVal // 2 + 1)
JITTest new mul2:(SmallInteger maxVal // 2 + 2)
- JITTest new mul2:(SmallInteger maxVal + 1)
- JITTest new mul2:(SmallInteger maxVal)
- JITTest new mul2:(SmallInteger minVal // 2 - 1)
+ JITTest new mul2:(SmallInteger maxVal + 1)
+ JITTest new mul2:(SmallInteger maxVal)
+ JITTest new mul2:(SmallInteger minVal // 2 - 1)
JITTest new mul2:(SmallInteger minVal // 2)
JITTest new mul2:(SmallInteger minVal // 2 + 1)
JITTest new mul2:(SmallInteger minVal // 2 + 2)
JITTest new mul2:(SmallInteger minVal - 1)
JITTest new mul2:(SmallInteger minVal)
- JITTest new mul2:-1.0
- JITTest new mul2:0.0
- JITTest new mul2:1.0
+ JITTest new mul2:-1.0
+ JITTest new mul2:0.0
+ JITTest new mul2:1.0
"
"Modified: / 3.6.1998 / 16:15:36 / cg"
@@ -685,17 +685,17 @@
^ 1 - arg
"
- JITTest new subtract1:-1000
- JITTest new subtract1:-1
- JITTest new subtract1:0
- JITTest new subtract1:1
- JITTest new subtract1:1000
-
- JITTest new subtract1:-1.0
- JITTest new subtract1:0.0
- JITTest new subtract1:1.0
- JITTest new subtract1:SmallInteger maxVal negated
- JITTest new subtract1:nil
+ JITTest new subtract1:-1000
+ JITTest new subtract1:-1
+ JITTest new subtract1:0
+ JITTest new subtract1:1
+ JITTest new subtract1:1000
+
+ JITTest new subtract1:-1.0
+ JITTest new subtract1:0.0
+ JITTest new subtract1:1.0
+ JITTest new subtract1:SmallInteger maxVal negated
+ JITTest new subtract1:nil
"
!
@@ -703,15 +703,15 @@
^ 1.0 - arg
"
- JITTest new subtract2:-1000
- JITTest new subtract2:-1
- JITTest new subtract2:0
- JITTest new subtract2:1
- JITTest new subtract2:1000
-
- JITTest new subtract2:-1.0
- JITTest new subtract2:0.0
- JITTest new subtract2:1.0
+ JITTest new subtract2:-1000
+ JITTest new subtract2:-1
+ JITTest new subtract2:0
+ JITTest new subtract2:1
+ JITTest new subtract2:1000
+
+ JITTest new subtract2:-1.0
+ JITTest new subtract2:0.0
+ JITTest new subtract2:1.0
"
! !
@@ -721,8 +721,8 @@
^ arg bitAnd:1
"
- JITTest new and1:1
- JITTest new and1:0
+ JITTest new and1:1
+ JITTest new and1:0
"
"Modified: / 3.6.1998 / 16:15:36 / cg"
@@ -732,8 +732,8 @@
^ arg bitOr:1
"
- JITTest new or1:1
- JITTest new or1:2
+ JITTest new or1:1
+ JITTest new or1:2
"
"Modified: / 3.6.1998 / 16:15:36 / cg"
@@ -743,8 +743,8 @@
^ arg bitXor:1
"
- JITTest new xor1:1
- JITTest new xor1:2
+ JITTest new xor1:1
+ JITTest new xor1:2
"
"Modified: / 3.6.1998 / 16:15:36 / cg"
@@ -950,52 +950,52 @@
"
!
-findFirst1:arg
+findFirst1:arg
|idx|
i1 := #(1 2 3 4) asOrderedCollection.
^ i1 findFirst:[:el | el == arg]
"
- self new findFirst1:1
- self new findFirst1:2
- self new findFirst1:3
- self new findFirst1:4
- self new findFirst1:0
- self new findFirst1:10
- self new findFirst1:4.0
+ self new findFirst1:1
+ self new findFirst1:2
+ self new findFirst1:3
+ self new findFirst1:4
+ self new findFirst1:0
+ self new findFirst1:10
+ self new findFirst1:4.0
"
!
-findFirst2:arg
+findFirst2:arg
|idx|
i1 := #(1 2 3 4) asOrderedCollection.
^ i1 findFirst:[:el | el = arg]
"
- self new findFirst2:1
- self new findFirst2:2
- self new findFirst2:3
- self new findFirst2:4
- self new findFirst2:0
- self new findFirst2:10
- self new findFirst2:4.0
+ self new findFirst2:1
+ self new findFirst2:2
+ self new findFirst2:3
+ self new findFirst2:4
+ self new findFirst2:0
+ self new findFirst2:10
+ self new findFirst2:4.0
"
!
-findFirst3:arg
+findFirst3:arg
i1 := #(1 2 3 4) asOrderedCollection.
^ self findFirst3b:arg
"
- self new findFirst3:1
- self new findFirst3:2
- self new findFirst3:3
- self new findFirst3:4
- self new findFirst3:0
- self new findFirst3:10
- self new findFirst3:4.0
+ self new findFirst3:1
+ self new findFirst3:2
+ self new findFirst3:3
+ self new findFirst3:4
+ self new findFirst3:0
+ self new findFirst3:10
+ self new findFirst3:4.0
"
!
@@ -1003,13 +1003,13 @@
^ i1 findFirst:[:el | el == arg]
"
- self new findFirst3:1
- self new findFirst3:2
- self new findFirst3:3
- self new findFirst3:4
- self new findFirst3:0
- self new findFirst3:10
- self new findFirst3:4.0
+ self new findFirst3:1
+ self new findFirst3:2
+ self new findFirst3:3
+ self new findFirst3:4
+ self new findFirst3:0
+ self new findFirst3:10
+ self new findFirst3:4.0
"
!
@@ -1026,9 +1026,9 @@
"
- JITTest new nilBlock2:#(1 2 3)
- JITTest new nilBlock2:#(1 2 3 4)
- JITTest new nilBlock2:#(1 2 3 4 5)
+ JITTest new nilBlock2:#(1 2 3)
+ JITTest new nilBlock2:#(1 2 3 4)
+ JITTest new nilBlock2:#(1 2 3 4 5)
"
!
@@ -1053,9 +1053,9 @@
"
- JITTest new zeroBlock2:#(1 2 3)
- JITTest new zeroBlock2:#(1 2 3 4)
- JITTest new zeroBlock2:#(1 2 3 4 5)
+ JITTest new zeroBlock2:#(1 2 3)
+ JITTest new zeroBlock2:#(1 2 3 4)
+ JITTest new zeroBlock2:#(1 2 3 4 5)
"
! !
@@ -1063,19 +1063,19 @@
compare10:arg
arg = 10 ifTrue:[
- ^ 11
+ ^ 11
].
^ nil
"
- JITTest new compare10:nil
- JITTest new compare10:9
- JITTest new compare10:10
- JITTest new compare10:11
- JITTest new compare10:9.0
- JITTest new compare10:10.0
- JITTest new compare10:11.0
- JITTest new compare10:false
+ JITTest new compare10:nil
+ JITTest new compare10:9
+ JITTest new compare10:10
+ JITTest new compare10:11
+ JITTest new compare10:9.0
+ JITTest new compare10:10.0
+ JITTest new compare10:11.0
+ JITTest new compare10:false
"
!
@@ -1083,18 +1083,18 @@
^ arg = 1
"
- JITTest new compare11:-1000
- JITTest new compare11:-1
- JITTest new compare11:0
- JITTest new compare11:1
- JITTest new compare11:2
- JITTest new compare11:1000
-
- JITTest new compare11:-1.0
- JITTest new compare11:0.0
- JITTest new compare11:1.0
- JITTest new compare11:2.0
- JITTest new compare11:3.0
+ JITTest new compare11:-1000
+ JITTest new compare11:-1
+ JITTest new compare11:0
+ JITTest new compare11:1
+ JITTest new compare11:2
+ JITTest new compare11:1000
+
+ JITTest new compare11:-1.0
+ JITTest new compare11:0.0
+ JITTest new compare11:1.0
+ JITTest new compare11:2.0
+ JITTest new compare11:3.0
"
!
@@ -1102,18 +1102,18 @@
^ arg == 1
"
- JITTest new compare12:-1000
- JITTest new compare12:-1
- JITTest new compare12:0
- JITTest new compare12:1
- JITTest new compare12:2
- JITTest new compare12:1000
-
- JITTest new compare12:-1.0
- JITTest new compare12:0.0
- JITTest new compare12:1.0
- JITTest new compare12:2.0
- JITTest new compare12:3.0
+ JITTest new compare12:-1000
+ JITTest new compare12:-1
+ JITTest new compare12:0
+ JITTest new compare12:1
+ JITTest new compare12:2
+ JITTest new compare12:1000
+
+ JITTest new compare12:-1.0
+ JITTest new compare12:0.0
+ JITTest new compare12:1.0
+ JITTest new compare12:2.0
+ JITTest new compare12:3.0
"
!
@@ -1121,15 +1121,15 @@
^ arg > 0
"
- JITTest new compare1:-1000
- JITTest new compare1:-1
- JITTest new compare1:0
- JITTest new compare1:1
- JITTest new compare1:1000
-
- JITTest new compare1:-1.0
- JITTest new compare1:0.0
- JITTest new compare1:1.0
+ JITTest new compare1:-1000
+ JITTest new compare1:-1
+ JITTest new compare1:0
+ JITTest new compare1:1
+ JITTest new compare1:1000
+
+ JITTest new compare1:-1.0
+ JITTest new compare1:0.0
+ JITTest new compare1:1.0
"
!
@@ -1137,15 +1137,15 @@
^ arg < 0
"
- JITTest new compare2:-1000
- JITTest new compare2:-1
- JITTest new compare2:0
- JITTest new compare2:1
- JITTest new compare2:1000
-
- JITTest new compare2:-1.0
- JITTest new compare2:0.0
- JITTest new compare2:1.0
+ JITTest new compare2:-1000
+ JITTest new compare2:-1
+ JITTest new compare2:0
+ JITTest new compare2:1
+ JITTest new compare2:1000
+
+ JITTest new compare2:-1.0
+ JITTest new compare2:0.0
+ JITTest new compare2:1.0
"
!
@@ -1153,15 +1153,15 @@
^ arg <= 0
"
- JITTest new compare3:-1000
- JITTest new compare3:-1
- JITTest new compare3:0
- JITTest new compare3:1
- JITTest new compare3:1000
-
- JITTest new compare3:-1.0
- JITTest new compare3:0.0
- JITTest new compare3:1.0
+ JITTest new compare3:-1000
+ JITTest new compare3:-1
+ JITTest new compare3:0
+ JITTest new compare3:1
+ JITTest new compare3:1000
+
+ JITTest new compare3:-1.0
+ JITTest new compare3:0.0
+ JITTest new compare3:1.0
"
!
@@ -1169,15 +1169,15 @@
^ arg >= 0
"
- JITTest new compare4:-1000
- JITTest new compare4:-1
- JITTest new compare4:0
- JITTest new compare4:1
- JITTest new compare4:1000
-
- JITTest new compare4:-1.0
- JITTest new compare4:0.0
- JITTest new compare4:1.0
+ JITTest new compare4:-1000
+ JITTest new compare4:-1
+ JITTest new compare4:0
+ JITTest new compare4:1
+ JITTest new compare4:1000
+
+ JITTest new compare4:-1.0
+ JITTest new compare4:0.0
+ JITTest new compare4:1.0
"
!
@@ -1185,18 +1185,18 @@
^ arg > 1
"
- JITTest new compare5:-1000
- JITTest new compare5:-1
- JITTest new compare5:0
- JITTest new compare5:1
- JITTest new compare5:2
- JITTest new compare5:1000
-
- JITTest new compare5:-1.0
- JITTest new compare5:0.0
- JITTest new compare5:1.0
- JITTest new compare5:2.0
- JITTest new compare5:3.0
+ JITTest new compare5:-1000
+ JITTest new compare5:-1
+ JITTest new compare5:0
+ JITTest new compare5:1
+ JITTest new compare5:2
+ JITTest new compare5:1000
+
+ JITTest new compare5:-1.0
+ JITTest new compare5:0.0
+ JITTest new compare5:1.0
+ JITTest new compare5:2.0
+ JITTest new compare5:3.0
"
!
@@ -1204,18 +1204,18 @@
^ arg <= 1
"
- JITTest new compare6:-1000
- JITTest new compare6:-1
- JITTest new compare6:0
- JITTest new compare6:1
- JITTest new compare6:2
- JITTest new compare6:1000
-
- JITTest new compare6:-1.0
- JITTest new compare6:0.0
- JITTest new compare6:1.0
- JITTest new compare6:2.0
- JITTest new compare6:3.0
+ JITTest new compare6:-1000
+ JITTest new compare6:-1
+ JITTest new compare6:0
+ JITTest new compare6:1
+ JITTest new compare6:2
+ JITTest new compare6:1000
+
+ JITTest new compare6:-1.0
+ JITTest new compare6:0.0
+ JITTest new compare6:1.0
+ JITTest new compare6:2.0
+ JITTest new compare6:3.0
"
!
@@ -1223,18 +1223,18 @@
^ arg < 1
"
- JITTest new compare7:-1000
- JITTest new compare7:-1
- JITTest new compare7:0
- JITTest new compare7:1
- JITTest new compare7:2
- JITTest new compare7:1000
-
- JITTest new compare7:-1.0
- JITTest new compare7:0.0
- JITTest new compare7:1.0
- JITTest new compare7:2.0
- JITTest new compare7:3.0
+ JITTest new compare7:-1000
+ JITTest new compare7:-1
+ JITTest new compare7:0
+ JITTest new compare7:1
+ JITTest new compare7:2
+ JITTest new compare7:1000
+
+ JITTest new compare7:-1.0
+ JITTest new compare7:0.0
+ JITTest new compare7:1.0
+ JITTest new compare7:2.0
+ JITTest new compare7:3.0
"
!
@@ -1242,33 +1242,33 @@
^ arg >= 1
"
- JITTest new compare8:-1000
- JITTest new compare8:-1
- JITTest new compare8:0
- JITTest new compare8:1
- JITTest new compare8:2
- JITTest new compare8:1000
-
- JITTest new compare8:-1.0
- JITTest new compare8:0.0
- JITTest new compare8:1.0
- JITTest new compare8:2.0
- JITTest new compare8:3.0
+ JITTest new compare8:-1000
+ JITTest new compare8:-1
+ JITTest new compare8:0
+ JITTest new compare8:1
+ JITTest new compare8:2
+ JITTest new compare8:1000
+
+ JITTest new compare8:-1.0
+ JITTest new compare8:0.0
+ JITTest new compare8:1.0
+ JITTest new compare8:2.0
+ JITTest new compare8:3.0
"
!
compare9:arg
arg == 10 ifTrue:[
- ^ 11
+ ^ 11
].
^ nil
"
- JITTest new compare9:nil
- JITTest new compare9:9
- JITTest new compare9:10
- JITTest new compare9:11
- JITTest new compare9:false
+ JITTest new compare9:nil
+ JITTest new compare9:9
+ JITTest new compare9:10
+ JITTest new compare9:11
+ JITTest new compare9:false
"
! !
@@ -1402,14 +1402,14 @@
tstEQ3
i1 == 0 ifTrue:[^ 0] ifFalse:[
- ^ 1
-
- "
- JITTest new testEQ3
- (JITTest new) instVarAt:1 put:0; testEQ3
- "
-
- "Created: 16.8.1996 / 17:39:44 / cg"
+ ^ 1
+
+ "
+ JITTest new testEQ3
+ (JITTest new) instVarAt:1 put:0; testEQ3
+ "
+
+ "Created: 16.8.1996 / 17:39:44 / cg"
]
!
@@ -1419,7 +1419,7 @@
"
JITTest new testEQ4
- (JITTest new) instVarAt:1 put:0; testEQ4
+ (JITTest new) instVarAt:1 put:0; testEQ4
"
!
@@ -1436,24 +1436,24 @@
tstNilAndNil
(i1 isNil and:[i2 isNil]) ifTrue:[
- Transcript showCR:'both nil'.
- ^ self
+ Transcript showCR:'both nil'.
+ ^ self
].
Transcript showCR:'any nonNil'
"
JITTest new tstNilAndNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j tstNilAndNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j tstNilAndNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
@@ -1466,25 +1466,25 @@
tstNilAndNil2
(i1 isNil and:[i2 isNil]) ifTrue:[
- "/ Transcript showCR:'both nil'.
- ^ 1
+ "/ Transcript showCR:'both nil'.
+ ^ 1
].
"/ Transcript showCR:'any nonNil'
^ 0
"
JITTest new tstNilAndNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j tstNilAndNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j tstNilAndNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
@@ -1497,26 +1497,26 @@
tstNilAndNil3
(i1 isNil and:[i2 isNil]) ifTrue:[
- "/ Transcript showCR:'both nil'.
- ^ 1
+ "/ Transcript showCR:'both nil'.
+ ^ 1
] ifFalse:[
- "/ Transcript showCR:'any nonNil'
- ^ 0
+ "/ Transcript showCR:'any nonNil'
+ ^ 0
].
"
JITTest new tstNilAndNil3
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j tstNilAndNil3
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j tstNilAndNil3
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
@@ -1529,30 +1529,30 @@
tstNilOrNil
(i1 isNil or:[i2 isNil]) ifTrue:[
- Transcript showCR:'any nil'.
- ^ self
+ Transcript showCR:'any nil'.
+ ^ self
].
Transcript showCR:'both nonNil'
"
JITTest new testNilOrNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j testNilOrNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j testNilOrNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j instVarNamed:'i2' put:1.
j testNilOrNil
-
+
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1560,29 +1560,29 @@
tstNilOrNil2
(i1 isNil or:[i2 isNil]) ifTrue:[
- ^ 1
+ ^ 1
].
^ 0
"
JITTest new testNilOrNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j testNilOrNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j testNilOrNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j instVarNamed:'i2' put:1.
j testNilOrNil
-
+
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1590,30 +1590,30 @@
tstNilOrNil3
(i1 isNil or:[i2 isNil]) ifTrue:[
- ^ 1
+ ^ 1
] ifFalse:[
- ^ 0
+ ^ 0
].
"
JITTest new testNilOrNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j testNilOrNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j testNilOrNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j instVarNamed:'i2' put:1.
j testNilOrNil
-
+
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1621,19 +1621,19 @@
tstNotNilAndNotNil
(i1 notNil and:[i2 notNil]) ifTrue:[
- Transcript showCR:'both notNil'.
- ^ self
+ Transcript showCR:'both notNil'.
+ ^ self
].
Transcript showCR:'any isNil'
"
JITTest new tstNotNilAndNotNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j tstNotNilAndNotNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
@@ -1646,25 +1646,25 @@
tstNotNilAndNotNil2
(i1 notNil and:[i2 notNil]) ifTrue:[
- "/ Transcript showCR:'both nil'.
- ^ 1
+ "/ Transcript showCR:'both nil'.
+ ^ 1
].
"/ Transcript showCR:'any nonNil'
^ 0
"
JITTest new tstNotNilAndNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j tstNotNilAndNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j tstNotNilAndNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
@@ -1677,26 +1677,26 @@
tstNotNilAndNotNil3
(i1 notNil and:[i2 notNil]) ifTrue:[
- "/ Transcript showCR:'both nil'.
- ^ 1
+ "/ Transcript showCR:'both nil'.
+ ^ 1
] ifFalse:[
- "/ Transcript showCR:'any nonNil'
- ^ 0
+ "/ Transcript showCR:'any nonNil'
+ ^ 0
].
"
JITTest new tstNotNilAndNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j tstNotNilAndNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j tstNotNilAndNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
@@ -1709,20 +1709,20 @@
tstNotNilOrNotNil
(i1 notNil or:[i2 notNil]) ifTrue:[
- Transcript showCR:'any notNil'.
- ^ self
+ Transcript showCR:'any notNil'.
+ ^ self
].
Transcript showCR:'both nil'.
^ 0
"
JITTest new tstNotNilOrNotNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j tstNotNilOrNotNil
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
@@ -1735,29 +1735,29 @@
tstNotNilOrNotNil2
(i1 notNil or:[i2 notNil]) ifTrue:[
- ^ 1
+ ^ 1
].
^ 0
"
JITTest new tstNotNilOrNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j tstNotNilOrNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j tstNotNilOrNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j instVarNamed:'i2' put:1.
j tstNotNilOrNotNil2
-
+
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1765,44 +1765,44 @@
tstNotNilOrNotNil3
(i1 notNil or:[i2 notNil]) ifTrue:[
- ^ 1
+ ^ 1
] ifFalse:[
- ^ 0
+ ^ 0
].
"
JITTest new tstNotNilOrNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j tstNotNilOrNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i2' put:1.
j tstNotNilOrNotNil2
-
+
|j|
j := JITTest new.
j instVarNamed:'i1' put:1.
j instVarNamed:'i2' put:1.
j tstNotNilOrNotNil2
-
+
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstOr1:arg
+tstOr1:arg
^ arg == #Foo or:[arg == #Bar]
!
-tstOr2:arg
+tstOr2:arg
^ arg == #Foo or:[arg == #Bar or:[arg == #Baz]]
!
-tstOr3
+tstOr3
(i1 isNil or:[i2 isNil]) ifTrue:[^ true].
^ (i4 isNil or:[i5 isNil]).
@@ -1811,7 +1811,7 @@
"
!
-tstOr4
+tstOr4
(i1 isNil or:[i2 isNil or:[i3 isNil]]) ifTrue:[^ true].
^ (i4 isNil or:[i5 isNil or:[i6 isNil]]).
@@ -1849,7 +1849,7 @@
]
"
- JITTest new loop1
+ JITTest new loop1
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1862,7 +1862,7 @@
]
"
- JITTest new loop1b
+ JITTest new loop1b
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1875,7 +1875,7 @@
]
"
- JITTest new loop1c
+ JITTest new loop1c
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1888,7 +1888,7 @@
]
"
- JITTest new loop1d
+ JITTest new loop1d
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1949,12 +1949,12 @@
i := 5.
[i > 0] whileTrue:[
- i printCR.
- i := i - 1.
+ i printCR.
+ i := i - 1.
]
"
- JITTest new loop2
+ JITTest new loop2
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1967,11 +1967,11 @@
i := 5.
[i > 0] whileTrue:[
- i := i - 1.
+ i := i - 1.
]
"
- JITTest new loop2a
+ JITTest new loop2a
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -1984,8 +1984,8 @@
i := 5.
[i >= 0] whileTrue:[
- i printCR.
- i := i - 1.
+ i printCR.
+ i := i - 1.
]
"
@@ -2003,8 +2003,8 @@
i := 5.
[i >= 1] whileTrue:[
- i printCR.
- i := i - 1.
+ i printCR.
+ i := i - 1.
]
"
@@ -2018,7 +2018,7 @@
loop5
5 timesRepeat:[
- 'loop' printCR.
+ 'loop' printCR.
]
"
@@ -2035,8 +2035,8 @@
i := 5.
5 timesRepeat:[
- i := i - 1.
- 'loop' print. i printCR.
+ i := i - 1.
+ 'loop' print. i printCR.
]
"
@@ -2053,7 +2053,7 @@
j := 0.
1 to:10000 do:[:i |
- j := j + 1.
+ j := j + 1.
].
^ j.
@@ -2071,7 +2071,7 @@
j := 0.
1 to:10000 do:[:i |
- j := j + i.
+ j := j + i.
].
^ j.
@@ -2087,10 +2087,10 @@
i := -7.
[i <= 16] whileTrue: [
- (i >= 1 and: [i <= 8]) ifTrue:[ 'a' printCR.].
- i >= 2 ifTrue: ['b' printCR.].
- i <= 7 ifTrue: ['c' printCR.].
- i := i + 1
+ (i >= 1 and: [i <= 8]) ifTrue:[ 'a' printCR.].
+ i >= 2 ifTrue: ['b' printCR.].
+ i <= 7 ifTrue: ['c' printCR.].
+ i := i + 1
].
"
@@ -2100,23 +2100,23 @@
!JITTest methodsFor:'test - misc'!
-tstAsFloat:arg
+tstAsFloat:arg
|foo|
foo := arg asFloat.
^ foo
"
- self new testAsFloat:1
- self new testAsFloat:1.0
- self new testAsFloat:(1.0 asShortFloat)
+ self new testAsFloat:1
+ self new testAsFloat:1.0
+ self new testAsFloat:(1.0 asShortFloat)
"
"Created: / 9.6.1998 / 20:21:51 / cg"
"Modified: / 9.6.1998 / 20:22:40 / cg"
!
-tstAsInteger:arg
+tstAsInteger:arg
|foo|
foo := arg asInteger.
@@ -2131,60 +2131,60 @@
"Created: / 9.6.1998 / 20:21:51 / cg"
!
-tstEven:arg
+tstEven:arg
^ arg even
"
- self new testEven:1
- self new testEven:2
- self new testEven:1.0
- self new testEven:2.0
- self new testEven:(SmallInteger maxVal + 1)
- self new testEven:(SmallInteger maxVal + 2)
- self new testEven:(1.0 asShortFloat)
- self new testEven:(2.0 asShortFloat)
+ self new testEven:1
+ self new testEven:2
+ self new testEven:1.0
+ self new testEven:2.0
+ self new testEven:(SmallInteger maxVal + 1)
+ self new testEven:(SmallInteger maxVal + 2)
+ self new testEven:(1.0 asShortFloat)
+ self new testEven:(2.0 asShortFloat)
self new testEven:(Object new)
"
!
-tstIsInteger:arg
+tstIsInteger:arg
^ arg isInteger
"
- self new testIsInteger:1
- self new testIsInteger:1.0
- self new testIsInteger:(1.0 asShortFloat)
+ self new testIsInteger:1
+ self new testIsInteger:1.0
+ self new testIsInteger:(1.0 asShortFloat)
"
"Modified: / 9.6.1998 / 20:22:24 / cg"
!
-tstIsReal:arg
+tstIsReal:arg
^ arg isReal
"
- self new testIsReal:1
- self new testIsReal:1.0
- self new testIsReal:(1.0 asShortFloat)
+ self new testIsReal:1
+ self new testIsReal:1.0
+ self new testIsReal:(1.0 asShortFloat)
"
"Modified: / 9.6.1998 / 20:22:24 / cg"
"Created: / 9.6.1998 / 20:23:16 / cg"
!
-tstOdd:arg
+tstOdd:arg
^ arg odd
"
- self new testOdd:1
- self new testOdd:2
- self new testOdd:1.0
- self new testOdd:2.0
- self new testOdd:(SmallInteger maxVal + 1)
- self new testOdd:(SmallInteger maxVal + 2)
- self new testOdd:(1.0 asShortFloat)
- self new testOdd:(2.0 asShortFloat)
- self new testOdd:(Object new)
+ self new testOdd:1
+ self new testOdd:2
+ self new testOdd:1.0
+ self new testOdd:2.0
+ self new testOdd:(SmallInteger maxVal + 1)
+ self new testOdd:(SmallInteger maxVal + 2)
+ self new testOdd:(1.0 asShortFloat)
+ self new testOdd:(2.0 asShortFloat)
+ self new testOdd:(Object new)
"
!
@@ -2192,15 +2192,15 @@
|x|
x := 0.
- 1 to:100 do:[:i |
- i odd ifTrue:[
- x := x + 1
- ] ifFalse:[x := x - 1]
+ 1 to:100 do:[:i |
+ i odd ifTrue:[
+ x := x + 1
+ ] ifFalse:[x := x - 1]
].
^ x
"
- self new testOddEven1
+ self new testOddEven1
"
!
@@ -2213,7 +2213,7 @@
v value:(Date today + 1).
"
- self new tstValueHolderCode1
+ self new tstValueHolderCode1
"
!
@@ -2227,7 +2227,7 @@
^ v.
"
- self new tstValueHolderCode2
+ self new tstValueHolderCode2
"
! !
@@ -2235,429 +2235,429 @@
runPerformTestArg
(self perform:#'tstargs9:_:_:_:_:_:_:_:_:'
- withArguments:#(1 2 3 4 5 6 7 8 9)) ~~ 9 ifTrue:[
- self halt
+ withArguments:#(1 2 3 4 5 6 7 8 9)) ~~ 9 ifTrue:[
+ self halt
].
(self perform:#'tstargs9_l:_:_:_:_:_:_:_:_:'
- withArguments:#(1 2 3 4 5 6 7 8 9)) ~~ 9 ifTrue:[
- self halt
-
- "
- JITTest new runPerformTestArg
- "
-
- "Modified: / 19.4.1999 / 22:05:29 / cg"
+ withArguments:#(1 2 3 4 5 6 7 8 9)) ~~ 9 ifTrue:[
+ self halt
+
+ "
+ JITTest new runPerformTestArg
+ "
+
+ "Modified: / 19.4.1999 / 22:05:29 / cg"
]
!
runTestArg
(self tstargs1:1) ~~ 1 ifTrue:[
- self halt
+ self halt
].
(self tstargs1:nil) ~~ nil ifTrue:[
- self halt
+ self halt
].
(self tstargs2:1 _:2) ~~ 2 ifTrue:[
- self halt
+ self halt
].
(self tstargs2:2 _:1) ~~ 1 ifTrue:[
- self halt
+ self halt
].
- (self
- tstargs3:1
- _:2
- _:3) ~~ 3 ifTrue:[
- self halt
+ (self
+ tstargs3:1
+ _:2
+ _:3) ~~ 3 ifTrue:[
+ self halt
].
- (self
- tstargs3:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs3:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs4:1
- _:2
- _:3
- _:4) ~~ 4 ifTrue:[
- self halt
+ (self
+ tstargs4:1
+ _:2
+ _:3
+ _:4) ~~ 4 ifTrue:[
+ self halt
].
- (self
- tstargs4:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs4:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs5:1
- _:2
- _:3
- _:4
- _:5) ~~ 5 ifTrue:[
- self halt
+ (self
+ tstargs5:1
+ _:2
+ _:3
+ _:4
+ _:5) ~~ 5 ifTrue:[
+ self halt
].
- (self
- tstargs5:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs5:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs6:1
- _:2
- _:3
- _:4
- _:5
- _:6) ~~ 6 ifTrue:[
- self halt
+ (self
+ tstargs6:1
+ _:2
+ _:3
+ _:4
+ _:5
+ _:6) ~~ 6 ifTrue:[
+ self halt
].
- (self
- tstargs6:6
- _:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs6:6
+ _:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs7:1
- _:2
- _:3
- _:4
- _:5
- _:6
- _:7) ~~ 7 ifTrue:[
- self halt
+ (self
+ tstargs7:1
+ _:2
+ _:3
+ _:4
+ _:5
+ _:6
+ _:7) ~~ 7 ifTrue:[
+ self halt
].
- (self
- tstargs7:7
- _:6
- _:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs7:7
+ _:6
+ _:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs8:1
- _:2
- _:3
- _:4
- _:5
- _:6
- _:7
- _:8) ~~ 8 ifTrue:[
- self halt
+ (self
+ tstargs8:1
+ _:2
+ _:3
+ _:4
+ _:5
+ _:6
+ _:7
+ _:8) ~~ 8 ifTrue:[
+ self halt
].
- (self
- tstargs8:8
- _:7
- _:6
- _:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs8:8
+ _:7
+ _:6
+ _:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs9:1
- _:2
- _:3
- _:4
- _:5
- _:6
- _:7
- _:8
- _:9) ~~ 9 ifTrue:[
- self halt
+ (self
+ tstargs9:1
+ _:2
+ _:3
+ _:4
+ _:5
+ _:6
+ _:7
+ _:8
+ _:9) ~~ 9 ifTrue:[
+ self halt
].
- (self
- tstargs9:9
- _:8
- _:7
- _:6
- _:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
-
- "
- JITTest new runTestArg
- "
-
- "Modified: / 19.4.1999 / 22:02:09 / cg"
+ (self
+ tstargs9:9
+ _:8
+ _:7
+ _:6
+ _:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
+
+ "
+ JITTest new runTestArg
+ "
+
+ "Modified: / 19.4.1999 / 22:02:09 / cg"
]
!
runTestArg_l
(self tstargs1_l:1) ~~ 1 ifTrue:[
- self halt
+ self halt
].
(self tstargs1_l:nil) ~~ nil ifTrue:[
- self halt
+ self halt
].
(self tstargs2_l:1 _:2) ~~ 2 ifTrue:[
- self halt
+ self halt
].
(self tstargs2_l:2 _:1) ~~ 1 ifTrue:[
- self halt
+ self halt
].
- (self
- tstargs3_l:1
- _:2
- _:3) ~~ 3 ifTrue:[
- self halt
+ (self
+ tstargs3_l:1
+ _:2
+ _:3) ~~ 3 ifTrue:[
+ self halt
].
- (self
- tstargs3_l:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs3_l:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs4_l:1
- _:2
- _:3
- _:4) ~~ 4 ifTrue:[
- self halt
+ (self
+ tstargs4_l:1
+ _:2
+ _:3
+ _:4) ~~ 4 ifTrue:[
+ self halt
].
- (self
- tstargs4_l:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs4_l:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs5_l:1
- _:2
- _:3
- _:4
- _:5) ~~ 5 ifTrue:[
- self halt
+ (self
+ tstargs5_l:1
+ _:2
+ _:3
+ _:4
+ _:5) ~~ 5 ifTrue:[
+ self halt
].
- (self
- tstargs5_l:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs5_l:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs6_l:1
- _:2
- _:3
- _:4
- _:5
- _:6) ~~ 6 ifTrue:[
- self halt
+ (self
+ tstargs6_l:1
+ _:2
+ _:3
+ _:4
+ _:5
+ _:6) ~~ 6 ifTrue:[
+ self halt
].
- (self
- tstargs6_l:6
- _:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs6_l:6
+ _:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs7_l:1
- _:2
- _:3
- _:4
- _:5
- _:6
- _:7) ~~ 7 ifTrue:[
- self halt
+ (self
+ tstargs7_l:1
+ _:2
+ _:3
+ _:4
+ _:5
+ _:6
+ _:7) ~~ 7 ifTrue:[
+ self halt
].
- (self
- tstargs7_l:7
- _:6
- _:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs7_l:7
+ _:6
+ _:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs8_l:1
- _:2
- _:3
- _:4
- _:5
- _:6
- _:7
- _:8) ~~ 8 ifTrue:[
- self halt
+ (self
+ tstargs8_l:1
+ _:2
+ _:3
+ _:4
+ _:5
+ _:6
+ _:7
+ _:8) ~~ 8 ifTrue:[
+ self halt
].
- (self
- tstargs8_l:8
- _:7
- _:6
- _:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
+ (self
+ tstargs8_l:8
+ _:7
+ _:6
+ _:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
].
- (self
- tstargs9_l:1
- _:2
- _:3
- _:4
- _:5
- _:6
- _:7
- _:8
- _:9) ~~ 9 ifTrue:[
- self halt
+ (self
+ tstargs9_l:1
+ _:2
+ _:3
+ _:4
+ _:5
+ _:6
+ _:7
+ _:8
+ _:9) ~~ 9 ifTrue:[
+ self halt
].
- (self
- tstargs9_l:9
- _:8
- _:7
- _:6
- _:5
- _:4
- _:3
- _:2
- _:1) ~~ 1 ifTrue:[
- self halt
-
- "
- JITTest new runTestArg_l
- "
-
- "Modified: / 19.4.1999 / 22:02:09 / cg"
- "Created: / 19.4.1999 / 22:03:13 / cg"
+ (self
+ tstargs9_l:9
+ _:8
+ _:7
+ _:6
+ _:5
+ _:4
+ _:3
+ _:2
+ _:1) ~~ 1 ifTrue:[
+ self halt
+
+ "
+ JITTest new runTestArg_l
+ "
+
+ "Modified: / 19.4.1999 / 22:02:09 / cg"
+ "Created: / 19.4.1999 / 22:03:13 / cg"
]
!
-tstArgEQ:arg
+tstArgEQ:arg
arg == #'==' ifTrue:[
- ^ true
+ ^ true
].
arg == #'~~' ifTrue:[
- ^ true
+ ^ true
].
arg == #'=' ifTrue:[
- ^ true
+ ^ true
].
^ false
"
- JITTest new testArgEQ:1
- JITTest new testArgEQ:#==
- JITTest new testArgEQ:#~~
- JITTest new testArgEQ:#=
- JITTest new testArgEQ:#foo
+ JITTest new testArgEQ:1
+ JITTest new testArgEQ:#==
+ JITTest new testArgEQ:#~~
+ JITTest new testArgEQ:#=
+ JITTest new testArgEQ:#foo
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstarg1:arg
+tstarg1:arg
^ arg
"
- JITTest new testarg1:1
- JITTest new testarg1:0
+ JITTest new testarg1:1
+ JITTest new testarg1:0
"
"Created: / 16.8.1996 / 17:39:44 / cg"
"Modified: / 3.6.1998 / 15:49:29 / cg"
!
-tstarg2:arg1 arg:arg2
+tstarg2:arg1 arg:arg2
^ arg2
"
- JITTest new testarg2:1 arg:2
- JITTest new testarg2:0 arg:1
+ JITTest new testarg2:1 arg:2
+ JITTest new testarg2:0 arg:1
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstarg3:arg
+tstarg3:arg
|l1|
l1 := 1.
^ arg
"
- JITTest new testarg3:1
- JITTest new testarg3:0
+ JITTest new testarg3:1
+ JITTest new testarg3:0
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstarg4:arg1 arg:arg2
+tstarg4:arg1 arg:arg2
|l1|
l1 := 1.
^ arg1
"
- JITTest new testarg4:1 arg:2
- JITTest new testarg4:0 arg:1
+ JITTest new testarg4:1 arg:2
+ JITTest new testarg4:0 arg:1
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstarg5:arg1 arg:arg2
+tstarg5:arg1 arg:arg2
|l1|
l1 := 1.
^ arg2
"
- JITTest new testarg5:1 arg:2
- JITTest new testarg5:0 arg:1
+ JITTest new testarg5:1 arg:2
+ JITTest new testarg5:0 arg:1
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstargs1:a1
+tstargs1:a1
^ a1
"
- JITTest new testargs1:1
+ JITTest new testargs1:1
"
"Created: / 3.6.1998 / 21:04:31 / cg"
!
-tstargs1_l:a1
+tstargs1_l:a1
|l|
l := 1.
^ a1
"
- JITTest new testargs1_l:1
+ JITTest new testargs1_l:1
"
"Created: / 3.6.1998 / 21:04:31 / cg"
"Modified: / 3.6.1998 / 23:36:57 / cg"
!
-tstargs2:a1 _:a2
+tstargs2:a1 _:a2
^ a2
"
@@ -2668,7 +2668,7 @@
"Modified: / 3.6.1998 / 21:05:56 / cg"
!
-tstargs2_l:a1 _:a2
+tstargs2_l:a1 _:a2
|l|
l := 1.
@@ -2682,7 +2682,7 @@
"Modified: / 3.6.1998 / 23:37:41 / cg"
!
-tstargs3:a1 _:a2 _:a3
+tstargs3:a1 _:a2 _:a3
^ a3
"
@@ -2692,7 +2692,7 @@
"Created: / 3.6.1998 / 21:05:14 / cg"
!
-tstargs3_l:a1 _:a2 _:a3
+tstargs3_l:a1 _:a2 _:a3
|l|
l := 1.
@@ -2706,7 +2706,7 @@
"Modified: / 3.6.1998 / 23:37:44 / cg"
!
-tstargs4:a1 _:a2 _:a3 _:a4
+tstargs4:a1 _:a2 _:a3 _:a4
^ a4
"
@@ -2717,7 +2717,7 @@
"Modified: / 3.6.1998 / 21:05:50 / cg"
!
-tstargs4_l:a1 _:a2 _:a3 _:a4
+tstargs4_l:a1 _:a2 _:a3 _:a4
|l|
l := 1.
@@ -2731,7 +2731,7 @@
"Modified: / 3.6.1998 / 23:37:48 / cg"
!
-tstargs5:a1 _:a2 _:a3 _:a4 _:a5
+tstargs5:a1 _:a2 _:a3 _:a4 _:a5
^ a5
"
@@ -2742,7 +2742,7 @@
"Modified: / 3.6.1998 / 21:05:47 / cg"
!
-tstargs5_l:a1 _:a2 _:a3 _:a4 _:a5
+tstargs5_l:a1 _:a2 _:a3 _:a4 _:a5
|l|
l := 1.
@@ -2756,7 +2756,7 @@
"Modified: / 3.6.1998 / 23:37:50 / cg"
!
-tstargs6:a1 _:a2 _:a3 _:a4 _:a5 _:a6
+tstargs6:a1 _:a2 _:a3 _:a4 _:a5 _:a6
^ a6
"
@@ -2766,7 +2766,7 @@
"Created: / 3.6.1998 / 21:05:44 / cg"
!
-tstargs6_l:a1 _:a2 _:a3 _:a4 _:a5 _:a6
+tstargs6_l:a1 _:a2 _:a3 _:a4 _:a5 _:a6
|l|
l := 1.
@@ -2780,7 +2780,7 @@
"Modified: / 3.6.1998 / 23:37:54 / cg"
!
-tstargs7:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7
+tstargs7:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7
^ a7
"
@@ -2791,7 +2791,7 @@
"Modified: / 3.6.1998 / 21:15:35 / cg"
!
-tstargs7_l:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7
+tstargs7_l:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7
|l|
l := 1.
@@ -2805,7 +2805,7 @@
"Modified: / 3.6.1998 / 23:37:57 / cg"
!
-tstargs8:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7 _:a8
+tstargs8:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7 _:a8
^ a8
"
@@ -2815,7 +2815,7 @@
"Created: / 3.6.1998 / 21:15:52 / cg"
!
-tstargs8_l:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7 _:a8
+tstargs8_l:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7 _:a8
|l|
l := 1.
@@ -2829,25 +2829,25 @@
"Modified: / 3.6.1998 / 23:38:01 / cg"
!
-tstargs9:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7 _:a8 _:a9
+tstargs9:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7 _:a8 _:a9
^ a9
"
- JITTest new testargs9:1 _:2 _:3 _:4 _:5 _:6 _:7 _:8 _:9
+ JITTest new testargs9:1 _:2 _:3 _:4 _:5 _:6 _:7 _:8 _:9
"
"Created: / 3.6.1998 / 21:05:44 / cg"
"Modified: / 3.6.1998 / 21:16:55 / cg"
!
-tstargs9_l:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7 _:a8 _:a9
+tstargs9_l:a1 _:a2 _:a3 _:a4 _:a5 _:a6 _:a7 _:a8 _:a9
|l|
l := 1.
^ a9
"
- JITTest new testargs9_l:1 _:2 _:3 _:4 _:5 _:6 _:7 _:8 _:9
+ JITTest new testargs9_l:1 _:2 _:3 _:4 _:5 _:6 _:7 _:8 _:9
"
"Created: / 3.6.1998 / 23:37:33 / cg"
@@ -2860,7 +2860,7 @@
^ 'hello'
"
- JITTest new test10b
+ JITTest new test10b
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -2870,8 +2870,8 @@
^ 'world'
"
- JITTest new test10c
- JITTest new test10b
+ JITTest new test10c
+ JITTest new test10b
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -2934,15 +2934,15 @@
^ i2
"
- JITTest new tst10
- (JITTest new) instVarAt:2 put:555; tst10
+ JITTest new tst10
+ (JITTest new) instVarAt:2 put:555; tst10
"
"Created: / 16.8.1996 / 17:39:44 / cg"
"Modified: / 3.6.1998 / 15:49:54 / cg"
!
-tst12:arg
+tst12:arg
i1 := arg.
i2 := 0
@@ -3083,7 +3083,7 @@
^ false
"
- JITTest new tst14h
+ JITTest new tst14h
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -3201,7 +3201,7 @@
^ i1
"
- JITTest new tst9
+ JITTest new tst9
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -3319,12 +3319,12 @@
"
JITTest new testLocal5
-
+
|t|
t := self new.
Time millisecondsToRun:[
1000000 timesRepeat:[t testLocal5]
- ] 798 809 808 808 801 798 835
+ ] 798 809 808 808 801 798 835
"
!
@@ -3332,13 +3332,13 @@
|l1 l2|
1000000 timesRepeat:[
- l1 := nil.
- l2 := nil
- ]
+ l1 := nil.
+ l2 := nil
+ ]
"
JITTest new testLocal5
-
+
|t|
t := self new.
Time millisecondsToRun:[
@@ -3358,7 +3358,7 @@
"
- JITTest new testBlock0 value
+ JITTest new testBlock0 value
"
"Modified: / 3.6.1998 / 21:18:37 / cg"
@@ -3367,7 +3367,7 @@
!
tstBlock1
- ^ [:arg |
+ ^ [:arg |
|l1|
l1 := arg.
@@ -3375,7 +3375,7 @@
"
- JITTest new testBlock1 value:1
+ JITTest new testBlock1 value:1
"
"Modified: / 3.6.1998 / 21:18:37 / cg"
@@ -3384,7 +3384,7 @@
!
tstBlock10
- ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 :arg10 |
+ ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 :arg10 |
|l1|
l1 := arg10.
@@ -3402,7 +3402,7 @@
!
tstBlock11
- ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 :arg10 :arg11 |
+ ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 :arg10 :arg11 |
|l1|
l1 := arg11.
@@ -3411,7 +3411,7 @@
"
JITTest new testBlock11
- valueWithArguments:#(1 2 3 4 5 6 7 8 9 10 11)
+ valueWithArguments:#(1 2 3 4 5 6 7 8 9 10 11)
"
"Modified: / 3.6.1998 / 23:22:04 / cg"
@@ -3420,7 +3420,7 @@
!
tstBlock12
- ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 :arg10 :arg11 :arg12 |
+ ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 :arg10 :arg11 :arg12 |
|l1|
l1 := arg12.
@@ -3429,7 +3429,7 @@
"
JITTest new testBlock12
- valueWithArguments:#(1 2 3 4 5 6 7 8 9 10 11 12)
+ valueWithArguments:#(1 2 3 4 5 6 7 8 9 10 11 12)
"
"Modified: / 3.6.1998 / 23:22:04 / cg"
@@ -3438,7 +3438,7 @@
!
tstBlock13
- ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 :arg10 :arg11 :arg12 :arg13 |
+ ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 :arg10 :arg11 :arg12 :arg13 |
|l1|
l1 := arg13.
@@ -3447,7 +3447,7 @@
"
JITTest new testBlock13
- valueWithArguments:#(1 2 3 4 5 6 7 8 9 10 11 12 13)
+ valueWithArguments:#(1 2 3 4 5 6 7 8 9 10 11 12 13)
"
"Modified: / 3.6.1998 / 23:22:04 / cg"
@@ -3456,7 +3456,7 @@
!
tstBlock2
- ^ [:arg1 :arg2 |
+ ^ [:arg1 :arg2 |
|l1|
l1 := arg2.
@@ -3473,7 +3473,7 @@
!
tstBlock3
- ^ [:arg1 :arg2 :arg3 |
+ ^ [:arg1 :arg2 :arg3 |
|l1|
l1 := arg3.
@@ -3490,7 +3490,7 @@
!
tstBlock4
- ^ [:arg1 :arg2 :arg3 :arg4 |
+ ^ [:arg1 :arg2 :arg3 :arg4 |
|l1|
l1 := arg4.
@@ -3507,7 +3507,7 @@
!
tstBlock5
- ^ [:arg1 :arg2 :arg3 :arg4 :arg5 |
+ ^ [:arg1 :arg2 :arg3 :arg4 :arg5 |
|l1|
l1 := arg5.
@@ -3524,7 +3524,7 @@
!
tstBlock7
- ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 |
+ ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 |
|l1|
l1 := arg7.
@@ -3541,7 +3541,7 @@
!
tstBlock8
- ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 |
+ ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 |
|l1|
l1 := arg8.
@@ -3558,7 +3558,7 @@
!
tstBlock9
- ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 |
+ ^ [:arg1 :arg2 :arg3 :arg4 :arg5 :arg6 :arg7 :arg8 :arg9 |
|l1|
l1 := arg9.
@@ -3566,7 +3566,7 @@
"
- JITTest new testBlock9
+ JITTest new testBlock9
valueWithArguments:#(1 2 3 4 5 6 7 8 9)
"
@@ -3576,172 +3576,172 @@
!
tstBlockRet
- 1 to:10 do:[:i |
- i == 5 ifTrue:[^ i]
-
-
- "
- JITTest new testBlockRet
- "
-
- "Modified: / 3.6.1998 / 23:22:04 / cg"
- "Created: / 3.6.1998 / 23:23:21 / cg"
+ 1 to:10 do:[:i |
+ i == 5 ifTrue:[^ i]
+
+
+ "
+ JITTest new testBlockRet
+ "
+
+ "Modified: / 3.6.1998 / 23:22:04 / cg"
+ "Created: / 3.6.1998 / 23:23:21 / cg"
]
!
-tstSelf1:a1 arg:a2 arg:a3 arg:a4
+tstSelf1:a1 arg:a2 arg:a3 arg:a4
^ self
"
- JITTest new testSelf1:1 arg:2 arg:3 arg:4
- JITTest new testSelf1:0 arg:1 arg:2 arg:3
+ JITTest new testSelf1:1 arg:2 arg:3 arg:4
+ JITTest new testSelf1:0 arg:1 arg:2 arg:3
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstSelf2:a1 arg:a2 arg:a3 arg:a4
+tstSelf2:a1 arg:a2 arg:a3 arg:a4
|local1|
^ self
"
- JITTest new testSelf2:1 arg:2 arg:3 arg:4
- JITTest new testSelf2:0 arg:1 arg:2 arg:3
+ JITTest new testSelf2:1 arg:2 arg:3 arg:4
+ JITTest new testSelf2:0 arg:1 arg:2 arg:3
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstSelf3:a1 arg:a2 arg:a3 arg:a4
+tstSelf3:a1 arg:a2 arg:a3 arg:a4
|local1|
local1 := 1.
^ self
"
- JITTest new testSelf3:1 arg:2 arg:3 arg:4
- JITTest new testSelf3:0 arg:1 arg:2 arg:3
+ JITTest new testSelf3:1 arg:2 arg:3 arg:4
+ JITTest new testSelf3:0 arg:1 arg:2 arg:3
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstSelf3_1:a1 arg:a2 arg:a3
+tstSelf3_1:a1 arg:a2 arg:a3
^ self
"
- JITTest new testSelf3_1:1 arg:2 arg:3
- JITTest new testSelf3_1:0 arg:1 arg:2
+ JITTest new testSelf3_1:1 arg:2 arg:3
+ JITTest new testSelf3_1:0 arg:1 arg:2
"
"Modified: / 3.6.1998 / 21:18:37 / cg"
"Created: / 3.6.1998 / 21:19:14 / cg"
!
-tstSelf3_2:a1 arg:a2 arg:a3
+tstSelf3_2:a1 arg:a2 arg:a3
|local1|
^ self
"
- JITTest new testSelf3_2:1 arg:2 arg:3
- JITTest new testSelf3_2:0 arg:1 arg:2
+ JITTest new testSelf3_2:1 arg:2 arg:3
+ JITTest new testSelf3_2:0 arg:1 arg:2
"
"Created: / 3.6.1998 / 21:19:23 / cg"
!
-tstSelf3_3:a1 arg:a2 arg:a3
+tstSelf3_3:a1 arg:a2 arg:a3
|local1|
local1 := 1.
^ self
"
- JITTest new testSelf3_3:1 arg:2 arg:3
- JITTest new testSelf3_3:0 arg:1 arg:2
+ JITTest new testSelf3_3:1 arg:2 arg:3
+ JITTest new testSelf3_3:0 arg:1 arg:2
"
"Created: / 3.6.1998 / 21:19:34 / cg"
!
-tstSelf3_4:a1 arg:a2 arg:a3
+tstSelf3_4:a1 arg:a2 arg:a3
|local1|
local1 := self.
^ local1
"
- JITTest new testSelf3_4:1 arg:2 arg:3
- JITTest new testSelf3_4:0 arg:1 arg:2
+ JITTest new testSelf3_4:1 arg:2 arg:3
+ JITTest new testSelf3_4:0 arg:1 arg:2
"
"Created: / 3.6.1998 / 21:19:44 / cg"
!
-tstSelf4:a1 arg:a2 arg:a3 arg:a4
+tstSelf4:a1 arg:a2 arg:a3 arg:a4
|local1|
local1 := self.
^ local1
"
- JITTest new testSelf4:1 arg:2 arg:3 arg:4
- JITTest new testSelf4:0 arg:1 arg:2 arg:3
+ JITTest new testSelf4:1 arg:2 arg:3 arg:4
+ JITTest new testSelf4:0 arg:1 arg:2 arg:3
"
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstSelf4_1:a1 arg:a2 arg:a3 arg:a4
+tstSelf4_1:a1 arg:a2 arg:a3 arg:a4
^ self
"
- JITTest new testSelf4_1:1 arg:2 arg:3 arg:4
- JITTest new testSelf4_1:0 arg:1 arg:2 arg:3
+ JITTest new testSelf4_1:1 arg:2 arg:3 arg:4
+ JITTest new testSelf4_1:0 arg:1 arg:2 arg:3
"
"Created: / 3.6.1998 / 21:18:26 / cg"
"Modified: / 3.6.1998 / 21:18:37 / cg"
!
-tstSelf4_2:a1 arg:a2 arg:a3 arg:a4
+tstSelf4_2:a1 arg:a2 arg:a3 arg:a4
|local1|
^ self
"
- JITTest new testSelf4_2:1 arg:2 arg:3 arg:4
- JITTest new testSelf4_2:0 arg:1 arg:2 arg:3
+ JITTest new testSelf4_2:1 arg:2 arg:3 arg:4
+ JITTest new testSelf4_2:0 arg:1 arg:2 arg:3
"
"Created: / 3.6.1998 / 21:18:33 / cg"
!
-tstSelf4_3:a1 arg:a2 arg:a3 arg:a4
+tstSelf4_3:a1 arg:a2 arg:a3 arg:a4
|local1|
local1 := 1.
^ self
"
- JITTest new testSelf4_3:1 arg:2 arg:3 arg:4
- JITTest new testSelf4_3:0 arg:1 arg:2 arg:3
+ JITTest new testSelf4_3:1 arg:2 arg:3 arg:4
+ JITTest new testSelf4_3:0 arg:1 arg:2 arg:3
"
"Created: / 3.6.1998 / 21:18:42 / cg"
!
-tstSelf4_4:a1 arg:a2 arg:a3 arg:a4
+tstSelf4_4:a1 arg:a2 arg:a3 arg:a4
|local1|
local1 := self.
^ local1
"
- JITTest new testSelf4_4:1 arg:2 arg:3 arg:4
- JITTest new testSelf4_4:0 arg:1 arg:2 arg:3
+ JITTest new testSelf4_4:1 arg:2 arg:3 arg:4
+ JITTest new testSelf4_4:0 arg:1 arg:2 arg:3
"
"Created: / 3.6.1998 / 21:18:46 / cg"
@@ -3756,32 +3756,32 @@
arr := Array new:10000.
1 to:10000 do:[:i |
- i odd ifTrue:[
- arr at:i put:FooClass new
- ] ifFalse:[
- arr at:i put:BarClass new.
- ]
+ i odd ifTrue:[
+ arr at:i put:FooClass new
+ ] ifFalse:[
+ arr at:i put:BarClass new.
+ ]
].
i := 1.
[i <= 10] whileTrue:[
- |el expect|
+ |el expect|
i printCR.
- el := arr at:i.
+ el := arr at:i.
el printCR.
- i odd ifTrue:[
- expect := #Foo
- ] ifFalse:[
- expect := #Bar
- ].
+ i odd ifTrue:[
+ expect := #Foo
+ ] ifFalse:[
+ expect := #Bar
+ ].
expect printCR.
- el whatAreYou ~~ expect ifTrue:[
+ el whatAreYou ~~ expect ifTrue:[
"/ self halt
- ].
+ ].
i print. ' ' print. el printCR.
- i := i + 1.
+ i := i + 1.
].
"/ i := 1.
@@ -3863,8 +3863,8 @@
|el|
el := FooClass new.
- el whatAreYou printCR.
- el whatAreYou printCR.
+ el whatAreYou printCR.
+ el whatAreYou printCR.
"
JITTest new ilcTest1c
@@ -3880,10 +3880,10 @@
el1 := FooClass new.
el2 := BarClass new.
- el1 whatAreYou printCR.
- el2 whatAreYou printCR.
- el1 whatAreYou printCR.
- el2 whatAreYou printCR.
+ el1 whatAreYou printCR.
+ el2 whatAreYou printCR.
+ el1 whatAreYou printCR.
+ el2 whatAreYou printCR.
"
JITTest new ilcTest1d
@@ -3892,7 +3892,7 @@
"Modified: / 4.6.1998 / 12:13:27 / cg"
!
-tst44:arg
+tst44:arg
|l1 l2|
l1 := 1.
@@ -3900,7 +3900,7 @@
^ l1 + l2 + arg + 1
"
- JITTest new tst44:3
+ JITTest new tst44:3
"
"Created: 16.8.1996 / 17:39:44 / cg"
@@ -3936,7 +3936,7 @@
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tst53:arg1 with:arg2
+tst53:arg1 with:arg2
^ arg1 abs + arg2 abs
"
@@ -3962,25 +3962,25 @@
tstILC1
|x|
- 1 to:4 do:[:i |
- i == 1 ifTrue:[
- x := self
- ].
- i == 2 ifTrue:[
- x := nil
- ].
- i == 3 ifTrue:[x := 1].
- i == 4 ifTrue:[
- x := true
- ].
- x tstInstStore1
-
- "
- JITTest new tstILC1
- "
-
- "Created: / 16.8.1996 / 17:39:44 / cg"
- "Modified: / 17.7.1998 / 16:45:27 / cg"
+ 1 to:4 do:[:i |
+ i == 1 ifTrue:[
+ x := self
+ ].
+ i == 2 ifTrue:[
+ x := nil
+ ].
+ i == 3 ifTrue:[x := 1].
+ i == 4 ifTrue:[
+ x := true
+ ].
+ x tstInstStore1
+
+ "
+ JITTest new tstILC1
+ "
+
+ "Created: / 16.8.1996 / 17:39:44 / cg"
+ "Modified: / 17.7.1998 / 16:45:27 / cg"
]
!
@@ -3998,7 +3998,7 @@
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstPlusArg1:arg
+tstPlusArg1:arg
^ arg + 1
"
@@ -4060,7 +4060,7 @@
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstSend2Helper2:arg1 with:arg2
+tstSend2Helper2:arg1 with:arg2
^ arg2
"
@@ -4070,7 +4070,7 @@
"Created: 16.8.1996 / 17:39:44 / cg"
!
-tstSend2Helper:arg1 with:arg2
+tstSend2Helper:arg1 with:arg2
^ arg1
"