Re: equal and not equal

[Pascal Obry <pascal@obry.net>]

TC a ï¿œcrit :
> how translate = and /= for pointer use?
> and := ?

I bet you have a pointer to a data structure and want to use = or /= on
the content (and not on the pointer itself). Use .all.

   type PA is access String;
   A, B : PA := new String'("azerty");

   if A.all = B.all then
      ...

Also to assign a value to the pointer :

   A.all := (others => ' ');
   --  All char of A.all are set to space

Note that

   A.all := "qw";

Will raise Constraint_Error as A.all is 6 chars long not 2.
You can omit the .all if using a slice :

   A (1 .. 2) := "qw";

Pascal.

-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|              http://www.obry.net
--| "The best way to travel is by means of imagination"
--|
--| gpg --keyserver wwwkeys.pgp.net --recv-key C1082595