[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-01-12-ge3fa809

Raymond Toy rtoy at common-lisp.net
Sat Jan 28 03:10:14 UTC 2012


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  e3fa809d2333ca1789f81b1d1d8f450db310741e (commit)
      from  d490020d261f746a63a0e2ae9a18c903c2570ff5 (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 e3fa809d2333ca1789f81b1d1d8f450db310741e
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Fri Jan 27 10:35:29 2012 -0700

    Specify the correct return type for sc_reg.

diff --git a/src/lisp/Darwin-os.c b/src/lisp/Darwin-os.c
index 2da3d83..f878a84 100644
--- a/src/lisp/Darwin-os.c
+++ b/src/lisp/Darwin-os.c
@@ -159,7 +159,7 @@ os_init(const char *argv[], const char *envp[])
 #define __dsisr dsisr
 #endif
 
-unsigned long *
+unsigned int *
 sc_reg(os_context_t * context, int offset)
 {
     _STRUCT_PPC_THREAD_STATE *state = &context->uc_mcontext->__ss;
@@ -243,7 +243,7 @@ sc_reg(os_context_t * context, int offset)
 	  return &context->uc_mcontext->__es.__dsisr;
     }
 
-    return (unsigned long *) 0;
+    return (unsigned int *) 0;
 }
 #elif defined(__i386__)
 #if __DARWIN_UNIX03
diff --git a/src/lisp/Darwin-os.h b/src/lisp/Darwin-os.h
index 99bd96b..0ea24f4 100644
--- a/src/lisp/Darwin-os.h
+++ b/src/lisp/Darwin-os.h
@@ -36,7 +36,7 @@ typedef int os_vm_prot_t;
 #endif
 
 #ifdef __ppc__
-unsigned long *sc_reg(os_context_t *, int);
+unsigned int *sc_reg(os_context_t *, int);
 #else
 int *sc_reg(os_context_t *, int);
 #endif

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

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


hooks/post-receive
-- 
CMU Common Lisp




More information about the cmucl-cvs mailing list