From dlichteblau at common-lisp.net Sat Aug 26 15:48:21 2006 From: dlichteblau at common-lisp.net (dlichteblau at common-lisp.net) Date: Sat, 26 Aug 2006 11:48:21 -0400 (EDT) Subject: [steeldump-cvs] r12 - trunk/sb-heapdump Message-ID: <20060826154821.183581E00B@common-lisp.net> Author: dlichteblau Date: Sat Aug 26 11:48:20 2006 New Revision: 12 Modified: trunk/sb-heapdump/NEWS trunk/sb-heapdump/relocate.c Log: Map heap files into the youngest non-empty (!) generation >= 2. Previously generation 2 was always used, which seems to have stopped working in SBCL 0.9.13.22. Modified: trunk/sb-heapdump/NEWS ============================================================================== --- trunk/sb-heapdump/NEWS (original) +++ trunk/sb-heapdump/NEWS Sat Aug 26 11:48:20 2006 @@ -1,3 +1,6 @@ +Changes in svn: + writeme + Changes in sb-heapdump-05 * x86-64 fixes * PowerPC/cheneygc port Modified: trunk/sb-heapdump/relocate.c ============================================================================== --- trunk/sb-heapdump/relocate.c (original) +++ trunk/sb-heapdump/relocate.c Sat Aug 26 11:48:20 2006 @@ -104,8 +104,6 @@ large_object_size = los; } -#define GEN 2 - void * map_dumpfile(int fd, long offset, int verbose) { @@ -115,6 +113,7 @@ long start_page, end_page; long npages; long i; + int gen = 2; /* fixme: why not 1? */ if (!reloctab_initialized) { relocate_init(); @@ -175,10 +174,14 @@ #endif ); + while (gen <= HIGHEST_NORMAL_GENERATION + && !generations[gen].bytes_allocated) + gen++; + for (i = 0; i < npages; i++) { long page = start_page + i; page_table[page].allocated = BOXED_PAGE_FLAG; - page_table[page].gen = GEN; + page_table[page].gen = gen; page_table[page].large_object = 0; page_table[page].first_object_offset = -(PAGE_BYTES * i); page_table[page].bytes_used = PAGE_BYTES; @@ -191,11 +194,11 @@ page_table[page].dont_move = 0; } page_table[end_page - 1].bytes_used = length - PAGE_BYTES * (npages-1); - generations[GEN].bytes_allocated += length; + generations[gen].bytes_allocated += length; #if 0 /* fixme: do we need these? */ bytes_allocated += length; - generations[GEN].cum_sum_bytes_allocated += length; + generations[gen].cum_sum_bytes_allocated += length; #endif if (last_free_page < end_page) From dlichteblau at common-lisp.net Sat Aug 26 15:51:47 2006 From: dlichteblau at common-lisp.net (dlichteblau at common-lisp.net) Date: Sat, 26 Aug 2006 11:51:47 -0400 (EDT) Subject: [steeldump-cvs] r13 - trunk/sb-heapdump Message-ID: <20060826155147.62D3D25003@common-lisp.net> Author: dlichteblau Date: Sat Aug 26 11:51:47 2006 New Revision: 13 Modified: trunk/sb-heapdump/relocate.c Log: oops Modified: trunk/sb-heapdump/relocate.c ============================================================================== --- trunk/sb-heapdump/relocate.c (original) +++ trunk/sb-heapdump/relocate.c Sat Aug 26 11:51:47 2006 @@ -174,7 +174,7 @@ #endif ); - while (gen <= HIGHEST_NORMAL_GENERATION + while (gen < HIGHEST_NORMAL_GENERATION && !generations[gen].bytes_allocated) gen++; From dlichteblau at common-lisp.net Sat Aug 26 17:58:09 2006 From: dlichteblau at common-lisp.net (dlichteblau at common-lisp.net) Date: Sat, 26 Aug 2006 13:58:09 -0400 (EDT) Subject: [steeldump-cvs] r14 - trunk/sb-heapdump Message-ID: <20060826175809.1402032008@common-lisp.net> Author: dlichteblau Date: Sat Aug 26 13:58:08 2006 New Revision: 14 Modified: trunk/sb-heapdump/relocate.c Log: revert r11:13 Modified: trunk/sb-heapdump/relocate.c ============================================================================== --- trunk/sb-heapdump/relocate.c (original) +++ trunk/sb-heapdump/relocate.c Sat Aug 26 13:58:08 2006 @@ -104,6 +104,8 @@ large_object_size = los; } +#define GEN 2 + void * map_dumpfile(int fd, long offset, int verbose) { @@ -113,7 +115,6 @@ long start_page, end_page; long npages; long i; - int gen = 2; /* fixme: why not 1? */ if (!reloctab_initialized) { relocate_init(); @@ -174,14 +175,10 @@ #endif ); - while (gen < HIGHEST_NORMAL_GENERATION - && !generations[gen].bytes_allocated) - gen++; - for (i = 0; i < npages; i++) { long page = start_page + i; page_table[page].allocated = BOXED_PAGE_FLAG; - page_table[page].gen = gen; + page_table[page].gen = GEN; page_table[page].large_object = 0; page_table[page].first_object_offset = -(PAGE_BYTES * i); page_table[page].bytes_used = PAGE_BYTES; @@ -194,11 +191,11 @@ page_table[page].dont_move = 0; } page_table[end_page - 1].bytes_used = length - PAGE_BYTES * (npages-1); - generations[gen].bytes_allocated += length; + generations[GEN].bytes_allocated += length; #if 0 /* fixme: do we need these? */ bytes_allocated += length; - generations[gen].cum_sum_bytes_allocated += length; + generations[GEN].cum_sum_bytes_allocated += length; #endif if (last_free_page < end_page) From dlichteblau at common-lisp.net Sun Aug 27 15:52:53 2006 From: dlichteblau at common-lisp.net (dlichteblau at common-lisp.net) Date: Sun, 27 Aug 2006 11:52:53 -0400 (EDT) Subject: [steeldump-cvs] r15 - trunk/sb-heapdump Message-ID: <20060827155253.75DB72401C@common-lisp.net> Author: dlichteblau Date: Sun Aug 27 11:52:53 2006 New Revision: 15 Modified: trunk/sb-heapdump/relocate.c Log: second try at a fix for SBCL 0.9.13.22 Modified: trunk/sb-heapdump/relocate.c ============================================================================== --- trunk/sb-heapdump/relocate.c (original) +++ trunk/sb-heapdump/relocate.c Sun Aug 27 11:52:53 2006 @@ -104,7 +104,9 @@ large_object_size = los; } -#define GEN 2 +/* FIXME: This used to be 2, which stopped working in SBCL 0.9.13.22 + * (Gen. 6 also works, but 0 is arguable better than that.) */ +#define GEN 0 void * map_dumpfile(int fd, long offset, int verbose) From dlichteblau at common-lisp.net Sun Aug 27 15:53:38 2006 From: dlichteblau at common-lisp.net (dlichteblau at common-lisp.net) Date: Sun, 27 Aug 2006 11:53:38 -0400 (EDT) Subject: [steeldump-cvs] r16 - in trunk/scripts: . lisp patches Message-ID: <20060827155338.72C682401C@common-lisp.net> Author: dlichteblau Date: Sun Aug 27 11:53:36 2006 New Revision: 16 Added: trunk/scripts/fetch-sbcl-cvs (contents, props changed) trunk/scripts/patches/esa.diff trunk/scripts/patches/mcclim.diff Modified: trunk/scripts/VERSION trunk/scripts/build-eclipse (props changed) trunk/scripts/fetch-cl-fad trunk/scripts/fetch-cl-ppcre trunk/scripts/fetch-esa trunk/scripts/fetch-flexi-streams trunk/scripts/fetch-mcclim trunk/scripts/fetch-sbcl trunk/scripts/lisp/build-climacs.lisp trunk/scripts/lisp/build-flexi-streams.lisp trunk/scripts/lisp/build-gsharp.lisp trunk/scripts/lisp/build-mcclim.lisp trunk/scripts/makedeb-all trunk/scripts/makedeb-eclipse (props changed) trunk/scripts/patches/climacs.diff Log: various updates for current packages (SBCL still at 0.9.13) Modified: trunk/scripts/VERSION ============================================================================== --- trunk/scripts/VERSION (original) +++ trunk/scripts/VERSION Sun Aug 27 11:53:36 2006 @@ -1 +1 @@ -2006-05-28 +2006-08-27 Modified: trunk/scripts/fetch-cl-fad ============================================================================== --- trunk/scripts/fetch-cl-fad (original) +++ trunk/scripts/fetch-cl-fad Sun Aug 27 11:53:36 2006 @@ -4,5 +4,5 @@ z \ http://weitz.de/files/ \ cl-fad.tar.gz \ - cl-fad-0.5.0 \ + cl-fad-0.5.1 \ cl-fad Modified: trunk/scripts/fetch-cl-ppcre ============================================================================== --- trunk/scripts/fetch-cl-ppcre (original) +++ trunk/scripts/fetch-cl-ppcre Sun Aug 27 11:53:36 2006 @@ -4,5 +4,5 @@ z \ http://weitz.de/files/ \ cl-ppcre.tar.gz \ - cl-ppcre-1.2.14 \ + cl-ppcre-1.2.16 \ cl-ppcre Modified: trunk/scripts/fetch-esa ============================================================================== --- trunk/scripts/fetch-esa (original) +++ trunk/scripts/fetch-esa Sun Aug 27 11:53:36 2006 @@ -4,3 +4,5 @@ :pserver:anonymous:anonymous at common-lisp.net:/project/climacs/cvsroot \ esa \ "-r HEAD" +cd /opt/steeldump/src/esa +patch -p0 Author: dlichteblau Date: Sun Aug 27 12:41:16 2006 New Revision: 17 Modified: trunk/steeldump-web/index.html Log: new release 2006-08-27 Modified: trunk/steeldump-web/index.html ============================================================================== --- trunk/steeldump-web/index.html (original) +++ trunk/steeldump-web/index.html Sun Aug 27 12:41:16 2006 @@ -94,7 +94,7 @@
  • cl-fad
    • - 0.5.0 + 0.5.1 @@ -110,7 +110,7 @@
  • cl-ppcre
    • - 1.2.14 + 1.2.16 @@ -136,7 +136,7 @@
  • flexi-streams
    • - 0.5.5 + 0.5.7 @@ -230,6 +230,11 @@

    News

    + 2006-08-27 +

    + Belatedly, a release based on SBCL 0.9.14. +

    + 2006-05-28

    New release based on SBCL 0.9.13. From dlichteblau at common-lisp.net Sun Aug 27 17:19:53 2006 From: dlichteblau at common-lisp.net (dlichteblau at common-lisp.net) Date: Sun, 27 Aug 2006 13:19:53 -0400 (EDT) Subject: [steeldump-cvs] r18 - trunk/scripts Message-ID: <20060827171953.6E0916204A@common-lisp.net> Author: dlichteblau Date: Sun Aug 27 13:19:52 2006 New Revision: 18 Modified: trunk/scripts/fetch-sbcl Log: nachtrag Modified: trunk/scripts/fetch-sbcl ============================================================================== --- trunk/scripts/fetch-sbcl (original) +++ trunk/scripts/fetch-sbcl Sun Aug 27 13:19:52 2006 @@ -2,7 +2,7 @@ set -x #mirror=http://osdn.dl.sourceforge.net/sourceforge mirror=http://belnet.dl.sourceforge.net/sourceforge -version=0.9.13 +version=0.9.14 cd /opt/steeldump ./scripts/aux/fetch-url \ From dlichteblau at common-lisp.net Sun Aug 27 19:43:30 2006 From: dlichteblau at common-lisp.net (dlichteblau at common-lisp.net) Date: Sun, 27 Aug 2006 15:43:30 -0400 (EDT) Subject: [steeldump-cvs] r19 - trunk/sb-heapdump Message-ID: <20060827194330.9107474352@common-lisp.net> Author: dlichteblau Date: Sun Aug 27 15:43:29 2006 New Revision: 19 Modified: trunk/sb-heapdump/common.lisp trunk/sb-heapdump/dump.lisp trunk/sb-heapdump/load.lisp trunk/sb-heapdump/pack.lisp Log: update for SBCL 0.9.16 Modified: trunk/sb-heapdump/common.lisp ============================================================================== --- trunk/sb-heapdump/common.lisp (original) +++ trunk/sb-heapdump/common.lisp Sun Aug 27 15:43:29 2006 @@ -52,6 +52,9 @@ +function-fixup+ +ctor-fixup+ +slot-accessor-fixup+ + #+#.(cl:if (cl:find-symbol "METHOD-FUNCTION-PLIST" :sb-pcl) + '(and) + '(or)) +fast-method-fixup+ +raw-address-fixup+ +variable-fixup+ Modified: trunk/sb-heapdump/dump.lisp ============================================================================== --- trunk/sb-heapdump/dump.lisp (original) +++ trunk/sb-heapdump/dump.lisp Sun Aug 27 15:43:29 2006 @@ -629,7 +629,8 @@ sb-vm:other-pointer-lowtag))))) ;; fixme: can this be done by DUMP-PACKAGE? -(defun note-fast-method-plist (fun ctx) +(defun note-fast-method-plist (fun ctx) fun ctx + #+#.(cl:if (cl:find-symbol "METHOD-FUNCTION-PLIST" :sb-pcl) '(and) '(or)) (let ((plist (sb-pcl::method-function-plist fun))) (when plist (%build-fixup (make-fast-method-fixup +fast-method-fixup+ fun plist) Modified: trunk/sb-heapdump/load.lisp ============================================================================== --- trunk/sb-heapdump/load.lisp (original) +++ trunk/sb-heapdump/load.lisp Sun Aug 27 15:43:29 2006 @@ -159,6 +159,7 @@ (let ((x (fixup-id f))) (sb-pcl::ensure-accessor (fourth x) x (third x)) (fdefinition x))) + #+#.(cl:if (cl:find-symbol "METHOD-FUNCTION-PLIST" :sb-pcl) '(and) '(or)) (#.+fast-method-fixup+ (setf (sb-pcl::method-function-plist (fixup-id f)) (fixup-id2 f)) Modified: trunk/sb-heapdump/pack.lisp ============================================================================== --- trunk/sb-heapdump/pack.lisp (original) +++ trunk/sb-heapdump/pack.lisp Sun Aug 27 15:43:29 2006 @@ -130,7 +130,7 @@ (sb-mop:generic-function-name gf)))) ;; fixme: ist das folgende auch noetig fuer: ;; (slot-value method 'sb-pcl::function) - (let ((fm (sb-pcl::method-fast-function method))) + (let ((fm (sb-pcl::safe-method-fast-function method))) (when fm (when ;; FIXME!