paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-02 03:19:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* PChar -> PAnsiChar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-14 14:20:03 +01:00
parent 4a2214baf7
commit a0dbd61f08
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/libfontconfig/examples/testfc.pp
View File

@ -3,7 +3,7 @@ uses dynlibs, libfontconfig;
Var
FC : PFcConfig;
FL : PFcStrList;
P : PChar;
P : PAnsiChar;
begin
Writeln('Load 1: ',loadfontconfiglib(''));

10
packages/libfontconfig/src/libfontconfig.pp
View File

@ -216,9 +216,9 @@ Type
TFcCache = record end;
PPFcCache = ^PFcCache;
PFcChar8 = Pchar;
TFcChar8 = char;
PPFcChar8 = PPChar;
PFcChar8 = PAnsiChar;
TFcChar8 = AnsiChar;
PPFcChar8 = PPAnsiChar;
PFcChar16 = PWideChar;
TFcChar16 = WideChar;
@ -799,7 +799,7 @@ begin
end;
Function Loadfc(lib : pchar) : Boolean;
Function Loadfc(lib : PAnsiChar) : Boolean;
begin
Freefc;
@ -1038,7 +1038,7 @@ begin
end
else
begin
if LoadFC(PChar(FN)) then
if LoadFC(PAnsiChar(FN)) then
begin
inc(HCount);
LoadedLib:=FN;