rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

C functions don't need to "pushnil" to return nil value (this is 

the default value).
This commit is contained in:
Roberto Ierusalimschy 1996-07-12 17:00:26 -03:00
parent 9a3c51cff1
commit 6dfdb76538
3 changed files with 4 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hash.c
View File

@ -3,7 +3,7 @@
** hash manager for lua ** hash manager for lua
*/ */
char *rcs_hash="$Id: hash.c,v 2.29 1996/02/14 18:25:04 roberto Exp roberto $"; char *rcs_hash="$Id: hash.c,v 2.30 1996/05/06 14:30:27 roberto Exp roberto $";
#include "mem.h" #include "mem.h"
@ -283,18 +283,12 @@ Object *lua_hashdefine (Hash *t, Object *ref)
static void hashnext (Hash *t, int i) static void hashnext (Hash *t, int i)
{ {
if (i >= nhash(t)) if (i >= nhash(t))
{
lua_pushnil(); lua_pushnil();
return; return;
}
while (tag(ref(node(t,i))) == LUA_T_NIL || tag(val(node(t,i))) == LUA_T_NIL) while (tag(ref(node(t,i))) == LUA_T_NIL || tag(val(node(t,i))) == LUA_T_NIL)
{ {
if (++i >= nhash(t)) if (++i >= nhash(t))
{
lua_pushnil(); lua_pushnil();
return; return;
} }
}
luaI_pushobject(ref(node(t,i))); luaI_pushobject(ref(node(t,i)));
luaI_pushobject(val(node(t,i))); luaI_pushobject(val(node(t,i)));
} }

8
inout.c
View File

@ -5,7 +5,7 @@
** Also provides some predefined lua functions. ** Also provides some predefined lua functions.
*/ */
char *rcs_inout="$Id: inout.c,v 2.36 1996/03/19 22:28:37 roberto Exp roberto $"; char *rcs_inout="$Id: inout.c,v 2.37 1996/05/28 21:07:32 roberto Exp $";
#include <stdio.h> #include <stdio.h>
@ -113,8 +113,6 @@ void lua_internaldostring (void)
lua_Object obj = lua_getparam (1); lua_Object obj = lua_getparam (1);
if (lua_isstring(obj) && !lua_dostring(lua_getstring(obj))) if (lua_isstring(obj) && !lua_dostring(lua_getstring(obj)))
lua_pushnumber(1); lua_pushnumber(1);
else
lua_pushnil();
} }
/* /*
@ -131,8 +129,6 @@ void lua_internaldofile (void)
/* else fname = NULL */ /* else fname = NULL */
if (!lua_dofile(fname)) if (!lua_dofile(fname))
lua_pushnumber(1); lua_pushnumber(1);
else
lua_pushnil();
} }
@ -218,8 +214,6 @@ void lua_obj2number (void)
lua_Object o = lua_getparam(1); lua_Object o = lua_getparam(1);
if (lua_isnumber(o)) if (lua_isnumber(o))
lua_pushnumber(lua_getnumber(o)); lua_pushnumber(lua_getnumber(o));
else
lua_pushnil();
} }

9
table.c
View File

@ -3,7 +3,7 @@
** Module to control static tables ** Module to control static tables
*/ */
char *rcs_table="$Id: table.c,v 2.55 1996/05/28 21:07:32 roberto Exp roberto $"; char *rcs_table="$Id: table.c,v 2.56 1996/06/18 21:12:23 roberto Exp roberto $";
#include "mem.h" #include "mem.h"
#include "opcode.h" #include "opcode.h"
@ -240,12 +240,7 @@ static void lua_nextvar (void)
else else
next = luaI_findsymbolbyname(lua_getstring(o)) + 1; next = luaI_findsymbolbyname(lua_getstring(o)) + 1;
while (next < lua_ntable && s_tag(next) == LUA_T_NIL) next++; while (next < lua_ntable && s_tag(next) == LUA_T_NIL) next++;
if (next >= lua_ntable) if (next < lua_ntable)
{
lua_pushnil();
lua_pushnil();
}
else
{ {
lua_pushstring(lua_table[next].varname->str); lua_pushstring(lua_table[next].varname->str);
luaI_pushobject(&s_object(next)); luaI_pushobject(&s_object(next));