From 3e2ff820a449b20140dd1c340a8e42aa94d7d0bd Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Wed, 7 May 2003 18:58:36 +0000
Subject: [PATCH] Minor tweak to remove warnings

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4773 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Source/DOH/base.c        | 2 +-
 Source/Modules/s-exp.cxx | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Source/DOH/base.c b/Source/DOH/base.c
index 7e02832e8..ac1b33666 100644
--- a/Source/DOH/base.c
+++ b/Source/DOH/base.c
@@ -94,7 +94,7 @@ DohStr(const DOH *obj) {
     if (objinfo->doh_str) {
       return (objinfo->doh_str)(b);
     }
-    sprintf(buffer,"<Object '%s' at %x>", objinfo->objname, (unsigned int)b);
+    sprintf(buffer,"<Object '%s' at %p>", objinfo->objname, b);
     return NewString(buffer);
   } else {
     return NewString(obj);
diff --git a/Source/Modules/s-exp.cxx b/Source/Modules/s-exp.cxx
index 4377c23d4..f6b3ff6d9 100644
--- a/Source/Modules/s-exp.cxx
+++ b/Source/Modules/s-exp.cxx
@@ -187,7 +187,7 @@ public:
     // Following is a silly hack.  It works around the limitation of
     // DOH's hash tables that only work with string keys!
     char address[16];
-    sprintf(address, "%x%c", (unsigned int)obj, list_p ? 'L' : 'O');
+    sprintf(address, "%x%c", (unsigned long)obj, list_p ? 'L' : 'O');
     DOH *placeholder = Getattr(print_circle_hash, address);
     if (placeholder) {
       Printv(out, placeholder, NIL);