[Quipu-dev] quipu/quipu: Remove useless function

Back to archive index

scmno****@osdn***** scmno****@osdn*****
Wed Jun 20 05:44:03 JST 2018


changeset bbdac73d676b in quipu/quipu
details: http://hg.osdn.jp/view/quipu/quipu?cmd=changeset;node=bbdac73d676b
user: Agustina Arzille <avarz****@riseu*****>
date: Tue Jun 19 17:43:55 2018 -0300
description: Remove useless function

diffstat:

 eval.cpp |  16 +---------------
 1 files changed, 1 insertions(+), 15 deletions(-)

diffs (33 lines):

diff -r 345a635f8222 -r bbdac73d676b eval.cpp
--- a/eval.cpp	Tue Jun 19 17:29:28 2018 -0300
+++ b/eval.cpp	Tue Jun 19 17:43:55 2018 -0300
@@ -171,20 +171,6 @@
   return (xaref (interp->retval, ix));
 }
 
-static inline void
-set_lastf (interpreter *interp, object& fn, uint32_t& lastf)
-{
-  for (lastf = interp->cur_frame ; ; )
-    {
-      if (!(fn & EXTRA_BIT) || as_int (interp->stack[lastf - 4]) == 0)
-        break;
-
-      lastf = as_int (interp->stack[lastf - 4]);
-      fn = interp->stack[lastf - as_int (interp->stack[lastf - 3]) -
-        (interpreter::frame_size + 1)];
-    }
-}
-
 static int
 push_seq (interpreter *interp, object seq)
 {
@@ -290,7 +276,7 @@
       nargs = as_int (stack[lastf - 3]);
       bp = 1, fn = stack[bp - 1];
       ip = as_bvector(fct_bcode (fn))->data + cnp->ip_offset;
-      *stkend++ = cnp->value;
+      U_PUSH (cnp->value);
     }
   else
     { // Regular function call.




More information about the Quipu-dev mailing list
Back to archive index