From: Jim Meyering <jim@meyering.net>
Date: Fri, 2 Aug 1996 03:25:39 +0000 (+0000)
Subject: (ST_NBLOCKS) [_CRAY]: Special case for Cray.
X-Git-Tag: TEXTUTILS-1_19b~92
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d5aa78b54042c9f8f80075aef04f54d6c91dfefb;p=thirdparty%2Fcoreutils.git

(ST_NBLOCKS) [_CRAY]: Special case for Cray.
From by Johan Danielsson.
---

diff --git a/src/system.h b/src/system.h
index a975336eb2..19df3d46fc 100644
--- a/src/system.h
+++ b/src/system.h
@@ -265,9 +265,13 @@ char *getenv ();
 # else /* !hpux */
 #  if defined(_AIX) && defined(_I386)
 /* AIX PS/2 counts st_blocks in 4K units.  */
-#    define ST_NBLOCKS(statbuf) ((statbuf).st_blocks * 8)
+#   define ST_NBLOCKS(statbuf) ((statbuf).st_blocks * 8)
 #  else /* not AIX PS/2 */
+#   if defined(_CRAY)
+#    define ST_NBLOCKS(statbuf) ((statbuf).st_blocks * ST_BLKSIZE(statbuf)/512)
+#   else /* not AIX PS/2 nor CRAY */
 #    define ST_NBLOCKS(statbuf) ((statbuf).st_blocks)
+#   endif /* not _CRAY */
 #  endif /* not AIX PS/2 */
 # endif /* !hpux */
 #endif /* HAVE_ST_BLOCKS */