compiler/tests/PPCompiledSmalltalkGrammarResource.st
changeset 438 20598d7ce9fa
parent 422 116d2b2af905
child 443 2c87ed364404
equal deleted inserted replaced
437:54b3bc9e3987 438:20598d7ce9fa
    10 !
    10 !
    11 
    11 
    12 !PPCompiledSmalltalkGrammarResource methodsFor:'as yet unclassified'!
    12 !PPCompiledSmalltalkGrammarResource methodsFor:'as yet unclassified'!
    13 
    13 
    14 setUp
    14 setUp
    15         | time |
    15 	| time |
    16         time := Time millisecondsToRun: [
    16 	time := Time millisecondsToRun: [
    17                 PPSmalltalkGrammar new compile: #PPCompiledSmalltalkGrammar
    17 		PPSmalltalkGrammar new compileAs: #PPCompiledSmalltalkGrammar
    18         ].
    18 	].
    19         Transcript show: 'Grammar compiled in: ', time asString, 'ms'; cr.
    19 	Transcript crShow: 'Smalltalk Grammar compiled in: ', time asString, 'ms'.
    20 
    20 	
    21     "Modified: / 21-11-2014 / 12:33:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
    22 ! !
    21 ! !
    23 
    22