From patchwork Fri Aug 25 08:26:31 2023 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Uros Bizjak X-Patchwork-Id: 1825840 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@legolas.ozlabs.org Authentication-Results: legolas.ozlabs.org; dkim=pass (1024-bit key; unprotected) header.d=gcc.gnu.org header.i=@gcc.gnu.org header.a=rsa-sha256 header.s=default header.b=UW9u4L36; dkim-atps=neutral Authentication-Results: legolas.ozlabs.org; spf=pass (sender SPF authorized) smtp.mailfrom=gcc.gnu.org (client-ip=2620:52:3:1:0:246e:9693:128c; helo=server2.sourceware.org; envelope-from=gcc-patches-bounces+incoming=patchwork.ozlabs.org@gcc.gnu.org; receiver=patchwork.ozlabs.org) Received: from server2.sourceware.org (server2.sourceware.org [IPv6:2620:52:3:1:0:246e:9693:128c]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature ECDSA (secp384r1) server-digest SHA384) (No client certificate requested) by legolas.ozlabs.org (Postfix) with ESMTPS id 4RXCjp3txbz1yg5 for ; Fri, 25 Aug 2023 18:27:10 +1000 (AEST) Received: from server2.sourceware.org (localhost [IPv6:::1]) by sourceware.org (Postfix) with ESMTP id 38A703857704 for ; Fri, 25 Aug 2023 08:27:08 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 38A703857704 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1692952028; bh=ryE0b3ZkU5AFGG52w6gb958V1mO5auxwlQadIBlnhPM=; h=Date:Subject:To:List-Id:List-Unsubscribe:List-Archive:List-Post: List-Help:List-Subscribe:From:Reply-To:From; b=UW9u4L36SBHiNgbGV3u9F8suEUnd/jBLCMr4gWTjB2b1qPY5uXKtjGlnmG8PQCibd N2IpaNTeNyLmVglAknh3zFfp+p+I240mS3c1dWLPKvriPBeiLLpaqwfQ1A849mGdmz kLrNh5CV/9YwbI7VlyofY9LYgNwXVEtTu3xReFb0= X-Original-To: gcc-patches@gcc.gnu.org Delivered-To: gcc-patches@gcc.gnu.org Received: from mail-ed1-x535.google.com (mail-ed1-x535.google.com [IPv6:2a00:1450:4864:20::535]) by sourceware.org (Postfix) with ESMTPS id 1A1323858C53; Fri, 25 Aug 2023 08:26:44 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 1A1323858C53 Received: by mail-ed1-x535.google.com with SMTP id 4fb4d7f45d1cf-522bd411679so1003848a12.0; Fri, 25 Aug 2023 01:26:44 -0700 (PDT) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20221208; t=1692952002; x=1693556802; h=to:subject:message-id:date:from:mime-version:x-gm-message-state :from:to:cc:subject:date:message-id:reply-to; bh=ryE0b3ZkU5AFGG52w6gb958V1mO5auxwlQadIBlnhPM=; b=ilM4w6DXGsJT/JIRlf8EHGDEHif9VSnMasRW8AslSktcsvF6DcYCsrDseyQsyeapnX Ld072KmQX7nDx13U6cmCoCuEJvSTabwdbclSR5mIp8e+RAATARirCaQgGKns5I4Gjevo 6fNP5bZVtxYZE7gJ6kwUAlJtDtbj4peF8m0vGkc1YctqRsVRAjj5prgNQgejUBSTC90w ZAqt7ONzzMEyNIo3av+y/J+pbIjnZ2tGUjLCcsIxy187KSL8wrUsuZXbvCmFbj5N+sQg VmJAimjh/SJ8naVf3HgL15tzDW5Km/324k0TpHG6W3wv3Ztkuqlnt36WdSJWZGl7MWH/ muLg== X-Gm-Message-State: AOJu0YwB0ppjiTj/ngqyISFGA3gLUdpV/4uku8GWTfxArE3wBikZ3TBt frpowCKlQLh0b+aLTPcvI+AxerV+B2q20z+56ORCSEIrgUbkCA== X-Google-Smtp-Source: AGHT+IG0NbHKNy6xUjYEYKYWJq9SYHy9WoCvK6qajvFQZIhPQMyzAi0ynDzOgIfYNOBDGq8azdBGft+u6ygdjXXbwJU= X-Received: by 2002:a05:6402:5178:b0:523:4d60:71c0 with SMTP id d24-20020a056402517800b005234d6071c0mr10617592ede.33.1692952002195; Fri, 25 Aug 2023 01:26:42 -0700 (PDT) MIME-Version: 1.0 Date: Fri, 25 Aug 2023 10:26:31 +0200 Message-ID: Subject: [PATCH] fortran: Rename TRUE/FALSE to true/false in *.cc files To: "gcc-patches@gcc.gnu.org" , Fortran List X-Spam-Status: No, score=-8.4 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.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) 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: Uros Bizjak via Gcc-patches From: Uros Bizjak Reply-To: Uros Bizjak Errors-To: gcc-patches-bounces+incoming=patchwork.ozlabs.org@gcc.gnu.org Sender: "Gcc-patches" gcc/fortran/ChangeLog: * match.cc (gfc_match_equivalence): Rename TRUE/FALSE to true/false. * module.cc (check_access): Ditto. * primary.cc (match_real_constant): Ditto. * trans-array.cc (gfc_trans_allocate_array_storage): Ditto. (get_array_ctor_strlen): Ditto. * trans-common.cc (find_equivalence): Ditto. (add_equivalences): Ditto. Bootstrapped and regression tested on x86_64-linux-gnu {,-m32}. OK for master? Uros. diff --git a/gcc/fortran/match.cc b/gcc/fortran/match.cc index ba23bcd9692..c926f38058f 100644 --- a/gcc/fortran/match.cc +++ b/gcc/fortran/match.cc @@ -5788,7 +5788,7 @@ gfc_match_equivalence (void) goto syntax; set = eq; - common_flag = FALSE; + common_flag = false; cnt = 0; for (;;) @@ -5829,7 +5829,7 @@ gfc_match_equivalence (void) if (sym->attr.in_common) { - common_flag = TRUE; + common_flag = true; common_head = sym->common_head; } diff --git a/gcc/fortran/module.cc b/gcc/fortran/module.cc index 95fdda6b2aa..c07e9dc9ba2 100644 --- a/gcc/fortran/module.cc +++ b/gcc/fortran/module.cc @@ -5744,9 +5744,9 @@ check_access (gfc_access specific_access, gfc_access default_access) return true; if (specific_access == ACCESS_PUBLIC) - return TRUE; + return true; if (specific_access == ACCESS_PRIVATE) - return FALSE; + return false; if (flag_module_private) return default_access == ACCESS_PUBLIC; diff --git a/gcc/fortran/primary.cc b/gcc/fortran/primary.cc index 0bb440b85a9..d3aeeb89362 100644 --- a/gcc/fortran/primary.cc +++ b/gcc/fortran/primary.cc @@ -530,13 +530,13 @@ match_real_constant (gfc_expr **result, int signflag) seen_dp = 0; seen_digits = 0; exp_char = ' '; - negate = FALSE; + negate = false; c = gfc_next_ascii_char (); if (signflag && (c == '+' || c == '-')) { if (c == '-') - negate = TRUE; + negate = true; gfc_gobble_whitespace (); c = gfc_next_ascii_char (); diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc index 951cecfa5d5..90a7d4e9aef 100644 --- a/gcc/fortran/trans-array.cc +++ b/gcc/fortran/trans-array.cc @@ -1121,7 +1121,7 @@ gfc_trans_allocate_array_storage (stmtblock_t * pre, stmtblock_t * post, { /* A callee allocated array. */ gfc_conv_descriptor_data_set (pre, desc, null_pointer_node); - onstack = FALSE; + onstack = false; } else { @@ -2481,7 +2481,7 @@ get_array_ctor_strlen (stmtblock_t *block, gfc_constructor_base base, tree * len gfc_constructor *c; bool is_const; - is_const = TRUE; + is_const = true; if (gfc_constructor_first (base) == NULL) { diff --git a/gcc/fortran/trans-common.cc b/gcc/fortran/trans-common.cc index c83b6f930eb..91a98b30b8d 100644 --- a/gcc/fortran/trans-common.cc +++ b/gcc/fortran/trans-common.cc @@ -1048,7 +1048,7 @@ find_equivalence (segment_info *n) gfc_equiv *e1, *e2, *eq; bool found; - found = FALSE; + found = false; for (e1 = n->sym->ns->equiv; e1; e1 = e1->next) { @@ -1083,7 +1083,7 @@ find_equivalence (segment_info *n) { add_condition (n, eq, e2); e2->used = 1; - found = TRUE; + found = true; } } } @@ -1102,11 +1102,11 @@ static void add_equivalences (bool *saw_equiv) { segment_info *f; - bool more = TRUE; + bool more = true; while (more) { - more = FALSE; + more = false; for (f = current_segment; f; f = f->next) { if (!f->sym->equiv_built)