From: Alan Modra <amodra@gmail.com>
Date: Tue, 18 Sep 2001 11:12:25 +0000 (+0000)
Subject: 	* sparc.c (sparc_find_call): Warning fix.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=55c808902f95f3394179ca67a0e54dea4d1c8cdb;p=binutils-gdb.git

	* sparc.c (sparc_find_call): Warning fix.
	* alpha.c (alpha_find_call): Likewise.
---

diff --git a/gprof/ChangeLog b/gprof/ChangeLog
index 72ab53e1700..dc983984274 100644
--- a/gprof/ChangeLog
+++ b/gprof/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-18  Alan Modra  <amodra@bigpond.net.au>
+
+	* sparc.c (sparc_find_call): Warning fix.
+	* alpha.c (alpha_find_call): Likewise.
+
 2001-08-09  Alan Modra  <amodra@bigpond.net.au>
 
 	* alpha.c: Add missing prototypes.
diff --git a/gprof/alpha.c b/gprof/alpha.c
index edf244b0c58..4fa917ea551 100644
--- a/gprof/alpha.c
+++ b/gprof/alpha.c
@@ -127,7 +127,7 @@ alpha_find_call (parent, p_lowpc, p_highpc)
 	    {
 	      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_highpc)
 	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
diff --git a/gprof/sparc.c b/gprof/sparc.c
index 9ffdeb092b4..1fbeae78fbd 100644
--- a/gprof/sparc.c
+++ b/gprof/sparc.c
@@ -64,7 +64,7 @@ sparc_find_call (parent, p_lowpc, p_highpc)
 	{
 	  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.