FIXED: встраивание функций <F*n …> (#122, #239)

Прогонка для функций <F*n …> работала, а встраивание — нет, из-за чего в сгенерированном коде оставались вызовы <Apply*1 (&F e.B) e.A>.
bmstu-iu9 · Aug 1, 2019 · 6d8d2d0 · 6d8d2d0
1 parent c62a7c1
commit 6d8d2d0
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/compiler/OptTree-Drive.ref b/src/compiler/OptTree-Drive.ref
@@ -461,6 +461,18 @@ DropLeft {
 */
 
 FindInlineInfo {
+  t.InlineInfo e.Name
+    , e.Name : e.Prefix '*' s.N
+    , <CutSUF e.Prefix> : e.Prefix^
+    , t.InlineInfo
+    : (
+        (e.B1 (e.Prefix) e.E1)
+        e.B2 (Inline s.ScopeClass (e.Prefix) s.Body) e.E2
+      )
+    = <s.Body> : Sentences e.Sentences
+    = Success
+      (Inline s.ScopeClass (e.Name) Sentences <DropLeft e.Sentences s.N>);
+
   t.InlineInfo e.Name
     , t.InlineInfo
     : ((e.B1 (e.Name) e.E1) e.B2 (Inline s.ScopeClass (e.Name) s.Body) e.E2)