diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-25 07:13:13 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-25 07:13:13 +0000 |
| commit | 5ff3f7a4e03a6b103d9e628865398e498e9a7968 (patch) | |
| tree | 5884f57bd4a3baf1ad76e8ab3f81f12aa71a31da /doio.c | |
| parent | 46124e9ee58ad41479e5b089638f6c263bbddcb7 (diff) | |
| download | perl-5ff3f7a4e03a6b103d9e628865398e498e9a7968.tar.gz | |
big Configure update from Jarkko: sync metaconfig units; d_statblks fix
for Linux; hpux CMA-threads hints; ELF support for FreeBSD; beginnings
of full-fledged 64-bit support (including support for: fseeko/ftello,
Quad_t aka long long, hpux and irix 64-bits hints, new 64-bit constants
in Fcntl)
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 11 Sep 1998 23:56:11 +0300 (EET DST)
Message-Id: <199809112056.XAA04720@alpha.hut.fi>
Subject: [PATCH] 5.005_51: Configure "Massive Attack"
--
From: Jarkko Hietaniemi <jhi@cc.hut.fi>
Date: 12 Sep 1998 09:44:25 +0300
Message-ID: <oeeaf45bzjq.fsf@alpha.hut.fi>
Subject: Re: [PATCH] 5.005_51: Configure "Massive Attack"
p4raw-id: //depot/perl@1889
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 11 |
1 files changed, 8 insertions, 3 deletions
@@ -125,9 +125,14 @@ do_open(GV *gv, register char *name, I32 len, int as_raw, int rawmode, int rawpe } if (as_raw) { +#if defined(O_LARGEFILE) + rawmode |= O_LARGEFILE; +#endif + #ifndef O_ACCMODE #define O_ACCMODE 3 /* Assume traditional implementation */ #endif + switch (result = rawmode & O_ACCMODE) { case O_RDONLY: IoTYPE(io) = '<'; @@ -705,7 +710,7 @@ do_eof(GV *gv) return TRUE; } -long +Off_t do_tell(GV *gv) { register IO *io; @@ -724,11 +729,11 @@ do_tell(GV *gv) warner(WARN_UNOPENED, "tell() on unopened file"); } SETERRNO(EBADF,RMS$_IFI); - return -1L; + return (Off_t)-1; } bool -do_seek(GV *gv, long int pos, int whence) +do_seek(GV *gv, Off_t pos, int whence) { register IO *io; register PerlIO *fp; |