Re: problems parse (large) json file with gnatcoll.json

[Shark8 <onewingedshark@gmail.com>]

On Monday, April 18, 2016 at 1:12:49 PM UTC-6, björn lundin wrote:
> 
> The loading function now looks like
> 
>   function Load_File(Filename : in String) return String is
>      use Ada.Directories;
>      File_Size    : constant Natural := Natural (Size (Filename));
>      subtype JSON_String is String (1 .. File_Size);
>      type String_Ptr is access JSON_String;
>      Content : constant String_Ptr := new JSON_String;
>      package File_IO is new Ada.Direct_IO(JSON_String);
>      File : File_IO.File_Type;
>   begin
>      File_IO.Open (File => File, Mode => File_IO.In_File,
>                    Name => Filename);
>      File_IO.Read (File => File, Item => Content.all);
>      File_IO.Close(File => File);
>      return Content.all;
>   end Load_File;
>   --------------------------

Just replace the return w/ an extended return containing an instance of Unchecked_Deallocation; eg:

return Result : JSON_String := Content.all do
  Free( Content ); -- "Free" is the instantiation of Unchecked_Deallocation.
end return;

*BUT*

You really shouldn't need it, IIRC when the type String_Ptr goes out of scope all instances should become invalid, thus allowing the compiler to reclaim it's memory from the storage pool.