From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <ibuclaw@sourceware.org>
Received: by sourceware.org (Postfix, from userid 1873)
 id 8C8B23840C21; Thu, 28 Jan 2021 17:31:38 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 8C8B23840C21
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
From: Iain Buclaw <ibuclaw@gcc.gnu.org>
To: gcc-cvs@gcc.gnu.org
Subject: [gcc(refs/users/ibuclaw/heads/darwin)] d: Don't emit normal functions
 and declarations when compiling with -fbuilding-libphobos-tests
X-Act-Checkin: gcc
X-Git-Author: Iain Buclaw <ibuclaw@gdcproject.org>
X-Git-Refname: refs/users/ibuclaw/heads/darwin
X-Git-Oldrev: fc04827f4539d61f299391e9f946292bce7418fa
X-Git-Newrev: bf25ce0c4f42c9140a24777d11f36f5d7162ef52
Message-Id: <20210128173138.8C8B23840C21@sourceware.org>
Date: Thu, 28 Jan 2021 17:31:38 +0000 (GMT)
X-BeenThere: gcc-cvs@gcc.gnu.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: Gcc-cvs mailing list <gcc-cvs.gcc.gnu.org>
List-Unsubscribe: <https://gcc.gnu.org/mailman/options/gcc-cvs>,
 <mailto:gcc-cvs-request@gcc.gnu.org?subject=unsubscribe>
List-Archive: <https://gcc.gnu.org/pipermail/gcc-cvs/>
List-Help: <mailto:gcc-cvs-request@gcc.gnu.org?subject=help>
List-Subscribe: <https://gcc.gnu.org/mailman/listinfo/gcc-cvs>,
 <mailto:gcc-cvs-request@gcc.gnu.org?subject=subscribe>
X-List-Received-Date: Thu, 28 Jan 2021 17:31:38 -0000

https://gcc.gnu.org/g:bf25ce0c4f42c9140a24777d11f36f5d7162ef52

commit bf25ce0c4f42c9140a24777d11f36f5d7162ef52
Author: Iain Buclaw <ibuclaw@gdcproject.org>
Date:   Thu Dec 3 23:56:16 2020 +0100

    d: Don't emit normal functions and declarations when compiling with -fbuilding-libphobos-tests

Diff:
---
 gcc/d/decl.cc | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)

diff --git a/gcc/d/decl.cc b/gcc/d/decl.cc
index 15b04b1e75f..2378b1e6f13 100644
--- a/gcc/d/decl.cc
+++ b/gcc/d/decl.cc
@@ -115,6 +115,27 @@ gcc_attribute_p (Dsymbol *decl)
   return false;
 }
 
+/* Returns true if DECL is either lexically nested inside a unittest function,
+   or a `version(unittest)' condition.  */
+
+static bool
+in_unittest_p (Declaration *decl)
+{
+  for (Dsymbol *p = decl->parent; p != NULL; p = p->parent)
+    {
+      if (p->isUnitTestDeclaration ())
+	return true;
+      if (FuncDeclaration *fd = p->isFuncDeclaration ())
+	{
+	  tree t = get_symbol_decl (fd);
+	  if (DECL_IN_UNITTEST_CONDITION_P (t))
+	    return true;
+	}
+    }
+
+  return false;
+}
+
 /* Implements the visitor interface to lower all Declaration AST classes
    emitted from the D Front-end to GCC trees.
    All visit methods accept one parameter D, which holds the frontend AST
@@ -666,6 +687,16 @@ public:
       }
     else if (d->isDataseg () && !(d->storage_class & STCextern))
       {
+	/* For libphobos-internal use only.  When compiling unittests, only
+	   generate code for unittest or instantiated variables.  */
+	if (flag_building_libphobos_tests)
+	  {
+	    if (!this->in_version_unittest_
+		&& !in_unittest_p (d)
+		&& !d->isInstantiated ())
+	      return;
+	  }
+
 	tree decl = get_symbol_decl (d);
 
 	/* Duplicated VarDeclarations map to the same symbol.  Check if this
@@ -778,6 +809,20 @@ public:
     if (!global.params.useUnitTests && d->isUnitTestDeclaration ())
       return;
 
+    /* For libphobos-internal use only.  When compiling unittests, only
+       generate code for unittest or instantiated functions.  */
+    if (flag_building_libphobos_tests)
+      {
+	if (!d->isUnitTestDeclaration ()
+	    && !this->in_version_unittest_
+	    && !in_unittest_p (d)
+	    && !d->isArrayOp
+	    && !d->isInstantiated ()
+	    && !d->isMain ()
+	    && !d->isCMain ())
+	  return;
+      }
+
     /* Check if any errors occurred when running semantic.  */
     if (TypeFunction *tf = d->type->isTypeFunction ())
       {