瀏覽代碼

function 'limittointeger' no needed (now that 'tointeger_aux' handles
integers too)

Roberto Ierusalimschy 11 年之前
父節點
當前提交
ddff6ecf30
共有 1 個文件被更改,包括 2 次插入16 次删除
  1. 2 16
      lvm.c

+ 2 - 16
lvm.c

@@ -1,5 +1,5 @@
 /*
-** $Id: lvm.c,v 2.202 2014/04/29 20:06:05 roberto Exp roberto $
+** $Id: lvm.c,v 2.203 2014/04/30 16:50:16 roberto Exp roberto $
 ** Lua virtual machine
 ** See Copyright Notice in lua.h
 */
@@ -126,20 +126,6 @@ int luaV_tointeger_ (const TValue *obj, lua_Integer *p) {
 }
 
 
-/*
-** Check whether the limit of a 'for' loop can be safely converted
-** to an integer (rounding down or up depending on the signal of 'step')
-*/
-static int limittointeger (const TValue *n, lua_Integer *p, lua_Integer step) {
-  if (ttisinteger(n)) {
-    *p = ivalue(n);
-    return 1;
-  }
-  else
-    return tointeger_aux(n, p, (step < 0));
-}
-
-
 /*
 ** Convert a number object to a string
 */
@@ -995,7 +981,7 @@ void luaV_execute (lua_State *L) {
         TValue *pstep = ra + 2;
         lua_Integer ilimit;
         if (ttisinteger(init) && ttisinteger(pstep) &&
-            limittointeger(plimit, &ilimit, ivalue(pstep))) {
+            tointeger_aux(plimit, &ilimit, (ivalue(pstep) < 0))) {
           /* all values are integer */
           setivalue(init, ivalue(init) - ivalue(pstep));
           setivalue(plimit, ilimit);