[commit: base] master: Remove some unused functions from include/HsBase.h (8998e40)
Ian Lynagh
igloo at earth.li
Fri Nov 25 19:50:53 CET 2011
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 <igloo at earth.li>
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
More information about the Cvs-libraries
mailing list