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

851 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)
PR_RunError (pr, "PR_ExecuteProgram: locals stack overflow\n");
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;
for (i = 0; i < f->numparms; i++) {
for (j = 0; j < f->parm_size[i]; j++) {
use memcpy instead of ugly casts to transfer locals
2001-06-05 23:57:51 +00:00
memcpy (&pr->pr_globals[o],
&pr->pr_globals[OFS_PARM0 + i * 3 + j],
sizeof (pr_type_t));
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
o++;
}
}
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)
PR_RunError (pr, "PR_ExecuteProgram: locals stack underflow\n");
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;
}
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
#define OPA (pr->pr_globals[st->a])
#define OPB (pr->pr_globals[st->b])
#define OPC (pr->pr_globals[st->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) {
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");
}
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;
initial checkin of most recent newtree and nuq(?) source
2001-02-19 21:15:25 +00:00
case OP_GE:
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_LE:
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_GT:
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_LT:
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;
}
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:
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 "
"bounds edict\n");
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 "
"field in an edict\n");
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 "
"bounds edict number\n");
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 "
"field in an edict\n");
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 "
"bounds edict number\n");
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 "
"field in an edict\n");
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;
PR_RunError (pr, "Invalid jump destination\n");
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;
PR_RunError (pr, "Invalid jump destination\n");
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");
Add support for checkfunction, which is a builtin that searches for another builtin by name, and returns it. Soon I'll change all our new builtins to by allocated dynamically, as well as changing the number checkfunction uses, and happily break everything that uses them :D
2001-08-04 09:11:50 +00:00
if (OPA.func_var < 0) { // dynamic builtin
int i = -OPA.func_var;
if (i >= pr->numbuiltins || !pr->builtins[i].proc)
PR_RunError (pr, "Bad builtin call number");
pr->builtins[i].proc (pr);
break;
}
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;
Modify progs to add builtins at runtime. It should be trivial to lookup functions by name, and make all our new QC builtins allocate numbers automatically.
2001-08-03 06:40:28 +00:00
if (i >= pr->numbuiltins || !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");
Modify progs to add builtins at runtime. It should be trivial to lookup functions by name, and make all our new QC builtins allocate numbers automatically.
2001-08-03 06:40:28 +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:
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:
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:
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:
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:
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:
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:
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 "
"%d, value is < 0 or >= %d\n", 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