diff options
| author | simonmar <unknown> | 1999-12-08 15:47:08 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 1999-12-08 15:47:08 +0000 |
| commit | 4ee0f622625f8e7cc76488e99762a323c46df952 (patch) | |
| tree | 3aea37e6a21b358e8cbadffab6f3594b64e81f3a /ghc/lib/std/cbits/filePosn.c | |
| parent | 9c370d695ac7b7b7108440b028b017459ae5ef02 (diff) | |
| download | haskell-4ee0f622625f8e7cc76488e99762a323c46df952.tar.gz | |
[project @ 1999-12-08 15:47:06 by simonmar]
misc ansification and -Wall cleanup
Diffstat (limited to 'ghc/lib/std/cbits/filePosn.c')
| -rw-r--r-- | ghc/lib/std/cbits/filePosn.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/ghc/lib/std/cbits/filePosn.c b/ghc/lib/std/cbits/filePosn.c index 90949ea5c2..c3832864db 100644 --- a/ghc/lib/std/cbits/filePosn.c +++ b/ghc/lib/std/cbits/filePosn.c @@ -1,7 +1,7 @@ /* * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998 * - * $Id: filePosn.c,v 1.5 1999/09/20 08:36:35 panne Exp $ + * $Id: filePosn.c,v 1.6 1999/12/08 15:47:07 simonmar Exp $ * * hGetPosn and hSetPosn Runtime Support */ @@ -57,13 +57,10 @@ StgForeignPtr ptr; (this is ensured by making the Haskell file posn. type abstract.) */ StgInt -setFilePosn(ptr, size, d) -StgForeignPtr ptr; -StgInt size; -StgByteArray d; +setFilePosn(StgForeignPtr ptr, StgInt size, StgByteArray d) { IOFileObject* fo = (IOFileObject*)ptr; - int rc, mode; + int rc; off_t offset; /* |