conservatory
/
elk
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* lib/xwidgets/: more pointer/int cast fixes. 

git-svn-id: svn://svn.zoy.org/elk/trunk@271 55e467fa-43c5-0310-a8a2-de718669efc6
This commit is contained in:
sam 2006-09-17 11:06:03 +00:00
parent 51d8ac2837
commit 4fe7ccd660
3 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/xwidgets/context.c
View File

@ -50,7 +50,7 @@ Generic_Predicate (Context)
Generic_Equal (Context, CONTEXT, 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) { static Object Internal_Make_Context (int finalize, XtAppContext context) {
Object c; Object c;

3
lib/xwidgets/identifier.c
View File

@ -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; 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 Make_Id (int type, XtPointer val, int num) {
Object i; Object i;

2
lib/xwidgets/widget.c
View File

@ -38,7 +38,7 @@ Generic_Predicate (Widget)
Generic_Equal (Widget, WIDGET, 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) { static Object Internal_Make_Widget (int finalize, Widget widget) {
Object w; Object w;