From ad5ac01471b6795a5168b5e6fb7230adb08f3217 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Wed, 7 Jan 2015 17:52:30 -0800 Subject: [PATCH] * src/gfilenotify.c (monitor_to_lisp, lisp_to_monitor): Port recent fix to !USE_LSB_TAG platforms. --- src/gfilenotify.c | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/gfilenotify.c b/src/gfilenotify.c index 88a40d4cbd9..88222b5bf05 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 -- 2.39.2