Source_Code_Location.hash; %#v printing for Source_Code_Location; allow typeid for map keys

3 files changed, 37 insertions, 6 deletions

diff --git a/core/fmt/fmt.odin b/core/fmt/fmt.odin
index c166b426a..bcca57049 100644
--- a/core/fmt/fmt.odin
+++ b/core/fmt/fmt.odin
@@ -34,6 +34,7 @@ Fmt_Info :: struct {
 	arg: any, // Temporary
 }
 
+
 string_buffer_from_slice :: proc(backing: []byte) -> String_Buffer {
 	s := transmute(mem.Raw_Slice)backing;
 	d := mem.Raw_Dynamic_Array{
@@ -1281,6 +1282,20 @@ fmt_arg :: proc(fi: ^Fmt_Info, arg: any, verb: rune) {
 		return;
 	}
 
+
+	custom_types: switch a in arg {
+	case runtime.Source_Code_Location:
+		if fi.hash && verb == 'v' {
+			write_string(fi.buf, a.file_path);
+			write_byte(fi.buf, '(');
+			write_i64(fi.buf, i64(a.line), 10);
+			write_byte(fi.buf, ':');
+			write_i64(fi.buf, i64(a.column), 10);
+			write_byte(fi.buf, ')');
+			return;
+		}
+	}
+
 	base_arg := arg;
 	base_arg.id = runtime.typeid_base(base_arg.id);
 	switch a in base_arg {
diff --git a/core/runtime/core.odin b/core/runtime/core.odin
index 382c73864..6730621c8 100644
--- a/core/runtime/core.odin
+++ b/core/runtime/core.odin
@@ -196,6 +196,7 @@ Source_Code_Location :: struct {
 	file_path:    string,
 	line, column: int,
 	procedure:    string,
+	hash:         u64,
 }
 
 Assertion_Failure_Proc :: #type proc(prefix, message: string, loc: Source_Code_Location);
@@ -253,8 +254,6 @@ Map_Header :: struct {
 
 
 
-
-
 type_info_base :: proc "contextless" (info: ^Type_Info) -> ^Type_Info {
 	if info == nil do return nil;
 
@@ -842,6 +841,23 @@ default_hash :: proc(data: []byte) -> u64 {
 default_hash_string :: proc(s: string) -> u64 do return default_hash(([]byte)(s));
 
 
+source_code_location_hash :: proc(s: Source_Code_Location) -> u64 {
+	fnv64a :: proc(data: []byte, seed: u64 = 0xcbf29ce484222325) -> u64 {
+		h: u64 = seed;
+		for b in data {
+			h = (h ~ u64(b)) * 0x100000001b3;
+		}
+		return h;
+	}
+	hash := fnv64a(cast([]byte)s.file_path);
+	hash = hash ~ (u64(s.line) * 0x100000001b3);
+	hash = hash ~ (u64(s.column) * 0x100000001b3);
+	return hash;
+}
+
+
+
+
 __slice_resize :: proc(array_: ^$T/[]$E, new_count: int, allocator: mem.Allocator, loc := #caller_location) -> bool {
 	array := (^mem.Raw_Slice)(array_);
 
diff --git a/core/runtime/internal.odin b/core/runtime/internal.odin
index d6fa36167..4fdb01cdf 100644
--- a/core/runtime/internal.odin
+++ b/core/runtime/internal.odin
@@ -274,7 +274,7 @@ bounds_check_error :: proc "contextless" (file: string, line, column: int, index
 	if 0 <= index && index < count do return;
 	handle_error :: proc "contextless" (file: string, line, column: int, index, count: int) {
 		fd := os.stderr;
-		print_caller_location(fd, Source_Code_Location{file, line, column, ""});
+		print_caller_location(fd, Source_Code_Location{file, line, column, "", 0});
 		os.write_string(fd, " Index ");
 		print_i64(fd, i64(index));
 		os.write_string(fd, " is out of bounds range 0:");
@@ -289,7 +289,7 @@ slice_expr_error :: proc "contextless" (file: string, line, column: int, lo, hi:
 	if 0 <= lo && lo <= hi && hi <= len do return;
 	handle_error :: proc "contextless" (file: string, line, column: int, lo, hi: int, len: int) {
 		fd := os.stderr;
-		print_caller_location(fd, Source_Code_Location{file, line, column, ""});
+		print_caller_location(fd, Source_Code_Location{file, line, column, "", 0});
 		os.write_string(fd, " Invalid slice indices: ");
 		print_i64(fd, i64(lo));
 		os.write_string(fd, ":");
@@ -306,7 +306,7 @@ dynamic_array_expr_error :: proc "contextless" (file: string, line, column: int,
 	if 0 <= low && low <= high && high <= max do return;
 	handle_error :: proc "contextless" (file: string, line, column: int, low, high, max: int) {
 		fd := os.stderr;
-		print_caller_location(fd, Source_Code_Location{file, line, column, ""});
+		print_caller_location(fd, Source_Code_Location{file, line, column, "", 0});
 		os.write_string(fd, " Invalid dynamic array values: ");
 		print_i64(fd, i64(low));
 		os.write_string(fd, ":");
@@ -324,7 +324,7 @@ type_assertion_check :: proc "contextless" (ok: bool, file: string, line, column
 	if ok do return;
 	handle_error :: proc "contextless" (file: string, line, column: int, from, to: typeid) {
 		fd := os.stderr;
-		print_caller_location(fd, Source_Code_Location{file, line, column, ""});
+		print_caller_location(fd, Source_Code_Location{file, line, column, "", 0});
 		os.write_string(fd, " Invalid type assertion from ");
 		print_typeid(fd, from);
 		os.write_string(fd, " to ");