From 8a080dd65f4c4c24642e5c6c119446d12bee5f62 Mon Sep 17 00:00:00 2001
From: Matway Burkow <2745204+MatwayBurkow@users.noreply.github.com>
Date: Sat, 20 Feb 2021 18:13:10 +0300
Subject: [PATCH] Add [isDirty] built-in

---
 builtinImpl.mpl | 7 +++++++
 builtins.mpl    | 1 +
 2 files changed, 8 insertions(+)

diff --git a/builtinImpl.mpl b/builtinImpl.mpl
index 472606d..0ca8231 100644
--- a/builtinImpl.mpl
+++ b/builtinImpl.mpl
@@ -1328,6 +1328,13 @@ staticityOfBinResult: [
   ] when
 ] "mplBuiltinIsConst" @declareBuiltin ucall
 
+[
+  refToVar: @processor @block pop;
+  processor compilable [
+    refToVar staticityOfVar Dirty = makeValuePair VarCond @processor @block createVariable Static @processor @block makeStaticity @processor @block createPlainIR @block push
+  ] when
+] "mplBuiltinIsDirty" @declareBuiltin ucall
+
 [
   refToVar: @processor @block pop;
   processor compilable [
diff --git a/builtins.mpl b/builtins.mpl
index 9041829..26e6d09 100644
--- a/builtins.mpl
+++ b/builtins.mpl
@@ -65,6 +65,7 @@ builtins: (
   {name: "is"                            ; impl: @mplBuiltinIs                      ;}
   {name: "isCombined"                    ; impl: @mplBuiltinIsCombined              ;}
   {name: "isConst"                       ; impl: @mplBuiltinIsConst                 ;}
+  {name: "isDirty"                       ; impl: @mplBuiltinIsDirty                 ;}
   {name: "isDynamic"                     ; impl: @mplBuiltinIsDynamic               ;}
   {name: "isRef"                         ; impl: @mplBuiltinIsRef                   ;}
   {name: "isStatic"                      ; impl: @mplBuiltinIsStatic                ;}