From 331bacec19a85d343074f1bb07ff25f41e53368d Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Fri, 21 Nov 2003 17:13:25 +0000 Subject: [PATCH] (scm_drain_input): Bug fix: only access the port after checking that it indeed is one. --- libguile/ports.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/libguile/ports.c b/libguile/ports.c index a1f866aef..f5e0bfa58 100644 --- a/libguile/ports.c +++ b/libguile/ports.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2003 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -327,10 +327,11 @@ SCM_DEFINE (scm_drain_input, "drain-input", 1, 0, 0, #define FUNC_NAME s_scm_drain_input { SCM result; - scm_t_port *pt = SCM_PTAB_ENTRY (port); + scm_t_port *pt; long count; SCM_VALIDATE_OPINPORT (1,port); + pt = SCM_PTAB_ENTRY (port); count = pt->read_end - pt->read_pos; if (pt->read_buf == pt->putback_buf)