object.r:

define __obj_exec_class, obj_msgSend and obj_msgSend_super for the way
	qfcc now handles these defs
pr_edict.c:
	PR_ValueString now checks that the function is valid before trying to
	print its name.
class.c:
	__obj_exec_class is now extern
linker.c:
	fix more mangled relocs
method.c:
	obj_msgSend and obj_msgSend_super are now extern
qfcc.c:
	fixes so obj_module_t doesn't get zapped
type.c:
	fixes so obj_module_t doesn't get zapped

cs-code/object.r

@@ -3,11 +3,14 @@ typedef enum {
 	YES,
 } BOOL;
 
+void (obj_module_t [] module) __obj_exec_class = #0;
 void (id object, integer code, string fmt, ...) obj_error = #0;
 void (id object, integer code, string fmt, ...) obj_verror = #0;//FIXME not ...
 //obj_error_handler (objc_error_handler func) obj_set_error_handler = #0;
 IMP (id receiver, SEL op) obj_msg_lookup = #0;
 IMP (id receiver, SEL op) obj_msg_lookup_super = #0;
+id (id receiver, SEL op, ...) obj_msgSend = #0;
+id (id receiver, SEL op, ...) obj_msgSend_super = #0;
 //retval_t (id receiver, SEL op, arglist_t) obj_msg_sendv = #0;
 (void []) (integer size) obj_malloc = #0;
 (void []) (integer size) obj_atomic_malloc = #0;

libs/gamecode/engine/pr_edict.c

@@ -238,9 +238,15 @@ PR_ValueString (progs_t * pr, etype_t type, pr_type_t *val)
 					  NUM_FOR_BAD_EDICT (pr, PROG_TO_EDICT (pr, val->entity_var)));
 			break;
 		case ev_func:
-			f = pr->pr_functions + val->func_var;
-			snprintf (line, sizeof (line), "%s()",
-					  PR_GetString (pr, f->s_name));
+			if (val->func_var < 0 || val->func_var >= pr->progs->numfunctions)
+				snprintf (line, sizeof (line), "INVALID:%d", val->func_var);
+			else if (!val->func_var)
+				return "NULL";
+			else {
+				f = pr->pr_functions + val->func_var;
+				snprintf (line, sizeof (line), "%s()",
+						  PR_GetString (pr, f->s_name));
+			}
 			break;
 		case ev_field:
 			def = ED_FieldAtOfs (pr, val->integer_var);

tools/qfcc/source/class.c

@@ -443,7 +443,6 @@ class_finish_module (void)
 	def_t      *module_def;
 	pr_module_t *module;
 	def_t      *exec_class_def;
-	function_t *exec_class_func;
 	def_t      *init_def;
 	function_t *init_func;
 	expr_t     *init_expr;
@@ -495,13 +494,7 @@ class_finish_module (void)
 	EMIT_DEF (module->symtab, symtab_def);
 
 	exec_class_def = get_def (&type_obj_exec_class, "__obj_exec_class",
-								pr.scope, st_static);
-	exec_class_func = new_function ("__obj_exec_class");
-	exec_class_func->builtin = 0;
-	exec_class_func->def = exec_class_def;
-	reloc_def_func (exec_class_func, exec_class_def->ofs);
-	build_function (exec_class_func);
-	finish_function (exec_class_func);
+								pr.scope, st_extern);
 
 	init_def = get_def (&type_function, ".ctor", pr.scope, st_static);
 	init_func = new_function (".ctor");

tools/qfcc/source/linker.c

@@ -393,12 +393,14 @@ move_def (hashtab_t *deftab, qfo_def_t *d)
 	}
 	if (deftab) {
 		while ((d = Hash_Del (deftab, strings->strings + def->name))) {
+			int         def_relocs;
 			relocgroup_add_relocs (&final_relocs, relocs.relocs + d->relocs,
 								   d->num_relocs);
+			def_relocs = def->relocs + def->num_relocs;
 			def->num_relocs += d->num_relocs;
 			for (j = 0; j < d->num_relocs; j++) {
 				relocs.relocs[d->relocs + j].type = rel_none;
-				final_relocs.relocs[def->relocs + j].def = def_num;
+				final_relocs.relocs[def_relocs + j].def = def_num;
 			}
 		}
 	}

tools/qfcc/source/method.c

@@ -176,8 +176,7 @@ make_message_def (const char *name, def_t **def)
 	expr_t     *zero = new_expr ();
 
 	zero->type = ex_integer;
-	*def = get_def (&type_IMP, name, pr.scope, st_static);
-	build_builtin_function (*def, zero);
+	*def = get_def (&type_IMP, name, pr.scope, st_extern);
 }
 
 expr_t *

tools/qfcc/source/qfcc.c

@@ -132,7 +132,6 @@ InitData (void)
 		strpool_delete (pr.strings);
 	}
 	memset (&pr, 0, sizeof (pr));
-	chain_initial_types ();
 	pr.source_line = 1;
 	pr.error_count = 0;
 	pr.code = codespace_new ();
@@ -469,7 +468,6 @@ compile_to_obj (const char *file, const char *obj)
 	yyin = preprocess_file (file);
 
 	InitData ();
-	begin_compilation ();
 	clear_frame_macros ();
 	clear_classes ();
 	clear_defs ();
@@ -478,6 +476,8 @@ compile_to_obj (const char *file, const char *obj)
 	clear_structs ();
 	clear_enums ();
 	clear_typedefs ();
+	chain_initial_types ();
+	begin_compilation ();
 	pr.source_file = ReuseString (strip_path (file));
 	err = yyparse () || pr.error_count;
 	fclose (yyin);
@@ -595,6 +595,7 @@ progs_src_compile (void)
 	setup_sym_file (options.output_file);
 
 	InitData ();
+	chain_initial_types ();
 
 	begin_compilation ();
 

tools/qfcc/source/type.c

@@ -628,12 +628,13 @@ init_types (void)
 	new_struct_field (type, &type_string, "ivar_name", vis_public);
 	new_struct_field (type, &type_string, "ivar_type", vis_public);
 	new_struct_field (type, &type_integer, "ivar_offset", vis_public);
-
-	type = type_module = new_struct (0);
+#if 0
+	type = type_module = new_struct ("obj_module_t");
 	new_struct_field (type, &type_integer, "version", vis_public);
 	new_struct_field (type, &type_integer, "size", vis_public);
 	new_struct_field (type, &type_string, "name", vis_public);
 	new_struct_field (type, &type_pointer, "symtab", vis_public);
+#endif
 }
 
 void
@@ -662,7 +663,14 @@ chain_initial_types (void)
 	chain_type (&type_id);
 	chain_type (type_category);
 	chain_type (type_ivar);
+
+	type_module = new_struct ("obj_module_t");
+	new_struct_field (type_module, &type_integer, "version", vis_public);
+	new_struct_field (type_module, &type_integer, "size", vis_public);
+	new_struct_field (type_module, &type_string, "name", vis_public);
+	new_struct_field (type_module, &type_pointer, "symtab", vis_public);
 	chain_type (type_module);
+
 	chain_type (&type_obj_exec_class);
 
 	type_obj_exec_class.parm_types[0] = pointer_type (type_module);