Удалён неактуальный проход «Cure drives» (#314, #359)

После удаления интеллектуальной авторазметки данный проход стал пустым, теперь он и вовсе удалён. Это не рефакторинг, поскольку содержимое лога изменилось.
bmstu-iu9 · Aug 23, 2021 · ad36147 · ad36147
1 parent abf85a0
commit ad36147
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 12 deletions.
diff --git a/src/compiler/OptTree-AutoMarkup.ref b/src/compiler/OptTree-AutoMarkup.ref
@@ -260,14 +260,6 @@ WrapBucket {
   s.Hash e.Bucket = (s.Hash e.Bucket);
 }
 
-/**
-  <OptTree-AutoMarkup-CureDrives e.AST> == e.AST
-*/
-$ENTRY OptTree-AutoMarkup-CureDrives {
-  e.AST = e.AST;
-}
-
-
 /**
   <OptTree-AutoMarkup-CleanupUnusedFunctions e.AST> == e.AST
 */

diff --git a/src/compiler/OptTree.ref b/src/compiler/OptTree.ref
@@ -6,7 +6,7 @@ $EXTERN Config-GetTreeOptCycles, Config-GetOptDrive, Config-GetOptSpec,
 
 *$FROM OptTree-AutoMarkup
 $EXTERN OptTree-AutoMarkup-Spec, OptTree-AutoMarkup-Drive,
-  OptTree-AutoMarkup-CureDrives, OptTree-AutoMarkup-CleanupUnusedFunctions;
+  OptTree-AutoMarkup-CleanupUnusedFunctions;
 
 *$FROM OptTree-Drive
 $EXTERN OptTree-Drive-Prepare, OptTree-Drive, OptTree-Drive-CleanupColdCalls;
@@ -53,9 +53,6 @@ $ENTRY OptTree {
               (call &OptTree-Drive-Prepare t.OptDrive)
               (DriveLoop))
             (begin
-              (when (or s.OptDrive s.OptIntrinsic)
-                (trace 'before Curing drives')
-                (call &OptTree-AutoMarkup-CureDrives))
               (DriveSpecLoop)))
           (trace 'before Cleanup unused functions')
           (call &OptTree-AutoMarkup-CleanupUnusedFunctions)