[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-06-5-g7933ebf

[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  7933ebf6d092f5172db350473629155ff622c888 (commit)
      from  2daa0e7c547d718b19b8b7d5408d8cf0be35a861 (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 7933ebf6d092f5172db350473629155ff622c888
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Thu Jul 5 15:24:18 2012 -0700

    Oops.  Need to use long long's to compute the age in gen_av_mem_age().

diff --git a/src/lisp/gencgc.c b/src/lisp/gencgc.c
index a14b714..fc095f8 100644
--- a/src/lisp/gencgc.c
+++ b/src/lisp/gencgc.c
@@ -659,7 +659,7 @@ gen_av_mem_age(int gen)
     if (generations[gen].bytes_allocated == 0)
 	return 0;
 
-    return (((long) generations[gen].cum_sum_bytes_allocated) << MEM_AGE_SHIFT) /
+    return (((long long) generations[gen].cum_sum_bytes_allocated) << MEM_AGE_SHIFT) /
 	generations[gen].bytes_allocated;
 }
 

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

Summary of changes:
 src/lisp/gencgc.c |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp