From 39bed567b34a4bd74f7dfa99dd1ddb4621f67190 Mon Sep 17 00:00:00 2001
From: gingerBill <bill@gingerbill.org>
Date: Sun, 29 Nov 2020 14:22:42 +0000
Subject: Add intrinsics.type_equal_proc; Make `map` use an internal equal
 procedure to compare keys

---
 src/checker.cpp | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/checker.cpp')

diff --git a/src/checker.cpp b/src/checker.cpp
index efa7d76f7..ee3496fbf 100644
--- a/src/checker.cpp
+++ b/src/checker.cpp
@@ -726,6 +726,14 @@ void init_universal(void) {
 	}
 	add_global_type_entity(str_lit("byte"), &basic_types[Basic_u8]);
 
+	{
+		void set_procedure_abi_types(Type *type);
+
+		Type *args[2] = {t_rawptr, t_rawptr};
+		t_equal_proc = alloc_type_proc_from_types(args, 2, t_bool, false, ProcCC_Contextless);
+		set_procedure_abi_types(t_equal_proc);
+	}
+
 // Constants
 	add_global_constant(str_lit("true"),  t_untyped_bool, exact_value_bool(true));
 	add_global_constant(str_lit("false"), t_untyped_bool, exact_value_bool(false));
-- 
cgit v1.2.3