Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/prefix2.adb @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- { dg-do compile } package body prefix2 is procedure Positionne (Objet : in out Instance; X, Y : Coordonnee) is begin Objet.X := X; Objet.Y := Y; end Positionne; function RetourneX (Objet : in Instance) return Coordonnee is begin return Objet.X; end RetourneX; function RetourneY (Objet : in Instance) return Coordonnee is begin return Objet.Y; end RetourneY; procedure Affiche (Objet : in Class; EstVisible : Boolean) is begin if EstVisible then Objet.Allume; else Objet.Eteins; end if; end Affiche; procedure Deplace (Objet : in out Class; DX, DY : Coordonnee) is begin Objet.Affiche (False); -- erreur Objet.Positionne (Objet.X + DX, Objet.Y + DY); Objet.Affiche (True); -- erreur end Deplace; end prefix2;