Commit ad5ac014 authored by Paul Eggert's avatar Paul Eggert
Browse files

* src/gfilenotify.c (monitor_to_lisp, lisp_to_monitor):

Port recent fix to !USE_LSB_TAG platforms.
parent d71659fe
......@@ -38,14 +38,13 @@ static Lisp_Object watch_list;
static Lisp_Object
monitor_to_lisp (GFileMonitor *monitor)
{
return XIL ((intptr_t) monitor + Lisp_Int0);
return XIL (TAG_PTR (Lisp_Int0, monitor));
}
static GFileMonitor *
lisp_to_monitor (Lisp_Object watch_descriptor)
{
intptr_t int_monitor = XLI (watch_descriptor) - Lisp_Int0;
return (GFileMonitor *) int_monitor;
return XUNTAG (watch_descriptor, Lisp_Int0);
}
/* This is the callback function for arriving signals from
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment