[Persistence.mod] Persist Collision. Matching ref 'xxx' for different objects

[GWRon]

Just encountered this "critical" (for me) issue with persistence.mod.

After 8 hours of having my AI a play in TVTower I wanted to save - just to get thrown out of the game with the error message

Persist Collision. Matching ref 'F3B0G' for different objects

I had games which I saved after 90 days (around 70 MB of XML, dunno about JSON) ... so I assume it happens because of some ... accidental "name clash"

Screenshots of the debugger:
TVTower/TVTower#494

But as usual we cannot look into (in this case TXmlDoc)

Ideas on how to approach it properly?

[GWRon]

The interesting piece might maybe the memory addresses:

The only are the same for the last 8 bytes. The first 8 bytes are different.

Yet their "ref"-key is the same:

	Function GetObjRef:String(obj:Object)
?ptr64
		Return Base36(Long(bbObjectRef(obj)))
?Not ptr64
		Return Base36(Int(bbObjectRef(obj)))
?
	End Function

[GWRon]

The issue is in Base36()

print "first: " + TPersist.Base36($000000000182c980:long)
print "second:" + TPersist.Base36($00007f7b0182c980:long)

Output:

first: F3B0G
second:F3B0G

[GWRon]

@davecamp solved it already:

?ptr64
	Function Base36:String( val:Long )
		Const size:Int = 13
?Not ptr64
	Function Base36:String( val:Int )
		Const size:Int = 6
?
		Local vLong:Long = $FFFFFFFFFFFFFFFF & Long(Byte Ptr(val))

Last line should become (to not fall back to "int":

		Local vLong:Long = $FFFFFFFFFFFFFFFF:Long & Long(Byte Ptr(val))

also the byte ptr cast could be removed too?