LLL: fix the set keyword (create symbol if not present)

This commit is contained in:
Alex Beregszaszi 2017-06-22 00:43:01 +01:00
parent 1ffe286a81
commit af57c083f2
2 changed files with 33 additions and 3 deletions

View File

@ -171,13 +171,23 @@ void CodeFragment::constructOperation(sp::utree const& _t, CompilerState& _s)
return string();
};
auto varAddress = [&](string const& n)
auto varAddress = [&](string const& n, bool createMissing = false)
{
if (n.empty())
error<InvalidName>("Empty variable name not allowed");
auto it = _s.vars.find(n);
if (it == _s.vars.end())
{
if (createMissing)
{
// Create new variable
bool ok;
tie(it, ok) = _s.vars.insert(make_pair(n, make_pair(_s.stackSize, 32)));
_s.stackSize += 32;
}
else
error<InvalidName>(std::string("Symbol not found: ") + n);
}
return it->second.first;
};
@ -210,7 +220,7 @@ void CodeFragment::constructOperation(sp::utree const& _t, CompilerState& _s)
for (auto const& i: _t)
if (c++ == 2)
m_asm.append(CodeFragment(i, _s, false).m_asm);
m_asm.append((u256)varAddress(firstAsString()));
m_asm.append((u256)varAddress(firstAsString(), true));
m_asm.append(Instruction::MSTORE);
}
else if (us == "GET")

View File

@ -57,6 +57,26 @@ BOOST_AUTO_TEST_CASE(panic)
BOOST_REQUIRE(m_output.empty());
}
BOOST_AUTO_TEST_CASE(variables)
{
char const* sourceCode = R"(
(returnlll
(seq
(set 'x 1)
(set 'y 2)
;; this should equal to 3
(set 'z (add (get 'x) (get 'y)))
;; overwriting it here
(set 'y 4)
;; each variable has a 32 byte slot, starting from memory location 0x80
;; variable addresses can also be retrieved by x or (ref 'x)
(set 'k (add (add (ref 'x) (ref 'y)) z))
(return (add (add (get 'x) (add (get 'y) (get 'z))) (get 'k)))))
)";
compileAndRun(sourceCode);
BOOST_CHECK(callFallback() == encodeArgs(u256(488)));
}
BOOST_AUTO_TEST_CASE(when)
{
char const* sourceCode = R"(