[prev in list] [next in list] [prev in thread] [next in thread] 

List:       gcc-fortran
Subject:    Re: [Patch, Fortran, committed] PR 52038 - Remove unused, wrongly added function
From:       Tobias Burnus <burnus () net-b ! de>
Date:       2012-01-29 12:01:34
Message-ID: 4F25351E.2090404 () net-b ! de
[Download RAW message or body]

I forgot to attach the committed patch ...

Tobias Burnus wrote:
> The patch fixes a build error. The function was accidentally added 
> Rev. 183620 of 2012-01-27 for PR 52016.
>
> The function is part of the (uncommitted) draft patch for PR 50981.
>
> Committed as Rev. 183675.
>
> Tobias

["commit.diff" (text/x-patch)]

Index: ChangeLog
===================================================================
--- ChangeLog	(Revision 183674)
+++ ChangeLog	(Arbeitskopie)
@@ -1,3 +1,9 @@
+2012-01-29  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/52038
+	* resolve.c (symbol_as): Remove unused, accidentally
+	added function.
+
 2012-01-28  Tobias Burnus  <burnus@net-b.de>
 
 	PR fortran/51972
Index: resolve.c
===================================================================
--- resolve.c	(Revision 183674)
+++ resolve.c	(Arbeitskopie)
@@ -1582,16 +1582,6 @@
 }
 
 
-gfc_array_spec *
-symbol_as (gfc_symbol *sym)
-{
-  if (sym->ts.type == BT_CLASS && sym->attr.class_ok)
-    return CLASS_DATA (sym)->as;
-  else
-    return sym->as;
-}
-
-
 /* Resolve an actual argument list.  Most of the time, this is just
    resolving the expressions in the list.
    The exception is that we sometimes have to decide whether arguments


[prev in list] [next in list] [prev in thread] [next in thread]