Minor reformatting.

[pf3gnuchains/gcc-fork.git] / gcc / ada / tb-gcc.c

diff --git a/gcc/ada/tb-gcc.c b/gcc/ada/tb-gcc.c
index d0b12c7..22432b4 100644 (file)
--- a/gcc/ada/tb-gcc.c
+++ b/gcc/ada/tb-gcc.c
@@ -6,8 +6,7 @@
  *                                                                          *
  *                          C Implementation File                           *
  *                                                                          *
- *                     Copyright (C) 2004-2007, AdaCore                     *
- *             Copyright (C) 2008, Free Software Foundation, Inc.           *
+ *          Copyright (C) 2004-2009, Free Software Foundation, Inc.         *
  *                                                                          *
  * 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- *
@@ -64,13 +63,13 @@ typedef struct {
 static _Unwind_Reason_Code
 trace_callback (struct _Unwind_Context * uw_context, uw_data_t * uw_data)
 {
-  void * pc;
+  char * pc;
 
 #if defined (__ia64__) && defined (__hpux__)
   /* Work around problem with _Unwind_GetIP on ia64 HP-UX. */
   uwx_get_reg ((struct uwx_env *) uw_context, UWX_REG_IP, (uint64_t *) &pc);
 #else
-  pc = (void *) _Unwind_GetIP (uw_context);
+  pc = (char *) _Unwind_GetIP (uw_context);
 #endif
 
   if (uw_data->n_frames_skipped < uw_data->n_frames_to_skip)
@@ -82,7 +81,7 @@ trace_callback (struct _Unwind_Context * uw_context, uw_data_t * uw_data)
   if (uw_data->n_entries_filled >= uw_data->max_len)
     return _URC_NORMAL_STOP;
 
-  if (pc < uw_data->exclude_min || pc > uw_data->exclude_max)
+  if (pc < (char *)uw_data->exclude_min || pc > (char *)uw_data->exclude_max)
     uw_data->traceback [uw_data->n_entries_filled ++] = pc + PC_ADJUST;
 
   return _URC_NO_REASON;
@@ -95,9 +94,11 @@ trace_callback (struct _Unwind_Context * uw_context, uw_data_t * uw_data)
  ********************/
 
 int
-__gnat_backtrace (void ** traceback, int max_len,
-                 void * exclude_min, void * exclude_max,
-                 int  skip_frames)
+__gnat_backtrace (void ** traceback __attribute__((unused)),
+                 int max_len __attribute__((unused)),
+                 void * exclude_min __attribute__((unused)),
+                 void * exclude_max __attribute__((unused)),
+                 int skip_frames __attribute__((unused)))
 {
 #if defined (__USING_SJLJ_EXCEPTIONS__)
   /* We have no unwind material (tables) at hand with sjlj eh, and no