[Emacs-diffs] /srv/bzr/emacs/trunk r110567: Fix bug #12661 with w32 and cygw32 builds under --enable-check-lisp-object-type.

[Eli Zaretskii]

------------------------------------------------------------
revno: 110567
fixes bug: http://debbugs.gnu.org/12661
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Wed 2012-10-17 17:37:55 +0200
message:
  Fix bug #12661 with w32 and cygw32 builds under 
--enable-check-lisp-object-type.
  
   src/cygw32.c (Fcygwin_convert_path_to_windows)
   (Fcygwin_convert_path_from_windows): Use EQ to compare 2
   Lisp_Object values.
   src/w32fns.c (w32_msg_pump): Use XIL instead of casting an integer
   to Lisp_Object.
modified:
  src/ChangeLog
  src/cygw32.c
  src/w32fns.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2012-10-17 13:33:48 +0000
+++ b/src/ChangeLog     2012-10-17 15:37:55 +0000
@@ -1,3 +1,12 @@
+2012-10-17  Eli Zaretskii  <address@hidden>
+
+       * cygw32.c (Fcygwin_convert_path_to_windows)
+       (Fcygwin_convert_path_from_windows): Use EQ to compare 2
+       Lisp_Object values.  (Bug#12661)
+
+       * w32fns.c (w32_msg_pump): Use XIL instead of casting an integer
+       to Lisp_Object.  (Bug#12661)
+
 2012-10-17  Kenichi Handa  <address@hidden>
 
        * xdisp.c (reseat_1): Make the information stored in it->cmp_it

=== modified file 'src/cygw32.c'
--- a/src/cygw32.c      2012-10-08 12:53:18 +0000
+++ b/src/cygw32.c      2012-10-17 15:37:55 +0000
@@ -145,7 +145,7 @@
   (Lisp_Object path, Lisp_Object absolute_p)
 {
   return from_unicode (
-    conv_filename_to_w32_unicode (path, absolute_p == Qnil ? 0 : 1));
+    conv_filename_to_w32_unicode (path, EQ (absolute_p, Qnil) ? 0 : 1));
 }
 
 DEFUN ("cygwin-convert-path-from-windows",
@@ -156,7 +156,7 @@
   (Lisp_Object path, Lisp_Object absolute_p)
 {
   return conv_filename_from_w32_unicode (to_unicode (path, &path),
-                                         absolute_p == Qnil ? 0 : 1);
+                                         EQ (absolute_p, Qnil) ? 0 : 1);
 }
 
 void

=== modified file 'src/w32fns.c'
--- a/src/w32fns.c      2012-10-12 14:14:35 +0000
+++ b/src/w32fns.c      2012-10-17 15:37:55 +0000
@@ -2424,7 +2424,7 @@
                  thread-safe.  The next line is okay because the cons
                  cell is never made into garbage and is not relocated by
                  GC.  */
-             XSETCAR ((Lisp_Object) ((EMACS_INT) msg.lParam), Qnil);
+             XSETCAR (XIL ((EMACS_INT) msg.lParam), Qnil);
              if (!PostThreadMessage (dwMainThreadId, WM_EMACS_DONE, 0, 0))
                emacs_abort ();
              break;
@@ -2432,7 +2432,7 @@
              {
                int vk_code = (int) msg.wParam;
                int cur_state = (GetKeyState (vk_code) & 1);
-               Lisp_Object new_state = (Lisp_Object) ((EMACS_INT) msg.lParam);
+               Lisp_Object new_state = XIL ((EMACS_INT) msg.lParam);
 
                /* NB: This code must be thread-safe.  It is safe to
                    call NILP because symbols are not relocated by GC,