paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ReleaseFreetype does not return anything, make it a procedure

Browse Source 
git-svn-id: trunk@43292 -
This commit is contained in:
ondrej 2019-10-21 15:54:22 +00:00
parent 6cfe456a78
commit 763b3a96ab
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-image/src/libfreetype.inc
View File

@ -427,7 +427,7 @@ Var
function InitializeFreetype(const LibraryName: UnicodeString = ''): Integer; function InitializeFreetype(const LibraryName: UnicodeString = ''): Integer;
function InitializeFreetype(const LibraryName: AnsiString):integer; function InitializeFreetype(const LibraryName: AnsiString):integer;
function TryInitializeFreetype(const LibraryName: Unicodestring = ''): Integer; function TryInitializeFreetype(const LibraryName: Unicodestring = ''): Integer;
function ReleaseFreetype: Integer; procedure ReleaseFreetype;
{$ENDIF} {$ENDIF}
implementation implementation
@ -536,7 +536,7 @@ begin
result:=InitializeFreetype(UnicodeString(LibraryName)); result:=InitializeFreetype(UnicodeString(LibraryName));
end; end;
function ReleaseFreetype:integer; procedure ReleaseFreetype;
begin begin
if InterlockedDecrement(RefCount) <= 0 then if InterlockedDecrement(RefCount) <= 0 then
begin begin