911f98ffaa
tweak some dp compatibility things. probably futile. moved ode to a plugin. added screenshot_mega command to take massive screenshots that are not tied to current video mode. removed offscreen-gecko code completely. added cvars to rescale offsetmapping from paletted sources, so it can be disabled where its ugly. added support for zip weak encryption. the password defaults to 'thisispublic'. nothing is fool-proof. gl: fix stereoscopic rendering. gl: fix rendertargets with depth. qc: added support for named builtins that do not have any specific number. qc: added some new builtins. drawrotpic, drawtextfield, search_getfilemtime, and a few others. qc: PF_Fixme now attempts to figure out which builtin you tried to call, for more friendly fatal error messages. qccgui: stepover and stepout are now implemented, as is setnextstatement. qccgui: added a way to annotate code with the asm statements generated from them. qccgui: fixed double-clicking a src file. qccgui: handles multiple .src files more usefully. git-svn-id: https://svn.code.sf.net/p/fteqw/code/trunk@4832 fc73d0e0-1445-4013-8a0c-d673dee63da5
613 lines
11 KiB
C
613 lines
11 KiB
C
// this file is shared by the execution and compiler
|
|
|
|
/*i'm part way through making this work
|
|
I've given up now that I can't work out a way to load pointers.
|
|
Setting them should be fine.
|
|
*/
|
|
#ifndef __PR_COMP_H__
|
|
#define __PR_COMP_H__
|
|
|
|
/*
|
|
#ifdef USE_MSVCRT_DEBUG
|
|
void *BZ_MallocNamed(int size, char *file, int line);
|
|
void *BZ_ReallocNamed(void *data, int newsize, char *file, int line);
|
|
void BZ_Free(void *data);
|
|
#define BZ_Malloc(size) BZ_MallocNamed(size, __FILE__, __LINE__)
|
|
#define BZ_Realloc(ptr, size) BZ_ReallocNamed(ptr, size, __FILE__, __LINE__)
|
|
#define malloc BZ_Malloc
|
|
#define realloc BZ_Realloc
|
|
#define free BZ_Free
|
|
#endif
|
|
*/
|
|
|
|
typedef int dstring_t;
|
|
#define QCC_string_t dstring_t
|
|
|
|
//typedef enum {ev_void, ev_string, ev_float, ev_vector, ev_entity, ev_field, ev_function, ev_pointer, ev_integer, ev_struct, ev_union} etype_t;
|
|
// 0 1 2 3 4 5 6 7 8 9 10
|
|
|
|
#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
|
|
|
|
|
|
enum qcop_e {
|
|
OP_DONE, //0
|
|
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, //10
|
|
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_F, //20
|
|
OP_GE_F,
|
|
OP_LT_F,
|
|
OP_GT_F,
|
|
|
|
OP_LOAD_F,
|
|
OP_LOAD_V,
|
|
OP_LOAD_S,
|
|
OP_LOAD_ENT,
|
|
OP_LOAD_FLD,
|
|
OP_LOAD_FNC,
|
|
|
|
OP_ADDRESS, //30
|
|
|
|
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, //40
|
|
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_I,
|
|
OP_IFNOT_I, //50
|
|
OP_CALL0, //careful... hexen2 and q1 have different calling conventions
|
|
OP_CALL1, //remap hexen2 calls to OP_CALL2H
|
|
OP_CALL2,
|
|
OP_CALL3,
|
|
OP_CALL4,
|
|
OP_CALL5,
|
|
OP_CALL6,
|
|
OP_CALL7,
|
|
OP_CALL8,
|
|
OP_STATE, //60
|
|
OP_GOTO,
|
|
OP_AND_F,
|
|
OP_OR_F,
|
|
|
|
OP_BITAND_F,
|
|
OP_BITOR_F,
|
|
|
|
|
|
//these following ones are Hexen 2 constants.
|
|
|
|
OP_MULSTORE_F, //66 redundant, for h2 compat
|
|
OP_MULSTORE_VF, //67 redundant, for h2 compat
|
|
OP_MULSTOREP_F, //68
|
|
OP_MULSTOREP_VF,//69
|
|
|
|
OP_DIVSTORE_F, //70 redundant, for h2 compat
|
|
OP_DIVSTOREP_F, //71
|
|
|
|
OP_ADDSTORE_F, //72 redundant, for h2 compat
|
|
OP_ADDSTORE_V, //73 redundant, for h2 compat
|
|
OP_ADDSTOREP_F, //74
|
|
OP_ADDSTOREP_V, //75
|
|
|
|
OP_SUBSTORE_F, //76 redundant, for h2 compat
|
|
OP_SUBSTORE_V, //77 redundant, for h2 compat
|
|
OP_SUBSTOREP_F, //78
|
|
OP_SUBSTOREP_V, //79
|
|
|
|
OP_FETCH_GBL_F, //80
|
|
OP_FETCH_GBL_V, //81
|
|
OP_FETCH_GBL_S, //82
|
|
OP_FETCH_GBL_E, //83
|
|
OP_FETCH_GBL_FNC,//84
|
|
|
|
OP_CSTATE, //85
|
|
OP_CWSTATE, //86
|
|
|
|
OP_THINKTIME, //87
|
|
|
|
OP_BITSETSTORE_F, //88 redundant, for h2 compat
|
|
OP_BITSETSTOREP_F, //89
|
|
OP_BITCLRSTORE_F, //90
|
|
OP_BITCLRSTOREP_F, //91
|
|
|
|
OP_RAND0, //92
|
|
OP_RAND1, //93
|
|
OP_RAND2, //94
|
|
OP_RANDV0, //95
|
|
OP_RANDV1, //96
|
|
OP_RANDV2, //97
|
|
|
|
OP_SWITCH_F, //98
|
|
OP_SWITCH_V, //99
|
|
OP_SWITCH_S, //100
|
|
OP_SWITCH_E, //101
|
|
OP_SWITCH_FNC, //102
|
|
|
|
OP_CASE, //103
|
|
OP_CASERANGE, //104
|
|
|
|
|
|
|
|
|
|
|
|
//the rest are added
|
|
//mostly they are various different ways of adding two vars with conversions.
|
|
|
|
OP_CALL1H,
|
|
OP_CALL2H,
|
|
OP_CALL3H,
|
|
OP_CALL4H,
|
|
OP_CALL5H,
|
|
OP_CALL6H, //110
|
|
OP_CALL7H,
|
|
OP_CALL8H,
|
|
|
|
|
|
OP_STORE_I,
|
|
OP_STORE_IF,
|
|
OP_STORE_FI,
|
|
|
|
OP_ADD_I,
|
|
OP_ADD_FI,
|
|
OP_ADD_IF,
|
|
|
|
OP_SUB_I,
|
|
OP_SUB_FI, //120
|
|
OP_SUB_IF,
|
|
|
|
OP_CONV_ITOF,
|
|
OP_CONV_FTOI,
|
|
OP_CP_ITOF,
|
|
OP_CP_FTOI,
|
|
OP_LOAD_I,
|
|
OP_STOREP_I,
|
|
OP_STOREP_IF,
|
|
OP_STOREP_FI,
|
|
|
|
OP_BITAND_I, //130
|
|
OP_BITOR_I,
|
|
|
|
OP_MUL_I,
|
|
OP_DIV_I,
|
|
OP_EQ_I,
|
|
OP_NE_I,
|
|
|
|
OP_IFNOT_S,
|
|
OP_IF_S,
|
|
|
|
OP_NOT_I,
|
|
|
|
OP_DIV_VF,
|
|
|
|
OP_BITXOR_I, //140
|
|
OP_RSHIFT_I,
|
|
OP_LSHIFT_I,
|
|
|
|
OP_GLOBALADDRESS,
|
|
OP_ADD_PIW, //add B words to A pointer
|
|
|
|
OP_LOADA_F,
|
|
OP_LOADA_V,
|
|
OP_LOADA_S,
|
|
OP_LOADA_ENT,
|
|
OP_LOADA_FLD,
|
|
OP_LOADA_FNC, //150
|
|
OP_LOADA_I,
|
|
|
|
OP_STORE_P, //152... erm.. wait...
|
|
OP_LOAD_P,
|
|
|
|
OP_LOADP_F,
|
|
OP_LOADP_V,
|
|
OP_LOADP_S,
|
|
OP_LOADP_ENT,
|
|
OP_LOADP_FLD,
|
|
OP_LOADP_FNC,
|
|
OP_LOADP_I, //160
|
|
|
|
OP_LE_I,
|
|
OP_GE_I,
|
|
OP_LT_I,
|
|
OP_GT_I,
|
|
|
|
OP_LE_IF,
|
|
OP_GE_IF,
|
|
OP_LT_IF,
|
|
OP_GT_IF,
|
|
|
|
OP_LE_FI,
|
|
OP_GE_FI, //170
|
|
OP_LT_FI,
|
|
OP_GT_FI,
|
|
|
|
OP_EQ_IF,
|
|
OP_EQ_FI,
|
|
|
|
//-------------------------------------
|
|
//string manipulation.
|
|
OP_ADD_SF, //(char*)c = (char*)a + (float)b add_fi->i
|
|
OP_SUB_S, //(float)c = (char*)a - (char*)b sub_ii->f
|
|
OP_STOREP_C,//(float)c = *(char*)b = (float)a
|
|
OP_LOADP_C, //(float)c = *(char*)
|
|
//-------------------------------------
|
|
|
|
|
|
OP_MUL_IF,
|
|
OP_MUL_FI, //180
|
|
OP_MUL_VI,
|
|
OP_MUL_IV,
|
|
OP_DIV_IF,
|
|
OP_DIV_FI,
|
|
OP_BITAND_IF,
|
|
OP_BITOR_IF,
|
|
OP_BITAND_FI,
|
|
OP_BITOR_FI,
|
|
OP_AND_I,
|
|
OP_OR_I, //190
|
|
OP_AND_IF,
|
|
OP_OR_IF,
|
|
OP_AND_FI,
|
|
OP_OR_FI,
|
|
OP_NE_IF,
|
|
OP_NE_FI,
|
|
|
|
//erm... FTEQCC doesn't make use of these... These are for DP.
|
|
OP_GSTOREP_I,
|
|
OP_GSTOREP_F,
|
|
OP_GSTOREP_ENT,
|
|
OP_GSTOREP_FLD, //200
|
|
OP_GSTOREP_S,
|
|
OP_GSTOREP_FNC,
|
|
OP_GSTOREP_V,
|
|
OP_GADDRESS,
|
|
OP_GLOAD_I,
|
|
OP_GLOAD_F,
|
|
OP_GLOAD_FLD,
|
|
OP_GLOAD_ENT,
|
|
OP_GLOAD_S,
|
|
OP_GLOAD_FNC, //210
|
|
|
|
//back to ones that we do use.
|
|
OP_BOUNDCHECK,
|
|
OP_UNUSED, //used to be OP_STOREP_P, which is now emulated with OP_STOREP_I, fteqcc nor fte generated it
|
|
OP_PUSH, //push 4octets onto the local-stack (which is ALWAYS poped on function return). Returns a pointer.
|
|
OP_POP, //pop those ones that were pushed (don't over do it). Needs assembler.
|
|
|
|
OP_SWITCH_I,//hmm.
|
|
OP_GLOAD_V,
|
|
|
|
OP_IF_F,
|
|
OP_IFNOT_F,
|
|
|
|
OP_NUMREALOPS,
|
|
|
|
/*
|
|
These ops are emulated out, always, and are only present in the compiler.
|
|
*/
|
|
|
|
OP_BITSETSTORE_I, //220
|
|
OP_BITSETSTOREP_I,
|
|
OP_BITCLRSTORE_I,
|
|
|
|
OP_MULSTORE_I,
|
|
OP_DIVSTORE_I,
|
|
OP_ADDSTORE_I,
|
|
OP_SUBSTORE_I,
|
|
OP_MULSTOREP_I,
|
|
OP_DIVSTOREP_I,
|
|
OP_ADDSTOREP_I,
|
|
OP_SUBSTOREP_I, //230
|
|
|
|
OP_MULSTORE_IF,
|
|
OP_MULSTOREP_IF,
|
|
OP_DIVSTORE_IF,
|
|
OP_DIVSTOREP_IF,
|
|
OP_ADDSTORE_IF,
|
|
OP_ADDSTOREP_IF,
|
|
OP_SUBSTORE_IF,
|
|
OP_SUBSTOREP_IF,
|
|
|
|
OP_MULSTORE_FI,
|
|
OP_MULSTOREP_FI, //240
|
|
OP_DIVSTORE_FI,
|
|
OP_DIVSTOREP_FI,
|
|
OP_ADDSTORE_FI,
|
|
OP_ADDSTOREP_FI,
|
|
OP_SUBSTORE_FI,
|
|
OP_SUBSTOREP_FI,
|
|
|
|
OP_MULSTORE_VI,
|
|
OP_MULSTOREP_VI,
|
|
|
|
OP_LOADA_STRUCT,
|
|
OP_STOREP_P,
|
|
|
|
OP_BITNOT_F,
|
|
OP_BITNOT_I,
|
|
|
|
OP_EQ_P,
|
|
OP_NE_P,
|
|
OP_LE_P,
|
|
OP_GE_P,
|
|
OP_LT_P,
|
|
OP_GT_P,
|
|
|
|
OP_ANDSTORE_F,
|
|
OP_BITCLR_F,
|
|
OP_BITCLR_I,
|
|
|
|
OP_ADD_PF,
|
|
OP_ADD_FP,
|
|
OP_ADD_PI,
|
|
OP_ADD_IP,
|
|
|
|
OP_SUB_PF,
|
|
OP_SUB_PI,
|
|
|
|
OP_SUB_PP,
|
|
|
|
OP_MOD_F,
|
|
OP_MOD_I,
|
|
OP_MOD_V,
|
|
|
|
OP_BITXOR_F, //140
|
|
OP_RSHIFT_F,
|
|
OP_LSHIFT_F,
|
|
|
|
OP_NUMOPS
|
|
};
|
|
|
|
#define MAX_PARMS 8
|
|
|
|
// qtest structs (used for reordering and not execution)
|
|
typedef struct qtest_statement_s
|
|
{
|
|
unsigned int line; // line number in source code file
|
|
unsigned short op;
|
|
unsigned short a,b,c;
|
|
} qtest_statement_t;
|
|
|
|
typedef struct qtest_def_s
|
|
{
|
|
unsigned int type; // no DEFGLOBAL found in qtest progs
|
|
unsigned int s_name; // different order!
|
|
unsigned int ofs;
|
|
} qtest_def_t;
|
|
|
|
typedef struct qtest_function_s
|
|
{
|
|
int first_statement;
|
|
int unused1;
|
|
int locals; // assumed! (always 0 in real qtest progs)
|
|
int profile; // assumed! (always 0 in real qtest progs)
|
|
|
|
int s_name;
|
|
int s_file;
|
|
|
|
int numparms;
|
|
int parm_start; // different order
|
|
int parm_size[MAX_PARMS]; // ints instead of bytes...
|
|
} qtest_function_t;
|
|
|
|
typedef struct statement16_s
|
|
{
|
|
unsigned short op;
|
|
unsigned short a,b,c;
|
|
} dstatement16_t;
|
|
typedef struct statement32_s
|
|
{
|
|
unsigned int op;
|
|
unsigned int a,b,c;
|
|
} dstatement32_t;
|
|
#define QCC_dstatement16_t dstatement16_t
|
|
#define QCC_dstatement32_t dstatement32_t
|
|
|
|
typedef struct qcc_statement_s
|
|
{
|
|
unsigned int op;
|
|
unsigned int a,b,c;
|
|
unsigned int linenum;
|
|
} QCC_statement_t;
|
|
|
|
//these should be the same except the string type
|
|
typedef struct ddef16_s
|
|
{
|
|
unsigned short type; // if DEF_SAVEGLOBAL bit is set
|
|
// the variable needs to be saved in savegames
|
|
unsigned short ofs;
|
|
string_t s_name;
|
|
} ddef16_t;
|
|
|
|
typedef struct ddef32_s
|
|
{
|
|
unsigned int type; // if DEF_SAVEGLOBAL bit is set
|
|
// the variable needs to be saved in savegames
|
|
unsigned int ofs;
|
|
string_t s_name;
|
|
} ddef32_t;
|
|
|
|
typedef void *ddefXX_t;
|
|
|
|
typedef struct QCC_ddef16_s
|
|
{
|
|
unsigned short type; // if DEF_SAVEGLOBAL bit is set
|
|
// the variable needs to be saved in savegames
|
|
unsigned short ofs;
|
|
QCC_string_t s_name;
|
|
} QCC_ddef16_t;
|
|
|
|
typedef struct QCC_ddef32_s
|
|
{
|
|
unsigned int type; // if DEF_SAVEGLOBAL bit is set
|
|
// the variable needs to be saved in savegames
|
|
unsigned int ofs;
|
|
QCC_string_t s_name;
|
|
} QCC_ddef32_t;
|
|
#define QCC_ddef_t QCC_ddef32_t
|
|
|
|
#define DEF_SAVEGLOBAL (1<<15)
|
|
#define DEF_SHARED (1<<14)
|
|
|
|
typedef struct
|
|
{
|
|
int first_statement; // negative numbers are builtins
|
|
int parm_start;
|
|
int locals; // total ints of parms + locals
|
|
|
|
int profile; // runtime
|
|
|
|
string_t s_name;
|
|
string_t s_file; // source file defined in
|
|
|
|
int numparms;
|
|
qbyte parm_size[MAX_PARMS];
|
|
} dfunction_t;
|
|
typedef struct
|
|
{
|
|
unsigned int first_statement; // negative numbers are builtins
|
|
unsigned int parm_start;
|
|
int locals; // total ints of parms + locals
|
|
|
|
int profile; // runtime
|
|
|
|
QCC_string_t s_name;
|
|
QCC_string_t s_file; // source file defined in
|
|
|
|
int numparms;
|
|
qbyte parm_size[MAX_PARMS];
|
|
} QCC_dfunction_t;
|
|
|
|
typedef struct
|
|
{
|
|
int first_statement; // negative numbers are builtins
|
|
int parm_start;
|
|
int locals; // total ints of parms + locals
|
|
|
|
int profile; //number of qc instructions executed.
|
|
unsigned long long profiletime; //total time inside (cpu cycles)
|
|
unsigned long long profilechildtime; //time inside children (excluding builtins, cpu cycles)
|
|
|
|
string_t s_name;
|
|
string_t s_file; // source file defined in
|
|
|
|
int numparms;
|
|
qbyte parm_size[MAX_PARMS];
|
|
} mfunction_t;
|
|
|
|
#define PROG_QTESTVERSION 3
|
|
#define PROG_VERSION 6
|
|
#define PROG_KKQWSVVERSION 7
|
|
#define PROG_EXTENDEDVERSION 7
|
|
#define PROG_SECONDARYVERSION16 (*(int*)"1FTE" ^ *(int*)"PROG") //something unlikly and still meaningful (to me)
|
|
#define PROG_SECONDARYVERSION32 (*(int*)"1FTE" ^ *(int*)"32B ") //something unlikly and still meaningful (to me)
|
|
typedef struct
|
|
{
|
|
int version;
|
|
int crc; // check of header file
|
|
|
|
unsigned int ofs_statements; //comp 1
|
|
unsigned int numstatements; // statement 0 is an error
|
|
|
|
unsigned int ofs_globaldefs; //comp 2
|
|
unsigned int numglobaldefs;
|
|
|
|
unsigned int ofs_fielddefs; //comp 4
|
|
unsigned int numfielddefs;
|
|
|
|
unsigned int ofs_functions; //comp 8
|
|
unsigned int numfunctions; // function 0 is an empty
|
|
|
|
unsigned int ofs_strings; //comp 16
|
|
unsigned int numstrings; // first string is a null string
|
|
|
|
unsigned int ofs_globals; //comp 32
|
|
unsigned int numglobals;
|
|
|
|
unsigned int entityfields;
|
|
|
|
//debug / version 7 extensions
|
|
unsigned int ofsfiles; //non list format. no comp
|
|
unsigned int ofslinenums; //numstatements big //comp 64
|
|
unsigned int ofsbodylessfuncs; //no comp
|
|
unsigned int numbodylessfuncs;
|
|
|
|
unsigned int ofs_types; //comp 128
|
|
unsigned int numtypes;
|
|
unsigned int blockscompressed;
|
|
|
|
int secondaryversion; //Constant - to say that any version 7 progs are actually ours, not someone else's alterations.
|
|
} dprograms_t;
|
|
#define standard_dprograms_t_size ((size_t)&((dprograms_t*)NULL)->ofsfiles)
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
typedef struct {
|
|
char filename[128];
|
|
int size;
|
|
int compsize;
|
|
int compmethod;
|
|
int ofs;
|
|
} includeddatafile_t;
|
|
|
|
|
|
|
|
|
|
typedef struct typeinfo_s
|
|
{
|
|
etype_t type;
|
|
|
|
int next;
|
|
int aux_type;
|
|
int num_parms;
|
|
|
|
int ofs; //inside a structure.
|
|
int size;
|
|
string_t name;
|
|
} typeinfo_t;
|