From 7c0ab7d9e44fadf98b42e5dd8bc04211cf4fcb2f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 11 Dec 2005 05:07:16 +0000 Subject: [PATCH] Comment and whitespace changes. --- src/alloc.c | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/src/alloc.c b/src/alloc.c index f8d2f529bae..96934269d23 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -4499,7 +4499,8 @@ mark_stack () /* Return 1 if OBJ is a valid lisp object. Return 0 if OBJ is NOT a valid lisp object. Return -1 if we cannot validate OBJ. -*/ + This function can be quite slow, + so it should only be used in code for manual debugging. */ int valid_lisp_object_p (obj) @@ -4525,11 +4526,11 @@ valid_lisp_object_p (obj) trying), so we trick the o/s to tell us whether p is a valid pointer. Unfortunately, we cannot use NULL_DEVICE here, as emacs_write may not validate p in that case. */ - if ((fd = emacs_open("__Valid__Lisp__Object__", O_CREAT | O_WRONLY | O_TRUNC, 0666)) >= 0) + if ((fd = emacs_open ("__Valid__Lisp__Object__", O_CREAT | O_WRONLY | O_TRUNC, 0666)) >= 0) { - int valid = emacs_write(fd, (char *)p, 16) == 16; - emacs_close(fd); - unlink("__Valid__Lisp__Object__"); + int valid = (emacs_write (fd, (char *)p, 16) == 16); + emacs_close (fd); + unlink ("__Valid__Lisp__Object__"); return valid; } -- 2.39.2