added H2.Slim and Slim_Stream.

renamed Stream to Wide_Stream.
2014-03-26 14:28:41 +00:00
parent ed0835caae
commit 8ef3eabe78
12 changed files with 235 additions and 41 deletions
--- a/lib/h2-scheme-bigint.adb
+++ b/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);