added the incomplete string-to-bigint conversion procedure

This commit is contained in:
2014-03-09 18:01:38 +00:00
parent 57f8b64c2b
commit 64d69c36e5
10 changed files with 271 additions and 74 deletions

View File

@ -29,7 +29,12 @@ procedure scheme is
--File_Stream: Stream.File_Stream_Record := (Name => File_Name'Unchecked_Access);
File_Stream: Stream.File_Stream_Record;
--procedure h2init;
--pragma Import (C, h2init, "h2init");
begin
--h2init;
Ada.Text_Io.Put_Line (S.Object_Word'Image(S.Object_Pointer_Bytes));
S.Open (SI, 2_000_000, Pool'Unchecked_Access);