skalibs

Mirror/fork of https://skarnet.org/software/skalibs/
git clone https://ccx.te2000.cz/git/skalibs
Log | Files | Refs | README | LICENSE

tain_half.c (190B)

      1 /* ISC license. */
      2 
      3 #include <skalibs/tai.h>
      4 
      5 void tain_half (tain *t, tain const *u)
      6 {
      7   t->nano = u->nano >> 1 ;
      8   if (u->sec.x & 1) t->nano += 500000000U ;
      9   t->sec.x = u->sec.x >> 1 ;
     10 }