Remark: in the paper "Counting Immutable Beans" the concepts of free and live variables coincide because the paper does not consider join points. For example, consider the function body B

let x := ctor_0;
jmp block_1 x

in a context where we have the join point block_1 defined as

block_1 (x : obj) : obj :=
let z := ctor_0 x y;
ret z

The variable y is live in the function body B since it occurs in block_1 which is "invoked" by B.

@[inline, reducible]

abbrev Lean.IR.IsLive.M (α : Type) : Type

We use State Context instead of ReaderT Context Id because we remove non local joint points from Context whenever we visit them instead of maintaining a set of visited non local join points.

Remark: we don't need to track local join points because we assume there is no variable or join point shadowing in our IR.

Equations

• Lean.IR.IsLive.M = StateM Lean.IR.LocalContext

@[inline, reducible]

abbrev Lean.IR.IsLive.visitVar (w : Lean.IR.Index) (x : Lean.IR.VarId) : Lean.IR.IsLive.M Bool

Equations

• Lean.IR.IsLive.visitVar w x = pure (Lean.IR.HasIndex.visitVar w x)

@[inline, reducible]

abbrev Lean.IR.IsLive.visitJP (w : Lean.IR.Index) (x : Lean.IR.JoinPointId) : Lean.IR.IsLive.M Bool

Equations

• Lean.IR.IsLive.visitJP w x = pure (Lean.IR.HasIndex.visitJP w x)

@[inline, reducible]

abbrev Lean.IR.IsLive.visitArg (w : Lean.IR.Index) (a : Lean.IR.Arg) : Lean.IR.IsLive.M Bool

Equations

• Lean.IR.IsLive.visitArg w a = pure (Lean.IR.HasIndex.visitArg w a)

@[inline, reducible]

abbrev Lean.IR.IsLive.visitArgs (w : Lean.IR.Index) (as : Array Lean.IR.Arg) : Lean.IR.IsLive.M Bool

Equations

• Lean.IR.IsLive.visitArgs w as = pure (Lean.IR.HasIndex.visitArgs w as)

@[inline, reducible]

abbrev Lean.IR.IsLive.visitExpr (w : Lean.IR.Index) (e : Lean.IR.Expr) : Lean.IR.IsLive.M Bool

Equations

• Lean.IR.IsLive.visitExpr w e = pure (Lean.IR.HasIndex.visitExpr w e)

partial def Lean.IR.IsLive.visitFnBody (w : Lean.IR.Index) : Lean.IR.FnBody → Lean.IR.IsLive.M Bool

def Lean.IR.FnBody.hasLiveVar (b : Lean.IR.FnBody) (ctx : Lean.IR.LocalContext) (x : Lean.IR.VarId) : Bool

Return true if x is live in the function body b in the context ctx.

Remark: the context only needs to contain all (free) join point declarations.

Recall that we say that a join point j is free in b if b contains FnBody.jmp j ys and j is not local.

Equations

• Lean.IR.FnBody.hasLiveVar b ctx x = StateT.run' (Lean.IR.IsLive.visitFnBody x.idx b) ctx

@[inline, reducible]

abbrev Lean.IR.LiveVarSet : Type

Equations

• Lean.IR.LiveVarSet = Lean.IR.VarIdSet

@[inline, reducible]

abbrev Lean.IR.JPLiveVarMap : Type

Equations

• Lean.IR.JPLiveVarMap = Lean.RBMap Lean.IR.JoinPointId Lean.IR.LiveVarSet fun j₁ j₂ => compare j₁.idx j₂.idx

instance Lean.IR.instInhabitedLiveVarSet : Inhabited Lean.IR.LiveVarSet

Equations

• Lean.IR.instInhabitedLiveVarSet = { default := ∅ }

def Lean.IR.mkLiveVarSet (x : Lean.IR.VarId) : Lean.IR.LiveVarSet

Equations

• Lean.IR.mkLiveVarSet x = Lean.RBTree.insert Lean.RBTree.empty x

@[inline, reducible]

abbrev Lean.IR.LiveVars.Collector : Type

Equations

• Lean.IR.LiveVars.Collector = (Lean.IR.LiveVarSet → Lean.IR.LiveVarSet)

def Lean.IR.LiveVars.collectExpr : Lean.IR.Expr → Lean.IR.LiveVars.Collector

Equations

• One or more equations did not get rendered due to their size.

partial def Lean.IR.LiveVars.collectFnBody : Lean.IR.FnBody → Lean.IR.JPLiveVarMap → Lean.IR.LiveVars.Collector

def Lean.IR.LiveVars.updateJPLiveVarMap (j : Lean.IR.JoinPointId) (ys : Array Lean.IR.Param) (v : Lean.IR.FnBody) (m : Lean.IR.JPLiveVarMap) : Lean.IR.JPLiveVarMap

Equations

• Lean.IR.updateJPLiveVarMap j ys v m = let jLiveVars := (Lean.IR.LiveVars.bindParams ys ∘ Lean.IR.LiveVars.collectFnBody v m) ∅; Lean.RBMap.insert m j jLiveVars

def Lean.IR.updateLiveVars (e : Lean.IR.Expr) (v : Lean.IR.LiveVarSet) : Lean.IR.LiveVarSet

Equations

• Lean.IR.updateLiveVars e v = Lean.IR.LiveVars.collectExpr e v

def Lean.IR.collectLiveVars (b : Lean.IR.FnBody) (m : Lean.IR.JPLiveVarMap) (v : optParam Lean.IR.LiveVarSet ∅) : Lean.IR.LiveVarSet

Equations

• Lean.IR.collectLiveVars b m v = Lean.IR.LiveVars.collectFnBody b m v