gprof warning fix

gprof warning fix

[Alan Modra]

gprof/ChangeLog
	* sparc.c (sparc_find_call): Warning fix.
	* alpha.c (alpha_find_call): Likewise.

Committing to mainline.

-- 
Alan Modra

Index: gprof/sparc.c
===================================================================
RCS file: /cvs/src/src/gprof/sparc.c,v
retrieving revision 1.3
diff -u -p -w -r1.3 sparc.c
--- sparc.c	2001/08/09 14:57:42	1.3
+++ sparc.c	2001/09/17 09:28:53
@@ -64,7 +64,7 @@ sparc_find_call (parent, p_lowpc, p_high
 	{
 	  DBG (CALLDEBUG,
 	       printf ("[find_call] 0x%lx: callf",
-		       (unsigned long) instr - delta));
+		       (unsigned long) instr - (unsigned long) delta));
 	  /*
 	   * Regular pc relative addressing check that this is the
 	   * address of a function.
Index: gprof/alpha.c
===================================================================
RCS file: /cvs/src/src/gprof/alpha.c,v
retrieving revision 1.3
diff -u -p -w -r1.3 alpha.c
--- alpha.c	2001/08/09 14:57:42	1.3
+++ alpha.c	2001/09/17 12:40:29
@@ -127,7 +127,7 @@ alpha_find_call (parent, p_lowpc, p_high
 	    {
 	      DBG (CALLDEBUG,
 		   printf (_("[find_call] 0x%lx: jsr%s <indirect_child>\n"),
-			   (unsigned long) pc - delta,
+			   (unsigned long) pc - (unsigned long) delta,
 			   pc->j.func == Jxx_FUNC_JSR ? "" : "_coroutine"));
 	      arc_add (parent, &indirect_child, (unsigned long) 0);
 	    }
@@ -136,7 +136,7 @@ alpha_find_call (parent, p_lowpc, p_high
 	case OP_BSR:
 	  DBG (CALLDEBUG,
 	       printf (_("[find_call] 0x%lx: bsr"),
-		       (unsigned long) pc - delta));
+		       (unsigned long) pc - (unsigned long) delta));
 	  /*
 	   * Regular PC relative addressing.  Check that this is the
 	   * address of a function.  The linker sometimes redirects