From patchwork Wed Apr 9 16:08:41 2014 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Andy Wingo X-Patchwork-Id: 452 Return-Path: X-Original-To: siddhesh@wilcox.dreamhost.com Delivered-To: siddhesh@wilcox.dreamhost.com Received: from homiemail-mx20.g.dreamhost.com (mx2.sub5.homie.mail.dreamhost.com [208.113.200.128]) by wilcox.dreamhost.com (Postfix) with ESMTP id 6711F36005B for ; Wed, 9 Apr 2014 09:10:38 -0700 (PDT) Received: by homiemail-mx20.g.dreamhost.com (Postfix, from userid 14314964) id 1FB1140E1D67C; Wed, 9 Apr 2014 09:10:38 -0700 (PDT) X-Original-To: gdb@patchwork.siddhesh.in Delivered-To: x14314964@homiemail-mx20.g.dreamhost.com Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by homiemail-mx20.g.dreamhost.com (Postfix) with ESMTPS id DB5D840F6C623 for ; Wed, 9 Apr 2014 09:10:37 -0700 (PDT) DomainKey-Signature: a=rsa-sha1; c=nofws; d=sourceware.org; h=list-id :list-unsubscribe:list-subscribe:list-archive:list-post :list-help:sender:from:to:cc:subject:date:message-id:in-reply-to :references; q=dns; s=default; b=JPT/ZJ5eHL1NpkgKkEbRAOtDB1Hpl3W EUADyTa6wqfexBHTNKHNlNal9yjTU4nipiMt8Tl3qgHoCjUnZ4sf0QXEMhWQoY14 KuIqTziP0UOdo7FzchUsT8kUOHh4vpmMipBcr9JtvDNXIhto+aUtJVRbkcp+Bsbm AogDDFZruc9M= DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=sourceware.org; h=list-id :list-unsubscribe:list-subscribe:list-archive:list-post :list-help:sender:from:to:cc:subject:date:message-id:in-reply-to :references; s=default; bh=1X9ra9Zwculd5dYTOTyIC/MaIYo=; b=kaQ0C +6tXeaxbbSedFyHaGmGtPlQR7q/aF0BMU6EGcaEuhQEBBmZvHZdWmVxXQ7LfTiqn iPsq0OkcmPwijWsLtsdoYqimfJ3Mx3HjWAwC2zW4pHTgJO+moMmJTnrGM6b0jp86 LUD9Hs4Li+0w8JEpDElgMFUsyW0IcA0LcxyjAM= Received: (qmail 26890 invoked by alias); 9 Apr 2014 16:09:44 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org Delivered-To: mailing list gdb-patches@sourceware.org Received: (qmail 26795 invoked by uid 89); 9 Apr 2014 16:09:43 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-0.4 required=5.0 tests=AWL, BAYES_00, RCVD_IN_DNSWL_NONE, SPF_NEUTRAL autolearn=no version=3.3.2 X-HELO: sasl.smtp.pobox.com Received: from a-pb-sasl-quonix.pobox.com (HELO sasl.smtp.pobox.com) (208.72.237.25) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Wed, 09 Apr 2014 16:09:42 +0000 Received: from sasl.smtp.pobox.com (unknown [127.0.0.1]) by a-pb-sasl-quonix.pobox.com (Postfix) with ESMTP id EDEA510FD4; Wed, 9 Apr 2014 12:09:41 -0400 (EDT) Received: from a-pb-sasl-quonix.pobox.com (unknown [127.0.0.1]) by a-pb-sasl-quonix.pobox.com (Postfix) with ESMTP id E709710FD1; Wed, 9 Apr 2014 12:09:41 -0400 (EDT) Received: from localhost.localdomain (unknown [88.160.190.192]) (using TLSv1 with cipher AES128-SHA (128/128 bits)) (No client certificate requested) by a-pb-sasl-quonix.pobox.com (Postfix) with ESMTPSA id 6C4C810FCE; Wed, 9 Apr 2014 12:09:39 -0400 (EDT) From: Andy Wingo To: gdb-patches@sourceware.org Cc: Andy Wingo Subject: [PATCH 7/9] Remove Guile mark functions that don't mark anything Date: Wed, 9 Apr 2014 18:08:41 +0200 Message-Id: <1397059725-18066-13-git-send-email-wingo@igalia.com> In-Reply-To: <1397059725-18066-1-git-send-email-wingo@igalia.com> References: <1397059725-18066-1-git-send-email-wingo@igalia.com> X-Pobox-Relay-ID: 5B14680E-C001-11E3-9FC8-873F0E5B5709-02397024!a-pb-sasl-quonix.pobox.com X-DH-Original-To: gdb@patchwork.siddhesh.in * gdb/guile/scm-arch.c (arscm_mark_arch_smob): * gdb/guile/scm-block.c (bkscm_mark_block_smob) (bkscm_mark_block_syms_progress_smob): * gdb/guile/scm-frame.c (frscm_mark_frame_smob): * gdb/guile/scm-lazy-string.c (arscm_mark_arch_smob): * gdb/guile/scm-symbol.c (lsscm_mark_lazy_string_smob): * gdb/guile/scm-symtab.c (syscm_mark_symbol_smob): * gdb/guile/scm-type.c (tyscm_mark_type_smob): Remove useless mark functions. --- gdb/guile/scm-arch.c | 9 --------- gdb/guile/scm-block.c | 19 ------------------- gdb/guile/scm-frame.c | 9 --------- gdb/guile/scm-lazy-string.c | 9 --------- gdb/guile/scm-symbol.c | 9 --------- gdb/guile/scm-symtab.c | 9 --------- gdb/guile/scm-type.c | 9 --------- 7 files changed, 73 deletions(-) diff --git a/gdb/guile/scm-arch.c b/gdb/guile/scm-arch.c index 6a805c6..e4f85bf 100644 --- a/gdb/guile/scm-arch.c +++ b/gdb/guile/scm-arch.c @@ -45,14 +45,6 @@ static int arscm_is_arch (SCM); /* Administrivia for arch smobs. */ -/* The smob "mark" function for . */ - -static SCM -arscm_mark_arch_smob (SCM self) -{ - return SCM_BOOL_F; -} - /* The smob "print" function for . */ static int @@ -651,7 +643,6 @@ void gdbscm_initialize_arches (void) { arch_smob_tag = gdbscm_make_smob_type (arch_smob_name, sizeof (arch_smob)); - scm_set_smob_mark (arch_smob_tag, arscm_mark_arch_smob); scm_set_smob_print (arch_smob_tag, arscm_print_arch_smob); gdbscm_define_functions (arch_functions, 1); diff --git a/gdb/guile/scm-block.c b/gdb/guile/scm-block.c index 8f39e7c..a8a949f 100644 --- a/gdb/guile/scm-block.c +++ b/gdb/guile/scm-block.c @@ -117,14 +117,6 @@ bkscm_objfile_block_map (struct objfile *objfile) return htab; } -/* The smob "mark" function for . */ - -static SCM -bkscm_mark_block_smob (SCM self) -{ - return SCM_BOOL_F; -} - /* The smob "free" function for . */ static size_t @@ -529,14 +521,6 @@ gdbscm_block_symbols (SCM self) /* The object, for iterating over all symbols in a block. */ -/* The smob "mark" function for . */ - -static SCM -bkscm_mark_block_syms_progress_smob (SCM self) -{ - return SCM_BOOL_F; -} - /* The smob "print" function for . */ static int @@ -787,15 +771,12 @@ gdbscm_initialize_blocks (void) { block_smob_tag = gdbscm_make_smob_type (block_smob_name, sizeof (block_smob)); - scm_set_smob_mark (block_smob_tag, bkscm_mark_block_smob); scm_set_smob_free (block_smob_tag, bkscm_free_block_smob); scm_set_smob_print (block_smob_tag, bkscm_print_block_smob); block_syms_progress_smob_tag = gdbscm_make_smob_type (block_syms_progress_smob_name, sizeof (block_syms_progress_smob)); - scm_set_smob_mark (block_syms_progress_smob_tag, - bkscm_mark_block_syms_progress_smob); scm_set_smob_print (block_syms_progress_smob_tag, bkscm_print_block_syms_progress_smob); diff --git a/gdb/guile/scm-frame.c b/gdb/guile/scm-frame.c index ee30597..8800923 100644 --- a/gdb/guile/scm-frame.c +++ b/gdb/guile/scm-frame.c @@ -130,14 +130,6 @@ frscm_inferior_frame_map (struct inferior *inferior) return htab; } -/* The smob "mark" function for . */ - -static SCM -frscm_mark_frame_smob (SCM self) -{ - return SCM_BOOL_F; -} - /* The smob "free" function for . */ static size_t @@ -1058,7 +1050,6 @@ gdbscm_initialize_frames (void) { frame_smob_tag = gdbscm_make_smob_type (frame_smob_name, sizeof (frame_smob)); - scm_set_smob_mark (frame_smob_tag, frscm_mark_frame_smob); scm_set_smob_free (frame_smob_tag, frscm_free_frame_smob); scm_set_smob_print (frame_smob_tag, frscm_print_frame_smob); diff --git a/gdb/guile/scm-lazy-string.c b/gdb/guile/scm-lazy-string.c index 9409379..0ba09f0 100644 --- a/gdb/guile/scm-lazy-string.c +++ b/gdb/guile/scm-lazy-string.c @@ -60,14 +60,6 @@ static scm_t_bits lazy_string_smob_tag; /* Administrivia for lazy string smobs. */ -/* The smob "mark" function for . */ - -static SCM -lsscm_mark_lazy_string_smob (SCM self) -{ - return SCM_BOOL_F; -} - /* The smob "free" function for . */ static size_t @@ -358,7 +350,6 @@ gdbscm_initialize_lazy_strings (void) { lazy_string_smob_tag = gdbscm_make_smob_type (lazy_string_smob_name, sizeof (lazy_string_smob)); - scm_set_smob_mark (lazy_string_smob_tag, lsscm_mark_lazy_string_smob); scm_set_smob_free (lazy_string_smob_tag, lsscm_free_lazy_string_smob); scm_set_smob_print (lazy_string_smob_tag, lsscm_print_lazy_string_smob); diff --git a/gdb/guile/scm-symbol.c b/gdb/guile/scm-symbol.c index b6a92a4..cdc92ef 100644 --- a/gdb/guile/scm-symbol.c +++ b/gdb/guile/scm-symbol.c @@ -95,14 +95,6 @@ syscm_objfile_symbol_map (struct symbol *symbol) return htab; } -/* The smob "mark" function for . */ - -static SCM -syscm_mark_symbol_smob (SCM self) -{ - return SCM_BOOL_F; -} - /* The smob "free" function for . */ static size_t @@ -756,7 +748,6 @@ gdbscm_initialize_symbols (void) { symbol_smob_tag = gdbscm_make_smob_type (symbol_smob_name, sizeof (symbol_smob)); - scm_set_smob_mark (symbol_smob_tag, syscm_mark_symbol_smob); scm_set_smob_free (symbol_smob_tag, syscm_free_symbol_smob); scm_set_smob_print (symbol_smob_tag, syscm_print_symbol_smob); diff --git a/gdb/guile/scm-symtab.c b/gdb/guile/scm-symtab.c index 9c7f51c..2d09da3 100644 --- a/gdb/guile/scm-symtab.c +++ b/gdb/guile/scm-symtab.c @@ -119,14 +119,6 @@ stscm_objfile_symtab_map (struct symtab *symtab) return htab; } -/* The smob "mark" function for . */ - -static SCM -stscm_mark_symtab_smob (SCM self) -{ - return SCM_BOOL_F; -} - /* The smob "free" function for . */ static size_t @@ -706,7 +698,6 @@ gdbscm_initialize_symtabs (void) { symtab_smob_tag = gdbscm_make_smob_type (symtab_smob_name, sizeof (symtab_smob)); - scm_set_smob_mark (symtab_smob_tag, stscm_mark_symtab_smob); scm_set_smob_free (symtab_smob_tag, stscm_free_symtab_smob); scm_set_smob_print (symtab_smob_tag, stscm_print_symtab_smob); diff --git a/gdb/guile/scm-type.c b/gdb/guile/scm-type.c index b65c06a..4e09cbc 100644 --- a/gdb/guile/scm-type.c +++ b/gdb/guile/scm-type.c @@ -178,14 +178,6 @@ tyscm_type_map (struct type *type) return htab; } -/* The smob "mark" function for . */ - -static SCM -tyscm_mark_type_smob (SCM self) -{ - return SCM_BOOL_F; -} - /* The smob "free" function for . */ static size_t @@ -1471,7 +1463,6 @@ void gdbscm_initialize_types (void) { type_smob_tag = gdbscm_make_smob_type (type_smob_name, sizeof (type_smob)); - scm_set_smob_mark (type_smob_tag, tyscm_mark_type_smob); scm_set_smob_free (type_smob_tag, tyscm_free_type_smob); scm_set_smob_print (type_smob_tag, tyscm_print_type_smob); scm_set_smob_equalp (type_smob_tag, tyscm_equal_p_type_smob);