libadalang_tools_25.0.0_5304ba7e/testsuite/tests/test/tgen_system_address/pkg.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
package body Pkg is

   -------------
   -- Setvbuf --
   -------------

   function Setvbuf
     (Buffer : Interfaces.C_Streams.Chars;
      Mode   : Interfaces.C_Streams.Int;
      Size   : Interfaces.C_Streams.Size_T)
      return Interfaces.C_Streams.Int
   is
   begin
      return 1;
   end Setvbuf;

end Pkg;