Add debug flag for pointer correctness

Author: kalimag

Assets/Lua/Doom/dsda-data.lua

@@ -8,6 +8,9 @@ local dsda = {
 	hexen = {},
 }
 
+ -- Read the high word of every pointer and check that it matches the expected base address (for debugging)
+dsda.check_pointers = false
+
 
 
 -- Constants ---
@@ -45,6 +48,9 @@ end
 
 -- Returns the lower 4 bytes of an 8 byte pointer
 function dsda.read_ptr(addr, domain)
+	if dsda.check_pointers and read_u32(addr + 4, domain) ~= WBX_POINTER_HI then
+		error(string.format("Invalid pointer 0x%016X at %s 0x%X", dsda.read_s64_le(addr, domain), domain, addr))
+	end
 	return read_u32(addr, domain)
 end