equal
deleted
inserted
replaced
103 |
103 |
104 compiler := self compiler. |
104 compiler := self compiler. |
105 compiler options parserName: self compiledParserClassName. |
105 compiler options parserName: self compiledParserClassName. |
106 compiler options scannerName: self compiledScannerClassName. |
106 compiler options scannerName: self compiledScannerClassName. |
107 time := Time millisecondsToRun: [ |
107 time := Time millisecondsToRun: [ |
108 self petitParser compileUsingCompiler:compiler. |
108 compiler compile: self petitParser. |
109 ]. |
109 ]. |
110 Transcript show: self petitParserClass name ; show:' compiled in: '; show: time asString; show: 'ms'; cr. |
110 Transcript show: self petitParserClass name ; show:' compiled in: '; show: time asString; show: 'ms'; cr. |
111 |
111 |
112 "Created: / 29-07-2015 / 16:29:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
112 "Created: / 29-07-2015 / 16:29:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
113 "Modified: / 29-07-2015 / 18:40:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
113 "Modified: / 29-07-2015 / 18:40:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |