[fpc-devel] Fpc Target directory function

[L]

Does a function like this exist:

function FpcTargetDir: string;
begin
  result:= {$I %FPCTARGETCPU%}+'-'+{$I %FPCTARGETOS%};
end;

Above works for my needs, just wonder if something already exists in RTL 
or if it should be added for convenience.