added H2.Slim and Slim_Stream.

renamed Stream to Wide_Stream.
2014-03-26 14:28:41 +00:00
parent 3c5c0a547d
commit cb9505272a
12 changed files with 235 additions and 41 deletions
--- a/h2/lib/h2-scheme-bigint.adb
+++ b/h2/lib/h2-scheme-bigint.adb
@ -287,8 +287,8 @@ package body Bigint is
 	begin
 		if Is_Integer(A) and then Is_Integer(B) then
 			declare
-				pragma Unsuppress (Range_Check);
-				pragma Unsuppress (Overflow_Check);
+				--pragma Unsuppress (Range_Check);
+				--pragma Unsuppress (Overflow_Check);

 				G: Object_Integer := Pointer_To_Integer(A);
 				H: Object_Integer := Pointer_To_Integer(B);