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: 136911 Return-Path: Delivered-To: ouuuleilei@gmail.com Received: by 2002:a59:a7d1:0:b0:3f2:4152:657d with SMTP id p17csp1652719vqm; Fri, 25 Aug 2023 01:27:33 -0700 (PDT) X-Google-Smtp-Source: AGHT+IF0k++1Z3mGIkOvdR5lTqkX0FjJVYcmWa3dTAw2xv+R869sNBsgss5olzQJ0D0oE9dCIqbf X-Received: by 2002:aa7:d502:0:b0:522:472c:cc36 with SMTP id y2-20020aa7d502000000b00522472ccc36mr15679459edq.4.1692952053230; Fri, 25 Aug 2023 01:27:33 -0700 (PDT) ARC-Seal: i=1; a=rsa-sha256; t=1692952053; cv=none; d=google.com; s=arc-20160816; b=a796imwAwPlTH1bgL6tH7dCrFMLG7ckwmXi1Bog7tModXGUmK6zBlTQWkvV6jC68ig YKMteJTRrepPIiKxQ12gbu4844lEauapfGdmotBmh8BST//0afBd/s6IPESHD5Oc4xUB Rp067w0feFzI7hTg0TWj7GNMj5IEMJtTSfOY/YZeRlWreHhVlKTMVHK3p0qU0ndkYy5E mg201OVGEoqnNLqQ8kOfxTNmllgtXiEMIrI4gcZW47+GdYAKWjPHoRsLNb9Mso2RrPQb 42RXJDbZ7TZJ4J8MlZfiNZhXQJHPwLtdC5I6BLEKrwKTj+br9FwNMDnJdtCff+dwdekD W5fA== ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=arc-20160816; h=sender:errors-to:reply-to:from:list-subscribe:list-help:list-post :list-archive:list-unsubscribe:list-id:precedence:to:subject :message-id:date:mime-version:dmarc-filter:delivered-to :dkim-signature:dkim-filter; bh=ryE0b3ZkU5AFGG52w6gb958V1mO5auxwlQadIBlnhPM=; fh=NSdX9fmogqTU8TMZ7YmU+6tWld7o0FDPV0yJjfX6AIk=; b=q/l7cT76hpD9m5D+qQ09y/VIxW/Dx75h3E+6mhd2Op+2jjk15CNdorAMgxGguf7942 Q8saOtVD1aQHtJO2kpz4qvmL3RvIoErTQ+sB0/rOn2zqUOD0oW6qbfVEw+tGIQTG4q2g EbDPYwBRSFWiIT82LMCSltVoHl1z2+Yq8skSU8rN/g8vv/H9Cs4GxYqMZ9T811BhBAWk 3IxUWsEn/dwrLF/TXvm6f959ff3rHs5AYnyh2jD+2c0DZOGPwjJvE6iMgUFi9De1x+sF a2LzeMKMVN0ROjprqfXbY54t4FGivjlKmtHPmO0u26gzv40jmqKETDHGfaEqF4JpxVoN uaDw== ARC-Authentication-Results: i=1; mx.google.com; dkim=pass header.i=@gcc.gnu.org header.s=default header.b=eY3MmNfX; spf=pass (google.com: domain of gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org designates 8.43.85.97 as permitted sender) smtp.mailfrom="gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org"; dmarc=pass (p=NONE sp=NONE dis=NONE) header.from=gnu.org Received: from server2.sourceware.org (ip-8-43-85-97.sourceware.org. [8.43.85.97]) by mx.google.com with ESMTPS id b26-20020aa7df9a000000b0052a3d26a191si857883edy.630.2023.08.25.01.27.33 for (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Fri, 25 Aug 2023 01:27:33 -0700 (PDT) Received-SPF: pass (google.com: domain of gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org designates 8.43.85.97 as permitted sender) client-ip=8.43.85.97; Authentication-Results: mx.google.com; dkim=pass header.i=@gcc.gnu.org header.s=default header.b=eY3MmNfX; spf=pass (google.com: domain of gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org designates 8.43.85.97 as permitted sender) smtp.mailfrom="gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org"; dmarc=pass (p=NONE sp=NONE dis=NONE) header.from=gnu.org Received: from server2.sourceware.org (localhost [IPv6:::1]) by sourceware.org (Postfix) with ESMTP id 1C431385841F for ; Fri, 25 Aug 2023 08:27:32 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 1C431385841F DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1692952052; bh=ryE0b3ZkU5AFGG52w6gb958V1mO5auxwlQadIBlnhPM=; h=Date:Subject:To:List-Id:List-Unsubscribe:List-Archive:List-Post: List-Help:List-Subscribe:From:Reply-To:From; b=eY3MmNfXBZtehsnboFx6qe1DK65V+QYpb7BVUx1kXk2ACrKxbx6ESvuUQk2SDbWHt cVY50N9SHLrZ6miybQPQBqPU8oLbrTLV3rBudF6zgZ5wpohPSqE5VsUHCmxr+hjo2A 1fMUijU9Do6rE9Oa7SUj6K6JW5TAZvjL/uCgSiuU= 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-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+ouuuleilei=gmail.com@gcc.gnu.org Sender: "Gcc-patches" X-getmail-retrieved-from-mailbox: INBOX X-GMAIL-THRID: 1775188891758083944 X-GMAIL-MSGID: 1775188891758083944 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)