From a1943c34bbccbd5d39d617a79af52eaaaa970d30 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 17 Aug 1994 20:06:55 +0000 Subject: [PATCH] (store_function_docstring): Do nothing for bytecode object which has no slot for doc string. --- src/doc.c | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/doc.c b/src/doc.c index 81c22065936..ae6f77ba7e7 100644 --- a/src/doc.c +++ b/src/doc.c @@ -245,10 +245,8 @@ store_function_docstring (fun, offset) { /* This bytecode object must have a slot for the docstring, since we've found a docstring for it. */ - if (XVECTOR (fun)->size <= COMPILED_DOC_STRING) - abort (); - - XFASTINT (XVECTOR (fun)->contents[COMPILED_DOC_STRING]) = offset; + if (XVECTOR (fun)->size > COMPILED_DOC_STRING) + XFASTINT (XVECTOR (fun)->contents[COMPILED_DOC_STRING]) = offset; } } -- 2.39.5