]> git.ipfire.org Git - thirdparty/gcc.git/commit
ada: Remove dependency on System.Val_Bool in System.Img_Bool
authorYannick Moy <moy@adacore.com>
Fri, 3 Nov 2023 13:49:30 +0000 (14:49 +0100)
committerMarc Poulhiès <poulhies@adacore.com>
Tue, 28 Nov 2023 09:35:47 +0000 (10:35 +0100)
commit73ecd592c9a8a99cf5d456d9a78d3c793390af1e
tree08dfb62fea7105f7156593376c8f93f17de80027
parent834f2973606c63b4cd9e27e3bf24f01ee1347568
ada: Remove dependency on System.Val_Bool in System.Img_Bool

In order to facilitate the certification of System.Img_Bool, remove
its dependency on unit System.Val_Bool. Modify the definition of
ghost function Is_Boolean_Image_Ghost to take the expected boolean
value and move it to System.Val_Spec.

gcc/ada/

* libgnat/s-imgboo.adb: Remove with_clause now in spec file.
* libgnat/s-imgboo.ads: Remove dependency on System.Val_Bool.
(Image_Boolean): Replace call to Value_Boolean by passing value V
to updated ghost function Is_Boolean_Image_Ghost.
* libgnat/s-valboo.ads (Is_Boolean_Image_Ghost): Move to other
unit.
(Value_Boolean.): Update precondition.
* libgnat/s-valspe.ads (Is_Boolean_Image_Ghost): Move here. Add
new parameter for expected boolean value.
gcc/ada/libgnat/s-imgboo.adb
gcc/ada/libgnat/s-imgboo.ads
gcc/ada/libgnat/s-valboo.ads
gcc/ada/libgnat/s-valspe.ads