From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail From: Keith David Bershatsky Newsgroups: gmane.emacs.devel Subject: Re: NS port: How to debug excessive garbage collection? Date: Sat, 13 Apr 2019 09:31:21 -0700 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226"; logging-data="47446"; mail-complaints-to="usenet@blaine.gmane.org" Cc: emacs-devel@gnu.org To: Eli Zaretskii Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Apr 13 18:32:11 2019 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([209.51.188.17]) by blaine.gmane.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:256) (Exim 4.89) (envelope-from ) id 1hFLZX-000C5b-JO for ged-emacs-devel@m.gmane.org; Sat, 13 Apr 2019 18:32:08 +0200 Original-Received: from localhost ([127.0.0.1]:53610 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hFLZW-0001co-Gl for ged-emacs-devel@m.gmane.org; Sat, 13 Apr 2019 12:32:06 -0400 Original-Received: from eggs.gnu.org ([209.51.188.92]:54667) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hFLYs-0001ci-1V for emacs-devel@gnu.org; Sat, 13 Apr 2019 12:31:27 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hFLYq-0003a9-Oc for emacs-devel@gnu.org; Sat, 13 Apr 2019 12:31:26 -0400 Original-Received: from gateway22.websitewelcome.com ([192.185.46.234]:30627) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1hFLYq-0003Z3-8X for emacs-devel@gnu.org; Sat, 13 Apr 2019 12:31:24 -0400 Original-Received: from cm13.websitewelcome.com (cm13.websitewelcome.com [100.42.49.6]) by gateway22.websitewelcome.com (Postfix) with ESMTP id 153F72EF3 for ; Sat, 13 Apr 2019 11:31:23 -0500 (CDT) Original-Received: from gator3053.hostgator.com ([50.87.144.69]) by cmsmtp with SMTP id FLYohAfNOYTGMFLYohIlv9; Sat, 13 Apr 2019 11:31:23 -0500 X-Authority-Reason: nr=8 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=lawlist.com ; s=default; h=Content-Type:MIME-Version:Subject:Cc:To:From:Message-ID:Date: Sender:Reply-To:Content-Transfer-Encoding:Content-ID:Content-Description: Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc:Resent-Message-ID: In-Reply-To:References:List-Id:List-Help:List-Unsubscribe:List-Subscribe: List-Post:List-Owner:List-Archive; bh=SGzXczj5dxeEJU4gdw0Bc4D5bIVxsX9o+iFgP2ytYwk=; b=PFbg4OqzSHczFKf7PWZYTSUiF9 44YcCmw3dvfH2ZfDWYkYxfM7I41NftZwZ6svly/deO3Ks78zvvfdrSHe+iRzpzntgmiYye5cEgd+d fyfB2YpmCmj7gNoG5zHl66rmmZzPYLeObBUWsOgGFVFS5s1KEt1i9mfdkd5r2hvrPcJRSMW4QZ3iN wpDyOiIIT6QKGNGphocJ6Y+iqTY1Y1f0cGm4bbUsq/heDjUrEN723+MwuMQqee4bqgxlpkHr9F0wa wes/5SPlo4udb0yhd+u0Ril4/DxoTna9C3u8hzuCitVf6O6/WikCcide/Q/S2pXJvbqbsD8RbNcmi zkVmCS9Q==; Original-Received: from cpe-45-48-239-195.socal.res.rr.com ([45.48.239.195]:49926 helo=server.local) by gator3053.hostgator.com with esmtpsa (TLSv1:DHE-RSA-AES256-SHA:256) (Exim 4.91) (envelope-from ) id 1hFLYo-0043CJ-Bn; Sat, 13 Apr 2019 11:31:22 -0500 X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - gator3053.hostgator.com X-AntiAbuse: Original Domain - gnu.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - lawlist.com X-BWhitelist: no X-Source-IP: 45.48.239.195 X-Source-L: No X-Exim-ID: 1hFLYo-0043CJ-Bn X-Source-Sender: cpe-45-48-239-195.socal.res.rr.com (server.local) [45.48.239.195]:49926 X-Source-Auth: lawlist X-Email-Count: 1 X-Source-Cap: bGF3bGlzdDtsYXdsaXN0O2dhdG9yMzA1My5ob3N0Z2F0b3IuY29t X-Local-Domain: yes X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 192.185.46.234 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.org gmane.emacs.devel:235402 Archived-At: Thank you, Eli, for directing me to the function memory-use-counts. I inserted the innards of that function into garbage_collect_1 and ran new tests, selecting the first 5 stderr printouts for each test using the following Lisp command (at the outset of each test) and then holding down the right arrow key (right-char): (progn (find-library "simple") (fundamental-mode) (blink-cursor-mode -1) (global-eldoc-mode -1) (setq timer-list nil timer-idle-list nil crosshairs t)) ============================ ;;; begin STOCK / UNMODIFIED ((cons_cells_consed 2285210) (symbols_consed 16084) (strings_consed 95613) (string_chars_consed 2091140) (vector_cells_consed 6877366) (floats_consed 568) (intervals_consed 112)) ((cons_cells_consed 2327648) (symbols_consed 16084) (strings_consed 97813) (string_chars_consed 2106916) (vector_cells_consed 6878987) (floats_consed 569) (intervals_consed 112)) ((cons_cells_consed 2370021) (symbols_consed 16084) (strings_consed 100103) (string_chars_consed 2123400) (vector_cells_consed 6880233) (floats_consed 570) (intervals_consed 112)) ((cons_cells_consed 2412389) (symbols_consed 16084) (strings_consed 102389) (string_chars_consed 2139936) (vector_cells_consed 6881507) (floats_consed 571) (intervals_consed 112)) ((cons_cells_consed 2455285) (symbols_consed 16084) (strings_consed 104220) (string_chars_consed 2152636) (vector_cells_consed 6884284) (floats_consed 572) (intervals_consed 112)) ;;; end STOCK UNMODIFIED ============================ ;;; begin MODIFIED -- CROSSHAIRS "OFF" ((cons_cells_consed 2282540) (symbols_consed 16120) (strings_consed 95918) (string_chars_consed 2094233) (vector_cells_consed 6880135) (floats_consed 1656) (intervals_consed 112)) ((cons_cells_consed 2313916) (symbols_consed 16120) (strings_consed 99976) (string_chars_consed 2122818) (vector_cells_consed 6885827) (floats_consed 7045) (intervals_consed 112)) ((cons_cells_consed 2345230) (symbols_consed 16120) (strings_consed 104045) (string_chars_consed 2151571) (vector_cells_consed 6891513) (floats_consed 12446) (intervals_consed 112)) ((cons_cells_consed 2376738) (symbols_consed 16120) (strings_consed 108070) (string_chars_consed 2179909) (vector_cells_consed 6897231) (floats_consed 17787) (intervals_consed 112)) ((cons_cells_consed 2408250) (symbols_consed 16120) (strings_consed 112081) (string_chars_consed 2208228) (vector_cells_consed 6903029) (floats_consed 23104) (intervals_consed 112)) ;;; end MODIFIED -- CROSSHAIRS "OFF" ============================ ;;; begin MODIFIED -- CROSSHAIRS "ON" ((cons_cells_consed 2323418) (symbols_consed 16122) (strings_consed 98901) (string_chars_consed 2116217) (vector_cells_consed 6883922) (floats_consed 5413) (intervals_consed 112)) ((cons_cells_consed 2360412) (symbols_consed 16122) (strings_consed 102038) (string_chars_consed 2139422) (vector_cells_consed 6887522) (floats_consed 9014) (intervals_consed 112)) ((cons_cells_consed 2397407) (symbols_consed 16122) (strings_consed 105191) (string_chars_consed 2162776) (vector_cells_consed 6891122) (floats_consed 12615) (intervals_consed 112)) ((cons_cells_consed 2434401) (symbols_consed 16122) (strings_consed 108329) (string_chars_consed 2185981) (vector_cells_consed 6894722) (floats_consed 16216) (intervals_consed 112)) ((cons_cells_consed 2471395) (symbols_consed 16122) (strings_consed 111473) (string_chars_consed 2209234) (vector_cells_consed 6898322) (floats_consed 19817) (intervals_consed 112)) ;;; end MODIFIED -- CROSSHAIRS "ON" ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; diff --git a/src/alloc.c b/src/alloc.c index dd78386..0bd62c7 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -6206,6 +6206,53 @@ garbage_collect_1 (struct gcstat *gcst) *gcst = gcstat; + +/* *************************************************************************** */ +/* begin DEBUGGING */ + + Lisp_Object total[] = { + list2 (intern ("cons_cells_consed"), make_int (cons_cells_consed)), + list2 (intern ("symbols_consed"), make_int (symbols_consed)), + list2 (intern ("strings_consed"), make_int (strings_consed)), + list2 (intern ("string_chars_consed"), make_int (string_chars_consed)), + list2 (intern ("vector_cells_consed"), make_int (vector_cells_consed)), + list2 (intern ("floats_consed"), make_int (floats_consed)), + list2 (intern ("intervals_consed"), make_int (intervals_consed)), +/* + list4 (Qconses, make_fixnum (sizeof (struct Lisp_Cons)), + make_int (gcstat.total_conses), make_int (gcstat.total_free_conses)), + list4 (Qsymbols, make_fixnum (sizeof (struct Lisp_Symbol)), + make_int (gcstat.total_symbols), make_int (gcstat.total_free_symbols)), + list4 (Qstrings, make_fixnum (sizeof (struct Lisp_String)), + make_int (gcstat.total_strings), make_int (gcstat.total_free_strings)), + list3 (Qstring_bytes, make_fixnum (1), make_int (gcstat.total_string_bytes)), + list3 (Qvectors, make_fixnum (header_size + sizeof (Lisp_Object)), + make_int (gcstat.total_vectors)), + list4 (Qvector_slots, make_fixnum (word_size), make_int (gcstat.total_vector_slots), + make_int (gcstat.total_free_vector_slots)), + list4 (Qfloats, make_fixnum (sizeof (struct Lisp_Float)), + make_int (gcstat.total_floats), make_int (gcstat.total_free_floats)), + list4 (Qintervals, make_fixnum (sizeof (struct interval)), + make_int (gcstat.total_intervals), make_int (gcstat.total_free_intervals)), + list3 (Qbuffers, make_fixnum (sizeof (struct buffer)), + make_int (gcstat.total_buffers)), +#ifdef DOUG_LEA_MALLOC + list4 (Qheap, make_fixnum (1024), + make_int ((mallinfo ().uordblks + 1023) >> 10), + make_int ((mallinfo ().fordblks + 1023) >> 10)), +#endif +*/ + }; + + Lisp_Object val = CALLMANY (Flist, total); + Lisp_Object string = Fprin1_to_string (val, Qnil); + char *char_string = SSDATA (string); + fprintf (stderr, "%s\n", char_string); + +/* end DEBUGGING */ +/* *************************************************************************** */ + + /* GC is complete: now we can run our finalizer callbacks. */ run_finalizers (&doomed_finalizers);