Branch: Tag:

2002-04-06

2002-04-06 21:04:46 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Potential fix for win32.

Rev: src/builtin.cmod:1.80

1:   /* -*- c -*- -  * $Id: builtin.cmod,v 1.79 2002/02/28 10:58:57 grubba Exp $ +  * $Id: builtin.cmod,v 1.80 2002/04/06 21:04:46 grubba Exp $    */      #include "global.h"
27:   #include "operators.h"   #include "builtin_functions.h"   #include "fsort.h" + #include "port.h"         /*! @decl array(array(int|string)) _describe_program(program p)
1843:    RETURN 0;       if( THIS->hard_update ) -  gettimeofday( &current_time, 0 ); +  GETTIMEOFDAY( &current_time );       if( x == usec )    RETURN current_time.tv_usec;
1885:    extern struct timeval current_time;    FLOAT_TYPE res;    if( THIS->hard_update ) -  gettimeofday( &current_time, 0 ); +  GETTIMEOFDAY( &current_time );    res = current_time.tv_sec-THIS->last_time.tv_sec +    (current_time.tv_usec-THIS->last_time.tv_usec)/1000000.0;    RETURN res;
1904:    extern struct timeval current_time;    THIS->hard_update = !fast;    if( THIS->hard_update ) -  gettimeofday( &current_time, 0 ); +  GETTIMEOFDAY( &current_time );    THIS->last_time = current_time;    }   }