equal
deleted
inserted
replaced
89 | time compiler | |
89 | time compiler | |
90 |
90 |
91 compiler := self compiler. |
91 compiler := self compiler. |
92 compiler options parserName: self compiledParserClassName. |
92 compiler options parserName: self compiledParserClassName. |
93 time := Time millisecondsToRun: [ |
93 time := Time millisecondsToRun: [ |
94 self petitParser compileUsingCompiler:compiler. |
94 compiler compile: self petitParser. |
95 ]. |
95 ]. |
96 Transcript show: self petitParserClass name ; show:' compiled in: '; show: time asString; show: 'ms'; cr. |
96 Transcript show: self petitParserClass name ; show:' compiled in: '; show: time asString; show: 'ms'; cr. |
97 |
97 |
98 "Created: / 29-07-2015 / 16:29:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
98 "Created: / 29-07-2015 / 16:29:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
99 "Modified: / 29-07-2015 / 18:40:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
99 "Modified: / 29-07-2015 / 18:40:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |