Commit 2e2e0a17 authored by Luca Bataillard's avatar Luca Bataillard
Browse files

fix typo in byteread, all tests pass

parent 324b72dc
......@@ -144,7 +144,7 @@ object CPSValueRepresenter extends (H.Tree => L.Tree) {
}
case L3.BlockLength =>
tempLetP(CPS.BlockLength, args map (Left(_))) { t1 =>
tempLetP(CPS.ShiftLeft, Seq(Right(t1), Right(L.AtomL(1)))) { t2 =>
tempLetP(CPS.ShiftLeft, Seq(Right(t1), lAtomOne)) { t2 =>
L.LetP(n, CPS.Add, Seq(t2, L.AtomL(1)), apply(body))
}
}
......@@ -160,7 +160,7 @@ object CPSValueRepresenter extends (H.Tree => L.Tree) {
case L3.ByteRead =>
tempLetP(CPS.ByteRead, Seq()){ t1 =>
tempLetP(CPS.ShiftLeft, Seq(Right(t1), lAtomOne)) { t2 =>
L.LetP(n, CPS.Add, Seq(t2, L.AtomL(2)), apply(body))
L.LetP(n, CPS.Add, Seq(t2, L.AtomL(1)), apply(body))
}
}
case L3.ByteWrite =>
......
Markdown is supported
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