Question New feature of CT compiler.

const
  mylib = 'mylib.so';

procedure myproct(); cdecl; external mylib;

const
  mylib = 'mylib.so.2';

procedure myproct(); cdecl; external mylib;

const
  mylib = 'mylibrary';  // without ".so" 

procedure myproct(); cdecl; external mylib;

const
  mylib = 'mylibrary.so';  // here compiler will remove ".so"  hmmm, very strange idea.

procedure myproct(); cdecl; external mylib;

const
  mylib = 'mylibrary.so.2'; // here compiler will remove ".so.2"   ------> That is a VERY bad idea.

procedure myproct(); cdecl; external mylib;

DLLSSLName: string = 'libssl';

DLLSSLName: string = 'libssl.so.1.1';

const
  libX11='X11'; ....

const
  libX11='libX11.so.6'; // Here fpc will remove '.so.6' and 'lib'

libX11='X11';

libX11='libX11.so.6';

libX11='X11';

libX11='libX11.so.6';

Procedure TLinker.AddSharedLibrary(S:TCmdStr);
      begin
        if s='' then
          exit;
        { remove prefix 'lib' }
      //  if Copy(s,1,length(target_info.sharedlibprefix))=target_info.sharedlibprefix then
      //    Delete(s,1,length(target_info.sharedlibprefix));
        { remove extension if any }
     //   if Copy(s,length(s)-length(target_info.sharedlibext)+1,length(target_info.sharedlibext))=target_info.sharedlibext then
     //     Delete(s,length(s)-length(target_info.sharedlibext)+1,length(target_info.sharedlibext)+1);
        { ready to be added }
        SharedLibFiles.Concat(S);
      end;

Procedure TLinker.AddSharedCLibrary(S:TCmdStr);
      begin
        if s='' then
          exit;
        { remove prefix 'lib' }
      //  if Copy(s,1,length(target_info.sharedclibprefix))=target_info.sharedclibprefix then
      //    Delete(s,1,length(target_info.sharedclibprefix));
        { remove extension if any }
      //  if Copy(s,length(s)-length(target_info.sharedclibext)+1,length(target_info.sharedclibext))=target_info.sharedclibext then
      //    Delete(s,length(s)-length(target_info.sharedclibext)+1,length(target_info.sharedclibext)+1);
        { ready to be added }
        SharedLibFiles.Concat(S);
      end;

if (s<>'c') or reorder then
                  begin
                    i:=Pos(target_info.sharedlibext,S);
                    if i>0 then
                    // Delete(S,i,255);   // comment that
                     Insert(':',s,1);   // change with this, ":" is needed when you use the full name with extension.
                    Add('-l'+s);
                    libraryadded:=true;
                  end

{$LinkLib X11}

{$LinkLib libX11.so.6}

const  libX11='X11';

const  libX11='libX11.so.6';

INPUT(
-lpthread
-l:libc.so
-l:libX11.so.6
-l:libdl.so
-l:libpthread.so
-l:librt.so
-lm
)