scmno****@osdn*****
scmno****@osdn*****
Tue Jan 30 06:33:21 JST 2018
changeset 05e44b06452f in quipu/quipu details: http://hg.osdn.jp/view/quipu/quipu?cmd=changeset;node=05e44b06452f user: Agustina Arzille <avarz****@riseu*****> date: Mon Jan 29 18:33:06 2018 -0300 description: Move compilation of 't' symbol diffstat: compiler.cpp | 7 ++----- 1 files changed, 2 insertions(+), 5 deletions(-) diffs (24 lines): diff -r ed0e7722dad4 -r 05e44b06452f compiler.cpp --- a/compiler.cpp Mon Jan 29 17:17:54 2018 -0300 +++ b/compiler.cpp Mon Jan 29 18:33:06 2018 -0300 @@ -809,6 +809,8 @@ this->emit (OPX_(LOAD1)); else if (int_p (expr) && as_int (expr) < 0x80 && as_int (expr) >= -128) this->emit (OPX_(LOADI8), expr); + else if (expr == QP_S(t)) + this->emit (OPX_(LOADT)); else if (expr == NIL) this->emit (OPX_(LOADNIL)); else @@ -840,11 +842,6 @@ this->interp->popn (); return; } - else if (s == QP_S(t)) - { - this->emit (OPX_(LOADT)); - return; - } int depth, loc = lookup_sym (s, env, depth); if (loc < 0)
Fork