Fix memory and type management bugs.

[chiark-tcl.git] / hbytes / ulongs.c

diff --git a/hbytes/ulongs.c b/hbytes/ulongs.c
index f8b8c9e722d1ed6fc303e9ca9f6baa43ce3ed8b4..ac8793392e45c2ee19282c55c3ea849946f823c2 100644 (file)
--- a/hbytes/ulongs.c
+++ b/hbytes/ulongs.c
@@ -290,6 +290,7 @@ static void ulong_t_free(Tcl_Obj *o) { }
 
 static void ulong_t_dup(Tcl_Obj *src, Tcl_Obj *dup) {
   dup->internalRep= src->internalRep;
+  dup->typePtr= &ulong_type;
 }
 
 static void ulong_t_ustr(Tcl_Obj *o) {