#include "quakedef.h" #define	LOCALSTACK_SIZE		32768static int			localstack[LOCALSTACK_SIZE];static int			localstack_used; static const char *pr_opnames[] ={"DONE", "MUL_F","MUL_V","MUL_FV","MUL_VF", "DIV", "ADD_F","ADD_V", "SUB_F","SUB_V", "EQ_F","EQ_V","EQ_S","EQ_E","EQ_FNC", "NE_F","NE_V","NE_S","NE_E","NE_FNC", "LE","GE","LT","GT", "INDIRECT","INDIRECT","INDIRECT","INDIRECT","INDIRECT","INDIRECT", "ADDRESS", "STORE_F","STORE_V","STORE_S","STORE_ENT","STORE_FLD","STORE_FNC", "STOREP_F","STOREP_V","STOREP_S","STOREP_ENT","STOREP_FLD","STOREP_FNC", "RETURN", "NOT_F","NOT_V","NOT_S","NOT_ENT","NOT_FNC", "IF","IFNOT", "CALL0","CALL1","CALL2","CALL3","CALL4","CALL5","CALL6","CALL7","CALL8", "STATE", "GOTO", "AND","OR", "BITAND","BITOR"}; char *PR_GlobalString (pr_t *pr, int ofs);char *PR_GlobalStringNoContents (pr_t *pr, int ofs);  //============================================================================= /*=================PR_PrintStatement=================*/void PR_PrintStatement (pr_t *pr, dstatement_t *s){	int		i; 	if ( (unsigned)s->op < sizeof(pr_opnames)/sizeof(pr_opnames[0]))	{		Con_Printf ("%s ",  pr_opnames[s->op]);		i = strlen(pr_opnames[s->op]);		for ( ; i<10 ; i++)			Con_Printf (" ");	} 	if (s->op == OP_IF || s->op == OP_IFNOT)		Con_Printf ("%sbranch %d",PR_GlobalString(pr, s->a),s->b);	else if (s->op == OP_GOTO)	{		Con_Printf ("branch %d",s->a);	}	else if ( (unsigned)(s->op - OP_STORE_F) < 6)	{		Con_Printf ("%s",PR_GlobalString(pr, s->a));		Con_Printf ("%s", PR_GlobalStringNoContents(pr, s->b));	}	else	{		if (s->a)			Con_Printf ("%s",PR_GlobalString(pr, s->a));		if (s->b)			Con_Printf ("%s",PR_GlobalString(pr, s->b));		if (s->c)			Con_Printf ("%s", PR_GlobalStringNoContents(pr, s->c));	}	Con_Printf ("\n");} /*============PR_StackTrace============*/void PR_StackTrace (pr_t *pr){	dfunction_t	*f;	int			i; 	if (pr->depth == 0)	{		Con_Printf ("<NO STACK>\n");		return;	} 	pr->stack[pr->depth].f = pr->xfunction;	for (i=pr->depth ; i>=0 ; i--)	{		f = pr->stack[i].f; 		if(!f){			Con_Printf ("<NO FUNCTION>\n");		}else			Con_Printf ("%12s : %s\n", PR_Str(pr, f->s_file), PR_Str(pr, f->s_name));	}}  /*============PR_Profile_f ============*/void PR_Profile_f (void){	dfunction_t	*f, *best;	int			max;	int			num;	int			i; 	if (!sv.active)		return; 	num = 0;	do	{		max = 0;		best = nil;		for (i=0 ; i<sv.pr->numfunctions ; i++)		{			f = &sv.pr->functions[i];			if (f->profile > max)			{				max = f->profile;				best = f;			}		}		if (best)		{			if (num < 10)				Con_Printf ("%7d %s\n", best->profile, PR_Str(sv.pr, best->s_name));			num++;			best->profile = 0;		}	} while (best);}  /*============PR_RunError Aborts the currently executing function============*/void PR_RunError (pr_t *pr, char *fmt, ...){	va_list arg;	char s[1024]; 	va_start(arg, fmt);	vsnprint(s, sizeof s, fmt, arg);	va_end(arg); 	PR_PrintStatement(pr, pr->statements + pr->xstatement);	PR_StackTrace(pr);	Con_Printf("%s\n", s); 	pr->depth = 0;	// dump the stack so host_error can shutdown functions	Host_Error("Program error");} /*============================================================================PR_ExecuteProgram The interpretation main loop============================================================================*/ /*====================PR_EnterFunction Returns the new program statement counter====================*/int PR_EnterFunction (pr_t *pr, dfunction_t *f){	int		i, j, c, o; 	pr->stack[pr->depth].s = pr->xstatement;	pr->stack[pr->depth].f = pr->xfunction;	pr->depth++;	if(pr->depth >= MAX_STACK_DEPTH)		PR_RunError (pr, "stack overflow"); 	// save off any locals that the new function steps on	c = f->locals;	if (localstack_used + c > LOCALSTACK_SIZE)		PR_RunError(pr, "PR_ExecuteProgram: locals stack overflow\n"); 	for (i=0 ; i < c ; i++)		localstack[localstack_used+i] = ((int *)pr->globals)[f->parm_start + i];	localstack_used += c; 	// copy parameters	o = f->parm_start;	for (i=0 ; i<f->numparms ; i++)	{		for (j=0 ; j<f->parm_size[i] ; j++)		{			((int *)pr->globals)[o] = ((int *)pr->globals)[OFS_PARM0+i*3+j];			o++;		}	} 	pr->xfunction = f;	return f->first_statement - 1;	// offset the s++} /*====================PR_LeaveFunction====================*/int PR_LeaveFunction (pr_t *pr){	int		i, c; 	if (pr->depth <= 0)		fatal ("prog stack underflow"); 	// restore locals from the stack	c = pr->xfunction->locals;	localstack_used -= c;	if (localstack_used < 0)		PR_RunError (pr, "PR_ExecuteProgram: locals stack underflow\n"); 	for (i=0 ; i < c ; i++)		((int *)pr->globals)[pr->xfunction->parm_start + i] = localstack[localstack_used+i]; 	// up stack	pr->depth--;	pr->xfunction = pr->stack[pr->depth].f;	return pr->stack[pr->depth].s;}  /*====================PR_ExecuteProgram====================*/void PR_ExecuteProgram (pr_t *pr, func_t fnum){	eval_t	*a, *b, *c;	int			s;	dstatement_t	*st;	dfunction_t	*f, *newf;	int		runaway;	int		i;	edict_t	*ed;	int		exitdepth;	eval_t	*ptr; 	if (!fnum || fnum >= pr->numfunctions)	{		if (pr->global_struct->self)			ED_Print (pr, PROG_TO_EDICT(pr, pr->global_struct->self));		Host_Error ("PR_ExecuteProgram: NULL function");	} 	f = &pr->functions[fnum]; 	runaway = 100000;	pr->trace = false; 	// make a stack frame	exitdepth = pr->depth; 	s = PR_EnterFunction (pr, f); 	while (1)	{		s++;	// next statement 		st = &pr->statements[s];		a = (eval_t *)&pr->globals[(unsigned short)st->a];		b = (eval_t *)&pr->globals[(unsigned short)st->b];		c = (eval_t *)&pr->globals[(unsigned short)st->c]; 		if (!--runaway)			PR_RunError (pr, "runaway loop error"); 		pr->xfunction->profile++;		pr->xstatement = s; 		if (pr->trace)			PR_PrintStatement (pr, st); 		switch (st->op)		{		case OP_ADD_F:			c->_float = a->_float + b->_float;			break;		case OP_ADD_V:			c->vector[0] = a->vector[0] + b->vector[0];			c->vector[1] = a->vector[1] + b->vector[1];			c->vector[2] = a->vector[2] + b->vector[2];			break; 		case OP_SUB_F:			c->_float = a->_float - b->_float;			break;		case OP_SUB_V:			c->vector[0] = a->vector[0] - b->vector[0];			c->vector[1] = a->vector[1] - b->vector[1];			c->vector[2] = a->vector[2] - b->vector[2];			break; 		case OP_MUL_F:			c->_float = a->_float * b->_float;			break;		case OP_MUL_V:			c->_float = a->vector[0]*b->vector[0]					+ a->vector[1]*b->vector[1]					+ a->vector[2]*b->vector[2];			break;		case OP_MUL_FV:			c->vector[0] = a->_float * b->vector[0];			c->vector[1] = a->_float * b->vector[1];			c->vector[2] = a->_float * b->vector[2];			break;		case OP_MUL_VF:			c->vector[0] = b->_float * a->vector[0];			c->vector[1] = b->_float * a->vector[1];			c->vector[2] = b->_float * a->vector[2];			break; 		case OP_DIV_F:			c->_float = a->_float / b->_float;			break; 		case OP_BITAND:			c->_float = (int)a->_float & (int)b->_float;			break; 		case OP_BITOR:			c->_float = (int)a->_float | (int)b->_float;			break; 		case OP_GE:			c->_float = a->_float >= b->_float;			break;		case OP_LE:			c->_float = a->_float <= b->_float;			break;		case OP_GT:			c->_float = a->_float > b->_float;			break;		case OP_LT:			c->_float = a->_float < b->_float;			break;		case OP_AND:			c->_float = a->_float && b->_float;			break;		case OP_OR:			c->_float = a->_float || b->_float;			break; 		case OP_NOT_F:			c->_float = !a->_float;			break;		case OP_NOT_V:			c->_float = !a->vector[0] && !a->vector[1] && !a->vector[2];			break;		case OP_NOT_S:			c->_float = !a->string || !*PR_Str(pr, a->string);			break;		case OP_NOT_FNC:			c->_float = !a->function;			break;		case OP_NOT_ENT:			c->_float = (PROG_TO_EDICT(pr, a->edict) == pr->edicts);			break; 		case OP_EQ_F:			c->_float = a->_float == b->_float;			break;		case OP_EQ_V:			c->_float = (a->vector[0] == b->vector[0]) &&						(a->vector[1] == b->vector[1]) &&						(a->vector[2] == b->vector[2]);			break;		case OP_EQ_S:			c->_float = !strcmp(PR_Str(pr, a->string), PR_Str(pr, b->string));			break;		case OP_EQ_E:			c->_float = a->_int == b->_int;			break;		case OP_EQ_FNC:			c->_float = a->function == b->function;			break; 		case OP_NE_F:			c->_float = a->_float != b->_float;			break;		case OP_NE_V:			c->_float = (a->vector[0] != b->vector[0]) ||						(a->vector[1] != b->vector[1]) ||						(a->vector[2] != b->vector[2]);			break;		case OP_NE_S:			c->_float = strcmp(PR_Str(pr, a->string), PR_Str(pr, b->string));			break;		case OP_NE_E:			c->_float = a->_int != b->_int;			break;		case OP_NE_FNC:			c->_float = a->function != b->function;			break; //==================		case OP_STORE_F:		case OP_STORE_ENT:		case OP_STORE_FLD:		// integers		case OP_STORE_S:		case OP_STORE_FNC:		// pointers			b->_int = a->_int;			break;		case OP_STORE_V:			b->vector[0] = a->vector[0];			b->vector[1] = a->vector[1];			b->vector[2] = a->vector[2];			break; 

Lines 1–500 of 618. Load more