Re: Size of linked program increasing with new version of GNAT.

[Tony <tony7@tele2.se>]

On Saturday, December 27, 2014 7:43:14 AM UTC+1, Simon Wright wrote:
> A main program with a null body, compiled with -O2 and stripped,
> resulted in executable size 83540;

I'd expect that program to be compiled into a single machine code return instruction.

I managed to create a 12 KB version of Hello-World, by excluding runtime and Ada.Text_Io and calling Win32 functions directly:

pragma No_Run_Time;
with System;
procedure Hello is

   function Writeconsole
      (Hconsoleoutput        : Integer;
      Lpbuffer               : System.Address;
      Nnumberofcharstowrite  : Integer;
      Lpnumberofcharswritten : Integer;
      Lpreserved             : Integer) return Integer;

   pragma Import (Stdcall, Writeconsole, "WriteConsoleA");

   function Getstdhandle (Nstdhandle : Integer) return Integer;

   pragma Import (Stdcall, Getstdhandle, "GetStdHandle");

   Std_Output_Handle : constant := -11;

   S : constant String := "Hello, World!" & Ascii.Lf;
   Dummy : Integer;

begin
   Dummy := Writeconsole(Getstdhandle(Std_Output_Handle), S'Address, S'Length, 0, 0);
end;