1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/types.adb b/gcc/ada/types.adb
index 2ab0c5b3d05..1f090de7604 100644
--- a/gcc/ada/types.adb
+++ b/gcc/ada/types.adb
@@ -128,10 +128,9 @@ package body Types is
    -- Get_Character --
    -------------------
 
-   --  Note: raises Constraint_Error if checks on and C out of range
-
    function Get_Character (C : Char_Code) return Character is
    begin
+      pragma Assert (C <= 255);
       return Character'Val (C);
    end Get_Character;