[valgrind] [Bug 497723] Enabling Ada demangling breaks callgrind differentiation between overloaded functions and procedures

[Philippe Waroquiers]

https://bugs.kde.org/show_bug.cgi?id=497723

--- Comment #1 from Philippe Waroquiers <philippe.waroqui...@skynet.be> ---
A small test program:

ith P; use P;
procedure T is
begin
  for I in 1 .. 10_000_000 loop
    Proc (I);
  end loop;
  for I in 1 .. 5_000_000 loop
    Proc (I mod 2 = 0);
  end loop;
  for I in 1 .. 1_000_000 loop
    Proc;
  end loop;
end T;

package P is
  procedure Proc (I : Integer);
  procedure Proc (B : Boolean);
  procedure Proc;
end P;
package body P is
  Sum : Integer := 0;
  procedure Proc (I : Integer) is
  begin
    Sum := Sum + I;
    if Sum > Integer'Last / 2 then
      Sum := 0;
    end if;
  end Proc;

  Val : Boolean := False;
  procedure Proc (B : Boolean) is
  begin
    Val := Val or B;
  end Proc;

  N : Natural := 0;
  procedure Proc is
  begin
    N := N + 1;
  end Proc;

end P;

-- 
You are receiving this mail because:
You are watching all bug changes.