static void init_function (TreeNode *func) { if (funcCode == NULL) /* first function */ { funcCode = newvector(CODE_BLOCK, Byte); maxcode = CODE_BLOCK; } pc=0; basepc=funcCode; maxcurr=maxcode; nlocalvar=0; if (lua_debug) { code_byte(SETFUNCTION); code_code((Byte *)luaI_strdup(lua_file[lua_nfile-1])); code_word(luaI_findconstant(func)); } }
/* * Legge una struttura di sinonimo da un file. */ SYNO_DATA *fread_synonym( MUD_FILE *fp, int type ) { SYNO_DATA *synonym; if ( !fp ) { send_log( NULL, LOG_BUG, "fread_synonym: fp passato è NULL" ); return NULL; } if ( type < 0 || type >= MAX_CODE ) { send_log( NULL, LOG_BUG, "fread_synonym: type passato errato: %d", type ); return NULL; } CREATE( synonym, SYNO_DATA, 1 ); synonym->cat = code_code( fp, fread_word(fp), type ); synonym->syn = fread_string( fp ); return synonym; }