File: torture.st

package info (click to toggle)
gnu-smalltalk 3.1-6
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 33,300 kB
  • ctags: 13,999
  • sloc: ansic: 88,106; sh: 23,223; asm: 7,889; perl: 4,493; cpp: 3,539; awk: 1,483; yacc: 1,355; xml: 1,272; makefile: 1,192; lex: 843; sed: 258; objc: 124
file content (19 lines) | stat: -rw-r--r-- 545 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
"by Andreas Klimas

 This is a real torture test for the GC!! With a=100,000 and
 using IdentityDictionaries, it executes 120,000,000 bytecodes
 and 85 GCs!!"

| d a |

"When i reaches 75,000 GST crashes because of a chronical lack of OOP
 slots. I put a=74,000 just to leave some margin. With IdentityDictionaries,
 I got a up to 130,000 (because they don't chew up OOPs for the associations)."

a := 100000.

d := Dictionary new.
1 to: a do: [ :i |
    d at: i put: 'a little test ', i printString.
    (i \\ 100) = 0 ifTrue: [ i printNl ]
]!