From a17b727963dd8c443f35be9b64b1625e9fa5eddf Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Tue, 18 Jun 2019 03:28:18 -0400 Subject: fport_seek: Eliminate a fruitless use of 'off_t_or_off64_t'. This is a followup to commit 91ba73b397fcc2a36ae7e434522a924c7a8887d0. * libguile/fports.c (fport_seek): Use 'lseek' instead of 'lseek_or_lseek64', and use 'scm_t_off' uniformly. That's the type used in the function signature, and there's no benefit to using a wider type internally. Remove the overflow check, which is no longer needed. --- libguile/fports.c | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/libguile/fports.c b/libguile/fports.c index 5de08d319..5f1bbb9b4 100644 --- a/libguile/fports.c +++ b/libguile/fports.c @@ -613,18 +613,13 @@ static scm_t_off fport_seek (SCM port, scm_t_off offset, int whence) { scm_t_fport *fp = SCM_FSTREAM (port); - off_t_or_off64_t result; + scm_t_off result; - result = lseek_or_lseek64 (fp->fdes, offset, whence); + result = lseek (fp->fdes, offset, whence); if (result == -1) scm_syserror ("fport_seek"); - /* Check to make sure the result fits in scm_t_off, - which might be smaller than off_t_or_off64_t. */ - if (result > SCM_T_OFF_MAX) - scm_num_overflow ("fport_seek"); - return result; } -- cgit v1.2.3