[Emacs-diffs] master ad5ac01: * src/gfilenotify.c (monitor_to_lisp, lisp_to_monitor):

[Paul Eggert]

branch: master
commit ad5ac01471b6795a5168b5e6fb7230adb08f3217
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    * src/gfilenotify.c (monitor_to_lisp, lisp_to_monitor):
    
    Port recent fix to !USE_LSB_TAG platforms.
---
 src/gfilenotify.c |    5 ++---
 1 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/gfilenotify.c b/src/gfilenotify.c
index 88a40d4..88222b5 100644
--- 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