quakeforge/tools/qfcc/source/opcodes.c

177 lines
4.3 KiB
C
Raw Normal View History

2002-10-22 14:53:18 +00:00
/*
opcodes.c
2002-10-22 14:53:18 +00:00
opcode searching
2002-10-22 14:53:18 +00:00
Copyright (C) 2002 Bill Currie <bill@taniwha.org>
2002-10-22 14:53:18 +00:00
Author: Bill Currie <bill@taniwha.org>
Date: 2002/06/01
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
*/
#ifdef HAVE_CONFIG_H
# include "config.h"
#endif
static __attribute__ ((unused)) const char rcsid[] =
"$Id$";
2002-06-01 04:41:25 +00:00
#ifdef HAVE_STRING_H
# include <string.h>
#endif
#ifdef HAVE_STRINGS_H
# include <strings.h>
#endif
#include <stdlib.h>
#include <QF/hash.h>
2002-06-04 21:23:39 +00:00
#include "def.h"
#include "opcodes.h"
2002-06-04 18:44:03 +00:00
#include "options.h"
2002-06-07 17:29:30 +00:00
#include "qfcc.h"
2002-06-04 18:44:03 +00:00
#include "type.h"
hashtab_t *opcode_type_table_ab;
hashtab_t *opcode_type_table_abc;
opcode_t *op_done;
opcode_t *op_return;
opcode_t *op_if;
opcode_t *op_ifnot;
opcode_t *op_ifbe;
opcode_t *op_ifb;
opcode_t *op_ifae;
opcode_t *op_ifa;
opcode_t *op_state;
opcode_t *op_goto;
opcode_t *op_jump;
opcode_t *op_jumpb;
#define ROTL(x,n) (((x)<<(n))|(x)>>(32-n))
static unsigned long
get_hash (void *_op, void *_tab)
{
opcode_t *op = (opcode_t *) _op;
hashtab_t **tab = (hashtab_t **) _tab;
unsigned long hash;
if (tab == &opcode_type_table_ab) {
hash = ROTL (~op->type_a, 8) + ROTL (~op->type_b, 16);
} else if (tab == &opcode_type_table_abc) {
hash = ROTL (~op->type_a, 8) + ROTL (~op->type_b, 16)
+ ROTL (~op->type_c, 24);
} else {
abort ();
}
2002-11-20 21:44:04 +00:00
return hash + Hash_String (op->name);
}
static int
compare (void *_opa, void *_opb, void *_tab)
{
opcode_t *opa = (opcode_t *) _opa;
opcode_t *opb = (opcode_t *) _opb;
hashtab_t **tab = (hashtab_t **) _tab;
int cmp;
if (tab == &opcode_type_table_ab) {
cmp = (opa->type_a == opb->type_a)
&& (opa->type_b == opb->type_b);
} else if (tab == &opcode_type_table_abc) {
cmp = (opa->type_a == opb->type_a)
&& (opa->type_b == opb->type_b)
&& (opa->type_c == opb->type_c);
} else {
abort ();
}
return cmp && !strcmp (opa->name, opb->name);
}
opcode_t *
2002-06-07 17:29:30 +00:00
opcode_find (const char *name, def_t *var_a, def_t *var_b, def_t *var_c)
{
opcode_t op;
hashtab_t **tab;
op.name = name;
if (var_a && var_b && var_c) {
op.type_a = var_a->type->type;
op.type_b = var_b->type->type;
op.type_c = var_c->type->type;
tab = &opcode_type_table_abc;
} else if (var_a && var_b) {
op.type_a = var_a->type->type;
op.type_b = var_b->type->type;
tab = &opcode_type_table_ab;
} else {
tab = 0;
}
return Hash_FindElement (*tab, &op);
}
void
2002-06-07 17:29:30 +00:00
opcode_init (void)
{
opcode_t *op;
PR_Opcode_Init ();
opcode_type_table_ab = Hash_NewTable (1021, 0, 0, &opcode_type_table_ab);
opcode_type_table_abc = Hash_NewTable (1021, 0, 0, &opcode_type_table_abc);
Hash_SetHashCompare (opcode_type_table_ab, get_hash, compare);
Hash_SetHashCompare (opcode_type_table_abc, get_hash, compare);
for (op = pr_opcodes; op->name; op++) {
2001-10-26 06:43:56 +00:00
if (op->min_version > options.code.progsversion)
continue;
2001-10-26 06:43:56 +00:00
if (options.code.progsversion == PROG_ID_VERSION
&& op->type_c == ev_integer)
op->type_c = ev_float;
Hash_AddElement (opcode_type_table_ab, op);
Hash_AddElement (opcode_type_table_abc, op);
if (!strcmp (op->name, "<DONE>")) {
op_done = op;
} else if (!strcmp (op->name, "<RETURN>")) {
op_return = op;
} else if (!strcmp (op->name, "<IF>")) {
op_if = op;
} else if (!strcmp (op->name, "<IFNOT>")) {
op_ifnot = op;
} else if (!strcmp (op->name, "<IFBE>")) {
op_ifbe = op;
} else if (!strcmp (op->name, "<IFB>")) {
op_ifb = op;
} else if (!strcmp (op->name, "<IFAE>")) {
op_ifae = op;
} else if (!strcmp (op->name, "<IFA>")) {
op_ifa = op;
} else if (!strcmp (op->name, "<STATE>")) {
op_state = op;
} else if (!strcmp (op->name, "<GOTO>")) {
op_goto = op;
} else if (!strcmp (op->name, "<JUMP>")) {
op_jump = op;
} else if (!strcmp (op->name, "<JUMPB>")) {
op_jumpb = op;
}
}
}