--- a/compiler/PPCCompilationContext.st	Tue Aug 25 01:30:32 2015 +0100
+++ b/compiler/PPCCompilationContext.st	Wed Aug 26 21:41:20 2015 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: Smalltalk }"
 
 Object subclass:#PPCCompilationContext
-	instanceVariableNames:'parserClass scannerClass'
+	instanceVariableNames:'options parserClass scannerClass'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'PetitCompiler-Core'
@@ -19,6 +19,14 @@
 
 !PPCCompilationContext methodsFor:'accessing'!
 
+options
+    ^ options
+!
+
+options:aPPCCompilationOptions
+    options := aPPCCompilationOptions.
+!
+
 parserClass
     "Return parser class as PPCClass"
 
@@ -45,3 +53,13 @@
     "Created: / 24-08-2015 / 23:59:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!PPCCompilationContext methodsFor:'initialization'!
+
+initialize
+    "Invoked when a new instance is created."
+
+    options := PPCCompilationOptions default.
+
+    "Modified: / 26-08-2015 / 19:49:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+