--- a/compiler/tests/PPCOptimizeChoicesTest.st Mon Sep 07 08:03:02 2015 +0100
+++ b/compiler/tests/PPCOptimizeChoicesTest.st Mon Sep 07 08:20:46 2015 +0100
@@ -3,7 +3,7 @@
"{ NameSpace: Smalltalk }"
TestCase subclass:#PPCOptimizeChoicesTest
- instanceVariableNames:'node result visitor configuration'
+ instanceVariableNames:'node result visitor compiler'
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-Tests-Visitors'
@@ -12,27 +12,24 @@
!PPCOptimizeChoicesTest methodsFor:'as yet unclassified'!
asPPCTree: parser
- ^ parser compileWithConfiguration: configuration
+ ^ parser compileUsingCompiler: compiler
+
+ "Modified: / 07-09-2015 / 10:08:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
setUp
| options |
+
super setUp.
-
visitor := PPCOptimizeChoices new.
-
- options := PPCCompilationOptions default
- profile: true;
- generate: false;
- tokenize: false;
- yourself.
-
- configuration := PPCConfiguration new.
- configuration passes:
- {
- PPCCacheFirstFollowPass.
- }.
- configuration options: options.
+ options := (PPCCompilationOptions default)
+ profile:true;
+ generate:false;
+ tokenize:false;
+ yourself.
+ compiler := PPCCompiler new.
+ compiler passes:{ PPCCacheFirstFollowPass }.
+ compiler options:options.
"Modified: / 04-09-2015 / 16:21:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!