ilusha/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2026-09-29 04:35:58 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

new #define LUA_COMPAT2_5 to select "compatibility mode".

Browse source
This commit is contained in:
Roberto Ierusalimschy 1997-06-23 15:27:53 -03:00
parent 3e43275308
commit e81f184164
5 changed files with 36 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

28
opcode.c
View file

@ -3,7 +3,7 @@
** TecCGraf - PUC-Rio
*/
char *rcs_opcode="$Id: opcode.c,v 4.12 1997/06/19 17:46:12 roberto Exp roberto $";
char *rcs_opcode="$Id: opcode.c,v 4.13 1997/06/19 18:03:04 roberto Exp roberto $";
#include <setjmp.h>
#include <stdio.h>
@ -325,7 +325,7 @@ static void do_call (StkId base, int nResults)
firstResult = lua_execute(func->value.tf->code, base);
}
else { /* func is not a function */
/* Check the fallback for invalid functions */
/* Check the tag method for invalid functions */
TObject *im = luaI_getimbyObj(func, IM_FUNCTION);
if (ttype(im) == LUA_T_NIL)
lua_error("call expression not a function");
@ -635,17 +635,6 @@ int lua_callfunction (lua_Object function)
}
/*
** API: set a function as a fallback
*/
lua_Object lua_setfallback (char *name, lua_CFunction fallback)
{
lua_pushstring(name);
lua_pushcfunction(fallback);
do_unprotectedrun(luaI_setfallback, 2, 1);
return put_luaObjectonTop();
}
lua_Object lua_gettagmethod (int tag, char *event)
{
lua_pushnumber(tag);
@ -1471,3 +1460,16 @@ static StkId lua_execute (Byte *pc, StkId base)
}
}
#if COMPAT2_5
/*
** API: set a function as a fallback
*/
lua_Object lua_setfallback (char *name, lua_CFunction fallback)
{
lua_pushstring(name);
lua_pushcfunction(fallback);
do_unprotectedrun(luaI_setfallback, 2, 1);
return put_luaObjectonTop();
}
#endif