added the incomplete string-to-bigint conversion procedure
This commit is contained in:
		@ -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);
 | 
			
		||||
 | 
			
		||||
		Reference in New Issue
	
	Block a user