error codes and better docs for mask-map

[chiark-tcl.git] / base / idtable.c

diff --git a/base/idtable.c b/base/idtable.c
index c2f3aaa32f0dee504704dba14c182870c29bddf1..ed5e5e61287144ecfcce1e0b2c587abd4f731af6 100644 (file)
--- a/base/idtable.c
+++ b/base/idtable.c
@@ -110,7 +110,7 @@ static void tabledataid_nt_ustr(Tcl_Obj *o) {
   char buf[75];
   const char *prefix;
 
-  prefix= o->internalRep.twoPtrValue.ptr2;
+  prefix= ((IdDataTable*)o->internalRep.twoPtrValue.ptr1)->prefix;
   snprintf(buf,sizeof(buf), "%lu",
           *(unsigned long*)o->internalRep.twoPtrValue.ptr2);
   obj_updatestr_vstringls(o,
@@ -119,7 +119,7 @@ static void tabledataid_nt_ustr(Tcl_Obj *o) {
                          (char*)0);
 }
 
-Tcl_ObjType tabledataid_ntype = {
+Tcl_ObjType tabledataid_nearlytype = {
   "tabledataid",
   tabledataid_nt_free, tabledataid_nt_dup,
   tabledataid_nt_ustr, tabledataid_nt_sfa