Add French translation

[deliverable/binutils-gdb.git] / gprof / alpha.c

diff --git a/gprof/alpha.c b/gprof/alpha.c
index 8aad74d1f9cacfe6f7a1edfd9a6b567174d44950..4fa917ea551cf7bedcf63f228691539b7fc3f642 100644 (file)
--- a/gprof/alpha.c
+++ b/gprof/alpha.c
@@ -62,6 +62,7 @@ alpha_Instruction;
 
 static Sym indirect_child;
 
+void alpha_find_call PARAMS ((Sym *, bfd_vma, bfd_vma));
 
 /*
  * On the Alpha we can only detect PC relative calls, which are
@@ -126,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);
            }
@@ -135,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