[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2011-12-5-g57ca521

[Raymond Toy]

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  57ca5217c749f67c8acd7e2049a5e79f4bd6baf1 (commit)
      from  2326ebcf3d776a14a7e3ad61edfaf5bca40ebbbc (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 57ca5217c749f67c8acd7e2049a5e79f4bd6baf1
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Wed Dec 21 21:51:45 2011 -0800

    Fix a few compiler warnings.

diff --git a/src/lisp/Darwin-os.c b/src/lisp/Darwin-os.c
index 1304d10..9cd0aa6 100644
--- a/src/lisp/Darwin-os.c
+++ b/src/lisp/Darwin-os.c
@@ -499,7 +499,7 @@ sigbus_handler(HANDLER_ARGS)
 
     /* a *real* protection fault */
     fprintf(stderr, "sigbus_handler: Real protection violation at %p, PC = %p\n",
-            fault_addr, SC_PC(context));
+            fault_addr, (void *) SC_PC(context));
     sigbus_handle_now(signal, code, context);
 #ifdef __ppc__
     /* Work around G5 bug; fix courtesy gbyers via chandler */
diff --git a/src/lisp/coreparse.c b/src/lisp/coreparse.c
index cf1ee43..bdba500 100644
--- a/src/lisp/coreparse.c
+++ b/src/lisp/coreparse.c
@@ -63,7 +63,7 @@ process_directory(int fd, long *ptr, int count)
 	  case STATIC_SPACE_ID:
 	      static_space = (lispobj *) addr;
               if (len >= static_space_size) {
-                  fprintf(stderr, "Error:  Static space size (%d) exceeds allocated space (%d)!\n",
+                  fprintf(stderr, "Error:  Static space size (%ld) exceeds allocated space (%ld)!\n",
                           len, static_space_size);
                   exit(1);
               }
@@ -71,7 +71,7 @@ process_directory(int fd, long *ptr, int count)
 	  case READ_ONLY_SPACE_ID:
 	      /* Don't care about read only space */
               if (len >= read_only_space_size) {
-                  fprintf(stderr, "Error:  Read only space size (%d) exceeds allocated space (%d)!\n",
+                  fprintf(stderr, "Error:  Read only space size (%ld) exceeds allocated space (%lu)!\n",
                           len, read_only_space_size);
                   exit(1);
               }

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

Summary of changes:
 src/lisp/Darwin-os.c |    2 +-
 src/lisp/coreparse.c |    4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp