Function luaG_errormsg

other_src/lua/src/ldebug.cpp:617–640

void luaG_errormsg (lua_State *L) {
  StkId errfunc = NULL;
  if (L->errfunc != 0) {
    errfunc = restorestack(L, L->errfunc);
  } else if (L->errfuncref) { /*BZ*/
    TValue* rv = registry(L);
    if (ttistable(rv)) {
      Table* rt = hvalue(rv);
      TValue regIndex;
      setnvalue(&regIndex, L->errfuncref);
      errfunc = (StkId) luaH_get(rt, &regIndex);
    }
  }
  if (errfunc != NULL) {
    if (!ttisfunction(errfunc)) {
      luaD_throw(L, LUA_ERRERR);
    }
    setobjs2s(L, L->top, L->top - 1);  /* move argument */
    setobjs2s(L, L->top - 1, errfunc);  /* push function */
    incr_top(L);
    luaD_call(L, L->top - 2, 1);  /* call it */
  }
  luaD_throw(L, LUA_ERRRUN);
}


void luaG_runerror (lua_State *L, const char *fmt, ...) {