* sparc.c (sparc_find_call): Warning fix.

	* alpha.c (alpha_find_call): Likewise.

diff --git a/gprof/ChangeLog b/gprof/ChangeLog
index 72ab53e..dc98398 100644 (file)
--- 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 edf244b..4fa917e 100644 (file)
--- 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 9ffdeb0..1fbeae7 100644 (file)
--- 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.