diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2020-01-31 11:09:53 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2020-01-31 11:09:53 -0300 |
commit | 46c3587a6feb28e1ee4a32aabe463b0ecb9e8f5e (patch) | |
tree | 7e1ae9b55536171511506532a04f4ebe6dc764b0 /ldo.c | |
parent | 69c7139ff88bf26e05d80bf19d0351e5c88d13a3 (diff) | |
download | lua-46c3587a6feb28e1ee4a32aabe463b0ecb9e8f5e.tar.gz lua-46c3587a6feb28e1ee4a32aabe463b0ecb9e8f5e.tar.bz2 lua-46c3587a6feb28e1ee4a32aabe463b0ecb9e8f5e.zip |
Clearer distinction between types and tags
LUA_T* represents only types; tags (types + Variants) are represented
by LUA_V* constants.
Diffstat (limited to 'ldo.c')
-rw-r--r-- | ldo.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -459,10 +459,10 @@ void luaD_call (lua_State *L, StkId func, int nresults) { | |||
459 | lua_CFunction f; | 459 | lua_CFunction f; |
460 | retry: | 460 | retry: |
461 | switch (ttypetag(s2v(func))) { | 461 | switch (ttypetag(s2v(func))) { |
462 | case LUA_TCCL: /* C closure */ | 462 | case LUA_VCCL: /* C closure */ |
463 | f = clCvalue(s2v(func))->f; | 463 | f = clCvalue(s2v(func))->f; |
464 | goto Cfunc; | 464 | goto Cfunc; |
465 | case LUA_TLCF: /* light C function */ | 465 | case LUA_VLCF: /* light C function */ |
466 | f = fvalue(s2v(func)); | 466 | f = fvalue(s2v(func)); |
467 | Cfunc: { | 467 | Cfunc: { |
468 | int n; /* number of returns */ | 468 | int n; /* number of returns */ |
@@ -485,7 +485,7 @@ void luaD_call (lua_State *L, StkId func, int nresults) { | |||
485 | luaD_poscall(L, ci, n); | 485 | luaD_poscall(L, ci, n); |
486 | break; | 486 | break; |
487 | } | 487 | } |
488 | case LUA_TLCL: { /* Lua function */ | 488 | case LUA_VLCL: { /* Lua function */ |
489 | CallInfo *ci; | 489 | CallInfo *ci; |
490 | Proto *p = clLvalue(s2v(func))->p; | 490 | Proto *p = clLvalue(s2v(func))->p; |
491 | int narg = cast_int(L->top - func) - 1; /* number of real arguments */ | 491 | int narg = cast_int(L->top - func) - 1; /* number of real arguments */ |