From ad36147ea5645348b1bc542e3ac01c7f47cc75a1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=9C=D0=B0=D0=B7=D0=B4=D0=B0=D0=B9=D1=89=D0=B8=D0=BA?=
 <a.v.konovalov87@mail.ru>
Date: Mon, 23 Aug 2021 18:20:24 +0300
Subject: [PATCH] =?UTF-8?q?=D0=A3=D0=B4=D0=B0=D0=BB=D1=91=D0=BD=20=D0=BD?=
 =?UTF-8?q?=D0=B5=D0=B0=D0=BA=D1=82=D1=83=D0=B0=D0=BB=D1=8C=D0=BD=D1=8B?=
 =?UTF-8?q?=D0=B9=20=D0=BF=D1=80=D0=BE=D1=85=D0=BE=D0=B4=20=C2=ABCure=20dr?=
 =?UTF-8?q?ives=C2=BB=20(#314,=20#359)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

После удаления интеллектуальной авторазметки данный проход стал пустым,
теперь он и вовсе удалён. Это не рефакторинг, поскольку содержимое
лога изменилось.
---
 src/compiler/OptTree-AutoMarkup.ref | 8 --------
 src/compiler/OptTree.ref            | 5 +----
 2 files changed, 1 insertion(+), 12 deletions(-)

diff --git a/src/compiler/OptTree-AutoMarkup.ref b/src/compiler/OptTree-AutoMarkup.ref
index 0f5a834e..1b2da8cc 100644
--- 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
index 891d611b..5cd66833 100644
--- 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)