This is the mail archive of the
binutils@sources.redhat.com
mailing list for the binutils project.
gprof warning fix
- To: binutils at sourceware dot cygnus dot com
- Subject: gprof warning fix
- From: Alan Modra <amodra at bigpond dot net dot au>
- Date: Tue, 18 Sep 2001 20:41:54 +0930
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