fix separate modules with objc code

3 files changed, 63 insertions, 45 deletions

diff --git a/src/llvm_backend.cpp b/src/llvm_backend.cpp
index 696ced0df..277d0433e 100644
--- a/src/llvm_backend.cpp
+++ b/src/llvm_backend.cpp
@@ -1147,14 +1147,22 @@ gb_internal void lb_finalize_objc_names(lbProcedure *p) {
 		String name = entry.key;
 		args[0] = lb_const_value(m, t_cstring, exact_value_string(name));
 		lbValue ptr = lb_emit_runtime_call(p, "objc_lookUpClass", args);
-		lb_addr_store(p, entry.value, ptr);
+
+		lbValue ptr_ = lb_find_value_from_entity(m, entry.value);
+		lbAddr local_addr = lb_addr(ptr_);
+
+		lb_addr_store(p, local_addr, ptr);
 	}
 
 	for (auto const &entry : m->objc_selectors) {
 		String name = entry.key;
 		args[0] = lb_const_value(m, t_cstring, exact_value_string(name));
 		lbValue ptr = lb_emit_runtime_call(p, "sel_registerName", args);
-		lb_addr_store(p, entry.value, ptr);
+
+		lbValue ptr_ = lb_find_value_from_entity(m, entry.value);
+		lbAddr local_addr = lb_addr(ptr_);
+
+		lb_addr_store(p, local_addr, ptr);
 	}
 
 	lb_end_procedure_body(p);
diff --git a/src/llvm_backend.hpp b/src/llvm_backend.hpp
index 42d283a1e..dd56d56a3 100644
--- a/src/llvm_backend.hpp
+++ b/src/llvm_backend.hpp
@@ -196,8 +196,8 @@ struct lbModule {
 	RecursiveMutex debug_values_mutex;
 	PtrMap<void *, LLVMMetadataRef> debug_values; 
 
-	StringMap<lbAddr> objc_classes;
-	StringMap<lbAddr> objc_selectors;
+	StringMap<Entity *> objc_classes;
+	StringMap<Entity *> objc_selectors;
 
 	PtrMap<Type *, lbAddr> map_cell_info_map; // address of runtime.Map_Info
 	PtrMap<Type *, lbAddr> map_info_map;      // address of runtime.Map_Cell_Info
diff --git a/src/llvm_backend_utility.cpp b/src/llvm_backend_utility.cpp
index 7b7c9d6e9..61dafa1c0 100644
--- a/src/llvm_backend_utility.cpp
+++ b/src/llvm_backend_utility.cpp
@@ -2093,23 +2093,36 @@ gb_internal void lb_set_wasm_export_attributes(LLVMValueRef value, String export
 
 
 gb_internal lbAddr lb_handle_objc_find_or_register_selector(lbProcedure *p, String const &name) {
-	lbAddr *found = string_map_get(&p->module->objc_selectors, name);
-	if (found) {
-		return *found;
-	} else {
-		lbModule *default_module = &p->module->gen->default_module;
-		Entity *e = nullptr;
-		lbAddr default_addr = lb_add_global_generated(default_module, t_objc_SEL, {}, &e);
+	lbModule *default_module = &p->module->gen->default_module;
+	Entity *entity = {};
 
-		lbValue ptr = lb_find_value_from_entity(p->module, e);
-		lbAddr local_addr = lb_addr(ptr);
+	Entity **found = string_map_get(&p->module->objc_selectors, name);
+	if (found) {
+		entity = *found;
+	}
 
-		string_map_set(&default_module->objc_selectors, name, default_addr);
+	if (!entity) {
 		if (default_module != p->module) {
-			string_map_set(&p->module->objc_selectors, name, local_addr);
+			found = string_map_get(&default_module->objc_selectors, name);
+			if (found) {
+				entity = *found;
+			}
+		}
+
+		if (!entity) {
+			lbAddr default_addr = lb_add_global_generated(default_module, t_objc_SEL, {}, &entity);
+			string_map_set(&default_module->objc_selectors, name, entity);
 		}
-		return local_addr;
 	}
+
+	lbValue ptr = lb_find_value_from_entity(p->module, entity);
+	lbAddr local_addr = lb_addr(ptr);
+
+	if (default_module != p->module) {
+		string_map_set(&p->module->objc_selectors, name, entity);
+	}
+
+	return local_addr;
 }
 
 gb_internal lbValue lb_handle_objc_find_selector(lbProcedure *p, Ast *expr) {
@@ -2139,23 +2152,36 @@ gb_internal lbValue lb_handle_objc_register_selector(lbProcedure *p, Ast *expr)
 }
 
 gb_internal lbAddr lb_handle_objc_find_or_register_class(lbProcedure *p, String const &name) {
-	lbAddr *found = string_map_get(&p->module->objc_classes, name);
-	if (found) {
-		return *found;
-	} else {
-		lbModule *default_module = &p->module->gen->default_module;
-		Entity *e = nullptr;
-		lbAddr default_addr = lb_add_global_generated(default_module, t_objc_SEL, {}, &e);
+	lbModule *default_module = &p->module->gen->default_module;
+	Entity *entity = {};
 
-		lbValue ptr = lb_find_value_from_entity(p->module, e);
-		lbAddr local_addr = lb_addr(ptr);
+	Entity **found = string_map_get(&p->module->objc_classes, name);
+	if (found) {
+		entity = *found;
+	}
 
-		string_map_set(&default_module->objc_classes, name, default_addr);
+	if (!entity) {
 		if (default_module != p->module) {
-			string_map_set(&p->module->objc_classes, name, local_addr);
+			found = string_map_get(&default_module->objc_classes, name);
+			if (found) {
+				entity = *found;
+			}
+		}
+
+		if (!entity) {
+			lbAddr default_addr = lb_add_global_generated(default_module, t_objc_Class, {}, &entity);
+			string_map_set(&default_module->objc_classes, name, entity);
 		}
-		return local_addr;
 	}
+
+	lbValue ptr = lb_find_value_from_entity(p->module, entity);
+	lbAddr local_addr = lb_addr(ptr);
+
+	if (default_module != p->module) {
+		string_map_set(&p->module->objc_classes, name, entity);
+	}
+
+	return local_addr;
 }
 
 gb_internal lbValue lb_handle_objc_find_class(lbProcedure *p, Ast *expr) {
@@ -2196,23 +2222,7 @@ gb_internal lbValue lb_handle_objc_id(lbProcedure *p, Ast *expr) {
 		GB_ASSERT(e->kind == Entity_TypeName);
 		String name = e->TypeName.objc_class_name;
 
-		lbAddr *found = string_map_get(&p->module->objc_classes, name);
-		if (found) {
-			return lb_addr_load(p, *found);
-		} else {
-			lbModule *default_module = &p->module->gen->default_module;
-			Entity *e = nullptr;
-			lbAddr default_addr = lb_add_global_generated(default_module, t_objc_Class, {}, &e);
-
-			lbValue ptr = lb_find_value_from_entity(p->module, e);
-			lbAddr local_addr = lb_addr(ptr);
-
-			string_map_set(&default_module->objc_classes, name, default_addr);
-			if (default_module != p->module) {
-				string_map_set(&p->module->objc_classes, name, local_addr);
-			}
-			return lb_addr_load(p, local_addr);
-		}
+		return lb_addr_load(p, lb_handle_objc_find_or_register_class(p, name));
 	}
 
 	return lb_build_expr(p, expr);