static void code_params (LexState *ls, int nparams, int dots) { FuncState *fs = ls->fs; adjustlocalvars(ls, nparams); luaX_checklimit(ls, fs->nactvar, MAXPARAMS, "parameters"); fs->f->numparams = cast(lu_byte, fs->nactvar); fs->f->is_vararg = cast(lu_byte, dots); if (dots) create_local(ls, "arg"); luaK_reserveregs(fs, fs->nactvar); /* reserve register for parameters */ }
static void createEmptyMovieClip(LVGActionCtx *ctx, ASClass *cls, uint8_t *a, uint32_t nargs) { ASVal *se_name = &ctx->stack[ctx->stack_ptr]; #ifdef _DEBUG ASVal *se_depth = se_name + 1; assert(ASVAL_INT == se_depth->type || ASVAL_DOUBLE == se_depth->type || ASVAL_FLOAT == se_depth->type); #endif assert(ASVAL_STRING == se_name->type); ASVal *loc = create_local(ctx, THIS, se_name->str); loc->type = ASVAL_UNDEFINED; loc->str = 0; ASVal *res = result_val(ctx, nargs); *res = *loc; }
static void body (LexState *ls, expdesc *e, int needself, int line) { /* body -> `(' parlist `)' chunk END */ FuncState new_fs; open_func(ls, &new_fs); new_fs.f->lineDefined = line; check(ls, '('); if (needself) create_local(ls, "self"); parlist(ls); check(ls, ')'); chunk(ls); check_match(ls, TK_END, TK_FUNCTION, line); close_func(ls); pushclosure(ls, &new_fs, e); }
static entity *create_server (entity_types type, int index, char *pargs) { entity *en; validate_client_server_local_fn (); en = create_local (type, index, pargs); if (en) { validate_client_server_remote_fn (); create_remote (type, get_local_entity_index (en), pargs); } return (en); }
static entity *create_client (entity_types type, int index, char *pargs) { entity *en; if (get_comms_data_flow () == COMMS_DATA_FLOW_TX) { validate_client_server_remote_fn (); en = create_remote (type, index, pargs); } else { validate_client_server_local_fn (); en = create_local (type, index, pargs); } return (en); }