diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2018-12-17 14:46:37 -0200 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2018-12-17 14:46:37 -0200 |
commit | 063d4e4543088e7a21965bda8ee5a0f952a9029e (patch) | |
tree | 6c3f2f8e98c26f071a94a32f9f2754396a66a9de /lapi.c | |
parent | e354c6355e7f48e087678ec49e340ca0696725b1 (diff) | |
download | lua-5.3.5.tar.gz lua-5.3.5.tar.bz2 lua-5.3.5.zip |
Lua 5.3.5 ported to gitv5.3.5
This is the first commit for the branch Lua 5.3. All source files
were copied from the official distribution of 5.3.5 in the Lua site.
The test files are the same of 5.3.4. The manual came from the
previous RCS repository, revision 1.167.1.2.
Diffstat (limited to 'lapi.c')
-rw-r--r-- | lapi.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lapi.c,v 2.258 2016/01/05 16:07:21 roberto Exp roberto $ | 2 | ** $Id: lapi.c,v 2.259.1.2 2017/12/06 18:35:12 roberto Exp $ |
3 | ** Lua API | 3 | ** Lua API |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -533,6 +533,7 @@ LUA_API void lua_pushcclosure (lua_State *L, lua_CFunction fn, int n) { | |||
533 | lua_lock(L); | 533 | lua_lock(L); |
534 | if (n == 0) { | 534 | if (n == 0) { |
535 | setfvalue(L->top, fn); | 535 | setfvalue(L->top, fn); |
536 | api_incr_top(L); | ||
536 | } | 537 | } |
537 | else { | 538 | else { |
538 | CClosure *cl; | 539 | CClosure *cl; |
@@ -546,9 +547,9 @@ LUA_API void lua_pushcclosure (lua_State *L, lua_CFunction fn, int n) { | |||
546 | /* does not need barrier because closure is white */ | 547 | /* does not need barrier because closure is white */ |
547 | } | 548 | } |
548 | setclCvalue(L, L->top, cl); | 549 | setclCvalue(L, L->top, cl); |
550 | api_incr_top(L); | ||
551 | luaC_checkGC(L); | ||
549 | } | 552 | } |
550 | api_incr_top(L); | ||
551 | luaC_checkGC(L); | ||
552 | lua_unlock(L); | 553 | lua_unlock(L); |
553 | } | 554 | } |
554 | 555 | ||