paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 21:38:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

FreeType: fixed code mess and memory leak in ttcache. Patch by lagprogramming. issue #40202

Browse Source 
(cherry picked from commit 602fb83512)

Co-authored-by: zeljan1 <zeljko@holobit.hr>
This commit is contained in:
Željan Rikalo 2024-12-28 19:51:47 +00:00 committed by Željan Rikalo
parent 38ed7a6e02
commit d6685c6a4a
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/freetype/ttcache.pas
View File

@ -298,7 +298,7 @@ var
label
Fail;
begin
Result := False;
//Result := False;
(* LOCK *)
current := cache.idle;
if current <> nil then
@ -312,7 +312,9 @@ var
begin
(* if no object was found in the cache, create a new one *)
obj:=nil;
if Alloc( obj, cache.clazz^.object_size ) then exit;
if Alloc( obj, cache.clazz^.object_size ) then
goto Fail;
current := Element_New;
if current = nil then goto Fail;
@ -320,7 +322,11 @@ var
current^.data := obj;
error := cache.clazz^.init( obj, parent_data );
if error then goto Fail;
if error then
begin
Element_Done( current );
goto Fail;
end;
end;
(* LOCK *)