pith ChangeLog Hurd/Trivfs/Trivfs.xs

[Samuel Thibault]

CVSROOT:        /cvsroot/hurdextras
Module name:    pith
Changes by:     Samuel Thibault <sthibaul>      13/02/10 10:38:28

Modified files:
        .              : ChangeLog 
        Hurd/Trivfs    : Trivfs.xs 

Log message:
        2013-02-10  Samuel Thibault  <address@hidden>
        
                Fix build against newer stat structure.
        
                * Hurd/Trivfs/Trivfs.xs (trivfs_modify_stat): Use 
st_atim.tv_sec and
                tv_nsec instead of st_atime and st_atime_usec.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pith/ChangeLog?cvsroot=hurdextras&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/pith/Hurd/Trivfs/Trivfs.xs?cvsroot=hurdextras&r1=1.1&r2=1.2

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/hurdextras/pith/ChangeLog,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- ChangeLog   12 Apr 2006 23:29:27 -0000      1.1
+++ ChangeLog   10 Feb 2013 10:38:28 -0000      1.2
@@ -1,3 +1,10 @@
+2013-02-10  Samuel Thibault  <address@hidden>
+
+       Fix build against newer stat structure.
+
+       * Hurd/Trivfs/Trivfs.xs (trivfs_modify_stat): Use st_atim.tv_sec and
+       tv_nsec instead of st_atime and st_atime_usec.
+
 2006-04-13  Manuel Menal  <address@hidden>
 
        * Hurd/Trivfs/Trivfs.xs (alloc_hook, free_hook, call_sub) 

Index: Hurd/Trivfs/Trivfs.xs
===================================================================
RCS file: /cvsroot/hurdextras/pith/Hurd/Trivfs/Trivfs.xs,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- Hurd/Trivfs/Trivfs.xs       12 Apr 2006 23:29:27 -0000      1.1
+++ Hurd/Trivfs/Trivfs.xs       10 Feb 2013 10:38:28 -0000      1.2
@@ -208,11 +208,11 @@
       /* Perl stat returns integer times, but there's no harm in making
         them floating-point under Hurd, right?  */
       av_store (statav, 8,
-                    newSVnv (st->st_atime + 1e-6 * st->st_atime_usec));
+                    newSVnv (st->st_atim.tv_sec + 1e-9 * st->st_atim.tv_nsec));
       av_store (statav, 9,
-                    newSVnv (st->st_mtime + 1e-6 * st->st_mtime_usec));
+                    newSVnv (st->st_mtim.tv_sec + 1e-9 * st->st_mtim.tv_nsec));
       av_store (statav, 10,
-                    newSVnv (st->st_ctime + 1e-6 * st->st_ctime_usec));
+                    newSVnv (st->st_ctim.tv_sec + 1e-9 * st->st_ctim.tv_nsec));
 
       av_store (statav, 11, newSViv ((I32) st->st_blksize));
       av_store (statav, 12, newSViv ((I32) st->st_blocks));
@@ -257,22 +257,22 @@
        {
          t = SvNV (*tmp);
          /* anyone want to use modf() ? */
-         st->st_atime = (time_t) t;
-         st->st_atime_usec = (unsigned long int) 1e6 * (t - st->st_atime);
+         st->st_atim.tv_sec = (time_t) t;
+         st->st_atim.tv_nsec = (unsigned long int) 1e9 * (t - st->st_atime);
        }
       tmp = av_fetch (statav, 9, 0);
       if (tmp)
        {
          t = SvNV (*tmp);
-         st->st_mtime = (time_t) t;
-         st->st_mtime_usec = (unsigned long int) 1e6 * (t - st->st_mtime);
+         st->st_mtim.tv_sec = (time_t) t;
+         st->st_mtim.tv_nsec = (unsigned long int) 1e9 * (t - st->st_mtime);
        }
       tmp = av_fetch (statav, 10, 0);
       if (tmp)
        {
          t = SvNV (*tmp);
-         st->st_ctime = (time_t) t;
-         st->st_ctime_usec = (unsigned long int) 1e6 * (t - st->st_ctime);
+         st->st_ctim.tv_sec = (time_t) t;
+         st->st_ctim.tv_nsec = (unsigned long int) 1e9 * (t - st->st_ctime);
        }
 
       tmp = av_fetch (statav, 11, 0);