paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 08:30:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Do not load font config if it is already loaded

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-08-09 10:32:58 +02:00
parent abf04f1086
commit 8702fc416b
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-pdf/src/fpttf.pp
View File

@ -645,13 +645,11 @@ var
FN : PFcChar8;
lDir: string;
config: PfcConfig;
const
is_fc_loaded:integer=0;
{$endif}
begin
{$ifdef HasFontsConf} // Linux & BSD
if (is_fc_loaded=0) then
is_fc_loaded:=loadfontconfiglib('');
if not FontConfigLibLoaded then
loadfontconfiglib('');
config := FcInitLoadConfigAndFonts();
@ -894,8 +892,8 @@ begin
Result:=false;
res:='';
if (is_fc_loaded=0) then
is_fc_loaded:=loadfontconfiglib('');
if not FontConfigLibLoaded then
loadfontconfiglib('');
config := FcInitLoadConfigAndFonts();