xstormy16 profiling error cleanup

[DJ Delorie]

This patch does nothing but make an unsupported condition more
friendly.

2003-05-06  DJ Delorie  <dj@redhat.com>

	* config/stormy16/stormy16.c (xstormy16_function_profiler): New.
	* config/stormy16/stormy16.h (FUNCTION_PROFILER): Call it.
	* config/stormy16/stormy16-protos.h (xstormy16_function_profiler): New.

	* gcc.dg/20021014-1.c: XFAIL for xstormy16 also.
	* gcc.dg/nest.c: Likewise.

Index: config/stormy16/stormy16-protos.h
===================================================================
RCS file: /cvs/uberbaum/gcc/config/stormy16/stormy16-protos.h,v
retrieving revision 1.9
diff -p -2 -r1.9  config/stormy16/stormy16-protos.h
*** config/stormy16/stormy16-protos.h	20 Oct 2002 22:37:14 -0000	1.9
--- config/stormy16/stormy16-protos.h	6 May 2003 21:30:26 -0000
***************
*** 1,4 ****
  /* Prototypes for exported functions defined in xstormy16.c
!    Copyright (C) 2000, 2001 Free Software Foundation, Inc.
     Contributed by Red Hat, Inc.
  
--- 1,4 ----
  /* Prototypes for exported functions defined in xstormy16.c
!    Copyright (C) 2000, 2001, 2003 Free Software Foundation, Inc.
     Contributed by Red Hat, Inc.
  
*************** extern int	direct_return PARAMS ((void))
*** 30,33 ****
--- 30,34 ----
  extern int	xstormy16_interrupt_function_p PARAMS ((void));
  extern int	xstormy16_epilogue_uses PARAMS ((int));
+ extern void	xstormy16_function_profiler PARAMS ((void));
  
  #if defined (TREE_CODE)
Index: config/stormy16/stormy16.c
===================================================================
RCS file: /cvs/uberbaum/gcc/config/stormy16/stormy16.c,v
retrieving revision 1.39
diff -p -2 -r1.39  config/stormy16/stormy16.c
*** config/stormy16/stormy16.c	5 May 2003 15:25:01 -0000	1.39
--- config/stormy16/stormy16.c	6 May 2003 21:30:26 -0000
*************** xstormy16_epilogue_uses (regno)
*** 1223,1226 ****
--- 1223,1233 ----
    return 0;
  }
+ 
+ void
+ xstormy16_function_profiler ()
+ {
+   sorry ("function_profiler support");
+ }
+ 
  
  /* Return an updated summarizer variable CUM to advance past an
Index: config/stormy16/stormy16.h
===================================================================
RCS file: /cvs/uberbaum/gcc/config/stormy16/stormy16.h,v
retrieving revision 1.73
diff -p -2 -r1.73  config/stormy16/stormy16.h
*** config/stormy16/stormy16.h	17 Apr 2003 10:35:08 -0000	1.73
--- config/stormy16/stormy16.h	6 May 2003 21:30:27 -0000
*************** enum reg_class
*** 1615,1619 ****
     not implemented.  */
       
! #define FUNCTION_PROFILER(FILE, LABELNO) abort ()
  
  /* Define this macro if the code for function profiling should come before the
--- 1615,1619 ----
     not implemented.  */
       
! #define FUNCTION_PROFILER(FILE, LABELNO) xstormy16_function_profiler ()
  
  /* Define this macro if the code for function profiling should come before the
Index: testsuite/gcc.dg/20021014-1.c
===================================================================
RCS file: /cvs/uberbaum/gcc/testsuite/gcc.dg/20021014-1.c,v
retrieving revision 1.5
diff -p -2 -r1.5  testsuite/gcc.dg/20021014-1.c
*** testsuite/gcc.dg/20021014-1.c	8 Feb 2003 01:11:29 -0000	1.5
--- testsuite/gcc.dg/20021014-1.c	6 May 2003 21:30:27 -0000
***************
*** 1,5 ****
  /* { dg-do run } */
  /* { dg-options "-O2 -p" } */
! /* { dg-error "profiler" "No profiler support" { target mmix-*-* } 0 } */
  /* { dg-error "" "consider using `-pg' instead of `-p' with gprof(1)" { target *-*-freebsd* } 0 } */
  /* Support for -p on solaris2 relies on mcrt1.o which comes with the
--- 1,5 ----
  /* { dg-do run } */
  /* { dg-options "-O2 -p" } */
! /* { dg-error "profiler" "No profiler support" { target mmix-*-* xstormy16-*-* } 0 } */
  /* { dg-error "" "consider using `-pg' instead of `-p' with gprof(1)" { target *-*-freebsd* } 0 } */
  /* Support for -p on solaris2 relies on mcrt1.o which comes with the
Index: testsuite/gcc.dg/nest.c
===================================================================
RCS file: /cvs/uberbaum/gcc/testsuite/gcc.dg/nest.c,v
retrieving revision 1.6
diff -p -2 -r1.6  testsuite/gcc.dg/nest.c
*** testsuite/gcc.dg/nest.c	19 Apr 2003 21:23:20 -0000	1.6
--- testsuite/gcc.dg/nest.c	6 May 2003 21:30:27 -0000
***************
*** 2,6 ****
  /* { dg-do run } */
  /* { dg-options "-O2 -pg" } */
! /* { dg-error "profiler" "No profiler support" { target mmix-*-* } 0 } */
  /* Support for -pg on irix relies on gcrt1.o which doesn't exist yet.
     See: http://gcc.gnu.org/ml/gcc/2002-10/msg00169.html */
--- 2,6 ----
  /* { dg-do run } */
  /* { dg-options "-O2 -pg" } */
! /* { dg-error "profiler" "No profiler support" { target mmix-*-* xstormy16-*-* } 0 } */
  /* Support for -pg on irix relies on gcrt1.o which doesn't exist yet.
     See: http://gcc.gnu.org/ml/gcc/2002-10/msg00169.html */