diff options
| author | Yannick Moy <moy@adacore.com> | 2021-08-30 16:33:00 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-10-20 10:17:06 +0000 |
| commit | bd2560b726fa93b61060a9f469ad288c512961f3 (patch) | |
| tree | 520d242ef6824d20f9c41d059d56cac53ef42762 /gcc/ada/libgnat/s-widuns.ads | |
| parent | c5742a0e1191365c57bc06fdbf1ff5da1028f127 (diff) | |
| download | gcc-bd2560b726fa93b61060a9f469ad288c512961f3.zip gcc-bd2560b726fa93b61060a9f469ad288c512961f3.tar.gz gcc-bd2560b726fa93b61060a9f469ad288c512961f3.tar.bz2 | |
[Ada] Proof of the runtime support for attribute 'Width
gcc/ada/
* libgnat/s-widlllu.ads: Mark in SPARK.
* libgnat/s-widllu.ads: Likewise.
* libgnat/s-widuns.ads: Likewise.
* libgnat/s-widthu.adb: Add ghost code and a
pseudo-postcondition.
Diffstat (limited to 'gcc/ada/libgnat/s-widuns.ads')
| -rw-r--r-- | gcc/ada/libgnat/s-widuns.ads | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/libgnat/s-widuns.ads b/gcc/ada/libgnat/s-widuns.ads index 0528456..713532e 100644 --- a/gcc/ada/libgnat/s-widuns.ads +++ b/gcc/ada/libgnat/s-widuns.ads @@ -34,8 +34,9 @@ with System.Width_U; with System.Unsigned_Types; -package System.Wid_Uns is - +package System.Wid_Uns + with SPARK_Mode +is subtype Unsigned is Unsigned_Types.Unsigned; function Width_Unsigned is new Width_U (Unsigned); |