From c3c170921c0b4fb4e01f2079fcd8bbb637a48459 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 13 Nov 2017 06:08:29 +0100
Subject: Use uns32 (instead of nat32) for String8_Id.

---
 src/types.ads | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/types.ads b/src/types.ads
index 2b1b056db..08ca9d710 100644
--- a/src/types.ads
+++ b/src/types.ads
@@ -78,7 +78,7 @@ package Types is
    --  have a 32 bit type to represent a string (contrary to pointers that
    --  could be 32 or 64 bit - in general - or to an access type which can be
    --  even wider in Ada).
-   type String8_Id is new Nat32;
+   type String8_Id is new Uns32;
    for String8_Id'Size use 32;
 
    Null_String8 : constant String8_Id := 0;
-- 
cgit v1.2.3