From: Simon Marlow <simonmarhaskell@gmail.com>
Date: Wed, 19 Mar 2008 17:41:01 +0000 (+0000)
Subject: fix types for __hscore_st_dev() and __hscore_st_ino()
X-Git-Tag: 2008-05-28~20
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e26230b5591a59adfe19e75359d1b857e844841e;p=ghc-base.git

fix types for __hscore_st_dev() and __hscore_st_ino()
---

diff --git a/include/HsBase.h b/include/HsBase.h
index 4128197..8e5676a 100644
--- a/include/HsBase.h
+++ b/include/HsBase.h
@@ -518,8 +518,8 @@ INLINE time_t __hscore_st_mtime ( struct_stat* st ) { return st->st_mtime; }
 INLINE stsize_t __hscore_st_size  ( struct_stat* st ) { return st->st_size; }
 #if !defined(_MSC_VER)
 INLINE mode_t __hscore_st_mode  ( struct_stat* st ) { return st->st_mode; }
-INLINE mode_t __hscore_st_dev  ( struct_stat* st ) { return st->st_dev; }
-INLINE mode_t __hscore_st_ino  ( struct_stat* st ) { return st->st_ino; }
+INLINE dev_t  __hscore_st_dev  ( struct_stat* st ) { return st->st_dev; }
+INLINE ino_t  __hscore_st_ino  ( struct_stat* st ) { return st->st_ino; }
 #endif
 
 #if HAVE_TERMIOS_H