From patchwork Fri Nov 5 21:17:17 2021 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Bernhard Reutner-Fischer X-Patchwork-Id: 47138 Return-Path: X-Original-To: patchwork@sourceware.org Delivered-To: patchwork@sourceware.org Received: from server2.sourceware.org (localhost [IPv6:::1]) by sourceware.org (Postfix) with ESMTP id CBD96385840A for ; Fri, 5 Nov 2021 21:18:25 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org CBD96385840A DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1636147105; bh=QScYhx/boP7kQbYpgjFdWYdOudNBT4xsExa1piisXJA=; h=To:Subject:Date:In-Reply-To:References:List-Id:List-Unsubscribe: List-Archive:List-Post:List-Help:List-Subscribe:From:Reply-To:Cc: From; b=XhqcHDe0ONtyVBzQMvHjGX1piXo9a/xHGniM3tZn1KqU2KOQazdISxq5dwmCVY/Su rIchW8Nzfp2aw9djL8akRkBD7V63Kyg6fdleG1fI/+5L9Mlj0H77WBH3wjfOGEVodp alrbXd11HPtbvT+CQ/yw39qIMe6bXd3MWZ5S5pgE= X-Original-To: gcc-patches@gcc.gnu.org Delivered-To: gcc-patches@gcc.gnu.org Received: from mail-wm1-x335.google.com (mail-wm1-x335.google.com [IPv6:2a00:1450:4864:20::335]) by sourceware.org (Postfix) with ESMTPS id 25061385841A; Fri, 5 Nov 2021 21:17:40 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 25061385841A Received: by mail-wm1-x335.google.com with SMTP id z11-20020a1c7e0b000000b0030db7b70b6bso10484158wmc.1; Fri, 05 Nov 2021 14:17:40 -0700 (PDT) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:from:to:cc:subject:date:message-id:in-reply-to :references:mime-version:content-transfer-encoding; bh=QScYhx/boP7kQbYpgjFdWYdOudNBT4xsExa1piisXJA=; b=fkhbWwaScRW/XaT+OjVy5thymFExVLLT7aojsAoqqX1L45/m3xo6SnzqBI23qmjO/j xWsbSuhUqmyx5Xyo6dVdHL/jtWhRM7HyiAmy7WKTTdWYkJ7MMEx9+QHdN0laKxcKM5v9 p/ZBGAIvLzwDa3PVOcQ1gR7A+grA8SHVX1fkiO9jf99ac5Iu9VO9d6vQBFw2vLGdJFK6 DemKSP54CvJqum6jRx+XU5kAoLBkt+1dL4OT5L3nJjlYvwQ2HxrhxJtMBxxJxf+bDSUx wIrYvCmUcHuvyUqVXXUjt70Wr/PHlqNYXAkwhm1+ngI1BvqH8ORfvQtlsEEczWpibCeT Znkg== X-Gm-Message-State: AOAM532z4lHI+vKInNzXtIEzsgLPqeKDqCTCJumNh5ASShGBrm0DZahf lPpjNLkwkdpxDXgQrDFHaCk= X-Google-Smtp-Source: ABdhPJxko1Zgv/JiQL3Kj/EGZ5L7F4XrD/Ae2J0kW8yiKhQhAm1SYTQbYgjj4XbN8hDXhwQjH/dp+w== X-Received: by 2002:a1c:2507:: with SMTP id l7mr33107984wml.186.1636147059065; Fri, 05 Nov 2021 14:17:39 -0700 (PDT) Received: from nbbrfq.weghof (dynamic-2bq7di4u2lfl4qjka9-pd01.res.v6.highway.a1.net. [2001:871:227:33a8:f6a3:c58c:7641:e771]) by smtp.gmail.com with ESMTPSA id t8sm8700333wrv.30.2021.11.05.14.17.38 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Fri, 05 Nov 2021 14:17:38 -0700 (PDT) Received: from b by nbbrfq.weghof with local (Exim 4.95) (envelope-from ) id 1mj6af-009UND-K3; Fri, 05 Nov 2021 22:17:37 +0100 To: gcc-patches@gcc.gnu.org, fortran@gcc.gnu.org Subject: [PATCH 1/2] Add free_cpp_dirs() Date: Fri, 5 Nov 2021 22:17:17 +0100 Message-Id: <20211105211718.2261686-2-rep.dot.nop@gmail.com> X-Mailer: git-send-email 2.33.0 In-Reply-To: <20211105211718.2261686-1-rep.dot.nop@gmail.com> References: <20211105211718.2261686-1-rep.dot.nop@gmail.com> MIME-Version: 1.0 X-Spam-Status: No, score=-10.0 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, FREEMAIL_FROM, GIT_PATCH_0, RCVD_IN_DNSWL_NONE, SPF_HELO_NONE, SPF_PASS, TXREP autolearn=ham autolearn_force=no version=3.4.4 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on server2.sourceware.org X-BeenThere: gcc-patches@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-Patchwork-Original-From: Bernhard Reutner-Fischer via Gcc-patches From: Bernhard Reutner-Fischer Reply-To: Bernhard Reutner-Fischer Cc: Bernhard Reutner-Fischer , Bernhard Reutner-Fischer Errors-To: gcc-patches-bounces+patchwork=sourceware.org@gcc.gnu.org Sender: "Gcc-patches" From: Bernhard Reutner-Fischer gcc/ChangeLog: * incpath.c (free_cpp_dirs): New function. * incpath.h (free_cpp_dirs): Ditto. --- This adds a helper to allow the fortran FE to free it's include dirs. Bootstrapped and regtested without new regressions on x86_64-unknown-linux. Ok for trunk? --- gcc/incpath.c | 13 +++++++++++++ gcc/incpath.h | 1 + 2 files changed, 14 insertions(+) diff --git a/gcc/incpath.c b/gcc/incpath.c index 52dbb806b1b..de77a56062c 100644 --- a/gcc/incpath.c +++ b/gcc/incpath.c @@ -513,6 +513,19 @@ get_added_cpp_dirs (incpath_kind chain) return heads[chain]; } +/* Free all cpp dirs. */ +void +free_cpp_dirs (void) +{ + struct cpp_dir **pcur, *cur; + for (pcur = &heads[INC_QUOTE]; *pcur;) + { + cur = *pcur; + *pcur = cur->next; + free_path (cur, REASON_QUIET); + } +} + #if !(defined TARGET_EXTRA_INCLUDES) || !(defined TARGET_EXTRA_PRE_INCLUDES) static void hook_void_charptr_charptr_int (const char *sysroot ATTRIBUTE_UNUSED, const char *iprefix ATTRIBUTE_UNUSED, diff --git a/gcc/incpath.h b/gcc/incpath.h index 2a4a314d7f9..4bf878b4e74 100644 --- a/gcc/incpath.h +++ b/gcc/incpath.h @@ -34,6 +34,7 @@ extern void register_include_chains (cpp_reader *, const char *, int, int, int); extern void add_cpp_dir_path (struct cpp_dir *, incpath_kind); extern struct cpp_dir *get_added_cpp_dirs (incpath_kind); +extern void free_cpp_dirs(void); struct target_c_incpath_s { /* Do extra includes processing. STDINC is false iff -nostdinc was given. */