Re: How to print string, record variable while debugging with GDB using GPS

[Paruthi <sathishveluswamy@gmail.com>]

On Feb 19, 7:30 pm, Georg Bauhaus <rm.dash-bauh...@futureapps.de>
wrote:
> Paruthi schrieb:
>
> > Hi,
>
> > Can any one please help me how to print the value of the variable
> > which is of a string type, instance of a record..etc while debugging
> > with GDB using Ada code. For simple string I get the value in ascii
> > value. Is there any way where I get the actual string value instead of
> > ASCII value.
>
> Did you use the GDB provided with your Ada environement?
>
> (gdb) list
> 1       procedure test is
> 2               x: string(1..10);
> 3       begin
> 4               x := "ABCDEFGHIJ";
> 5               x(1) := x(2);
> 6       end;
> (gdb) display x
> 4: x = "["00"]["00"]["00"]["00"]["00"]["00"]["00"]["00"]&["1d"]"
> (gdb) n
> 5               x(1) := x(2);
> 4: x = "ABCDEFGHIJ"
> (gdb) n
> 6       end;
> 4: x = "BBCDEFGHIJ"
> (gdb)

Hello Georg,

Thanks for the quick response and help. I tried your instruction it
works well for the sample code. But I have a sample piece of code in
that if i try to print the string value then the value is printed in
ASCII. Please help me to print the value in actual string. The sample
code is :

package lib is
  type T_Int is range -2**31 .. 2**31-1;
  for T_Int'Size use 4 * 8;
  type T_Char is new Character;
  for T_Char'Size use 1 * 8;
  subtype T_Pos is  T_Int range 1 .. T_Int'Last;
  type T_string is array (T_Pos range <>) of T_Char;
  function Get_Val(Status : in boolean) return t_string;
end lib;

with ada.text_io;
with ada.integer_text_io;
with lib;
use lib;
use ada.text_io;
use ada.integer_text_io;

procedure A is

  type T_str (Size : T_Pos) is
     record
        tab : T_string(1..Size);
        T_Nab : integer:=0;
     end record;
  type t_str_access is access all t_str;
  A: T_string(1..10):= (' ',' ',' ',' ',' ',' ',' ',' ',' ',' ');
  B:T_str(3);
  c : integer;
  status : boolean;
begin
  B.tab := "Var";
  get(c);
  if c = 1 then
     status := false;
  elsif c =2 then
     status := true;
  else
     null;
  end if;

  c:= c+1;
  put(c-1);
  A := Get_Val(status);
--     put(standard.string(A));

end A ;

With the above code try to print variable 'B.tab' this prints in
ASCII. Please suggest some solution.

Thanks in advance.

Regards,
Sathish V