[fpc-pascal] Will the size of an executable depend on the uses clause

[Tomas Hajny]

On 2021-06-16 23:49, Jean SUZINEAU via fpc-pascal wrote:
> My best score is 67 kb after strip -s with the code below ... ;-)
> 
> Of course it will not work on every  version of Windows.
> 
> program uptime;
> 
> function GetTickCount64: QWord; stdcall; external 'kernel32.dll';
> 
> function _2d( _i: Integer): String;
> begin
>      Str( _i, Result);
>      if Length(Result) < 2 then Result:= '0'+Result;
> 
> end;
> 
> function FormatUpTime( _tc: QWord): String;
> var
>    t, d, h, m, s: Integer;
>    sd: String;
> begin
>      t:= _tc div 1000;
>      s:= t mod 60;
>      m:= (t div 60) mod 60;
>      h:= (t div 3600) mod 24;
>      d:= (t div 86400);
> 
>      Result:= _2d(h)+':'+_2d( m)+':'+_2d( s);
>      if 0 = d then exit;
> 
>      Str( d, sd);
>      Result:= sd+' '+Result;
> end;
> 
> begin
>      WriteLn( FormatUpTime( GetTickCount64));
> end.

I get half of your size, in particular 35840 bytes if compiling for 
Win32 (a 64-bit version is 46592 bytes). The trick with manual import of 
the respective Win32 API function is not necessary, the size doesn't 
increase by adding 'uses Windows;' instead of the manual import.

D:\TEMP>fpc -XX -Xs uptime.pas
Free Pascal Compiler version 3.2.2 [2021/05/15] for i386
Copyright (c) 1993-2021 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling uptime.pas
Linking uptime.exe
33 lines compiled, 0.0 sec, 29760 bytes code, 1308 bytes data

D:\TEMP>dir uptime.exe
  .
  .
  Directory of D:\TEMP
17.06.2021  12:18            35 840 uptime.exe
                1 File(s)         35 840 bytes

Tomas