- Gedcom_ctxt self = (Gedcom_ctxt)((int) parent + 1000);
- output(1, "Source is %s (ctxt is %d, parent is %d)\n",
- GEDCOM_STRING(parsed_value), (int) self, (int) parent);
+ Gedcom_ctxt self = (Gedcom_ctxt)(void_ptr_to_int(parent) + 1000);
+ output(1, "Source is %s (ctxt is %ld, parent is %ld)\n",
+ GEDCOM_STRING(parsed_value), void_ptr_to_int(self),
+ void_ptr_to_int(parent));