From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from omta37.uswest2.a.cloudfilter.net (omta37.uswest2.a.cloudfilter.net [35.89.44.36]) by sourceware.org (Postfix) with ESMTPS id D521D3858C1F for ; Sat, 19 Aug 2023 20:20:15 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org D521D3858C1F Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=tromey.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=tromey.com Received: from eig-obgw-6003a.ext.cloudfilter.net ([10.0.30.151]) by cmsmtp with ESMTP id XQECqE1LIQFHRXSQhqYmv4; Sat, 19 Aug 2023 20:20:15 +0000 Received: from box5379.bluehost.com ([162.241.216.53]) by cmsmtp with ESMTPS id XSQgqh9MAb6afXSQgqQUH6; Sat, 19 Aug 2023 20:20:14 +0000 X-Authority-Analysis: v=2.4 cv=d4jmdDvE c=1 sm=1 tr=0 ts=64e123fe a=ApxJNpeYhEAb1aAlGBBbmA==:117 a=ApxJNpeYhEAb1aAlGBBbmA==:17 a=OWjo9vPv0XrRhIrVQ50Ab3nP57M=:19 a=dLZJa+xiwSxG16/P+YVxDGlgEgI=:19 a=UttIx32zK-AA:10 a=Qbun_eYptAEA:10 a=P83wNGZlZ5VJhgCTBaIA:9 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=tromey.com; s=default; h=Content-Transfer-Encoding:MIME-Version:References:In-Reply-To: Message-ID:Date:Subject:Cc:To:From:Sender:Reply-To:Content-Type:Content-ID: Content-Description:Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc :Resent-Message-ID:List-Id:List-Help:List-Unsubscribe:List-Subscribe: List-Post:List-Owner:List-Archive; bh=beW5bmX7fTElzi9hdtHnwWMnZnew2kJTNtjICy8g8cg=; b=LRxQJ3QjxroGumk7dp2FmNYjuR fRUG08436loYrGIUvffYPl/tD/i98jMTPrlRZnnSV1YAIsaJTEf0aX5Oys2uCGoBETH3rXbATBB0q PfjXo2a24OBa2mn1dW4I9OxP5; Received: from 75-166-142-177.hlrn.qwest.net ([75.166.142.177]:36668 helo=localhost.localdomain) by box5379.bluehost.com with esmtpsa (TLS1.2) tls TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384 (Exim 4.96) (envelope-from ) id 1qXQ4X-003yKO-1u; Sat, 19 Aug 2023 11:49:13 -0600 From: Tom Tromey To: cgen@sourceware.org Cc: Tom Tromey Subject: [RFC 11/14] Invalid code in rtx-traverse.scm Date: Sat, 19 Aug 2023 11:42:10 -0600 Message-ID: <20230819174900.866436-12-tom@tromey.com> X-Mailer: git-send-email 2.41.0 In-Reply-To: <20230819174900.866436-1-tom@tromey.com> References: <20230819174900.866436-1-tom@tromey.com> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - box5379.bluehost.com X-AntiAbuse: Original Domain - sourceware.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - tromey.com X-BWhitelist: no X-Source-IP: 75.166.142.177 X-Source-L: No X-Exim-ID: 1qXQ4X-003yKO-1u X-Source: X-Source-Args: X-Source-Dir: X-Source-Sender: 75-166-142-177.hlrn.qwest.net (localhost.localdomain) [75.166.142.177]:36668 X-Source-Auth: tom+tromey.com X-Email-Count: 0 X-Org: HG=bhshared;ORG=bluehost; X-Source-Cap: ZWx5bnJvYmk7ZWx5bnJvYmk7Ym94NTM3OS5ibHVlaG9zdC5jb20= X-Local-Domain: yes X-CMAE-Envelope: MS4xfHAKcKhzYG/eFmBn5XaOPrzDbsTKW0meRUz+kWPfIceNsFRPjtNuIMksVgSIEYMR3JbgichauoYPBMmoLemJPpuWB6N45GPk7NJ9JoZIpeb0HNcFdCYZ WGjdpc5yS/I5oQGt0pWWj5qqkX0Vb1bsLBxdby3A9JPxl6xXzptwLS3dSZvdXzIcoou+Or77dduknA== X-Spam-Status: No, score=-3025.0 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,GIT_PATCH_0,JMQ_SPF_NEUTRAL,RCVD_IN_MSPIKE_H2,SPF_HELO_NONE,SPF_PASS,TXREP autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: The Guile compiler pointed out a 3-argument call to cons in rtx-traverse.scm. Presumably this code is never run, but this patch replaces it with what I think is the correct form. --- rtl-traverse.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rtl-traverse.scm b/rtl-traverse.scm index de7911a..6023648 100644 --- a/rtl-traverse.scm +++ b/rtl-traverse.scm @@ -1757,7 +1757,7 @@ (if (procedure? fn) ; Don't traverse operands for syntax expressions. (if (eq? (rtx-style rtx-obj) 'SYNTAX) - (apply fn (cons tstate cdr expr)) + (apply fn (cons tstate (cdr expr))) (let ((operands (/rtx-traverse-operands rtx-obj expr tstate appstuff))) (apply fn (cons tstate operands)))) fn) -- 2.41.0