Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/8998e40ef02989d5e636890c9dd305a15bf495df >--------------------------------------------------------------- commit 8998e40ef02989d5e636890c9dd305a15bf495df Author: Ian Lynagh <[email protected]> Date: Fri Nov 25 18:00:20 2011 +0000 Remove some unused functions from include/HsBase.h >--------------------------------------------------------------- include/HsBase.h | 24 ------------------------ 1 files changed, 0 insertions(+), 24 deletions(-) diff --git a/include/HsBase.h b/include/HsBase.h index 109eb58..9abe4bf 100644 --- a/include/HsBase.h +++ b/include/HsBase.h @@ -207,11 +207,6 @@ __hscore_utime( const char *file, const struct utimbuf *timep ) { return utime(file,timep); } #endif -// This is used by dph:Data.Array.Parallel.Arr.BUArr, and shouldn't be -INLINE void * -__hscore_memcpy_dst_off( char *dst, int dst_off, char *src, size_t sz ) -{ return memcpy(dst+dst_off, src, sz); } - INLINE void * __hscore_memcpy_src_off( char *dst, char *src, int src_off, size_t sz ) { return memcpy(dst, src+src_off, sz); } @@ -632,28 +627,9 @@ INLINE int __hscore_select(int nfds, fd_set *readfds, fd_set *writefds, // gettimeofday()-related #if !defined(__MINGW32__) - INLINE int __hsbase_gettimeofday(struct timeval *tv, struct timezone *tz) { return gettimeofday(tv, tz); } - -INLINE HsInt sizeofTimeVal(void) { return sizeof(struct timeval); } - -INLINE HsWord64 getUSecOfDay(void) -{ - struct timeval tv; - gettimeofday(&tv, (struct timezone *) NULL); - // Don't forget to cast *before* doing the arithmetic, otherwise - // the arithmetic happens at the type of tv_sec, which is probably - // only 'int'. - return ((HsWord64)tv.tv_sec * 1000000 + (HsWord64)tv.tv_usec); -} - -INLINE void setTimevalTicks(struct timeval *p, HsWord64 usecs) -{ - p->tv_sec = usecs / 1000000; - p->tv_usec = usecs % 1000000; -} #endif /* !defined(__MINGW32__) */ #if darwin_HOST_OS _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
