From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 19 May 1997 02:17:26 +0000 (+0000)
Subject: (Ffile_attributes): Return inode number as a cons only if necessary.
X-Git-Tag: emacs-20.1~2077
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c637faa2450d3ee867cbb0fabfb57213817a2f7;p=emacs.git

(Ffile_attributes): Return inode number as a cons only if necessary.
---

diff --git a/src/dired.c b/src/dired.c
index a10e94931f0..ea0624dd535 100644
--- a/src/dired.c
+++ b/src/dired.c
@@ -685,14 +685,14 @@ If file does not exist, returns nil.")
 #ifdef BSD4_3
 #undef BSD4_2 /* ok, you can look again without throwing up */
 #endif
-#if 1
-  /* To allow inode numbers larger than VALBITS, separate the bottom
-     16 bits.  */
-  values[10] = Fcons (make_number (s.st_ino >> 16),
-		      make_number (s.st_ino & 0xffff));
-#else
-  values[10] = make_number (s.st_ino);
-#endif
+  if (s.st_ino & ((-1) << VALBITS))
+    /* To allow inode numbers larger than VALBITS, separate the bottom
+       16 bits.  */
+    values[10] = Fcons (make_number (s.st_ino >> 16),
+			make_number (s.st_ino & 0xffff));
+  else
+    /* But keep the most common cases as integers.  */
+    values[10] = make_number (s.st_ino);
   values[11] = make_number (s.st_dev);
   return Flist (sizeof(values) / sizeof(values[0]), values);
 }