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

Port recent fix to !USE_LSB_TAG platforms.

diff --git a/src/gfilenotify.c b/src/gfilenotify.c
index 88a40d4cbd9da7bac923dacc17e4447aed949ee5..88222b5bf05f72aaa75686f590e47dae79df06b5 100644 (file)
--- a/src/gfilenotify.c
+++ b/src/gfilenotify.c
@@ -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