[BACK]Return to time.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/time.c between version 1.2 and 1.8

version 1.2, 2000/08/21 08:31:21 version 1.8, 2011/05/11 06:03:53
Line 23 
Line 23 
  * shall be made on your publication or presentation in any form of the   * shall be made on your publication or presentation in any form of the
  * results obtained by use of the SOFTWARE.   * results obtained by use of the SOFTWARE.
  * (4) In the event that you modify the SOFTWARE, you shall notify FLL by   * (4) In the event that you modify the SOFTWARE, you shall notify FLL by
  * e-mail at risa-admin@flab.fujitsu.co.jp of the detailed specification   * e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification
  * for such modification or the source code of the modified part of the   * for such modification or the source code of the modified part of the
  * SOFTWARE.   * SOFTWARE.
  *   *
Line 45 
Line 45 
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *   *
  * $OpenXM: OpenXM_contrib2/asir2000/builtin/time.c,v 1.1.1.1 1999/12/03 07:39:07 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/time.c,v 1.7 2009/03/16 16:43:02 ohara Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
   #include <limits.h>
   
 void Ptime(), Pcputime(), Pcurrenttime(), Ptstart(), Ptstop();  void Ptime(), Pcputime(), Pcurrenttime(), Ptstart(), Ptstop();
   void Pdcurrenttime();
   
 struct ftab time_tab[] = {  struct ftab time_tab[] = {
         {"time",Ptime,0},          {"time",Ptime,0},
         {"cputime",Pcputime,1},          {"cputime",Pcputime,1},
         {"currenttime",Pcurrenttime,0},          {"currenttime",Pcurrenttime,0},
           {"dcurrenttime",Pdcurrenttime,0},
         {"tstart",Ptstart,0},          {"tstart",Ptstart,0},
         {"tstop",Ptstop,0},          {"tstop",Ptstop,0},
         {0,0,0},          {0,0,0},
Line 73  Q *rp;
Line 76  Q *rp;
         t = (int)get_current_time(); STOQ(t,*rp);          t = (int)get_current_time(); STOQ(t,*rp);
 }  }
   
   void Pdcurrenttime(rp)
   Real *rp;
   {
           double t;
   
           t = get_current_time(); MKReal(t,*rp);
   }
   
 void Ptstart(rp)  void Ptstart(rp)
 pointer *rp;  pointer *rp;
 {  {
Line 103  LIST *listp;
Line 114  LIST *listp;
         Real re,rg,rr;          Real re,rg,rr;
         NODE a,b,w,r;          NODE a,b,w,r;
         Q words;          Q words;
         int t;          size_t t;
           unsigned int u,l;
           N n;
         double rtime;          double rtime;
         double get_rtime();          double get_rtime();
   
         rtime = get_rtime(); MKReal(rtime,rr);          rtime = get_rtime(); MKReal(rtime,rr);
         t = get_allocwords(); STOQ(t,words);          t = get_allocwords();
           if(sizeof(size_t)>sizeof(int)) {
                   u = t>>(sizeof(int)*CHAR_BIT); l = t&(~0);
                   if ( !u ) STOQ(l,words);
                   else {
                           n = NALLOC(2); PL(n)=2; BD(n)[0] = l; BD(n)[1] = u;
                           NTOQ(n,1,words);
                   }
           }else {
                   STOQ(t,words);
           }
         get_eg(&eg); MKReal(eg.exectime,re); MKReal(eg.gctime,rg);          get_eg(&eg); MKReal(eg.exectime,re); MKReal(eg.gctime,rg);
         MKNODE(r,rr,0); MKNODE(w,words,r); MKNODE(a,rg,w); MKNODE(b,re,a);          MKNODE(r,rr,0); MKNODE(w,words,r); MKNODE(a,rg,w); MKNODE(b,re,a);
         MKLIST(*listp,b);          MKLIST(*listp,b);
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.8
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>