[Cmucl-cvs] [git] CMU Common Lisp branch master updated. 20f-60-g1f025ba

Raymond Toy rtoy at common-lisp.net
Thu Oct 30 05:27:16 UTC 2014


This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  1f025baf2d31cb22998fffc44125669506a23137 (commit)
      from  aee96f0add55233605cb83bba15d364c7b13fced (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 1f025baf2d31cb22998fffc44125669506a23137
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Wed Oct 29 22:15:35 2014 -0700

    Change check for id to be 1 <= id <= 3, and print error message if
    it's not true.

diff --git a/src/lisp/elf.c b/src/lisp/elf.c
index 130795e..1e8659e 100644
--- a/src/lisp/elf.c
+++ b/src/lisp/elf.c
@@ -284,7 +284,7 @@ write_space_object(const char *dir, int id, os_vm_address_t start, os_vm_address
 				   ((end - start) % os_vm_page_size));
     static char *names[] = { "Dynamic", "Static", "Read-Only" };
 
-    if(id < 1 || id > 3) {
+    if (!(1 <= id) && (id <= 3)) {
 	fprintf(stderr, "Invalid space id in %s: %d\n", __func__, id);
 	fprintf(stderr, "Executable not built.\n");
 	ret = -1;

-----------------------------------------------------------------------

Summary of changes:
 src/lisp/elf.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)


hooks/post-receive
-- 
CMU Common Lisp




More information about the cmucl-cvs mailing list