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

define Protocol type correctly

Browse source
This commit is contained in:
Bill Currie 2002-05-21 23:38:40 +00:00
parent 4315707008
commit 4697ce281e
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
tools/qfcc/source/qc-lex.l
View file

@ -244,6 +244,7 @@ static keyword_t keywords[] = {
{"function", TYPE, &type_function, 0, PROG_VERSION}, {"function", TYPE, &type_function, 0, PROG_VERSION},
{"id", TYPE, &type_id, 0, PROG_VERSION}, {"id", TYPE, &type_id, 0, PROG_VERSION},
{"Class", TYPE, &type_Class, 0, PROG_VERSION}, {"Class", TYPE, &type_Class, 0, PROG_VERSION},
{"Protocol", TYPE, &type_Protocol, 0, PROG_VERSION},
{"SEL", TYPE, &type_SEL, 0, PROG_VERSION}, {"SEL", TYPE, &type_SEL, 0, PROG_VERSION},
{"IMP", TYPE, &type_IMP, 0, PROG_VERSION}, {"IMP", TYPE, &type_IMP, 0, PROG_VERSION},
{"local", LOCAL, 0, 1, PROG_ID_VERSION}, {"local", LOCAL, 0, 1, PROG_ID_VERSION},

3
tools/qfcc/source/type.c
View file

@ -433,6 +433,7 @@ init_types (void)
type = type_Class.aux_type = new_struct (0); type = type_Class.aux_type = new_struct (0);
type->type = ev_class; type->type = ev_class;
type->class = &class_Class; type->class = &class_Class;
class_Class.super_class = get_class ("Object", 1); //FIXME evil hack
class_Class.ivars = type_Class.aux_type; class_Class.ivars = type_Class.aux_type;
new_struct_field (type, &type_Class, "class_pointer", vis_public); new_struct_field (type, &type_Class, "class_pointer", vis_public);
new_struct_field (type, &type_Class, "super_class", vis_public); new_struct_field (type, &type_Class, "super_class", vis_public);
@ -449,7 +450,7 @@ init_types (void)
new_struct_field (type, &type_pointer, "gc_object_type", vis_public); new_struct_field (type, &type_pointer, "gc_object_type", vis_public);
chain_type (&type_Class); chain_type (&type_Class);
type = type_Protocol.aux_type = new_struct ("Protocol"); type = type_Protocol.aux_type = new_struct (0);
type->type = ev_class; type->type = ev_class;
type->class = &class_Protocol; type->class = &class_Protocol;
class_Protocol.ivars = type_Protocol.aux_type; class_Protocol.ivars = type_Protocol.aux_type;