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