diff options
author | Richard M. Stallman <[email protected]> | 1996-11-07 05:46:56 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1996-11-07 05:46:56 +0000 |
commit | 88b09a17736ea30e30d4db717ca2e7d40f8adac7 (patch) | |
tree | a0fbe3351da704ef0ac2d775cfce3c703346e33d /src | |
parent | 684f4cb3f2d8af50973a38259cb58c8e81adceb0 (diff) |
(Ffile_attributes): Represent inode number as a pair of
integers in case inode numbers do not fit in a Lisp integer.
Diffstat (limited to 'src')
-rw-r--r-- | src/dired.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/dired.c b/src/dired.c index 1e7c9a8022..844c00687a 100644 --- a/src/dired.c +++ b/src/dired.c @@ -684,7 +684,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 values[11] = make_number (s.st_dev); return Flist (sizeof(values) / sizeof(values[0]), values); } |