Temporary commit. JavaNativeMethod refactored to use new-style native methods.
Java VM does not boot at this point.
"{ Package: 'stx:libjava/benchmarks' }"
JavaBenchmark subclass:#Strcat
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'Benchmarks-Java-Micro'
!
!Strcat methodsFor:'running'!
runBenchmarkS:n
| stream hello |
stream := WriteStream on:String new.
hello := 'hello' , Character cr asString.
10 timesRepeat:[
stream nextPutAll:hello
].
^ Time
millisecondsToRun:[
1 to: n do: [:idx|
stream nextPutAll:hello
].
].
! !
!Strcat class methodsFor:'documentation'!
version_SVN
^ '$Id:: $'
! !