1 files changed, 5 insertions, 0 deletions
diff --git a/src/types.ads b/src/types.ads
index af62cbe34..e118a108c 100644
--- a/src/types.ads
+++ b/src/types.ads
@@ -180,4 +180,9 @@ package Types is
 
    --  Result of a comparaison of two numeric values.
    type Order_Type is (Less, Equal, Greater);
+
+   --  Modular type for the size.  We don't use Storage_Offset in order to
+   --  make alignment computation efficient (knowing that alignment is a
+   --  power of two).
+   type Size_Type is mod System.Memory_Size;
 end Types;