qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2024-11-27 06:34:11 +00:00
Code Issues Projects Releases Packages Wiki Activity

Produce code for progs.src mode.

Browse source 
Separate compilation will take fixing object files.

The generated code is broken due to various relocation fixups being
broken, and float immediates seem to be badly broken.

Debug information is broken too.
This commit is contained in:
Bill Currie 2011-01-27 15:06:52 +09:00
parent c7bbd40df6
commit cdea1d07aa
3 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
tools/qfcc/include/qfcc.h
View file

@ -67,7 +67,6 @@ typedef struct pr_info_s {
struct defspace_s *near_data;
struct defspace_s *far_data;
struct defspace_s *entity_data;
struct scope_s *scope;
struct symtab_s *symtab;

1
tools/qfcc/source/emit.c
View file

@ -130,7 +130,6 @@ emit_statement (statement_t *statement)
opcode_t *op = opcode_find (opcode, def_a, def_b, def_c);
dstatement_t *s;
puts (opcode);
if (!op)
internal_error (0, "ice ice baby");
s = codespace_newstatement (pr.code);

15
tools/qfcc/source/qfcc.c
View file

@ -155,18 +155,20 @@ InitData (void)
static int
WriteData (int crc)
{
#if 0 //FIXME
def_t *def;
ddef_t *dd;
dprograms_t progs;
pr_debug_header_t debug;
QFile *h;
int i;
int num_defs = 0;
globals = calloc (pr.scope->num_defs + 1, sizeof (ddef_t));
fields = calloc (pr.scope->num_defs + 1, sizeof (ddef_t));
for (def = pr.near_data->defs; def; def = def->next)
num_defs++;
globals = calloc (num_defs + 1, sizeof (ddef_t));
fields = calloc (num_defs + 1, sizeof (ddef_t));
for (def = pr.scope->head; def; def = def->def_next) {
for (def = pr.near_data->defs; def; def = def->next) {
if (def->local || !def->name)
continue;
if (options.code.progsversion == PROG_ID_VERSION && *def->name == '.'
@ -178,7 +180,7 @@ WriteData (int crc)
&& strcmp (def->name, ".imm") != 0) {
dd = &fields[numfielddefs++];
def_to_ddef (def, dd, 1);
dd->ofs = G_INT (def->ofs);
dd->ofs = D_INT (def);
}
dd = &globals[numglobaldefs++];
@ -261,7 +263,7 @@ WriteData (int crc)
progs.ofs_globals = Qtell (h);
progs.numglobals = pr.near_data->size;
for (i = 0; i < pr.near_data->size; i++)
G_INT (i) = LittleLong (G_INT (i));
pr.near_data->data[i] = LittleLong (pr.near_data->data[i]);
Qwrite (h, pr.near_data->data, pr.near_data->size * 4);
if (options.verbosity >= -1)
@ -332,7 +334,6 @@ WriteData (int crc)
Qseek (h, 0, SEEK_SET);
Qwrite (h, &debug, sizeof (debug));
Qclose (h);
#endif
return 0;
}