From: schwab <schwab@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 13 May 2010 09:59:29 +0000 (+0000)
Subject: * tracebak.c (__gnat_backtrace): Mark top_stack with
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ef45d32d5c746d6df3f0737f1c66b5731cbe9ce8;p=thirdparty%2Fgcc.git

* tracebak.c (__gnat_backtrace): Mark top_stack with
ATTRIBUTE_UNUSED.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@159356 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 1f0d92e037de..cd848f709e8c 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2010-05-13  Andreas Schwab  <schwab@linux-m68k.org>
+
+	* tracebak.c (__gnat_backtrace): Mark top_stack with
+	ATTRIBUTE_UNUSED.
+
 2010-05-12  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Access_Type>: Tidy up
diff --git a/gcc/ada/tracebak.c b/gcc/ada/tracebak.c
index 835b7a8d620a..9e5366a78ccf 100644
--- a/gcc/ada/tracebak.c
+++ b/gcc/ada/tracebak.c
@@ -6,7 +6,7 @@
  *                                                                          *
  *                          C Implementation File                           *
  *                                                                          *
- *                     Copyright (C) 2000-2009, AdaCore                     *
+ *                     Copyright (C) 2000-2010, AdaCore                     *
  *                                                                          *
  * GNAT is free software;  you can  redistribute it  and/or modify it under *
  * terms of the  GNU General Public License as published  by the Free Soft- *
@@ -435,7 +435,7 @@ __gnat_backtrace (void **array,
 {
   struct layout *current;
   void *top_frame;
-  void *top_stack;
+  void *top_stack ATTRIBUTE_UNUSED;
   int cnt = 0;
 
   if (FORCE_CALL)