diff options
| -rw-r--r-- | lauxlib.c | 6 |
1 files changed, 3 insertions, 3 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lauxlib.c,v 1.204 2010/03/19 21:04:17 roberto Exp roberto $ | 2 | ** $Id: lauxlib.c,v 1.205 2010/03/22 17:28:31 roberto Exp roberto $ |
| 3 | ** Auxiliary functions for building Lua libraries | 3 | ** Auxiliary functions for building Lua libraries |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -789,9 +789,9 @@ LUALIB_API int luaL_cpcall (lua_State *L, lua_CFunction f, int nargs, | |||
| 789 | int nresults) { | 789 | int nresults) { |
| 790 | nargs++; /* to include function itself */ | 790 | nargs++; /* to include function itself */ |
| 791 | lua_rawgeti(L, LUA_REGISTRYINDEX, LUA_RIDX_CCALL); | 791 | lua_rawgeti(L, LUA_REGISTRYINDEX, LUA_RIDX_CCALL); |
| 792 | lua_insert(L, -nargs); | 792 | lua_insert(L, -nargs); /* 'ccall' is real function to be called */ |
| 793 | lua_pushlightuserdata(L, &f); | 793 | lua_pushlightuserdata(L, &f); |
| 794 | lua_insert(L, -nargs); | 794 | lua_insert(L, -nargs); /* 'f' address is its first argument */ |
| 795 | return lua_pcall(L, nargs, nresults, 0); | 795 | return lua_pcall(L, nargs, nresults, 0); |
| 796 | } | 796 | } |
| 797 | 797 | ||
