From 4fe7ccd660ae5f0a81cc35fc918b15f76358b0f3 Mon Sep 17 00:00:00 2001
From: sam <sam@55e467fa-43c5-0310-a8a2-de718669efc6>
Date: Sun, 17 Sep 2006 11:06:03 +0000
Subject: [PATCH]   * lib/xwidgets/: more pointer/int cast fixes.

git-svn-id: svn://svn.zoy.org/elk/trunk@271 55e467fa-43c5-0310-a8a2-de718669efc6
---
 lib/xwidgets/context.c    | 2 +-
 lib/xwidgets/identifier.c | 3 ++-
 lib/xwidgets/widget.c     | 2 +-
 3 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/lib/xwidgets/context.c b/lib/xwidgets/context.c
index e519bf1..ca80808 100644
--- a/lib/xwidgets/context.c
+++ b/lib/xwidgets/context.c
@@ -50,7 +50,7 @@ Generic_Predicate (Context)
 
 Generic_Equal (Context, CONTEXT, context)
 
-Generic_Print (Context, "#[context %lu]", POINTER(x))
+Generic_Print (Context, "#[context %lu]", (unsigned int)(uintptr_t)POINTER(x))
 
 static Object Internal_Make_Context (int finalize, XtAppContext context) {
     Object c;
diff --git a/lib/xwidgets/identifier.c b/lib/xwidgets/identifier.c
index 7ac320e..04221f1 100644
--- a/lib/xwidgets/identifier.c
+++ b/lib/xwidgets/identifier.c
@@ -37,7 +37,8 @@ static int Identifier_Equal (Object x, Object y) {
     return p->type == q->type && p->val == q->val && !p->free && !q->free;
 }
 
-Generic_Print (Identifier, "#[identifier %lu]", POINTER(x))
+Generic_Print (Identifier, "#[identifier %lu]",
+               (unsigned int)(uintptr_t)POINTER(x))
 
 Object Make_Id (int type, XtPointer val, int num) {
     Object i;
diff --git a/lib/xwidgets/widget.c b/lib/xwidgets/widget.c
index 7878c10..98e4991 100644
--- a/lib/xwidgets/widget.c
+++ b/lib/xwidgets/widget.c
@@ -38,7 +38,7 @@ Generic_Predicate (Widget)
 
 Generic_Equal (Widget, WIDGET, widget)
 
-Generic_Print (Widget, "#[widget %lu]", POINTER(x))
+Generic_Print (Widget, "#[widget %lu]", (unsigned int)(uintptr_t)POINTER(x))
 
 static Object Internal_Make_Widget (int finalize, Widget widget) {
     Object w;