From 8c0f83fec675f417f604265aff69b0b0aa0b89ba Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 31 Aug 2000 08:51:47 +0000 Subject: [PATCH] (openp): GCPRO local variable `filename'. --- src/ChangeLog | 4 ++++ src/lread.c | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 2e3b494a8c9..f72cf43685a 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2000-08-31 Gerd Moellmann + + * lread.c (openp): GCPRO local variable `filename'. + 2000-08-30 Stefan Monnier * regex.h (struct re_pattern_buffer): Use size_t for used/allocated. diff --git a/src/lread.c b/src/lread.c index 904083c4396..f29a5f4a45a 100644 --- a/src/lread.c +++ b/src/lread.c @@ -900,11 +900,11 @@ openp (path, str, suffix, storeptr, exec_only) int want_size; Lisp_Object filename; struct stat st; - struct gcpro gcpro1, gcpro2; + struct gcpro gcpro1, gcpro2, gcpro3; Lisp_Object string; - string = Qnil; - GCPRO2 (str, string); + string = filename = Qnil; + GCPRO3 (str, string, filename); if (storeptr) *storeptr = Qnil; -- 2.39.5