Обработка опции -O и заготовки для оптимизации (#15, #16)

bmstu-iu9 · Mar 24, 2016 · 02d8504 · 02d8504
1 parent 661b8d8
commit 02d8504
Show file tree

Hide file tree

Showing 4 changed files with 1,935 additions and 1 deletion.
diff --git a/src/compiler/Driver.sref b/src/compiler/Driver.sref
@@ -13,6 +13,12 @@ $EXTERN GenProgram;
 //FROM HightLevelRASL
 $EXTERN HightLevelRASL;
 
+//FROM HightLevelRASL-OptPattern
+$EXTERN HightLevelRASL-OptPattern;
+
+//FROM HightLevelRASL-OptResult
+$EXTERN HightLevelRASL-OptResult;
+
 //FROM LowLevelRASL
 $EXTERN LowLevelRASL;
 
@@ -47,7 +53,7 @@ $ENTRY CompileFile {
                   <Fetch
                     e.AST
                     <Seq
-                      HightLevelRASL
+                      <SelectRASL s.Opt>
                       (LowLevelRASL <SelectGenMode s.GenMode s.Opt>)
                       GenProgram
                       (SaveFile (e.OutputName))
@@ -64,6 +70,12 @@ $ENTRY CompileFile {
     >;
 }
 
+SelectRASL {
+  #OptNone = HightLevelRASL;
+  #OptPattern = HightLevelRASL-OptPattern;
+  #OptResult = HightLevelRASL-OptResult;
+}
+
 SelectGenMode {
   s.GenMode #OptNone = s.GenMode;
   s.GenMode #OptPattern = #OnlyDirect;