qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2024-11-18 10:41:40 +00:00
Code Issues Projects Releases Packages Wiki Activity
quakeforge/libs/gamecode/engine/pr_exec.c

882 lines
22 KiB
C
Raw Normal View History

initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
/*
pr_exec.c
(description)
Copyright (C) 1996-1997 Id Software, Inc.
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to:
Free Software Foundation, Inc.
59 Temple Place - Suite 330
Boston, MA 02111-1307, USA
*/
the rcsid commit from hell }:>
2001-09-28 06:26:31 +00:00
static const char rcsid[] =
"$Id$";
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
#ifdef HAVE_CONFIG_H
# include "config.h"
#endif
#ifdef HAVE_STRING_H
# include <string.h>
#endif
#ifdef HAVE_STRINGS_H
# include <strings.h>
#endif
#include <stdarg.h>
move the api headers into include/QF and clean up (most of) the resulting mess. target specific files that I don't build won't compile yet. just put QF/ infront of the offending headers. Also move ver_check into libqfutils
2001-03-27 20:33:07 +00:00
#include "QF/cvar.h"
LordHavoc's VectorIsNull changes from 0.3 but as VectorIsZero (no such thing as a `null' vector) plus a couple of other bits from his patch.
2001-09-11 05:18:15 +00:00
#include "QF/mathlib.h"
move the api headers into include/QF and clean up (most of) the resulting mess. target specific files that I don't build won't compile yet. just put QF/ infront of the offending headers. Also move ver_check into libqfutils
2001-03-27 20:33:07 +00:00
#include "QF/progs.h"
#include "QF/sys.h"
pr_comp.h: add OP_ADD_S. WARNING!!! this /will/ move. progs.h: add prototype for PR_PrintStatement pr_edict.c: add OP_ADD_S support in the progs checker pr_exec.c: implement OP_ADD_S tools/qfcc/include/.gitignore: add config.h.in qfcc.h: nuke PR_NameImmediate and change PR_ParseImmediate's prototype (see pr_imm.c) pr_comp.c: add ADD_S, adjust for PR_ParseImmediate's prototype, make PR_ParseExpression work with non-sequential opcodes (slow, will work on that next). Fix up initialised global parsing. pr_imm.c: nuke PR_NameImmediate. didn't work well and wasn't such a good idea anyway. PR_ParseImmediate now accepts a def_t * arg. if null, will allocate a new global def, otherwise it will initialize the def passed in. qwaq/main.c: sports some debugging code (dumps info about the progs it's running) qwaq/main.qc: better ADD_S testing
2001-06-03 17:36:49 +00:00
#include "QF/zone.h"
#include "compat.h"
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
rhamph's deadbeaf locals patch as-is :)
2001-08-13 20:29:33 +00:00
Whitespace.
2001-09-10 12:56:23 +00:00
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
void
new operand handling from nq
2001-02-27 08:21:40 +00:00
PR_PrintStatement (progs_t * pr, dstatement_t *s)
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
{
Whitespace.
2001-09-10 12:56:23 +00:00
int addr = s - pr->pr_statements;
move the full info opcocde table from qfcc to gamecode (<KURGON>There can be only one!</KURGON>:) and use the table in PR_PrintStatement. This means that qfcc now links against libQFgamecode as well as libQFutil
2001-07-14 02:34:16 +00:00
opcode_t *op;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
debug info for local variables is now used. only works when tracing atm:/
2001-07-19 07:27:14 +00:00
if (pr_debug->int_val && pr->debug) {
print out source line numbers when available
2001-07-14 23:53:59 +00:00
const char *source_line = PR_Get_Source_Line (pr, addr);
if (source_line)
total nukage of Con_*Printf calls from libs (except for video). Sys_*Printf (Sys_DPrintf is new) is now used exclusively for all lib printing. Con_Init sets the sys printf recirection to Con_Print (which has been revamped appropriatly) and the server sets it to SV_Print (which was SV_Printf and the new SV_Printf calls /it/). This should fix the rcon print redirection issues.
2001-09-21 04:22:46 +00:00
Sys_Printf ("%s\n", source_line);
print out source line numbers when available
2001-07-14 23:53:59 +00:00
}
total nukage of Con_*Printf calls from libs (except for video). Sys_*Printf (Sys_DPrintf is new) is now used exclusively for all lib printing. Con_Init sets the sys printf recirection to Con_Print (which has been revamped appropriatly) and the server sets it to SV_Print (which was SV_Printf and the new SV_Printf calls /it/). This should fix the rcon print redirection issues.
2001-09-21 04:22:46 +00:00
Sys_Printf ("%-7d ", addr);
move the full info opcocde table from qfcc to gamecode (<KURGON>There can be only one!</KURGON>:) and use the table in PR_PrintStatement. This means that qfcc now links against libQFgamecode as well as libQFutil
2001-07-14 02:34:16 +00:00
op = PR_Opcode (s->op);
statement printing now infers the type of a def from the instruction where possible, thus allowing anonymous defs to print their contents.
2001-08-13 23:49:04 +00:00
if (!op) {
total nukage of Con_*Printf calls from libs (except for video). Sys_*Printf (Sys_DPrintf is new) is now used exclusively for all lib printing. Con_Init sets the sys printf recirection to Con_Print (which has been revamped appropriatly) and the server sets it to SV_Print (which was SV_Printf and the new SV_Printf calls /it/). This should fix the rcon print redirection issues.
2001-09-21 04:22:46 +00:00
Sys_Printf ("unknown opcode %d\n", s->op);
statement printing now infers the type of a def from the instruction where possible, thus allowing anonymous defs to print their contents.
2001-08-13 23:49:04 +00:00
return;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
}
total nukage of Con_*Printf calls from libs (except for video). Sys_*Printf (Sys_DPrintf is new) is now used exclusively for all lib printing. Con_Init sets the sys printf recirection to Con_Print (which has been revamped appropriatly) and the server sets it to SV_Print (which was SV_Printf and the new SV_Printf calls /it/). This should fix the rcon print redirection issues.
2001-09-21 04:22:46 +00:00
Sys_Printf ("%-9s ", op->opname);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
pr_comp.h: o add ev_uniteger to the types enum o add opcodes for ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui progs.h: o add uinteger accessors pr_exec.c: o implement ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui pr_opcode.c: o add opcodes for ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui expr.h: o prototype inc_users qfcc.h: o add externs for op_ifbe, op_ifb, op_ifae and op_ifa emit.c: o don't bother emiting an assignment to a temp def that's only used once (ie, it's never read, only written to) o support the new if* instructions expr.c: o support the new if* insructions o dectect expression loops in append_expr o support unsigned integers o re-work temp def usage counting pr_def.c o debugging for temp def usage counts pr_opcode.c: o support the new if* instructions qc-parse.y: o provide defines for IFBE IFB IFAE IFA switch.c: o do binary searches for strings, floats and ints if there are more than 8 cases in a switch. Strings need more testing.
2001-11-09 00:58:16 +00:00
if (s->op == OP_IF || s->op == OP_IFNOT || s->op == OP_IFBE
fix a couple of branch offset bugs
2001-11-13 19:52:03 +00:00
|| s->op == OP_IFB || s->op == OP_IFAE || s->op == OP_IFA) {
int ofs = (short) s->b;
total nukage of Con_*Printf calls from libs (except for video). Sys_*Printf (Sys_DPrintf is new) is now used exclusively for all lib printing. Con_Init sets the sys printf recirection to Con_Print (which has been revamped appropriatly) and the server sets it to SV_Print (which was SV_Printf and the new SV_Printf calls /it/). This should fix the rcon print redirection issues.
2001-09-21 04:22:46 +00:00
Sys_Printf ("%sbranch %i (%i)",
fix a couple of branch offset bugs
2001-11-13 19:52:03 +00:00
PR_GlobalString (pr, s->a, ev_integer), ofs, addr + ofs);
} else if (s->op == OP_GOTO) {
int ofs = (short) s->a;
Sys_Printf ("branch %i (%i)", ofs, addr + ofs);
statement printing now infers the type of a def from the instruction where possible, thus allowing anonymous defs to print their contents.
2001-08-13 23:49:04 +00:00
} else if (s->op == OP_RETURN || s->op == OP_DONE) {
total nukage of Con_*Printf calls from libs (except for video). Sys_*Printf (Sys_DPrintf is new) is now used exclusively for all lib printing. Con_Init sets the sys printf recirection to Con_Print (which has been revamped appropriatly) and the server sets it to SV_Print (which was SV_Printf and the new SV_Printf calls /it/). This should fix the rcon print redirection issues.
2001-09-21 04:22:46 +00:00
Sys_Printf ("%s", PR_GlobalString (pr, s->a, ev_void));
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
} else {
statement printing now infers the type of a def from the instruction where possible, thus allowing anonymous defs to print their contents.
2001-08-13 23:49:04 +00:00
if (op->type_a != ev_void)
total nukage of Con_*Printf calls from libs (except for video). Sys_*Printf (Sys_DPrintf is new) is now used exclusively for all lib printing. Con_Init sets the sys printf recirection to Con_Print (which has been revamped appropriatly) and the server sets it to SV_Print (which was SV_Printf and the new SV_Printf calls /it/). This should fix the rcon print redirection issues.
2001-09-21 04:22:46 +00:00
Sys_Printf ("%s", PR_GlobalString (pr, s->a, op->type_a));
statement printing now infers the type of a def from the instruction where possible, thus allowing anonymous defs to print their contents.
2001-08-13 23:49:04 +00:00
if (op->type_b != ev_void) {
if (op->type_c != ev_void)
total nukage of Con_*Printf calls from libs (except for video). Sys_*Printf (Sys_DPrintf is new) is now used exclusively for all lib printing. Con_Init sets the sys printf recirection to Con_Print (which has been revamped appropriatly) and the server sets it to SV_Print (which was SV_Printf and the new SV_Printf calls /it/). This should fix the rcon print redirection issues.
2001-09-21 04:22:46 +00:00
Sys_Printf ("%s", PR_GlobalString (pr, s->b, op->type_b));
statement printing now infers the type of a def from the instruction where possible, thus allowing anonymous defs to print their contents.
2001-08-13 23:49:04 +00:00
else
ok, structures seem to generate correct code now
2001-12-08 08:19:48 +00:00
Sys_Printf ("%s", PR_GlobalStringNoContents (pr, s->b,
op->type_b));
statement printing now infers the type of a def from the instruction where possible, thus allowing anonymous defs to print their contents.
2001-08-13 23:49:04 +00:00
}
fix printing of op_c for storeb
2001-11-15 19:36:40 +00:00
if (op->type_c != ev_void) {
if (op->type_b == ev_pointer && op->type_c == ev_integer)
Sys_Printf ("%s", PR_GlobalString (pr, s->c, op->type_c));
else
ok, structures seem to generate correct code now
2001-12-08 08:19:48 +00:00
Sys_Printf ("%s", PR_GlobalStringNoContents (pr, s->c,
op->type_c));
fix printing of op_c for storeb
2001-11-15 19:36:40 +00:00
}
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
}
total nukage of Con_*Printf calls from libs (except for video). Sys_*Printf (Sys_DPrintf is new) is now used exclusively for all lib printing. Con_Init sets the sys printf recirection to Con_Print (which has been revamped appropriatly) and the server sets it to SV_Print (which was SV_Printf and the new SV_Printf calls /it/). This should fix the rcon print redirection issues.
2001-09-21 04:22:46 +00:00
Sys_Printf ("\n");
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
}
void
new operand handling from nq
2001-02-27 08:21:40 +00:00
PR_StackTrace (progs_t * pr)
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
{
Whitespace.
2001-09-10 12:56:23 +00:00
int i;
dfunction_t *f;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
if (pr->pr_depth == 0) {
total nukage of Con_*Printf calls from libs (except for video). Sys_*Printf (Sys_DPrintf is new) is now used exclusively for all lib printing. Con_Init sets the sys printf recirection to Con_Print (which has been revamped appropriatly) and the server sets it to SV_Print (which was SV_Printf and the new SV_Printf calls /it/). This should fix the rcon print redirection issues.
2001-09-21 04:22:46 +00:00
Sys_Printf ("<NO STACK>\n");
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
return;
}
pr->pr_stack[pr->pr_depth].f = pr->pr_xfunction;
for (i = pr->pr_depth; i >= 0; i--) {
f = pr->pr_stack[i].f;
if (!f) {
total nukage of Con_*Printf calls from libs (except for video). Sys_*Printf (Sys_DPrintf is new) is now used exclusively for all lib printing. Con_Init sets the sys printf recirection to Con_Print (which has been revamped appropriatly) and the server sets it to SV_Print (which was SV_Printf and the new SV_Printf calls /it/). This should fix the rcon print redirection issues.
2001-09-21 04:22:46 +00:00
Sys_Printf ("<NO FUNCTION>\n");
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
} else
total nukage of Con_*Printf calls from libs (except for video). Sys_*Printf (Sys_DPrintf is new) is now used exclusively for all lib printing. Con_Init sets the sys printf recirection to Con_Print (which has been revamped appropriatly) and the server sets it to SV_Print (which was SV_Printf and the new SV_Printf calls /it/). This should fix the rcon print redirection issues.
2001-09-21 04:22:46 +00:00
Sys_Printf ("%12s : %s\n", PR_GetString (pr, f->s_file),
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
PR_GetString (pr, f->s_name));
}
}
void
new operand handling from nq
2001-02-27 08:21:40 +00:00
PR_Profile (progs_t * pr)
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
{
Whitespace.
2001-09-10 12:56:23 +00:00
int max, num, i;
dfunction_t *best, *f;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
num = 0;
do {
max = 0;
best = NULL;
for (i = 0; i < pr->progs->numfunctions; i++) {
f = &pr->pr_functions[i];
if (f->profile > max) {
max = f->profile;
best = f;
}
}
if (best) {
if (num < 10)
total nukage of Con_*Printf calls from libs (except for video). Sys_*Printf (Sys_DPrintf is new) is now used exclusively for all lib printing. Con_Init sets the sys printf recirection to Con_Print (which has been revamped appropriatly) and the server sets it to SV_Print (which was SV_Printf and the new SV_Printf calls /it/). This should fix the rcon print redirection issues.
2001-09-21 04:22:46 +00:00
Sys_Printf ("%7i %s\n", best->profile,
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
PR_GetString (pr, best->s_name));
num++;
best->profile = 0;
}
} while (best);
}
/*
PR_RunError
Aborts the currently executing function
*/
void
fear the mighty const correct patch
2001-07-15 07:04:17 +00:00
PR_RunError (progs_t * pr, const char *error, ...)
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
{
Whitespace.
2001-09-10 12:56:23 +00:00
char string[1024];
va_list argptr;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
va_start (argptr, error);
vsnprintf (string, sizeof (string), error, argptr);
va_end (argptr);
break out the backtrace code from PR_RunError into PR_DumpState and use PR_DumpState instead of PR_RunError in seg_fault_handler so we get both a progs trace /and/ a core file (ulimit allowing)
2001-10-08 03:46:44 +00:00
PR_DumpState (pr);
total nukage of Con_*Printf calls from libs (except for video). Sys_*Printf (Sys_DPrintf is new) is now used exclusively for all lib printing. Con_Init sets the sys printf recirection to Con_Print (which has been revamped appropriatly) and the server sets it to SV_Print (which was SV_Printf and the new SV_Printf calls /it/). This should fix the rcon print redirection issues.
2001-09-21 04:22:46 +00:00
Sys_Printf ("%s\n", string);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break out the backtrace code from PR_RunError into PR_DumpState and use PR_DumpState instead of PR_RunError in seg_fault_handler so we get both a progs trace /and/ a core file (ulimit allowing)
2001-10-08 03:46:44 +00:00
// dump the stack so PR_Error can shutdown functions
pr->pr_depth = 0;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
libqfgamecode now builds. Now for the fun part: getting qw and nq to work using the new setup.
2001-02-28 09:12:01 +00:00
PR_Error (pr, "Program error");
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
}
/*
PR_EnterFunction
Returns the new program statement counter
*/
int
new operand handling from nq
2001-02-27 08:21:40 +00:00
PR_EnterFunction (progs_t * pr, dfunction_t *f)
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
{
Whitespace.
2001-09-10 12:56:23 +00:00
int i, j, c, o;
- add some comments to libs/console/inputline.c - rename pr_deadbeef to pr_deadbeef_ents - add pr_deadbeef_locals, which does uninited locals. (crashes from it are undeniably buggy code, unlike pr_deadeef_ents) - add a missing break to packetlog printing's switch - add sv_kickfake, which kicks people for attempting to fake messages, or replaces the ^Ms with # if disabled.
2001-09-23 00:36:21 +00:00
int k;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
elimination of bare printf (with some exceptions) from libs: Sys_Printf is used instead
2001-10-18 16:42:14 +00:00
//Sys_Printf("%s:\n", PR_GetString(pr,f->s_name));
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
pr->pr_stack[pr->pr_depth].s = pr->pr_xstatement;
pr->pr_stack[pr->pr_depth].f = pr->pr_xfunction;
pr->pr_depth++;
if (pr->pr_depth >= MAX_STACK_DEPTH)
PR_RunError (pr, "stack overflow");
use memcpy instead of ugly casts to transfer locals
2001-06-05 23:57:51 +00:00
// save off any locals that the new function steps on
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
c = f->locals;
if (pr->localstack_used + c > LOCALSTACK_SIZE)
correct the function names in PR_EnterFunction and PR_LeaveFunction
2002-05-21 21:14:32 +00:00
PR_RunError (pr, "PR_EnterFunction: locals stack overflow");
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
use memcpy instead of ugly casts to transfer locals
2001-06-05 23:57:51 +00:00
memcpy (&pr->localstack[pr->localstack_used],
&pr->pr_globals[f->parm_start],
sizeof (pr_type_t) * c);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
pr->localstack_used += c;
- add some comments to libs/console/inputline.c - rename pr_deadbeef to pr_deadbeef_ents - add pr_deadbeef_locals, which does uninited locals. (crashes from it are undeniably buggy code, unlike pr_deadeef_ents) - add a missing break to packetlog printing's switch - add sv_kickfake, which kicks people for attempting to fake messages, or replaces the ^Ms with # if disabled.
2001-09-23 00:36:21 +00:00
if (pr_deadbeef_locals->int_val)
for (k = f->parm_start; k < f->parm_start + c; k++)
pr->pr_globals[k].integer_var = 0xdeadbeef;
rhamph's deadbeaf locals patch as-is :)
2001-08-13 20:29:33 +00:00
Whitespace.
2001-09-10 12:56:23 +00:00
// copy parameters
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
o = f->parm_start;
vararg functions can now be imlemented in qc using @argc (number of params passed through ...) and @argv (array of vectors, one for each ... param)
2002-05-22 20:43:29 +00:00
if (f->numparms >= 0) {
for (i = 0; i < f->numparms; i++) {
for (j = 0; j < f->parm_size[i]; j++) {
memcpy (&pr->pr_globals[o],
&pr->pr_globals[OFS_PARM0 + i * 3 + j],
sizeof (pr_type_t));
o++;
}
}
} else {
pr_type_t *argc = &pr->pr_globals[o++];
pr_type_t *argv = &pr->pr_globals[o++];
for (i = 0; i < -f->numparms - 1; i++) {
for (j = 0; j < f->parm_size[i]; j++) {
memcpy (&pr->pr_globals[o],
&pr->pr_globals[OFS_PARM0 + i * 3 + j],
sizeof (pr_type_t));
o++;
}
}
argc->integer_var = pr->pr_argc - i;
argv->integer_var = o;
while (i < MAX_PARMS) {
use memcpy instead of ugly casts to transfer locals
2001-06-05 23:57:51 +00:00
memcpy (&pr->pr_globals[o],
vararg functions can now be imlemented in qc using @argc (number of params passed through ...) and @argv (array of vectors, one for each ... param)
2002-05-22 20:43:29 +00:00
&pr->pr_globals[OFS_PARM0 + i * 3],
3);
o += 3;
i++;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
}
}
pr->pr_xfunction = f;
return f->first_statement - 1; // offset the s++
}
int
new operand handling from nq
2001-02-27 08:21:40 +00:00
PR_LeaveFunction (progs_t * pr)
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
{
Whitespace.
2001-09-10 12:56:23 +00:00
int c;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
if (pr->pr_depth <= 0)
libqfgamecode now builds. Now for the fun part: getting qw and nq to work using the new setup.
2001-02-28 09:12:01 +00:00
PR_Error (pr, "prog stack underflow");
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
Whitespace.
2001-09-10 12:56:23 +00:00
// restore locals from the stack
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
c = pr->pr_xfunction->locals;
pr->localstack_used -= c;
if (pr->localstack_used < 0)
correct the function names in PR_EnterFunction and PR_LeaveFunction
2002-05-21 21:14:32 +00:00
PR_RunError (pr, "PR_LeaveFunction: locals stack underflow");
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
use memcpy instead of ugly casts to transfer locals
2001-06-05 23:57:51 +00:00
memcpy (&pr->pr_globals[pr->pr_xfunction->parm_start],
&pr->localstack[pr->localstack_used],
sizeof (pr_type_t) * c);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
Whitespace.
2001-09-10 12:56:23 +00:00
// up stack
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
pr->pr_depth--;
pr->pr_xfunction = pr->pr_stack[pr->pr_depth].f;
return pr->pr_stack[pr->pr_depth].s;
}
this should speed up progs a little bit
2002-06-07 19:41:13 +00:00
#define OPA (*op_a)
#define OPB (*op_b)
#define OPC (*op_c)
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
make float != 0 tests work on alpha for when the value is actually an integer (works fine on intel, but on alpha the denormals either produce an exception or true zero: not quite desirable:)
2001-11-19 17:51:31 +00:00
/*
This gets around the problem of needing to test for -0.0 but denormals
causing exceptions (or wrong results for what we need) on the alpha.
*/
#define FNZ(x) ((x).integer_var && (x).integer_var != 0x80000000)
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
Whitespace.
2001-09-10 12:56:23 +00:00
/*
PR_ExecuteProgram
The interpretation main loop
*/
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
void
new operand handling from nq
2001-02-27 08:21:40 +00:00
PR_ExecuteProgram (progs_t * pr, func_t fnum)
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
{
Whitespace.
2001-09-10 12:56:23 +00:00
int exitdepth, profile, startprofile;
pr_comp.h: - new opcodes for pointers progs.h: - prototype PR_Check_Opcodes pr_edict.c: - move the static bounds checking to PR_Check_Opcodes in pr_opcode.c pr_exec.c: - vector instruction cleanup - temporarily nuke bounds checking from storep.* - move base of address results from pr->edicts to pr->pr_globals - implement new pointer related instructions - nuke proposed global pointer instructions (not flexible enough) pr_opcode.c: - add new pointer instuctions - re-implement static bounds/invalid opcode checking. no more multiple case statements to keep track of.
2001-11-02 22:41:11 +00:00
int pointer;
Whitespace.
2001-09-10 12:56:23 +00:00
dfunction_t *f, *newf;
dstatement_t *st;
edict_t *ed;
pr_type_t *ptr;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
if (!fnum || fnum >= pr->progs->numfunctions) {
really clean up global and function access. Unfortunatly, frames are still borked, at least for the view entity.
2001-03-01 08:34:30 +00:00
if (*pr->globals.self)
ED_Print (pr, PROG_TO_EDICT (pr, *pr->globals.self));
- add a NUM_FOR_BAD_EDICT function, which doesn't care if it's a bad value - switch some prints over NUM_FOR_BAD_EDICT - change NUM_FOR_EDICT to call PR_RunError on error, instead of PR_Error. That was it prints out a backtrace. (I did it in reverse order ;)
2001-09-23 01:29:52 +00:00
PR_RunError (pr, "PR_ExecuteProgram: NULL function");
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
}
f = &pr->pr_functions[fnum];
elimination of bare printf (with some exceptions) from libs: Sys_Printf is used instead
2001-10-18 16:42:14 +00:00
//Sys_Printf("%s:\n", PR_GetString(pr,f->s_name));
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
pr->pr_trace = false;
Whitespace.
2001-09-10 12:56:23 +00:00
// make a stack frame
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
exitdepth = pr->pr_depth;
st = &pr->pr_statements[PR_EnterFunction (pr, f)];
startprofile = profile = 0;
while (1) {
this should speed up progs a little bit
2002-06-07 19:41:13 +00:00
pr_type_t *op_a, *op_b, *op_c;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
st++;
fix up #0 builtin functions at runtime. not done automaticly (need to call PR_RelocateBuiltins) and fix a bug with profiling and unlimited execution counts
2001-12-14 08:15:04 +00:00
if (++profile > 1000000 && !pr->no_exec_limit) {
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
pr->pr_xstatement = st - pr->pr_statements;
PR_RunError (pr, "runaway loop error");
}
this should speed up progs a little bit
2002-06-07 19:41:13 +00:00
op_a = pr->pr_globals + st->a;
op_b = pr->pr_globals + st->b;
op_c = pr->pr_globals + st->c;
more debug changes. not there yet
2001-03-02 00:32:10 +00:00
if (pr->pr_trace)
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
PR_PrintStatement (pr, st);
switch (st->op) {
case OP_ADD_F:
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
OPC.float_var = OPA.float_var + OPB.float_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_ADD_V:
pr_comp.h: - new opcodes for pointers progs.h: - prototype PR_Check_Opcodes pr_edict.c: - move the static bounds checking to PR_Check_Opcodes in pr_opcode.c pr_exec.c: - vector instruction cleanup - temporarily nuke bounds checking from storep.* - move base of address results from pr->edicts to pr->pr_globals - implement new pointer related instructions - nuke proposed global pointer instructions (not flexible enough) pr_opcode.c: - add new pointer instuctions - re-implement static bounds/invalid opcode checking. no more multiple case statements to keep track of.
2001-11-02 22:41:11 +00:00
VectorAdd (OPA.vector_var, OPB.vector_var, OPC.vector_var);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
pr_comp.h: add OP_ADD_S. WARNING!!! this /will/ move. progs.h: add prototype for PR_PrintStatement pr_edict.c: add OP_ADD_S support in the progs checker pr_exec.c: implement OP_ADD_S tools/qfcc/include/.gitignore: add config.h.in qfcc.h: nuke PR_NameImmediate and change PR_ParseImmediate's prototype (see pr_imm.c) pr_comp.c: add ADD_S, adjust for PR_ParseImmediate's prototype, make PR_ParseExpression work with non-sequential opcodes (slow, will work on that next). Fix up initialised global parsing. pr_imm.c: nuke PR_NameImmediate. didn't work well and wasn't such a good idea anyway. PR_ParseImmediate now accepts a def_t * arg. if null, will allocate a new global def, otherwise it will initialize the def passed in. qwaq/main.c: sports some debugging code (dumps info about the progs it's running) qwaq/main.qc: better ADD_S testing
2001-06-03 17:36:49 +00:00
case OP_ADD_S:
{
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
char *a = PR_GetString (pr, OPA.string_var);
char *b = PR_GetString (pr, OPB.string_var);
pr_comp.h: add OP_ADD_S. WARNING!!! this /will/ move. progs.h: add prototype for PR_PrintStatement pr_edict.c: add OP_ADD_S support in the progs checker pr_exec.c: implement OP_ADD_S tools/qfcc/include/.gitignore: add config.h.in qfcc.h: nuke PR_NameImmediate and change PR_ParseImmediate's prototype (see pr_imm.c) pr_comp.c: add ADD_S, adjust for PR_ParseImmediate's prototype, make PR_ParseExpression work with non-sequential opcodes (slow, will work on that next). Fix up initialised global parsing. pr_imm.c: nuke PR_NameImmediate. didn't work well and wasn't such a good idea anyway. PR_ParseImmediate now accepts a def_t * arg. if null, will allocate a new global def, otherwise it will initialize the def passed in. qwaq/main.c: sports some debugging code (dumps info about the progs it's running) qwaq/main.qc: better ADD_S testing
2001-06-03 17:36:49 +00:00
int lena = strlen (a);
int size = lena + strlen (b) + 1;
char *c = Hunk_TempAlloc (size);
strcpy (c, a);
strcpy (c + lena, b);
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
OPC.string_var = PR_SetString (pr, c);
pr_comp.h: add OP_ADD_S. WARNING!!! this /will/ move. progs.h: add prototype for PR_PrintStatement pr_edict.c: add OP_ADD_S support in the progs checker pr_exec.c: implement OP_ADD_S tools/qfcc/include/.gitignore: add config.h.in qfcc.h: nuke PR_NameImmediate and change PR_ParseImmediate's prototype (see pr_imm.c) pr_comp.c: add ADD_S, adjust for PR_ParseImmediate's prototype, make PR_ParseExpression work with non-sequential opcodes (slow, will work on that next). Fix up initialised global parsing. pr_imm.c: nuke PR_NameImmediate. didn't work well and wasn't such a good idea anyway. PR_ParseImmediate now accepts a def_t * arg. if null, will allocate a new global def, otherwise it will initialize the def passed in. qwaq/main.c: sports some debugging code (dumps info about the progs it's running) qwaq/main.qc: better ADD_S testing
2001-06-03 17:36:49 +00:00
}
break;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
case OP_SUB_F:
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
OPC.float_var = OPA.float_var - OPB.float_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_SUB_V:
pr_comp.h: - new opcodes for pointers progs.h: - prototype PR_Check_Opcodes pr_edict.c: - move the static bounds checking to PR_Check_Opcodes in pr_opcode.c pr_exec.c: - vector instruction cleanup - temporarily nuke bounds checking from storep.* - move base of address results from pr->edicts to pr->pr_globals - implement new pointer related instructions - nuke proposed global pointer instructions (not flexible enough) pr_opcode.c: - add new pointer instuctions - re-implement static bounds/invalid opcode checking. no more multiple case statements to keep track of.
2001-11-02 22:41:11 +00:00
VectorSubtract (OPA.vector_var, OPB.vector_var, OPC.vector_var);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_MUL_F:
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
OPC.float_var = OPA.float_var * OPB.float_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_MUL_V:
pr_comp.h: - new opcodes for pointers progs.h: - prototype PR_Check_Opcodes pr_edict.c: - move the static bounds checking to PR_Check_Opcodes in pr_opcode.c pr_exec.c: - vector instruction cleanup - temporarily nuke bounds checking from storep.* - move base of address results from pr->edicts to pr->pr_globals - implement new pointer related instructions - nuke proposed global pointer instructions (not flexible enough) pr_opcode.c: - add new pointer instuctions - re-implement static bounds/invalid opcode checking. no more multiple case statements to keep track of.
2001-11-02 22:41:11 +00:00
OPC.float_var = DotProduct (OPA.vector_var, OPB.vector_var);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_MUL_FV:
pr_comp.h: - new opcodes for pointers progs.h: - prototype PR_Check_Opcodes pr_edict.c: - move the static bounds checking to PR_Check_Opcodes in pr_opcode.c pr_exec.c: - vector instruction cleanup - temporarily nuke bounds checking from storep.* - move base of address results from pr->edicts to pr->pr_globals - implement new pointer related instructions - nuke proposed global pointer instructions (not flexible enough) pr_opcode.c: - add new pointer instuctions - re-implement static bounds/invalid opcode checking. no more multiple case statements to keep track of.
2001-11-02 22:41:11 +00:00
VectorScale (OPB.vector_var, OPA.float_var, OPC.vector_var);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_MUL_VF:
pr_comp.h: - new opcodes for pointers progs.h: - prototype PR_Check_Opcodes pr_edict.c: - move the static bounds checking to PR_Check_Opcodes in pr_opcode.c pr_exec.c: - vector instruction cleanup - temporarily nuke bounds checking from storep.* - move base of address results from pr->edicts to pr->pr_globals - implement new pointer related instructions - nuke proposed global pointer instructions (not flexible enough) pr_opcode.c: - add new pointer instuctions - re-implement static bounds/invalid opcode checking. no more multiple case statements to keep track of.
2001-11-02 22:41:11 +00:00
VectorScale (OPA.vector_var, OPB.float_var, OPC.vector_var);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_DIV_F:
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
OPC.float_var = OPA.float_var / OPB.float_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_BITAND:
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
OPC.float_var = (int) OPA.float_var & (int) OPB.float_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_BITOR:
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
OPC.float_var = (int) OPA.float_var | (int) OPB.float_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
^ and ~ operators for qc (^ from Rhamphoryncus) and clean up the punctuation line in qc-lex.l (why didn't I think to do that in the first place?!?)
2001-08-09 16:34:46 +00:00
case OP_BITXOR_F:
OPC.float_var = (int) OPA.float_var ^ (int) OPB.float_var;
break;
case OP_BITNOT_F:
OPC.float_var = ~ (int) OPA.float_var;
break;
got a few new operators for qc :) << >> % which all act like their C counterparts += -= *= /= &= ^= |= <<= >>= %= which just expand into the obvious, also like the C versions.
2001-08-10 16:17:00 +00:00
case OP_SHL_F:
OPC.float_var = (int) OPA.float_var << (int) OPB.float_var;
break;
case OP_SHR_F:
OPC.float_var = (int) OPA.float_var >> (int) OPB.float_var;
break;
case OP_SHL_I:
OPC.integer_var = OPA.integer_var << OPB.integer_var;
break;
case OP_SHR_I:
OPC.integer_var = OPA.integer_var >> OPB.integer_var;
break;
implement comparisons and not for pointers
2002-01-30 21:20:12 +00:00
case OP_GE_F:
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
OPC.float_var = OPA.float_var >= OPB.float_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
implement comparisons and not for pointers
2002-01-30 21:20:12 +00:00
case OP_LE_F:
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
OPC.float_var = OPA.float_var <= OPB.float_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
implement comparisons and not for pointers
2002-01-30 21:20:12 +00:00
case OP_GT_F:
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
OPC.float_var = OPA.float_var > OPB.float_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
implement comparisons and not for pointers
2002-01-30 21:20:12 +00:00
case OP_LT_F:
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
OPC.float_var = OPA.float_var < OPB.float_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
change the results of the test instructions from float to int.
2001-07-22 19:58:17 +00:00
case OP_AND: // OPA and OPB have to be float for -0.0
make float != 0 tests work on alpha for when the value is actually an integer (works fine on intel, but on alpha the denormals either produce an exception or true zero: not quite desirable:)
2001-11-19 17:51:31 +00:00
OPC.integer_var = FNZ (OPA) && FNZ (OPB);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
fix up #0 builtin functions at runtime. not done automaticly (need to call PR_RelocateBuiltins) and fix a bug with profiling and unlimited execution counts
2001-12-14 08:15:04 +00:00
case OP_OR: // OPA and OPB have to be float for -0.0
make float != 0 tests work on alpha for when the value is actually an integer (works fine on intel, but on alpha the denormals either produce an exception or true zero: not quite desirable:)
2001-11-19 17:51:31 +00:00
OPC.integer_var = FNZ (OPA) || FNZ (OPB);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_NOT_F:
make float != 0 tests work on alpha for when the value is actually an integer (works fine on intel, but on alpha the denormals either produce an exception or true zero: not quite desirable:)
2001-11-19 17:51:31 +00:00
OPC.integer_var = !FNZ (OPA);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_NOT_V:
LordHavoc's VectorIsNull changes from 0.3 but as VectorIsZero (no such thing as a `null' vector) plus a couple of other bits from his patch.
2001-09-11 05:18:15 +00:00
OPC.integer_var = VectorIsZero (OPA.vector_var);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_NOT_S:
Whitespace.
2001-09-10 12:56:23 +00:00
OPC.integer_var = !OPA.string_var ||
!*PR_GetString (pr, OPA.string_var);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_NOT_FNC:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
OPC.integer_var = !OPA.func_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_NOT_ENT:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
OPC.integer_var = !OPA.entity_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_EQ_F:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
OPC.integer_var = OPA.float_var == OPB.float_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_EQ_V:
more mathlib usage
2001-11-06 20:36:20 +00:00
OPC.integer_var = VectorCompare (OPA.vector_var,
OPB.vector_var);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_EQ_E:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
OPC.integer_var = OPA.integer_var == OPB.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_EQ_FNC:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
OPC.integer_var = OPA.func_var == OPB.func_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_NE_F:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
OPC.integer_var = OPA.float_var != OPB.float_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_NE_V:
more mathlib usage
2001-11-06 20:36:20 +00:00
OPC.integer_var = !VectorCompare (OPA.vector_var,
OPB.vector_var);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
string comparison operators
2001-06-04 03:36:35 +00:00
case OP_LE_S:
case OP_GE_S:
case OP_LT_S:
case OP_GT_S:
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
case OP_NE_S:
string comparison operators
2001-06-04 03:36:35 +00:00
case OP_EQ_S:
{
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
int cmp = strcmp (PR_GetString (pr, OPA.string_var),
PR_GetString (pr, OPB.string_var));
string comparison operators
2001-06-04 03:36:35 +00:00
switch (st->op) {
case OP_LE_S: cmp = (cmp <= 0); break;
case OP_GE_S: cmp = (cmp >= 0); break;
case OP_LT_S: cmp = (cmp < 0); break;
case OP_GT_S: cmp = (cmp > 0); break;
case OP_NE_S: break;
case OP_EQ_S: cmp = !cmp; break;
blah, enums and switch... (at least gcc 3.1 is warning about that again:)
2002-06-09 16:31:08 +00:00
default: break;
string comparison operators
2001-06-04 03:36:35 +00:00
}
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
OPC.integer_var = cmp;
string comparison operators
2001-06-04 03:36:35 +00:00
}
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_NE_E:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
OPC.integer_var = OPA.integer_var != OPB.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_NE_FNC:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
OPC.integer_var = OPA.func_var != OPB.func_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
new operand handling from nq
2001-02-27 08:21:40 +00:00
// ==================
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
case OP_STORE_F:
case OP_STORE_ENT:
case OP_STORE_FLD: // integers
case OP_STORE_S:
case OP_STORE_FNC: // pointers
redundant code removal
2001-11-02 03:04:01 +00:00
case OP_STORE_I:
forgot to implement store.p
2002-01-23 22:33:22 +00:00
case OP_STORE_P:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
OPB.integer_var = OPA.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_STORE_V:
pr_comp.h: - new opcodes for pointers progs.h: - prototype PR_Check_Opcodes pr_edict.c: - move the static bounds checking to PR_Check_Opcodes in pr_opcode.c pr_exec.c: - vector instruction cleanup - temporarily nuke bounds checking from storep.* - move base of address results from pr->edicts to pr->pr_globals - implement new pointer related instructions - nuke proposed global pointer instructions (not flexible enough) pr_opcode.c: - add new pointer instuctions - re-implement static bounds/invalid opcode checking. no more multiple case statements to keep track of.
2001-11-02 22:41:11 +00:00
VectorCopy (OPA.vector_var, OPB.vector_var);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_STOREP_F:
case OP_STOREP_ENT:
case OP_STOREP_FLD: // integers
case OP_STOREP_S:
case OP_STOREP_FNC: // pointers
redundant code removal
2001-11-02 03:04:01 +00:00
case OP_STOREP_I:
pr_*: add storep.p so pointers can be stored into entities emit.c: convert & (address) to . in unary . rewrite emit_assign_expr expr.c: remove debug code and make unary . less agressive on address calcs also convert & (address) to . for lvals
2001-12-12 20:35:58 +00:00
case OP_STOREP_P:
pr_comp.h: - new opcodes for pointers progs.h: - prototype PR_Check_Opcodes pr_edict.c: - move the static bounds checking to PR_Check_Opcodes in pr_opcode.c pr_exec.c: - vector instruction cleanup - temporarily nuke bounds checking from storep.* - move base of address results from pr->edicts to pr->pr_globals - implement new pointer related instructions - nuke proposed global pointer instructions (not flexible enough) pr_opcode.c: - add new pointer instuctions - re-implement static bounds/invalid opcode checking. no more multiple case statements to keep track of.
2001-11-02 22:41:11 +00:00
//FIXME put bounds checking back
ptr = pr->pr_globals + OPB.integer_var;
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
ptr->integer_var = OPA.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_STOREP_V:
pr_comp.h: - new opcodes for pointers progs.h: - prototype PR_Check_Opcodes pr_edict.c: - move the static bounds checking to PR_Check_Opcodes in pr_opcode.c pr_exec.c: - vector instruction cleanup - temporarily nuke bounds checking from storep.* - move base of address results from pr->edicts to pr->pr_globals - implement new pointer related instructions - nuke proposed global pointer instructions (not flexible enough) pr_opcode.c: - add new pointer instuctions - re-implement static bounds/invalid opcode checking. no more multiple case statements to keep track of.
2001-11-02 22:41:11 +00:00
//FIXME put bounds checking back
ptr = pr->pr_globals + OPB.integer_var;
VectorCopy (OPA.vector_var, ptr->vector_var);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
pr_comp.h: - new opcodes for pointers progs.h: - prototype PR_Check_Opcodes pr_edict.c: - move the static bounds checking to PR_Check_Opcodes in pr_opcode.c pr_exec.c: - vector instruction cleanup - temporarily nuke bounds checking from storep.* - move base of address results from pr->edicts to pr->pr_globals - implement new pointer related instructions - nuke proposed global pointer instructions (not flexible enough) pr_opcode.c: - add new pointer instuctions - re-implement static bounds/invalid opcode checking. no more multiple case statements to keep track of.
2001-11-02 22:41:11 +00:00
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
case OP_ADDRESS:
if (pr_boundscheck->int_val
Whitespace.
2001-09-10 12:56:23 +00:00
&& (OPA.entity_var < 0 || OPA.entity_var >=
pr->pr_edictareasize)) {
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
pr->pr_xstatement = st - pr->pr_statements;
Whitespace.
2001-09-10 12:56:23 +00:00
PR_RunError (pr, "Progs attempted to address an out of "
search for `.self' before `self'
2002-05-18 00:49:16 +00:00
"bounds edict");
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
return;
}
if (pr_boundscheck->int_val
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
&& (OPA.entity_var == 0 && pr->null_bad)) {
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
pr->pr_xstatement = st - pr->pr_statements;
PR_RunError (pr, "assignment to world entity");
return;
}
if (pr_boundscheck->int_val
Whitespace.
2001-09-10 12:56:23 +00:00
&& (OPB.integer_var < 0 || OPB.integer_var >=
pr->progs->entityfields)) {
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
pr->pr_xstatement = st - pr->pr_statements;
Whitespace.
2001-09-10 12:56:23 +00:00
PR_RunError (pr, "Progs attempted to address an invalid "
search for `.self' before `self'
2002-05-18 00:49:16 +00:00
"field in an edict");
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
return;
}
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
ed = PROG_TO_EDICT (pr, OPA.entity_var);
pr_comp.h: - new opcodes for pointers progs.h: - prototype PR_Check_Opcodes pr_edict.c: - move the static bounds checking to PR_Check_Opcodes in pr_opcode.c pr_exec.c: - vector instruction cleanup - temporarily nuke bounds checking from storep.* - move base of address results from pr->edicts to pr->pr_globals - implement new pointer related instructions - nuke proposed global pointer instructions (not flexible enough) pr_opcode.c: - add new pointer instuctions - re-implement static bounds/invalid opcode checking. no more multiple case statements to keep track of.
2001-11-02 22:41:11 +00:00
OPC.integer_var = &ed->v[OPB.integer_var] - pr->pr_globals;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
pr_comp.h: - new opcodes for pointers progs.h: - prototype PR_Check_Opcodes pr_edict.c: - move the static bounds checking to PR_Check_Opcodes in pr_opcode.c pr_exec.c: - vector instruction cleanup - temporarily nuke bounds checking from storep.* - move base of address results from pr->edicts to pr->pr_globals - implement new pointer related instructions - nuke proposed global pointer instructions (not flexible enough) pr_opcode.c: - add new pointer instuctions - re-implement static bounds/invalid opcode checking. no more multiple case statements to keep track of.
2001-11-02 22:41:11 +00:00
case OP_ADDRESS_F:
case OP_ADDRESS_V:
case OP_ADDRESS_S:
case OP_ADDRESS_ENT:
case OP_ADDRESS_FLD:
case OP_ADDRESS_FNC:
case OP_ADDRESS_I:
case OP_ADDRESS_P:
OPC.integer_var = st->a;
break;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
case OP_LOAD_F:
case OP_LOAD_FLD:
case OP_LOAD_ENT:
case OP_LOAD_S:
case OP_LOAD_FNC:
redundant code removal
2001-11-02 03:04:01 +00:00
case OP_LOAD_I:
change the operator for "address" from "." to "&" so load.p can be implement. this makes it so pointers in entities work.
2001-12-08 20:17:20 +00:00
case OP_LOAD_P:
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
if (pr_boundscheck->int_val
Whitespace.
2001-09-10 12:56:23 +00:00
&& (OPA.entity_var < 0 || OPA.entity_var >=
pr->pr_edictareasize)) {
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
pr->pr_xstatement = st - pr->pr_statements;
Whitespace.
2001-09-10 12:56:23 +00:00
PR_RunError (pr, "Progs attempted to read an out of "
search for `.self' before `self'
2002-05-18 00:49:16 +00:00
"bounds edict number");
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
return;
}
if (pr_boundscheck->int_val
Whitespace.
2001-09-10 12:56:23 +00:00
&& (OPB.integer_var < 0 || OPB.integer_var >=
pr->progs->entityfields)) {
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
pr->pr_xstatement = st - pr->pr_statements;
Whitespace.
2001-09-10 12:56:23 +00:00
PR_RunError (pr, "Progs attempted to read an invalid "
search for `.self' before `self'
2002-05-18 00:49:16 +00:00
"field in an edict");
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
return;
}
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
ed = PROG_TO_EDICT (pr, OPA.entity_var);
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
OPC.integer_var = ed->v[OPB.integer_var].integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_LOAD_V:
if (pr_boundscheck->int_val
Whitespace.
2001-09-10 12:56:23 +00:00
&& (OPA.entity_var < 0 || OPA.entity_var >=
pr->pr_edictareasize)) {
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
pr->pr_xstatement = st - pr->pr_statements;
Whitespace.
2001-09-10 12:56:23 +00:00
PR_RunError (pr, "Progs attempted to read an out of "
search for `.self' before `self'
2002-05-18 00:49:16 +00:00
"bounds edict number");
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
return;
}
if (pr_boundscheck->int_val
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
&& (OPB.integer_var < 0
|| OPB.integer_var + 2 >= pr->progs->entityfields)) {
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
pr->pr_xstatement = st - pr->pr_statements;
Whitespace.
2001-09-10 12:56:23 +00:00
PR_RunError (pr, "Progs attempted to read an invalid "
search for `.self' before `self'
2002-05-18 00:49:16 +00:00
"field in an edict");
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
return;
}
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
ed = PROG_TO_EDICT (pr, OPA.entity_var);
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
memcpy (&OPC, &ed->v[OPB.integer_var], 3 * sizeof (OPC));
new operand handling from nq
2001-02-27 08:21:40 +00:00
break;
pr_comp.h: - new opcodes for pointers progs.h: - prototype PR_Check_Opcodes pr_edict.c: - move the static bounds checking to PR_Check_Opcodes in pr_opcode.c pr_exec.c: - vector instruction cleanup - temporarily nuke bounds checking from storep.* - move base of address results from pr->edicts to pr->pr_globals - implement new pointer related instructions - nuke proposed global pointer instructions (not flexible enough) pr_opcode.c: - add new pointer instuctions - re-implement static bounds/invalid opcode checking. no more multiple case statements to keep track of.
2001-11-02 22:41:11 +00:00
case OP_LOADB_F:
case OP_LOADB_S:
case OP_LOADB_ENT:
case OP_LOADB_FLD:
case OP_LOADB_FNC:
case OP_LOADB_I:
case OP_LOADB_P:
//FIXME put bounds checking in
pointer = OPA.integer_var + OPB.integer_var;
ptr = pr->pr_globals + pointer;
OPC.integer_var = ptr->integer_var;
break;
case OP_LOADB_V:
//FIXME put bounds checking in
pointer = OPA.integer_var + OPB.integer_var;
ptr = pr->pr_globals + pointer;
VectorCopy (ptr->vector_var, OPC.vector_var);
break;
immidiate indexed pointer access and some whitespace + reorg
2001-12-07 20:07:38 +00:00
case OP_LOADBI_F:
case OP_LOADBI_S:
case OP_LOADBI_ENT:
case OP_LOADBI_FLD:
case OP_LOADBI_FNC:
case OP_LOADBI_I:
case OP_LOADBI_P:
//FIXME put bounds checking in
pointer = OPA.integer_var + (short) st->b;
ptr = pr->pr_globals + pointer;
OPC.integer_var = ptr->integer_var;
break;
case OP_LOADBI_V:
//FIXME put bounds checking in
pointer = OPA.integer_var + (short) st->b;
ptr = pr->pr_globals + pointer;
VectorCopy (ptr->vector_var, OPC.vector_var);
break;
pr_comp.h: - new opcodes for pointers progs.h: - prototype PR_Check_Opcodes pr_edict.c: - move the static bounds checking to PR_Check_Opcodes in pr_opcode.c pr_exec.c: - vector instruction cleanup - temporarily nuke bounds checking from storep.* - move base of address results from pr->edicts to pr->pr_globals - implement new pointer related instructions - nuke proposed global pointer instructions (not flexible enough) pr_opcode.c: - add new pointer instuctions - re-implement static bounds/invalid opcode checking. no more multiple case statements to keep track of.
2001-11-02 22:41:11 +00:00
case OP_LEA:
pointer = OPA.integer_var + OPB.integer_var;
OPC.integer_var = pointer;
break;
ok, structures seem to generate correct code now
2001-12-08 08:19:48 +00:00
case OP_LEAI:
pointer = OPA.integer_var + (short) st->b;
OPC.integer_var = pointer;
break;
pr_comp.h: - new opcodes for pointers progs.h: - prototype PR_Check_Opcodes pr_edict.c: - move the static bounds checking to PR_Check_Opcodes in pr_opcode.c pr_exec.c: - vector instruction cleanup - temporarily nuke bounds checking from storep.* - move base of address results from pr->edicts to pr->pr_globals - implement new pointer related instructions - nuke proposed global pointer instructions (not flexible enough) pr_opcode.c: - add new pointer instuctions - re-implement static bounds/invalid opcode checking. no more multiple case statements to keep track of.
2001-11-02 22:41:11 +00:00
case OP_STOREB_F:
case OP_STOREB_S:
case OP_STOREB_ENT:
case OP_STOREB_FLD:
case OP_STOREB_FNC:
case OP_STOREB_I:
case OP_STOREB_P:
//FIXME put bounds checking in
pointer = OPB.integer_var + OPC.integer_var;
ptr = pr->pr_globals + pointer;
ptr->integer_var = OPA.integer_var;
break;
case OP_STOREB_V:
//FIXME put bounds checking in
pointer = OPB.integer_var + OPC.integer_var;
ptr = pr->pr_globals + pointer;
VectorCopy (OPA.vector_var, ptr->vector_var);
break;
immidiate indexed pointer access and some whitespace + reorg
2001-12-07 20:07:38 +00:00
case OP_STOREBI_F:
case OP_STOREBI_S:
case OP_STOREBI_ENT:
case OP_STOREBI_FLD:
case OP_STOREBI_FNC:
case OP_STOREBI_I:
case OP_STOREBI_P:
//FIXME put bounds checking in
pointer = OPB.integer_var + (short) st->c;
ptr = pr->pr_globals + pointer;
ptr->integer_var = OPA.integer_var;
break;
case OP_STOREBI_V:
//FIXME put bounds checking in
pointer = OPB.integer_var + (short) st->c;
ptr = pr->pr_globals + pointer;
VectorCopy (OPA.vector_var, ptr->vector_var);
break;
new operand handling from nq
2001-02-27 08:21:40 +00:00
// ==================
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
case OP_IFNOT:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
if (!OPA.integer_var)
change the types of the statement operands to unsigned short to clean up most of the uses
2001-08-13 21:09:00 +00:00
st += (short)st->b - 1; // offset the s++
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_IF:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
if (OPA.integer_var)
change the types of the statement operands to unsigned short to clean up most of the uses
2001-08-13 21:09:00 +00:00
st += (short)st->b - 1; // offset the s++
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
pr_comp.h: o add ev_uniteger to the types enum o add opcodes for ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui progs.h: o add uinteger accessors pr_exec.c: o implement ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui pr_opcode.c: o add opcodes for ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui expr.h: o prototype inc_users qfcc.h: o add externs for op_ifbe, op_ifb, op_ifae and op_ifa emit.c: o don't bother emiting an assignment to a temp def that's only used once (ie, it's never read, only written to) o support the new if* instructions expr.c: o support the new if* insructions o dectect expression loops in append_expr o support unsigned integers o re-work temp def usage counting pr_def.c o debugging for temp def usage counts pr_opcode.c: o support the new if* instructions qc-parse.y: o provide defines for IFBE IFB IFAE IFA switch.c: o do binary searches for strings, floats and ints if there are more than 8 cases in a switch. Strings need more testing.
2001-11-09 00:58:16 +00:00
case OP_IFBE:
if (OPA.integer_var <= 0)
st += (short)st->b - 1; // offset the s++
break;
case OP_IFB:
if (OPA.integer_var < 0)
st += (short)st->b - 1; // offset the s++
break;
case OP_IFAE:
if (OPA.integer_var >= 0)
st += (short)st->b - 1; // offset the s++
break;
case OP_IFA:
if (OPA.integer_var > 0)
st += (short)st->b - 1; // offset the s++
break;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
case OP_GOTO:
change the types of the statement operands to unsigned short to clean up most of the uses
2001-08-13 21:09:00 +00:00
st += (short)st->a - 1; // offset the s++
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
pr_comp.h: o add ev_uniteger to the types enum o add opcodes for ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui progs.h: o add uinteger accessors pr_exec.c: o implement ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui pr_opcode.c: o add opcodes for ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui expr.h: o prototype inc_users qfcc.h: o add externs for op_ifbe, op_ifb, op_ifae and op_ifa emit.c: o don't bother emiting an assignment to a temp def that's only used once (ie, it's never read, only written to) o support the new if* instructions expr.c: o support the new if* insructions o dectect expression loops in append_expr o support unsigned integers o re-work temp def usage counting pr_def.c o debugging for temp def usage counts pr_opcode.c: o support the new if* instructions qc-parse.y: o provide defines for IFBE IFB IFAE IFA switch.c: o do binary searches for strings, floats and ints if there are more than 8 cases in a switch. Strings need more testing.
2001-11-09 00:58:16 +00:00
case OP_JUMP:
if (pr_boundscheck->int_val
&& (OPA.uinteger_var >= pr->progs->numstatements)) {
pr->pr_xstatement = st - pr->pr_statements;
search for `.self' before `self'
2002-05-18 00:49:16 +00:00
PR_RunError (pr, "Invalid jump destination");
pr_comp.h: o add ev_uniteger to the types enum o add opcodes for ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui progs.h: o add uinteger accessors pr_exec.c: o implement ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui pr_opcode.c: o add opcodes for ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui expr.h: o prototype inc_users qfcc.h: o add externs for op_ifbe, op_ifb, op_ifae and op_ifa emit.c: o don't bother emiting an assignment to a temp def that's only used once (ie, it's never read, only written to) o support the new if* instructions expr.c: o support the new if* insructions o dectect expression loops in append_expr o support unsigned integers o re-work temp def usage counting pr_def.c o debugging for temp def usage counts pr_opcode.c: o support the new if* instructions qc-parse.y: o provide defines for IFBE IFB IFAE IFA switch.c: o do binary searches for strings, floats and ints if there are more than 8 cases in a switch. Strings need more testing.
2001-11-09 00:58:16 +00:00
return;
}
st = &pr->pr_statements[OPA.uinteger_var];
break;
pr_comp.h: o add OP_JUMPB o OP_JUMPB renumberd some opcodes, so up PROG_VERSION pr_edict.c: o make the version error reporting more informative pr_exec.c: o implement OP_JUMPB (goto *(ptr + index)) pr_opcode.c: (libs/gamecode/engine) o add OP_JUMPB to the table expr.h: o ex_uinteger support o some const correctness o prototype new_label_expr qfcc.h: o uinteger ussport o add pointers for op_jump and op_jumpb o prototype PR_GetArray emit.c: o general uinteger support o new reference/reloc type 3: absolute statement address o jumpb support (binary goto) expr.c: o uinteger support o break the label name creation out of new_label_expr into new_label_name o some const correctness pr_def.c: o add PR_GetArray to allocate an array in global space o factor out some code common to PR_GetDef and PR_GetArray that would otherwise be duplicated pr_imm.c: o some const correctness o uinteger support pr_lex.c: o uinteger support pr_opcode.c: (tools/qfcc/source) o support jump and jumpb switch.c: o rewrite the binary search code to support ranges.
2001-11-13 08:58:54 +00:00
case OP_JUMPB:
//FIXME put bounds checking in
pointer = OPA.integer_var + OPB.integer_var;
ptr = pr->pr_globals + pointer;
pointer = ptr->integer_var;
if (pr_boundscheck->int_val
&& (pointer >= pr->progs->numstatements)) {
pr->pr_xstatement = st - pr->pr_statements;
search for `.self' before `self'
2002-05-18 00:49:16 +00:00
PR_RunError (pr, "Invalid jump destination");
pr_comp.h: o add OP_JUMPB o OP_JUMPB renumberd some opcodes, so up PROG_VERSION pr_edict.c: o make the version error reporting more informative pr_exec.c: o implement OP_JUMPB (goto *(ptr + index)) pr_opcode.c: (libs/gamecode/engine) o add OP_JUMPB to the table expr.h: o ex_uinteger support o some const correctness o prototype new_label_expr qfcc.h: o uinteger ussport o add pointers for op_jump and op_jumpb o prototype PR_GetArray emit.c: o general uinteger support o new reference/reloc type 3: absolute statement address o jumpb support (binary goto) expr.c: o uinteger support o break the label name creation out of new_label_expr into new_label_name o some const correctness pr_def.c: o add PR_GetArray to allocate an array in global space o factor out some code common to PR_GetDef and PR_GetArray that would otherwise be duplicated pr_imm.c: o some const correctness o uinteger support pr_lex.c: o uinteger support pr_opcode.c: (tools/qfcc/source) o support jump and jumpb switch.c: o rewrite the binary search code to support ranges.
2001-11-13 08:58:54 +00:00
return;
}
st = &pr->pr_statements[pointer];
break;
pr_comp.h: o add ev_uniteger to the types enum o add opcodes for ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui progs.h: o add uinteger accessors pr_exec.c: o implement ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui pr_opcode.c: o add opcodes for ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui expr.h: o prototype inc_users qfcc.h: o add externs for op_ifbe, op_ifb, op_ifae and op_ifa emit.c: o don't bother emiting an assignment to a temp def that's only used once (ie, it's never read, only written to) o support the new if* instructions expr.c: o support the new if* insructions o dectect expression loops in append_expr o support unsigned integers o re-work temp def usage counting pr_def.c o debugging for temp def usage counts pr_opcode.c: o support the new if* instructions qc-parse.y: o provide defines for IFBE IFB IFAE IFA switch.c: o do binary searches for strings, floats and ints if there are more than 8 cases in a switch. Strings need more testing.
2001-11-09 00:58:16 +00:00
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
case OP_CALL0:
case OP_CALL1:
case OP_CALL2:
case OP_CALL3:
case OP_CALL4:
case OP_CALL5:
case OP_CALL6:
case OP_CALL7:
case OP_CALL8:
pr->pr_xfunction->profile += profile - startprofile;
startprofile = profile;
pr->pr_xstatement = st - pr->pr_statements;
pr->pr_argc = st->op - OP_CALL0;
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
if (!OPA.func_var)
fix up some overzelous s///
2001-06-07 22:15:37 +00:00
PR_RunError (pr, "NULL function");
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
newf = &pr->pr_functions[OPA.func_var];
fix up some overzelous s///
2001-06-07 22:15:37 +00:00
if (newf->first_statement < 0) {
// negative statements are built in functions
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
int i = -newf->first_statement;
make the builtins an array of pointers so the hash table doesn't get royally screwed up
2002-01-19 03:31:51 +00:00
if (i >= pr->numbuiltins || !pr->builtins[i]
|| !pr->builtins[i]->proc)
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
PR_RunError (pr, "Bad builtin call number");
make the builtins an array of pointers so the hash table doesn't get royally screwed up
2002-01-19 03:31:51 +00:00
pr->builtins[i]->proc (pr);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
}
st = &pr->pr_statements[PR_EnterFunction (pr, newf)];
break;
case OP_DONE:
case OP_RETURN:
new operand handling from nq
2001-02-27 08:21:40 +00:00
memcpy (&pr->pr_globals[OFS_RETURN], &OPA, 3 * sizeof (OPA));
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
st = &pr->pr_statements[PR_LeaveFunction (pr)];
if (pr->pr_depth == exitdepth)
new operand handling from nq
2001-02-27 08:21:40 +00:00
return; // all done
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_STATE:
really clean up global and function access. Unfortunatly, frames are still borked, at least for the view entity.
2001-03-01 08:34:30 +00:00
ed = PROG_TO_EDICT (pr, *pr->globals.self);
Whitespace.
2001-09-10 12:56:23 +00:00
ed->v[pr->fields.nextthink].float_var = *pr->globals.time +
0.1;
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
ed->v[pr->fields.frame].float_var = OPA.float_var;
ed->v[pr->fields.think].func_var = OPB.func_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_ADD_I:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
OPC.integer_var = OPA.integer_var + OPB.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_SUB_I:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
OPC.integer_var = OPA.integer_var - OPB.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_MUL_I:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
OPC.integer_var = OPA.integer_var * OPB.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
Initial integer type support. qfcc /is/ partially broken when it comes to integer constants and float function args/return values. pr_comp.h: o add the integer opcodes to pr_opcode_e pr_edict.c: o add "quaternion" and "integer" to type_name[] o support quatnernion and integers types when printing values o support the integer opcodes when bounds checking pr_exec.c o enable the integer opcodes pr_opcode: o add the integer opcodes to the opcode table o logical operators all result in an integer rather than a value expr.h: o rename int_val to integer_val qfcc.h: o kill another magic number expr.c: o move the opcode to string conversion out of type_mismatch and into get_op_string o rename int_val to integer_val o general integer type support. o generate an internal comipiler error for null opcodes rather than segging. pr_imm.c: o rename int_val to integer_val o support integer constants, converting to float when needed. pr_lex.c: o magic number death and support quaternions and integers in type_size[] qc-lex.l o rename int_val to integer_val o support quaternion and integer type keywords qc-parse.y: o rename int_val to integer_val o use binary_expr instead of new_binary_expr for local initialized variables builtins.c: o rename int_val to integer_val o fix most (all?) of the INT related FIXMEs defs.qc: o use integer instead of float where it makes sense main.c: o read_result is now integer rather than float main.qc: o float -> integer where appropriate o new test for int const to float arg
2001-07-23 01:31:22 +00:00
/*
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
case OP_DIV_VF:
{
Massive clean up of progs accessors. Just the cleanup of the casts fixed the CustomTF doors issue.
2001-06-07 21:59:24 +00:00
float temp = 1.0f / OPB.float_var;
pr_comp.h: - new opcodes for pointers progs.h: - prototype PR_Check_Opcodes pr_edict.c: - move the static bounds checking to PR_Check_Opcodes in pr_opcode.c pr_exec.c: - vector instruction cleanup - temporarily nuke bounds checking from storep.* - move base of address results from pr->edicts to pr->pr_globals - implement new pointer related instructions - nuke proposed global pointer instructions (not flexible enough) pr_opcode.c: - add new pointer instuctions - re-implement static bounds/invalid opcode checking. no more multiple case statements to keep track of.
2001-11-02 22:41:11 +00:00
VectorScale (OPA.vector_var, temp, OPC.vector_var);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
}
break;
Initial integer type support. qfcc /is/ partially broken when it comes to integer constants and float function args/return values. pr_comp.h: o add the integer opcodes to pr_opcode_e pr_edict.c: o add "quaternion" and "integer" to type_name[] o support quatnernion and integers types when printing values o support the integer opcodes when bounds checking pr_exec.c o enable the integer opcodes pr_opcode: o add the integer opcodes to the opcode table o logical operators all result in an integer rather than a value expr.h: o rename int_val to integer_val qfcc.h: o kill another magic number expr.c: o move the opcode to string conversion out of type_mismatch and into get_op_string o rename int_val to integer_val o general integer type support. o generate an internal comipiler error for null opcodes rather than segging. pr_imm.c: o rename int_val to integer_val o support integer constants, converting to float when needed. pr_lex.c: o magic number death and support quaternions and integers in type_size[] qc-lex.l o rename int_val to integer_val o support quaternion and integer type keywords qc-parse.y: o rename int_val to integer_val o use binary_expr instead of new_binary_expr for local initialized variables builtins.c: o rename int_val to integer_val o fix most (all?) of the INT related FIXMEs defs.qc: o use integer instead of float where it makes sense main.c: o read_result is now integer rather than float main.qc: o float -> integer where appropriate o new test for int const to float arg
2001-07-23 01:31:22 +00:00
*/
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
case OP_DIV_I:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
OPC.integer_var = OPA.integer_var / OPB.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
got a few new operators for qc :) << >> % which all act like their C counterparts += -= *= /= &= ^= |= <<= >>= %= which just expand into the obvious, also like the C versions.
2001-08-10 16:17:00 +00:00
case OP_MOD_I:
OPC.integer_var = OPA.integer_var % OPB.integer_var;
break;
case OP_MOD_F:
OPC.float_var = (int) OPA.float_var % (int) OPB.float_var;
break;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
case OP_CONV_IF:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
OPC.float_var = OPA.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_CONV_FI:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
OPC.integer_var = OPA.float_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_BITAND_I:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
OPC.integer_var = OPA.integer_var & OPB.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_BITOR_I:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
OPC.integer_var = OPA.integer_var | OPB.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
^ and ~ operators for qc (^ from Rhamphoryncus) and clean up the punctuation line in qc-lex.l (why didn't I think to do that in the first place?!?)
2001-08-09 16:34:46 +00:00
case OP_BITXOR_I:
OPC.integer_var = OPA.integer_var ^ OPB.integer_var;
break;
case OP_BITNOT_I:
OPC.integer_var = ~OPA.integer_var;
break;
pr_comp.h: o add ev_uniteger to the types enum o add opcodes for ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui progs.h: o add uinteger accessors pr_exec.c: o implement ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui pr_opcode.c: o add opcodes for ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui expr.h: o prototype inc_users qfcc.h: o add externs for op_ifbe, op_ifb, op_ifae and op_ifa emit.c: o don't bother emiting an assignment to a temp def that's only used once (ie, it's never read, only written to) o support the new if* instructions expr.c: o support the new if* insructions o dectect expression loops in append_expr o support unsigned integers o re-work temp def usage counting pr_def.c o debugging for temp def usage counts pr_opcode.c: o support the new if* instructions qc-parse.y: o provide defines for IFBE IFB IFAE IFA switch.c: o do binary searches for strings, floats and ints if there are more than 8 cases in a switch. Strings need more testing.
2001-11-09 00:58:16 +00:00
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
case OP_GE_I:
implement comparisons and not for pointers
2002-01-30 21:20:12 +00:00
case OP_GE_P:
Initial integer type support. qfcc /is/ partially broken when it comes to integer constants and float function args/return values. pr_comp.h: o add the integer opcodes to pr_opcode_e pr_edict.c: o add "quaternion" and "integer" to type_name[] o support quatnernion and integers types when printing values o support the integer opcodes when bounds checking pr_exec.c o enable the integer opcodes pr_opcode: o add the integer opcodes to the opcode table o logical operators all result in an integer rather than a value expr.h: o rename int_val to integer_val qfcc.h: o kill another magic number expr.c: o move the opcode to string conversion out of type_mismatch and into get_op_string o rename int_val to integer_val o general integer type support. o generate an internal comipiler error for null opcodes rather than segging. pr_imm.c: o rename int_val to integer_val o support integer constants, converting to float when needed. pr_lex.c: o magic number death and support quaternions and integers in type_size[] qc-lex.l o rename int_val to integer_val o support quaternion and integer type keywords qc-parse.y: o rename int_val to integer_val o use binary_expr instead of new_binary_expr for local initialized variables builtins.c: o rename int_val to integer_val o fix most (all?) of the INT related FIXMEs defs.qc: o use integer instead of float where it makes sense main.c: o read_result is now integer rather than float main.qc: o float -> integer where appropriate o new test for int const to float arg
2001-07-23 01:31:22 +00:00
OPC.integer_var = OPA.integer_var >= OPB.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_LE_I:
implement comparisons and not for pointers
2002-01-30 21:20:12 +00:00
case OP_LE_P:
Initial integer type support. qfcc /is/ partially broken when it comes to integer constants and float function args/return values. pr_comp.h: o add the integer opcodes to pr_opcode_e pr_edict.c: o add "quaternion" and "integer" to type_name[] o support quatnernion and integers types when printing values o support the integer opcodes when bounds checking pr_exec.c o enable the integer opcodes pr_opcode: o add the integer opcodes to the opcode table o logical operators all result in an integer rather than a value expr.h: o rename int_val to integer_val qfcc.h: o kill another magic number expr.c: o move the opcode to string conversion out of type_mismatch and into get_op_string o rename int_val to integer_val o general integer type support. o generate an internal comipiler error for null opcodes rather than segging. pr_imm.c: o rename int_val to integer_val o support integer constants, converting to float when needed. pr_lex.c: o magic number death and support quaternions and integers in type_size[] qc-lex.l o rename int_val to integer_val o support quaternion and integer type keywords qc-parse.y: o rename int_val to integer_val o use binary_expr instead of new_binary_expr for local initialized variables builtins.c: o rename int_val to integer_val o fix most (all?) of the INT related FIXMEs defs.qc: o use integer instead of float where it makes sense main.c: o read_result is now integer rather than float main.qc: o float -> integer where appropriate o new test for int const to float arg
2001-07-23 01:31:22 +00:00
OPC.integer_var = OPA.integer_var <= OPB.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_GT_I:
implement comparisons and not for pointers
2002-01-30 21:20:12 +00:00
case OP_GT_P:
Initial integer type support. qfcc /is/ partially broken when it comes to integer constants and float function args/return values. pr_comp.h: o add the integer opcodes to pr_opcode_e pr_edict.c: o add "quaternion" and "integer" to type_name[] o support quatnernion and integers types when printing values o support the integer opcodes when bounds checking pr_exec.c o enable the integer opcodes pr_opcode: o add the integer opcodes to the opcode table o logical operators all result in an integer rather than a value expr.h: o rename int_val to integer_val qfcc.h: o kill another magic number expr.c: o move the opcode to string conversion out of type_mismatch and into get_op_string o rename int_val to integer_val o general integer type support. o generate an internal comipiler error for null opcodes rather than segging. pr_imm.c: o rename int_val to integer_val o support integer constants, converting to float when needed. pr_lex.c: o magic number death and support quaternions and integers in type_size[] qc-lex.l o rename int_val to integer_val o support quaternion and integer type keywords qc-parse.y: o rename int_val to integer_val o use binary_expr instead of new_binary_expr for local initialized variables builtins.c: o rename int_val to integer_val o fix most (all?) of the INT related FIXMEs defs.qc: o use integer instead of float where it makes sense main.c: o read_result is now integer rather than float main.qc: o float -> integer where appropriate o new test for int const to float arg
2001-07-23 01:31:22 +00:00
OPC.integer_var = OPA.integer_var > OPB.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_LT_I:
implement comparisons and not for pointers
2002-01-30 21:20:12 +00:00
case OP_LT_P:
pr_comp.h: o add ev_uniteger to the types enum o add opcodes for ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui progs.h: o add uinteger accessors pr_exec.c: o implement ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui pr_opcode.c: o add opcodes for ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui expr.h: o prototype inc_users qfcc.h: o add externs for op_ifbe, op_ifb, op_ifae and op_ifa emit.c: o don't bother emiting an assignment to a temp def that's only used once (ie, it's never read, only written to) o support the new if* instructions expr.c: o support the new if* insructions o dectect expression loops in append_expr o support unsigned integers o re-work temp def usage counting pr_def.c o debugging for temp def usage counts pr_opcode.c: o support the new if* instructions qc-parse.y: o provide defines for IFBE IFB IFAE IFA switch.c: o do binary searches for strings, floats and ints if there are more than 8 cases in a switch. Strings need more testing.
2001-11-09 00:58:16 +00:00
OPC.integer_var = OPA.uinteger_var < OPB.uinteger_var;
break;
case OP_GE_UI:
OPC.integer_var = OPA.uinteger_var >= OPB.uinteger_var;
break;
case OP_LE_UI:
OPC.integer_var = OPA.uinteger_var <= OPB.uinteger_var;
break;
case OP_GT_UI:
OPC.integer_var = OPA.uinteger_var > OPB.uinteger_var;
break;
case OP_LT_UI:
Initial integer type support. qfcc /is/ partially broken when it comes to integer constants and float function args/return values. pr_comp.h: o add the integer opcodes to pr_opcode_e pr_edict.c: o add "quaternion" and "integer" to type_name[] o support quatnernion and integers types when printing values o support the integer opcodes when bounds checking pr_exec.c o enable the integer opcodes pr_opcode: o add the integer opcodes to the opcode table o logical operators all result in an integer rather than a value expr.h: o rename int_val to integer_val qfcc.h: o kill another magic number expr.c: o move the opcode to string conversion out of type_mismatch and into get_op_string o rename int_val to integer_val o general integer type support. o generate an internal comipiler error for null opcodes rather than segging. pr_imm.c: o rename int_val to integer_val o support integer constants, converting to float when needed. pr_lex.c: o magic number death and support quaternions and integers in type_size[] qc-lex.l o rename int_val to integer_val o support quaternion and integer type keywords qc-parse.y: o rename int_val to integer_val o use binary_expr instead of new_binary_expr for local initialized variables builtins.c: o rename int_val to integer_val o fix most (all?) of the INT related FIXMEs defs.qc: o use integer instead of float where it makes sense main.c: o read_result is now integer rather than float main.qc: o float -> integer where appropriate o new test for int const to float arg
2001-07-23 01:31:22 +00:00
OPC.integer_var = OPA.integer_var < OPB.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
pr_comp.h: o add ev_uniteger to the types enum o add opcodes for ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui progs.h: o add uinteger accessors pr_exec.c: o implement ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui pr_opcode.c: o add opcodes for ifbe, ifb, ifae, ifa, jump, lt.ui, gt.ui, le.ui, ge.ui expr.h: o prototype inc_users qfcc.h: o add externs for op_ifbe, op_ifb, op_ifae and op_ifa emit.c: o don't bother emiting an assignment to a temp def that's only used once (ie, it's never read, only written to) o support the new if* instructions expr.c: o support the new if* insructions o dectect expression loops in append_expr o support unsigned integers o re-work temp def usage counting pr_def.c o debugging for temp def usage counts pr_opcode.c: o support the new if* instructions qc-parse.y: o provide defines for IFBE IFB IFAE IFA switch.c: o do binary searches for strings, floats and ints if there are more than 8 cases in a switch. Strings need more testing.
2001-11-09 00:58:16 +00:00
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
case OP_AND_I:
Initial integer type support. qfcc /is/ partially broken when it comes to integer constants and float function args/return values. pr_comp.h: o add the integer opcodes to pr_opcode_e pr_edict.c: o add "quaternion" and "integer" to type_name[] o support quatnernion and integers types when printing values o support the integer opcodes when bounds checking pr_exec.c o enable the integer opcodes pr_opcode: o add the integer opcodes to the opcode table o logical operators all result in an integer rather than a value expr.h: o rename int_val to integer_val qfcc.h: o kill another magic number expr.c: o move the opcode to string conversion out of type_mismatch and into get_op_string o rename int_val to integer_val o general integer type support. o generate an internal comipiler error for null opcodes rather than segging. pr_imm.c: o rename int_val to integer_val o support integer constants, converting to float when needed. pr_lex.c: o magic number death and support quaternions and integers in type_size[] qc-lex.l o rename int_val to integer_val o support quaternion and integer type keywords qc-parse.y: o rename int_val to integer_val o use binary_expr instead of new_binary_expr for local initialized variables builtins.c: o rename int_val to integer_val o fix most (all?) of the INT related FIXMEs defs.qc: o use integer instead of float where it makes sense main.c: o read_result is now integer rather than float main.qc: o float -> integer where appropriate o new test for int const to float arg
2001-07-23 01:31:22 +00:00
OPC.integer_var = OPA.integer_var && OPB.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_OR_I:
Initial integer type support. qfcc /is/ partially broken when it comes to integer constants and float function args/return values. pr_comp.h: o add the integer opcodes to pr_opcode_e pr_edict.c: o add "quaternion" and "integer" to type_name[] o support quatnernion and integers types when printing values o support the integer opcodes when bounds checking pr_exec.c o enable the integer opcodes pr_opcode: o add the integer opcodes to the opcode table o logical operators all result in an integer rather than a value expr.h: o rename int_val to integer_val qfcc.h: o kill another magic number expr.c: o move the opcode to string conversion out of type_mismatch and into get_op_string o rename int_val to integer_val o general integer type support. o generate an internal comipiler error for null opcodes rather than segging. pr_imm.c: o rename int_val to integer_val o support integer constants, converting to float when needed. pr_lex.c: o magic number death and support quaternions and integers in type_size[] qc-lex.l o rename int_val to integer_val o support quaternion and integer type keywords qc-parse.y: o rename int_val to integer_val o use binary_expr instead of new_binary_expr for local initialized variables builtins.c: o rename int_val to integer_val o fix most (all?) of the INT related FIXMEs defs.qc: o use integer instead of float where it makes sense main.c: o read_result is now integer rather than float main.qc: o float -> integer where appropriate o new test for int const to float arg
2001-07-23 01:31:22 +00:00
OPC.integer_var = OPA.integer_var || OPB.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_NOT_I:
implement comparisons and not for pointers
2002-01-30 21:20:12 +00:00
case OP_NOT_P:
Initial integer type support. qfcc /is/ partially broken when it comes to integer constants and float function args/return values. pr_comp.h: o add the integer opcodes to pr_opcode_e pr_edict.c: o add "quaternion" and "integer" to type_name[] o support quatnernion and integers types when printing values o support the integer opcodes when bounds checking pr_exec.c o enable the integer opcodes pr_opcode: o add the integer opcodes to the opcode table o logical operators all result in an integer rather than a value expr.h: o rename int_val to integer_val qfcc.h: o kill another magic number expr.c: o move the opcode to string conversion out of type_mismatch and into get_op_string o rename int_val to integer_val o general integer type support. o generate an internal comipiler error for null opcodes rather than segging. pr_imm.c: o rename int_val to integer_val o support integer constants, converting to float when needed. pr_lex.c: o magic number death and support quaternions and integers in type_size[] qc-lex.l o rename int_val to integer_val o support quaternion and integer type keywords qc-parse.y: o rename int_val to integer_val o use binary_expr instead of new_binary_expr for local initialized variables builtins.c: o rename int_val to integer_val o fix most (all?) of the INT related FIXMEs defs.qc: o use integer instead of float where it makes sense main.c: o read_result is now integer rather than float main.qc: o float -> integer where appropriate o new test for int const to float arg
2001-07-23 01:31:22 +00:00
OPC.integer_var = !OPA.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_EQ_I:
implement comparisons and not for pointers
2002-01-30 21:20:12 +00:00
case OP_EQ_P:
Initial integer type support. qfcc /is/ partially broken when it comes to integer constants and float function args/return values. pr_comp.h: o add the integer opcodes to pr_opcode_e pr_edict.c: o add "quaternion" and "integer" to type_name[] o support quatnernion and integers types when printing values o support the integer opcodes when bounds checking pr_exec.c o enable the integer opcodes pr_opcode: o add the integer opcodes to the opcode table o logical operators all result in an integer rather than a value expr.h: o rename int_val to integer_val qfcc.h: o kill another magic number expr.c: o move the opcode to string conversion out of type_mismatch and into get_op_string o rename int_val to integer_val o general integer type support. o generate an internal comipiler error for null opcodes rather than segging. pr_imm.c: o rename int_val to integer_val o support integer constants, converting to float when needed. pr_lex.c: o magic number death and support quaternions and integers in type_size[] qc-lex.l o rename int_val to integer_val o support quaternion and integer type keywords qc-parse.y: o rename int_val to integer_val o use binary_expr instead of new_binary_expr for local initialized variables builtins.c: o rename int_val to integer_val o fix most (all?) of the INT related FIXMEs defs.qc: o use integer instead of float where it makes sense main.c: o read_result is now integer rather than float main.qc: o float -> integer where appropriate o new test for int const to float arg
2001-07-23 01:31:22 +00:00
OPC.integer_var = OPA.integer_var == OPB.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
case OP_NE_I:
implement comparisons and not for pointers
2002-01-30 21:20:12 +00:00
case OP_NE_P:
Initial integer type support. qfcc /is/ partially broken when it comes to integer constants and float function args/return values. pr_comp.h: o add the integer opcodes to pr_opcode_e pr_edict.c: o add "quaternion" and "integer" to type_name[] o support quatnernion and integers types when printing values o support the integer opcodes when bounds checking pr_exec.c o enable the integer opcodes pr_opcode: o add the integer opcodes to the opcode table o logical operators all result in an integer rather than a value expr.h: o rename int_val to integer_val qfcc.h: o kill another magic number expr.c: o move the opcode to string conversion out of type_mismatch and into get_op_string o rename int_val to integer_val o general integer type support. o generate an internal comipiler error for null opcodes rather than segging. pr_imm.c: o rename int_val to integer_val o support integer constants, converting to float when needed. pr_lex.c: o magic number death and support quaternions and integers in type_size[] qc-lex.l o rename int_val to integer_val o support quaternion and integer type keywords qc-parse.y: o rename int_val to integer_val o use binary_expr instead of new_binary_expr for local initialized variables builtins.c: o rename int_val to integer_val o fix most (all?) of the INT related FIXMEs defs.qc: o use integer instead of float where it makes sense main.c: o read_result is now integer rather than float main.qc: o float -> integer where appropriate o new test for int const to float arg
2001-07-23 01:31:22 +00:00
OPC.integer_var = OPA.integer_var != OPB.integer_var;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
break;
Initial integer type support. qfcc /is/ partially broken when it comes to integer constants and float function args/return values. pr_comp.h: o add the integer opcodes to pr_opcode_e pr_edict.c: o add "quaternion" and "integer" to type_name[] o support quatnernion and integers types when printing values o support the integer opcodes when bounds checking pr_exec.c o enable the integer opcodes pr_opcode: o add the integer opcodes to the opcode table o logical operators all result in an integer rather than a value expr.h: o rename int_val to integer_val qfcc.h: o kill another magic number expr.c: o move the opcode to string conversion out of type_mismatch and into get_op_string o rename int_val to integer_val o general integer type support. o generate an internal comipiler error for null opcodes rather than segging. pr_imm.c: o rename int_val to integer_val o support integer constants, converting to float when needed. pr_lex.c: o magic number death and support quaternions and integers in type_size[] qc-lex.l o rename int_val to integer_val o support quaternion and integer type keywords qc-parse.y: o rename int_val to integer_val o use binary_expr instead of new_binary_expr for local initialized variables builtins.c: o rename int_val to integer_val o fix most (all?) of the INT related FIXMEs defs.qc: o use integer instead of float where it makes sense main.c: o read_result is now integer rather than float main.qc: o float -> integer where appropriate o new test for int const to float arg
2001-07-23 01:31:22 +00:00
// LordHavoc: to be enabled when Progs version 7 (or whatever it will be numbered) is finalized
/*
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
case OP_BOUNDCHECK:
rename int_var to integer_var
2001-07-22 20:20:46 +00:00
if (OPA.integer_var < 0 || OPA.integer_var >= st->b) {
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
pr->pr_xstatement = st - pr->pr_statements;
Whitespace.
2001-09-10 12:56:23 +00:00
PR_RunError (pr, "Progs boundcheck failed at line number "
search for `.self' before `self'
2002-05-18 00:49:16 +00:00
"%d, value is < 0 or >= %d", st->b, st->c);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
return;
}
break;
*/
default:
fix up some overzelous s///
2001-06-07 22:15:37 +00:00
pr->pr_xstatement = st - pr->pr_statements;
PR_RunError (pr, "Bad opcode %i", st->op);
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
}
}
}
Reference in a new issue Copy permalink