Commit 7906bafb authored by Sapphie's avatar Sapphie
Browse files

Implement bitwise primitives

parent ed753853
......@@ -53,6 +53,17 @@ object CPSValueRepresenter extends (H.Tree => L.Tree) {
}
}
case L3.IntBitwiseAnd =>
L.LetP(n, CPS.And, Seq(rewrite(x), rewrite(y)), apply(body))
case L3.IntBitwiseOr =>
L.LetP(n, CPS.Or, Seq(rewrite(x), rewrite(y)), apply(body))
case L3.IntBitwiseXOr =>
tempLetP(CPS.XOr, Seq(Left(x), lAtomOne)) { x1 =>
L.LetP(n, CPS.XOr, Seq(x1, rewrite(y)), apply(body))
}
}
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment