2001-03-28 17:17:56 +00:00
|
|
|
/* Copyright (C) 1996-1997 Id Software, Inc.
|
2001-02-19 21:15:25 +00:00
|
|
|
|
2001-03-28 17:17:56 +00:00
|
|
|
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.
|
2001-02-19 21:15:25 +00:00
|
|
|
|
2001-03-28 17:17:56 +00:00
|
|
|
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.
|
2001-02-19 21:15:25 +00:00
|
|
|
|
2001-03-28 17:17:56 +00:00
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
along with this program; if not, write to the Free Software
|
|
|
|
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
2001-02-19 21:15:25 +00:00
|
|
|
|
2001-03-28 17:17:56 +00:00
|
|
|
See file, 'COPYING', for details.
|
2001-02-19 21:15:25 +00:00
|
|
|
*/
|
|
|
|
|
2001-03-28 17:17:56 +00:00
|
|
|
// this file is shared by QuakeForge and qfcc
|
|
|
|
#ifndef __pr_comp_h
|
|
|
|
#define __pr_comp_h
|
2001-02-19 21:15:25 +00:00
|
|
|
|
2001-03-27 23:36:02 +00:00
|
|
|
#include "QF/qtypes.h"
|
2001-02-19 21:15:25 +00:00
|
|
|
|
2001-03-28 17:17:56 +00:00
|
|
|
typedef int func_t;
|
|
|
|
typedef int string_t;
|
|
|
|
|
2001-03-01 21:11:35 +00:00
|
|
|
typedef enum {
|
|
|
|
ev_void,
|
|
|
|
ev_string,
|
|
|
|
ev_float,
|
|
|
|
ev_vector,
|
|
|
|
ev_entity,
|
|
|
|
ev_field,
|
|
|
|
ev_func,
|
2001-06-04 17:51:39 +00:00
|
|
|
ev_pointer,
|
2001-06-26 14:14:47 +00:00
|
|
|
ev_quaternion,
|
2001-07-22 06:59:12 +00:00
|
|
|
ev_integer,
|
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
|
|
|
ev_uinteger,
|
2001-06-04 17:51:39 +00:00
|
|
|
|
|
|
|
ev_type_count // not a type, gives number of types
|
2001-03-01 21:11:35 +00:00
|
|
|
} etype_t;
|
2001-02-19 21:15:25 +00:00
|
|
|
|
2001-11-12 23:56:46 +00:00
|
|
|
extern int pr_type_size[ev_type_count];
|
|
|
|
|
2001-03-28 17:17:56 +00:00
|
|
|
|
2001-02-19 21:15:25 +00:00
|
|
|
#define OFS_NULL 0
|
|
|
|
#define OFS_RETURN 1
|
|
|
|
#define OFS_PARM0 4 // leave 3 ofs for each parm to hold vectors
|
|
|
|
#define OFS_PARM1 7
|
|
|
|
#define OFS_PARM2 10
|
|
|
|
#define OFS_PARM3 13
|
|
|
|
#define OFS_PARM4 16
|
|
|
|
#define OFS_PARM5 19
|
|
|
|
#define OFS_PARM6 22
|
|
|
|
#define OFS_PARM7 25
|
|
|
|
#define RESERVED_OFS 28
|
|
|
|
|
2001-03-28 17:17:56 +00:00
|
|
|
|
2001-06-03 19:32:50 +00:00
|
|
|
typedef enum {
|
2001-02-19 21:15:25 +00:00
|
|
|
OP_DONE,
|
|
|
|
OP_MUL_F,
|
|
|
|
OP_MUL_V,
|
|
|
|
OP_MUL_FV,
|
|
|
|
OP_MUL_VF,
|
|
|
|
OP_DIV_F,
|
|
|
|
OP_ADD_F,
|
|
|
|
OP_ADD_V,
|
|
|
|
OP_SUB_F,
|
|
|
|
OP_SUB_V,
|
|
|
|
|
|
|
|
OP_EQ_F,
|
|
|
|
OP_EQ_V,
|
|
|
|
OP_EQ_S,
|
|
|
|
OP_EQ_E,
|
|
|
|
OP_EQ_FNC,
|
|
|
|
|
|
|
|
OP_NE_F,
|
|
|
|
OP_NE_V,
|
|
|
|
OP_NE_S,
|
|
|
|
OP_NE_E,
|
|
|
|
OP_NE_FNC,
|
|
|
|
|
|
|
|
OP_LE,
|
|
|
|
OP_GE,
|
|
|
|
OP_LT,
|
|
|
|
OP_GT,
|
|
|
|
|
|
|
|
OP_LOAD_F,
|
|
|
|
OP_LOAD_V,
|
|
|
|
OP_LOAD_S,
|
|
|
|
OP_LOAD_ENT,
|
|
|
|
OP_LOAD_FLD,
|
|
|
|
OP_LOAD_FNC,
|
|
|
|
|
|
|
|
OP_ADDRESS,
|
|
|
|
|
|
|
|
OP_STORE_F,
|
|
|
|
OP_STORE_V,
|
|
|
|
OP_STORE_S,
|
|
|
|
OP_STORE_ENT,
|
|
|
|
OP_STORE_FLD,
|
|
|
|
OP_STORE_FNC,
|
|
|
|
|
|
|
|
OP_STOREP_F,
|
|
|
|
OP_STOREP_V,
|
|
|
|
OP_STOREP_S,
|
|
|
|
OP_STOREP_ENT,
|
|
|
|
OP_STOREP_FLD,
|
|
|
|
OP_STOREP_FNC,
|
|
|
|
|
|
|
|
OP_RETURN,
|
|
|
|
OP_NOT_F,
|
|
|
|
OP_NOT_V,
|
|
|
|
OP_NOT_S,
|
|
|
|
OP_NOT_ENT,
|
|
|
|
OP_NOT_FNC,
|
|
|
|
OP_IF,
|
|
|
|
OP_IFNOT,
|
|
|
|
OP_CALL0,
|
|
|
|
OP_CALL1,
|
|
|
|
OP_CALL2,
|
|
|
|
OP_CALL3,
|
|
|
|
OP_CALL4,
|
|
|
|
OP_CALL5,
|
|
|
|
OP_CALL6,
|
|
|
|
OP_CALL7,
|
|
|
|
OP_CALL8,
|
|
|
|
OP_STATE,
|
|
|
|
OP_GOTO,
|
|
|
|
OP_AND,
|
|
|
|
OP_OR,
|
|
|
|
|
|
|
|
OP_BITAND,
|
2001-06-03 17:36:49 +00:00
|
|
|
OP_BITOR,
|
|
|
|
|
|
|
|
OP_ADD_S,
|
2001-06-04 03:36:35 +00:00
|
|
|
OP_LE_S,
|
|
|
|
OP_GE_S,
|
|
|
|
OP_LT_S,
|
|
|
|
OP_GT_S,
|
2001-07-23 01:31:22 +00:00
|
|
|
|
|
|
|
OP_ADD_I,
|
|
|
|
OP_SUB_I,
|
|
|
|
OP_MUL_I,
|
|
|
|
OP_DIV_I,
|
|
|
|
OP_BITAND_I,
|
|
|
|
OP_BITOR_I,
|
|
|
|
OP_GE_I,
|
|
|
|
OP_LE_I,
|
|
|
|
OP_GT_I,
|
|
|
|
OP_LT_I,
|
|
|
|
OP_AND_I,
|
|
|
|
OP_OR_I,
|
|
|
|
OP_NOT_I,
|
|
|
|
OP_EQ_I,
|
|
|
|
OP_NE_I,
|
|
|
|
OP_STORE_I,
|
|
|
|
OP_STOREP_I,
|
|
|
|
OP_LOAD_I,
|
|
|
|
|
|
|
|
OP_CONV_IF,
|
|
|
|
OP_CONV_FI,
|
2001-08-09 16:34:46 +00:00
|
|
|
|
|
|
|
OP_BITXOR_F,
|
|
|
|
OP_BITXOR_I,
|
|
|
|
OP_BITNOT_F,
|
|
|
|
OP_BITNOT_I,
|
2001-08-10 16:17:00 +00:00
|
|
|
|
|
|
|
OP_SHL_F,
|
|
|
|
OP_SHR_F,
|
|
|
|
OP_SHL_I,
|
|
|
|
OP_SHR_I,
|
|
|
|
|
|
|
|
OP_MOD_F,
|
|
|
|
OP_MOD_I,
|
2001-11-02 22:41:11 +00:00
|
|
|
|
|
|
|
OP_LOADB_F,
|
|
|
|
OP_LOADB_V,
|
|
|
|
OP_LOADB_S,
|
|
|
|
OP_LOADB_ENT,
|
|
|
|
OP_LOADB_FLD,
|
|
|
|
OP_LOADB_FNC,
|
|
|
|
OP_LOADB_I,
|
|
|
|
OP_LOADB_P,
|
|
|
|
|
|
|
|
OP_STOREB_F,
|
|
|
|
OP_STOREB_V,
|
|
|
|
OP_STOREB_S,
|
|
|
|
OP_STOREB_ENT,
|
|
|
|
OP_STOREB_FLD,
|
|
|
|
OP_STOREB_FNC,
|
|
|
|
OP_STOREB_I,
|
|
|
|
OP_STOREB_P,
|
|
|
|
|
|
|
|
OP_ADDRESS_F,
|
|
|
|
OP_ADDRESS_V,
|
|
|
|
OP_ADDRESS_S,
|
|
|
|
OP_ADDRESS_ENT,
|
|
|
|
OP_ADDRESS_FLD,
|
|
|
|
OP_ADDRESS_FNC,
|
|
|
|
OP_ADDRESS_I,
|
|
|
|
OP_ADDRESS_P,
|
|
|
|
|
|
|
|
OP_LEA,
|
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
|
|
|
|
|
|
|
OP_IFBE,
|
|
|
|
OP_IFB,
|
|
|
|
OP_IFAE,
|
|
|
|
OP_IFA,
|
|
|
|
|
|
|
|
OP_JUMP,
|
2001-11-13 08:58:54 +00:00
|
|
|
OP_JUMPB,
|
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
|
|
|
|
|
|
|
OP_LT_UI,
|
|
|
|
OP_GT_UI,
|
|
|
|
OP_LE_UI,
|
|
|
|
OP_GE_UI,
|
2001-06-03 19:32:50 +00:00
|
|
|
} pr_opcode_e;
|
2001-02-19 21:15:25 +00:00
|
|
|
|
2001-07-14 02:34:16 +00:00
|
|
|
typedef struct
|
|
|
|
{
|
|
|
|
const char *name;
|
|
|
|
const char *opname;
|
|
|
|
pr_opcode_e opcode;
|
|
|
|
qboolean right_associative;
|
|
|
|
etype_t type_a, type_b, type_c;
|
|
|
|
int min_version;
|
|
|
|
} opcode_t;
|
|
|
|
|
|
|
|
extern opcode_t pr_opcodes[];
|
2001-10-28 04:38:24 +00:00
|
|
|
extern const char *type_name[ev_type_count];
|
2001-07-14 02:34:16 +00:00
|
|
|
opcode_t *PR_Opcode (short opcode);
|
|
|
|
void PR_Opcode_Init (void);
|
2001-03-28 17:17:56 +00:00
|
|
|
|
2001-02-19 21:15:25 +00:00
|
|
|
typedef struct statement_s
|
|
|
|
{
|
|
|
|
unsigned short op;
|
2001-08-13 21:09:00 +00:00
|
|
|
unsigned short a,b,c;
|
2001-02-19 21:15:25 +00:00
|
|
|
} dstatement_t;
|
|
|
|
|
|
|
|
typedef struct
|
|
|
|
{
|
|
|
|
unsigned short type; // if DEF_SAVEGLOBGAL bit is set
|
|
|
|
// the variable needs to be saved in savegames
|
|
|
|
unsigned short ofs;
|
|
|
|
int s_name;
|
|
|
|
} ddef_t;
|
|
|
|
|
|
|
|
#define DEF_SAVEGLOBAL (1<<15)
|
|
|
|
|
|
|
|
#define MAX_PARMS 8
|
|
|
|
|
|
|
|
typedef struct
|
|
|
|
{
|
|
|
|
int first_statement; // negative numbers are builtins
|
|
|
|
int parm_start;
|
|
|
|
int locals; // total ints of parms + locals
|
|
|
|
|
|
|
|
int profile; // runtime
|
|
|
|
|
|
|
|
int s_name;
|
|
|
|
int s_file; // source file defined in
|
|
|
|
|
|
|
|
int numparms;
|
|
|
|
byte parm_size[MAX_PARMS];
|
|
|
|
} dfunction_t;
|
|
|
|
|
|
|
|
|
2001-06-09 06:25:33 +00:00
|
|
|
#define PROG_ID_VERSION 6
|
2001-11-13 08:58:54 +00:00
|
|
|
#define PROG_VERSION 0x00fff002 // MMmmmRRR 0.fff.002 (hex)
|
2001-06-09 06:25:33 +00:00
|
|
|
|
2001-02-19 21:15:25 +00:00
|
|
|
typedef struct
|
|
|
|
{
|
|
|
|
int version;
|
|
|
|
int crc; // check of header file
|
|
|
|
|
|
|
|
int ofs_statements;
|
|
|
|
int numstatements; // statement 0 is an error
|
|
|
|
|
|
|
|
int ofs_globaldefs;
|
|
|
|
int numglobaldefs;
|
|
|
|
|
|
|
|
int ofs_fielddefs;
|
|
|
|
int numfielddefs;
|
|
|
|
|
|
|
|
int ofs_functions;
|
|
|
|
int numfunctions; // function 0 is an empty
|
|
|
|
|
|
|
|
int ofs_strings;
|
|
|
|
int numstrings; // first string is a null string
|
|
|
|
|
|
|
|
int ofs_globals;
|
|
|
|
int numglobals;
|
|
|
|
|
|
|
|
int entityfields;
|
|
|
|
} dprograms_t;
|
|
|
|
|
2001-03-28 17:17:56 +00:00
|
|
|
#endif // __pr_comp_h
|