equal
deleted
inserted
replaced
248 ! ! |
248 ! ! |
249 |
249 |
250 !PPCBenchmark methodsFor:'benchmarks - smalltalk'! |
250 !PPCBenchmark methodsFor:'benchmarks - smalltalk'! |
251 |
251 |
252 benchmarkOpalCompiler |
252 benchmarkOpalCompiler |
253 | parser time input | |
253 | time | |
254 parser := OpalCompiler new. |
254 parser := OpalCompiler new. |
255 input := sources smalltalkSourcesBig. |
255 input := sources smalltalkSourcesBig. |
256 time := [ input do: [ :source | parser parse: source ]] timeToRun asMilliseconds. |
256 time := [ input do: [ :source | parser parse: source ]] timeToRun asMilliseconds. |
257 |
257 |
258 self reportInput: input time: time name: 'Opal' |
258 self reportInput: input time: time name: 'Opal' |
590 ! |
590 ! |
591 |
591 |
592 setupSmalltalkGrammarCompiled |
592 setupSmalltalkGrammarCompiled |
593 |
593 |
594 configuration := PPCConfiguration universal. |
594 configuration := PPCConfiguration universal. |
595 configuration arguments parserName: #PPCompiledSmalltalkGrammar. |
595 configuration arguments parserName: #PPSmalltalkGrammarC_Unviersal. |
596 configuration arguments scannerName: #PPCompiledSmalltalkScanner. |
|
597 configuration arguments profile: profile. |
596 configuration arguments profile: profile. |
598 |
597 |
599 parser := PPSmalltalkGrammar new compileWithConfiguration: configuration. |
598 parser := PPSmalltalkGrammar new compileWithConfiguration: configuration. |
600 context := self context. |
599 context := self context. |
601 context initializeFor: parser. |
600 context initializeFor: parser. |
608 ! |
607 ! |
609 |
608 |
610 setupSmalltalkGrammarTokenized |
609 setupSmalltalkGrammarTokenized |
611 |
610 |
612 configuration := PPCConfiguration tokenizing. |
611 configuration := PPCConfiguration tokenizing. |
613 configuration arguments parserName: #PPTokenizedSmalltalkGrammar. |
612 configuration arguments parserName: #PPSmalltalkGrammarC_Tokenizing. |
614 configuration arguments scannerName: #PPTokenizedSmalltalkScanner. |
613 configuration arguments scannerName: #PPSmalltalkGrammarC_Scanner. |
615 configuration arguments profile: profile. |
614 configuration arguments profile: profile. |
616 |
615 |
617 parser := PPSmalltalkGrammar new compileWithConfiguration: configuration. |
616 parser := PPSmalltalkGrammar new compileWithConfiguration: configuration. |
618 context := self context. |
617 context := self context. |
619 context initializeFor: parser. |
618 context initializeFor: parser. |