19fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream/* 29fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamCopyright (C) 1996-1997 Id Software, Inc. 39fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 49fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamThis program is free software; you can redistribute it and/or 59fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreammodify it under the terms of the GNU General Public License 69fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamas published by the Free Software Foundation; either version 2 79fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamof the License, or (at your option) any later version. 89fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 99fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamThis program is distributed in the hope that it will be useful, 109fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreambut WITHOUT ANY WARRANTY; without even the implied warranty of 119fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 129fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 139fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamSee the GNU General Public License for more details. 149fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 159fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamYou should have received a copy of the GNU General Public License 169fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamalong with this program; if not, write to the Free Software 179fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamFoundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 189fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 199fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream*/ 209fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 219fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#include "qwsvdef.h" 229fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 239fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 249fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream/* 259fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 269fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream*/ 279fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 289fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamtypedef struct 299fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream{ 309fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int s; 319fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream dfunction_t *f; 329fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream} prstack_t; 339fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 349fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#define MAX_STACK_DEPTH 32 359fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamprstack_t pr_stack[MAX_STACK_DEPTH]; 369fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamint pr_depth; 379fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 389fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#define LOCALSTACK_SIZE 2048 399fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamint localstack[LOCALSTACK_SIZE]; 409fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamint localstack_used; 419fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 429fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 439fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamqboolean pr_trace; 449fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamdfunction_t *pr_xfunction; 459fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamint pr_xstatement; 469fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 479fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 489fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamint pr_argc; 499fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 509fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamchar *pr_opnames[] = 519fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream{ 529fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"DONE", 539fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 549fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"MUL_F", 559fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"MUL_V", 569fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"MUL_FV", 579fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"MUL_VF", 589fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 599fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"DIV", 609fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 619fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"ADD_F", 629fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"ADD_V", 639fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 649fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"SUB_F", 659fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"SUB_V", 669fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 679fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"EQ_F", 689fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"EQ_V", 699fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"EQ_S", 709fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"EQ_E", 719fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"EQ_FNC", 729fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 739fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"NE_F", 749fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"NE_V", 759fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"NE_S", 769fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"NE_E", 779fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"NE_FNC", 789fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 799fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"LE", 809fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"GE", 819fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"LT", 829fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"GT", 839fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 849fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"INDIRECT", 859fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"INDIRECT", 869fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"INDIRECT", 879fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"INDIRECT", 889fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"INDIRECT", 899fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"INDIRECT", 909fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 919fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"ADDRESS", 929fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 939fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"STORE_F", 949fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"STORE_V", 959fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"STORE_S", 969fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"STORE_ENT", 979fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"STORE_FLD", 989fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"STORE_FNC", 999fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1009fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"STOREP_F", 1019fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"STOREP_V", 1029fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"STOREP_S", 1039fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"STOREP_ENT", 1049fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"STOREP_FLD", 1059fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"STOREP_FNC", 1069fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1079fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"RETURN", 1089fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1099fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"NOT_F", 1109fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"NOT_V", 1119fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"NOT_S", 1129fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"NOT_ENT", 1139fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"NOT_FNC", 1149fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1159fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"IF", 1169fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"IFNOT", 1179fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1189fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"CALL0", 1199fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"CALL1", 1209fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"CALL2", 1219fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"CALL3", 1229fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"CALL4", 1239fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"CALL5", 1249fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"CALL6", 1259fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"CALL7", 1269fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"CALL8", 1279fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1289fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"STATE", 1299fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1309fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"GOTO", 1319fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1329fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"AND", 1339fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"OR", 1349fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1359fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"BITAND", 1369fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream"BITOR" 1379fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream}; 1389fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1399fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamchar *PR_GlobalString (int ofs); 1409fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamchar *PR_GlobalStringNoContents (int ofs); 1419fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1429fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1439fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream//============================================================================= 1449fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1459fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream/* 1469fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream================= 1479fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamPR_PrintStatement 1489fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream================= 1499fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream*/ 1509fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamvoid PR_PrintStatement (dstatement_t *s) 1519fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream{ 1529fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int i; 1539fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1549fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if ( (unsigned)s->op < sizeof(pr_opnames)/sizeof(pr_opnames[0])) 1559fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream { 1569fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream Con_Printf ("%s ", pr_opnames[s->op]); 1579fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream i = strlen(pr_opnames[s->op]); 1589fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream for ( ; i<10 ; i++) 1599fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream Con_Printf (" "); 1609fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream } 1619fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1629fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (s->op == OP_IF || s->op == OP_IFNOT) 1639fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream Con_Printf ("%sbranch %i",PR_GlobalString(s->a),s->b); 1649fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream else if (s->op == OP_GOTO) 1659fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream { 1669fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream Con_Printf ("branch %i",s->a); 1679fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream } 1689fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream else if ( (unsigned)(s->op - OP_STORE_F) < 6) 1699fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream { 1709fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream Con_Printf ("%s",PR_GlobalString(s->a)); 1719fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream Con_Printf ("%s", PR_GlobalStringNoContents(s->b)); 1729fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream } 1739fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream else 1749fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream { 1759fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (s->a) 1769fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream Con_Printf ("%s",PR_GlobalString(s->a)); 1779fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (s->b) 1789fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream Con_Printf ("%s",PR_GlobalString(s->b)); 1799fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (s->c) 1809fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream Con_Printf ("%s", PR_GlobalStringNoContents(s->c)); 1819fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream } 1829fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream Con_Printf ("\n"); 1839fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream} 1849fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1859fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream/* 1869fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream============ 1879fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamPR_StackTrace 1889fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream============ 1899fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream*/ 1909fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamvoid PR_StackTrace (void) 1919fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream{ 1929fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream dfunction_t *f; 1939fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int i; 1949fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1959fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (pr_depth == 0) 1969fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream { 1979fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream Con_Printf ("<NO STACK>\n"); 1989fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream return; 1999fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream } 2009fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 2019fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream pr_stack[pr_depth].f = pr_xfunction; 2029fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream for (i=pr_depth ; i>=0 ; i--) 2039fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream { 2049fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream f = pr_stack[i].f; 2059fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 2069fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (!f) 2079fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream { 2089fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream Con_Printf ("<NO FUNCTION>\n"); 2099fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream } 2109fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream else 2119fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream Con_Printf ("%12s : %s\n", PR_GetString(f->s_file), PR_GetString(f->s_name)); 2129fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream } 2139fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream} 2149fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 2159fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 2169fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream/* 2179fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream============ 2189fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamPR_Profile_f 2199fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 2209fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream============ 2219fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream*/ 2229fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamvoid PR_Profile_f (void) 2239fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream{ 2249fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream dfunction_t *f, *best; 2259fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int max; 2269fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int num; 2279fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int i; 2289fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 2299fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream num = 0; 2309fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream do 2319fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream { 2329fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream max = 0; 2339fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream best = NULL; 2349fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream for (i=0 ; i<progs->numfunctions ; i++) 2359fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream { 2369fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream f = &pr_functions[i]; 2379fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (f->profile > max) 2389fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream { 2399fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream max = f->profile; 2409fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream best = f; 2419fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream } 2429fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream } 2439fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (best) 2449fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream { 2459fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (num < 10) 2469fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream Con_Printf ("%7i %s\n", best->profile, PR_GetString(best->s_name)); 2479fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream num++; 2489fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream best->profile = 0; 2499fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream } 2509fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream } while (best); 2519fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream} 2529fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 2539fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 2549fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream/* 2559fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream============ 2569fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamPR_RunError 2579fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 2589fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamAborts the currently executing function 2599fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream============ 2609fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream*/ 2619fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamvoid PR_RunError (char *error, ...) 2629fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream{ 2639fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream va_list argptr; 2649fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream char string[1024]; 2659fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 2669fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream va_start (argptr,error); 2679fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream vsprintf (string,error,argptr); 2689fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream va_end (argptr); 2699fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 2709fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream PR_PrintStatement (pr_statements + pr_xstatement); 2719fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream PR_StackTrace (); 2729fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream Con_Printf ("%s\n", string); 2739fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 2749fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream pr_depth = 0; // dump the stack so SV_Error can shutdown functions 2759fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 2769fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream SV_Error ("Program error"); 2779fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream} 2789fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 2799fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream/* 2809fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream============================================================================ 2819fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamPR_ExecuteProgram 2829fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 2839fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamThe interpretation main loop 2849fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream============================================================================ 2859fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream*/ 2869fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 2879fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream/* 2889fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream==================== 2899fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamPR_EnterFunction 2909fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 2919fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamReturns the new program statement counter 2929fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream==================== 2939fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream*/ 2949fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamint PR_EnterFunction (dfunction_t *f) 2959fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream{ 2969fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int i, j, c, o; 2979fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 2989fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream pr_stack[pr_depth].s = pr_xstatement; 2999fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream pr_stack[pr_depth].f = pr_xfunction; 3009fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream pr_depth++; 3019fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (pr_depth >= MAX_STACK_DEPTH) 3029fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream PR_RunError ("stack overflow"); 3039fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 3049fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream// save off any locals that the new function steps on 3059fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c = f->locals; 3069fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (localstack_used + c > LOCALSTACK_SIZE) 3079fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream PR_RunError ("PR_ExecuteProgram: locals stack overflow\n"); 3089fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 3099fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream for (i=0 ; i < c ; i++) 3109fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream localstack[localstack_used+i] = ((int *)pr_globals)[f->parm_start + i]; 3119fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream localstack_used += c; 3129fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 3139fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream// copy parameters 3149fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream o = f->parm_start; 3159fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream for (i=0 ; i<f->numparms ; i++) 3169fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream { 3179fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream for (j=0 ; j<f->parm_size[i] ; j++) 3189fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream { 3199fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream ((int *)pr_globals)[o] = ((int *)pr_globals)[OFS_PARM0+i*3+j]; 3209fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream o++; 3219fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream } 3229fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream } 3239fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 3249fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream pr_xfunction = f; 3259fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream return f->first_statement - 1; // offset the s++ 3269fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream} 3279fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 3289fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream/* 3299fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream==================== 3309fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamPR_LeaveFunction 3319fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream==================== 3329fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream*/ 3339fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamint PR_LeaveFunction (void) 3349fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream{ 3359fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int i, c; 3369fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 3379fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (pr_depth <= 0) 3389fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream SV_Error ("prog stack underflow"); 3399fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 3409fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream// restore locals from the stack 3419fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c = pr_xfunction->locals; 3429fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream localstack_used -= c; 3439fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (localstack_used < 0) 3449fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream PR_RunError ("PR_ExecuteProgram: locals stack underflow\n"); 3459fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 3469fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream for (i=0 ; i < c ; i++) 3479fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream ((int *)pr_globals)[pr_xfunction->parm_start + i] = localstack[localstack_used+i]; 3489fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 3499fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream// up stack 3509fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream pr_depth--; 3519fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream pr_xfunction = pr_stack[pr_depth].f; 3529fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream return pr_stack[pr_depth].s; 3539fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream} 3549fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 3559fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 3569fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream/* 3579fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream==================== 3589fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamPR_ExecuteProgram 3599fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream==================== 3609fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream*/ 3619fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamvoid PR_ExecuteProgram (func_t fnum) 3629fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream{ 3639fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream eval_t *a, *b, *c; 3649fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int s; 3659fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream dstatement_t *st; 3669fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream dfunction_t *f, *newf; 3679fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int runaway; 3689fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int i; 3699fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream edict_t *ed; 3709fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int exitdepth; 3719fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream eval_t *ptr; 3729fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 3739fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (!fnum || fnum >= progs->numfunctions) 3749fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream { 3759fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (pr_global_struct->self) 3769fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream ED_Print (PROG_TO_EDICT(pr_global_struct->self)); 3779fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream SV_Error ("PR_ExecuteProgram: NULL function"); 3789fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream } 3799fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 3809fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream f = &pr_functions[fnum]; 3819fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 3829fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream runaway = 100000; 3839fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream pr_trace = false; 3849fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 3859fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream// make a stack frame 3869fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream exitdepth = pr_depth; 3879fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 3889fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream s = PR_EnterFunction (f); 3899fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 3909fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamwhile (1) 3919fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream{ 3929fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream s++; // next statement 3939fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 3949fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream st = &pr_statements[s]; 3959fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream a = (eval_t *)&pr_globals[st->a]; 3969fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream b = (eval_t *)&pr_globals[st->b]; 3979fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c = (eval_t *)&pr_globals[st->c]; 3989fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 3999fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (--runaway == 0) 4009fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream PR_RunError ("runaway loop error"); 4019fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 4029fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream pr_xfunction->profile++; 4039fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream pr_xstatement = s; 4049fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 4059fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (pr_trace) 4069fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream PR_PrintStatement (st); 4079fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 4089fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream switch (st->op) 4099fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream { 4109fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_ADD_F: 4119fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = a->_float + b->_float; 4129fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4139fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_ADD_V: 4149fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->vector[0] = a->vector[0] + b->vector[0]; 4159fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->vector[1] = a->vector[1] + b->vector[1]; 4169fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->vector[2] = a->vector[2] + b->vector[2]; 4179fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4189fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 4199fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_SUB_F: 4209fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = a->_float - b->_float; 4219fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4229fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_SUB_V: 4239fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->vector[0] = a->vector[0] - b->vector[0]; 4249fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->vector[1] = a->vector[1] - b->vector[1]; 4259fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->vector[2] = a->vector[2] - b->vector[2]; 4269fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4279fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 4289fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_MUL_F: 4299fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = a->_float * b->_float; 4309fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4319fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_MUL_V: 4329fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = a->vector[0]*b->vector[0] 4339fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream + a->vector[1]*b->vector[1] 4349fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream + a->vector[2]*b->vector[2]; 4359fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4369fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_MUL_FV: 4379fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->vector[0] = a->_float * b->vector[0]; 4389fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->vector[1] = a->_float * b->vector[1]; 4399fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->vector[2] = a->_float * b->vector[2]; 4409fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4419fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_MUL_VF: 4429fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->vector[0] = b->_float * a->vector[0]; 4439fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->vector[1] = b->_float * a->vector[1]; 4449fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->vector[2] = b->_float * a->vector[2]; 4459fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4469fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 4479fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_DIV_F: 4489fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = a->_float / b->_float; 4499fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4509fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 4519fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_BITAND: 4529fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = (int)a->_float & (int)b->_float; 4539fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4549fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 4559fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_BITOR: 4569fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = (int)a->_float | (int)b->_float; 4579fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4589fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 4599fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 4609fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_GE: 4619fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = a->_float >= b->_float; 4629fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4639fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_LE: 4649fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = a->_float <= b->_float; 4659fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4669fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_GT: 4679fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = a->_float > b->_float; 4689fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4699fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_LT: 4709fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = a->_float < b->_float; 4719fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4729fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_AND: 4739fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = a->_float && b->_float; 4749fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4759fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_OR: 4769fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = a->_float || b->_float; 4779fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4789fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 4799fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_NOT_F: 4809fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = !a->_float; 4819fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4829fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_NOT_V: 4839fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = !a->vector[0] && !a->vector[1] && !a->vector[2]; 4849fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4859fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_NOT_S: 4869fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = !a->string || !*PR_GetString(a->string); 4879fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4889fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_NOT_FNC: 4899fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = !a->function; 4909fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4919fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_NOT_ENT: 4929fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = (PROG_TO_EDICT(a->edict) == sv.edicts); 4939fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4949fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 4959fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_EQ_F: 4969fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = a->_float == b->_float; 4979fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 4989fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_EQ_V: 4999fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = (a->vector[0] == b->vector[0]) && 5009fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream (a->vector[1] == b->vector[1]) && 5019fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream (a->vector[2] == b->vector[2]); 5029fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 5039fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_EQ_S: 5049fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = !strcmp(PR_GetString(a->string), PR_GetString(b->string)); 5059fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 5069fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_EQ_E: 5079fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = a->_int == b->_int; 5089fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 5099fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_EQ_FNC: 5109fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = a->function == b->function; 5119fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 5129fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 5139fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 5149fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_NE_F: 5159fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = a->_float != b->_float; 5169fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 5179fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_NE_V: 5189fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = (a->vector[0] != b->vector[0]) || 5199fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream (a->vector[1] != b->vector[1]) || 5209fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream (a->vector[2] != b->vector[2]); 5219fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 5229fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_NE_S: 5239fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = strcmp(PR_GetString(a->string), PR_GetString(b->string)); 5249fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 5259fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_NE_E: 5269fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = a->_int != b->_int; 5279fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 5289fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_NE_FNC: 5299fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_float = a->function != b->function; 5309fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 5319fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 5329fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream//================== 5339fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_STORE_F: 5349fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_STORE_ENT: 5359fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_STORE_FLD: // integers 5369fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_STORE_S: 5379fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_STORE_FNC: // pointers 5389fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream b->_int = a->_int; 5399fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 5409fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_STORE_V: 5419fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream b->vector[0] = a->vector[0]; 5429fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream b->vector[1] = a->vector[1]; 5439fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream b->vector[2] = a->vector[2]; 5449fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 5459fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 5469fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_STOREP_F: 5479fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_STOREP_ENT: 5489fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_STOREP_FLD: // integers 5499fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_STOREP_S: 5509fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_STOREP_FNC: // pointers 5519fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream ptr = (eval_t *)((byte *)sv.edicts + b->_int); 5529fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream ptr->_int = a->_int; 5539fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 5549fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_STOREP_V: 5559fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream ptr = (eval_t *)((byte *)sv.edicts + b->_int); 5569fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream ptr->vector[0] = a->vector[0]; 5579fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream ptr->vector[1] = a->vector[1]; 5589fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream ptr->vector[2] = a->vector[2]; 5599fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 5609fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 5619fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_ADDRESS: 5629fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream ed = PROG_TO_EDICT(a->edict); 5639fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#ifdef PARANOID 5649fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream NUM_FOR_EDICT(ed); // make sure it's in range 5659fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#endif 5669fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (ed == (edict_t *)sv.edicts && sv.state == ss_active) 5679fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream PR_RunError ("assignment to world entity"); 5689fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_int = (byte *)((int *)&ed->v + b->_int) - (byte *)sv.edicts; 5699fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 5709fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 5719fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_LOAD_F: 5729fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_LOAD_FLD: 5739fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_LOAD_ENT: 5749fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_LOAD_S: 5759fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_LOAD_FNC: 5769fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream ed = PROG_TO_EDICT(a->edict); 5779fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#ifdef PARANOID 5789fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream NUM_FOR_EDICT(ed); // make sure it's in range 5799fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#endif 5809fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream a = (eval_t *)((int *)&ed->v + b->_int); 5819fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->_int = a->_int; 5829fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 5839fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 5849fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_LOAD_V: 5859fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream ed = PROG_TO_EDICT(a->edict); 5869fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#ifdef PARANOID 5879fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream NUM_FOR_EDICT(ed); // make sure it's in range 5889fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#endif 5899fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream a = (eval_t *)((int *)&ed->v + b->_int); 5909fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->vector[0] = a->vector[0]; 5919fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->vector[1] = a->vector[1]; 5929fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream c->vector[2] = a->vector[2]; 5939fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 5949fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 5959fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream//================== 5969fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 5979fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_IFNOT: 5989fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (!a->_int) 5999fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream s += st->b - 1; // offset the s++ 6009fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 6019fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 6029fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_IF: 6039fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (a->_int) 6049fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream s += st->b - 1; // offset the s++ 6059fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 6069fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 6079fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_GOTO: 6089fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream s += st->a - 1; // offset the s++ 6099fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 6109fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 6119fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_CALL0: 6129fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_CALL1: 6139fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_CALL2: 6149fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_CALL3: 6159fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_CALL4: 6169fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_CALL5: 6179fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_CALL6: 6189fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_CALL7: 6199fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_CALL8: 6209fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream pr_argc = st->op - OP_CALL0; 6219fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (!a->function) 6229fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream PR_RunError ("NULL function"); 6239fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 6249fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream newf = &pr_functions[a->function]; 6259fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 6269fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (newf->first_statement < 0) 6279fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream { // negative statements are built in functions 6289fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream i = -newf->first_statement; 6299fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (i >= pr_numbuiltins) 6309fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream PR_RunError ("Bad builtin call number"); 6319fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream pr_builtins[i] (); 6329fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 6339fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream } 6349fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 6359fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream s = PR_EnterFunction (newf); 6369fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 6379fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 6389fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_DONE: 6399fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_RETURN: 6409fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream pr_globals[OFS_RETURN] = pr_globals[st->a]; 6419fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream pr_globals[OFS_RETURN+1] = pr_globals[st->a+1]; 6429fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream pr_globals[OFS_RETURN+2] = pr_globals[st->a+2]; 6439fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 6449fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream s = PR_LeaveFunction (); 6459fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (pr_depth == exitdepth) 6469fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream return; // all done 6479fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 6489fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 6499fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream case OP_STATE: 6509fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream ed = PROG_TO_EDICT(pr_global_struct->self); 6519fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream ed->v.nextthink = pr_global_struct->time + 0.1; 6529fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (a->_float != ed->v.frame) 6539fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream { 6549fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream ed->v.frame = a->_float; 6559fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream } 6569fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream ed->v.think = b->function; 6579fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 6589fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 6599fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream default: 6609fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream PR_RunError ("Bad opcode %i", st->op); 6619fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream } 6629fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream} 6639fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 6649fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream} 6659fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 6669fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream/*----------------------*/ 6679fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 6689fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamchar *pr_strtbl[MAX_PRSTR]; 6699fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamint num_prstr; 6709fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 6719fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamchar *PR_GetString(int num) 6729fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream{ 6739fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (num < 0) { 6749fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream//Con_DPrintf("GET:%d == %s\n", num, pr_strtbl[-num]); 6759fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream return pr_strtbl[-num]; 6769fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream } 6779fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream return pr_strings + num; 6789fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream} 6799fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 6809fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamint PR_SetString(char *s) 6819fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream{ 6829fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int i; 6839fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 6849fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (s - pr_strings < 0) { 6859fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream for (i = 0; i <= num_prstr; i++) 6869fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (pr_strtbl[i] == s) 6879fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream break; 6889fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (i < num_prstr) 6899fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream return -i; 6909fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream if (num_prstr == MAX_PRSTR - 1) 6919fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream Sys_Error("MAX_PRSTR"); 6929fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream num_prstr++; 6939fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream pr_strtbl[num_prstr] = s; 6949fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream//Con_DPrintf("SET:%d == %s\n", -num_prstr, s); 6959fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream return -num_prstr; 6969fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream } 6979fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream return (int)(s - pr_strings); 6989fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream} 6999fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 700