quakeforge/tools/qfcc/source/reloc.c

127 lines
2.6 KiB
C
Raw Normal View History

2002-06-07 17:29:30 +00:00
/*
#FILENAME#
#DESCRIPTION#
Copyright (C) 2001 #AUTHOR#
Author: #AUTHOR#
Date: #DATE#
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
*/
static const char rcsid[] =
"$Id$";
#ifdef HAVE_CONFIG_H
# include "config.h"
#endif
2002-06-27 15:13:43 +00:00
#ifdef HAVE_STRING_H
# include <string.h>
#endif
#ifdef HAVE_STRINGS_H
# include <strings.h>
#endif
2002-06-07 17:29:30 +00:00
#include <stdlib.h>
#include "def.h"
#include "emit.h"
2002-06-07 17:29:30 +00:00
#include "expr.h"
#include "qfcc.h"
#include "reloc.h"
static reloc_t *free_refs;
2002-06-07 17:29:30 +00:00
void
relocate_refs (reloc_t *refs, int ofs)
{
int o;
while (refs) {
switch (refs->type) {
case rel_none:
break;
case rel_op_a_def:
if (ofs > 65535)
error (0, "def offset too large");
else
pr.code->code[refs->ofs].a = ofs;
2002-06-07 17:29:30 +00:00
break;
case rel_op_b_def:
if (ofs > 65535)
error (0, "def offset too large");
else
pr.code->code[refs->ofs].b = ofs;
2002-06-07 17:29:30 +00:00
break;
case rel_op_c_def:
if (ofs > 65535)
error (0, "def offset too large");
else
pr.code->code[refs->ofs].c = ofs;
2002-06-07 17:29:30 +00:00
break;
case rel_op_a_op:
o = ofs - refs->ofs;
if (o < -32768 || o > 32767)
error (0, "relative offset too large");
else
pr.code->code[refs->ofs].a = o;
2002-06-07 17:29:30 +00:00
break;
case rel_op_b_op:
o = ofs - refs->ofs;
if (o < -32768 || o > 32767)
error (0, "relative offset too large");
else
pr.code->code[refs->ofs].b = o;
2002-06-07 17:29:30 +00:00
break;
case rel_op_c_op:
o = ofs - refs->ofs;
if (o < -32768 || o > 32767)
error (0, "relative offset too large");
else
pr.code->code[refs->ofs].c = o;
2002-06-07 17:29:30 +00:00
break;
case rel_def_op:
if (ofs >= pr.code->size)
2002-06-07 17:29:30 +00:00
error (0, "invalid statement offset");
else
G_INT (refs->ofs) = ofs;
break;
case rel_def_def:
case rel_def_func:
2002-06-07 17:29:30 +00:00
G_INT (refs->ofs) = ofs;
break;
2002-07-11 17:06:15 +00:00
case rel_def_string:
break;
2002-06-07 17:29:30 +00:00
}
refs = refs->next;
}
}
reloc_t *
new_reloc (int ofs, reloc_type type)
{
reloc_t *ref;
2002-06-07 17:29:30 +00:00
ALLOC (16384, reloc_t, refs, ref);
2002-06-07 17:29:30 +00:00
ref->ofs = ofs;
ref->type = type;
return ref;
}