text: /*
  ** $Id: lfunc.h,v 2.17 2017/05/04 13:32:01 roberto Exp roberto $
  ** Auxiliary functions to manipulate prototypes and closures
  ** See Copyright Notice in lua.h
  */
  
  #ifndef lfunc_h
  #define lfunc_h
  
  
  #include "lobject.h"
  
  
  #define sizeCclosure(n)	(cast(int, sizeof(CClosure)) + \
                           cast(int, sizeof(TValue)*((n)-1)))
  
  #define sizeLclosure(n)	(cast(int, sizeof(LClosure)) + \
                           cast(int, sizeof(TValue *)*((n)-1)))
  
  
  /* test whether thread is in 'twups' list */
  #define isintwups(L)	(L->twups != L)
  
  
  /*
  ** maximum number of upvalues in a closure (both C and Lua). (Value
  ** must fit in a VM register.)
  */
  #define MAXUPVAL	255
  
  
  #define upisopen(up)	((up)->v != &(up)->u.value)
  
  
  #define uplevel(up)	check_exp(upisopen(up), cast(StkId, (up)->v))
  
  
  /*
  ** maximum number of misses before giving up the cache of closures
  ** in prototypes
  */
  #define MAXMISS		10
  
  
  LUAI_FUNC Proto *luaF_newproto (lua_State *L);
  LUAI_FUNC CClosure *luaF_newCclosure (lua_State *L, int nelems);
  LUAI_FUNC LClosure *luaF_newLclosure (lua_State *L, int nelems);
  LUAI_FUNC void luaF_initupvals (lua_State *L, LClosure *cl);
  LUAI_FUNC UpVal *luaF_findupval (lua_State *L, StkId level);
  LUAI_FUNC void luaF_close (lua_State *L, StkId level);
  LUAI_FUNC void luaF_unlinkupval (UpVal *uv);
  LUAI_FUNC void luaF_freeproto (lua_State *L, Proto *f);
  LUAI_FUNC const char *luaF_getlocalname (const Proto *func, int local_number,
                                           int pc);
  
  
  #endif
  