495 Transcript crShow: 'Time per character: ', (time / size * 1000.0) asString, ' microseconds'. |
495 Transcript crShow: 'Time per character: ', (time / size * 1000.0) asString, ' microseconds'. |
496 " |
496 " |
497 ! |
497 ! |
498 |
498 |
499 teardownJavaSyntaxCompiledC |
499 teardownJavaSyntaxCompiledC |
500 parser class removeFromSystem. |
500 parser notNil ifTrue:[ |
|
501 parser class removeFromSystem. |
|
502 ]. |
501 " |
503 " |
502 size := input inject: 0 into: [:r :e | r + e size ]. |
504 size := input inject: 0 into: [:r :e | r + e size ]. |
503 Transcript crShow: 'Compiled Grammar time: ', time asString. |
505 Transcript crShow: 'Compiled Grammar time: ', time asString. |
504 Transcript crShow: 'Time per character: ', (time / size * 1000.0) asString, ' microseconds'. |
506 Transcript crShow: 'Time per character: ', (time / size * 1000.0) asString, ' microseconds'. |
505 " |
507 " |
506 ! |
508 ! |
507 |
509 |
508 teardownSmalltalkGrammarCompiledC |
510 teardownSmalltalkGrammarCompiledC |
509 parser class removeFromSystem. |
511 parser notNil ifTrue:[ |
|
512 parser class removeFromSystem. |
|
513 ]. |
510 " |
514 " |
511 size := input inject: 0 into: [:r :e | r + e size ]. |
515 size := input inject: 0 into: [:r :e | r + e size ]. |
512 Transcript crShow: 'Compiled Grammar time: ', time asString. |
516 Transcript crShow: 'Compiled Grammar time: ', time asString. |
513 Transcript crShow: 'Time per character: ', (time / size * 1000.0) asString, ' microseconds'. |
517 Transcript crShow: 'Time per character: ', (time / size * 1000.0) asString, ' microseconds'. |
514 " |
518 " |