--- a/RegressionTests__VMCrashTests.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__VMCrashTests.st Thu Jun 30 09:02:08 2016 +0100
@@ -16,14 +16,14 @@
<spawn: true>
1 to: 100 do:[:i |
- Stdout nextPutLine: 'Pass ' , i printString.
- Java release: JavaRelease JDK7.
- Java initialize.
- JavaVM initializeVM.
- Java flushAllJavaResources.
- Stdout nextPutLine: 'Full GC...'.
- Smalltalk garbageCollect.
- Stdout nextPutLine: 'Pass ' , i printString , '...OK'.
+ Stdout nextPutLine: 'Pass ' , i printString.
+ Java release: JavaRelease JDK7.
+ Java initialize.
+ JavaVM initializeVM.
+ Java flushAllJavaResources.
+ Stdout nextPutLine: 'Full GC...'.
+ Smalltalk garbageCollect.
+ Stdout nextPutLine: 'Pass ' , i printString , '...OK'.
].
"Created: / 08-09-2014 / 12:33:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -76,15 +76,15 @@
<spawn: false>
<timeout: 660> "11min"
- | timeout deadline iterStart iterStop |
+ | timeout deadline iterStart iterStop |
timeout := self timeout.
deadline := OperatingSystem getMillisecondTime + ((timeout - 60"extra min to cover variance") * 1000).
iterStart := iterStop := 0.
[ OperatingSystem getMillisecondTime < (deadline - (iterStop - iterStart)) ] whileTrue:[
- iterStart := OperatingSystem getMillisecondTime.
- (self class selector: #iter_java_initialize) runCase.
- iterStop := OperatingSystem getMillisecondTime.
+ iterStart := OperatingSystem getMillisecondTime.
+ (self class selector: #iter_java_initialize) runCase.
+ iterStop := OperatingSystem getMillisecondTime.
].
"Created: / 08-09-2014 / 12:14:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -101,9 +101,9 @@
newLimit := (newSize * 0.9) rounded.
"/ Allocate some garbage to fill in new space...
[ ObjectMemory newSpaceUsed < newLimit ] whileTrue:[
- | a |
+ | a |
- a := Array new: 100.
+ a := Array new: 100.
].
"/ Now, allocate some really huge object
[