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

* Fix memleak

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-09-24 18:14:58 +02:00
parent 7d83cea8da
commit 368a77d75e
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/wasm-job/src/job.js.pas
View File

@ -169,7 +169,7 @@ type
function GetString: UnicodeString;
function GetObject(aResultClass: TJSObjectClass): TJSObject;
function GetValue: TJOB_JSValue;
function GetVariant: Variant;
function GetVariant(OwnsObject : Boolean = False): Variant;
function GetLongInt: longint;
function GetMaxInt: int64;
function GetArray : TJSArray;
@ -1618,9 +1618,11 @@ end;
function JOBCallTJSPromiseResolver(const aMethod: TMethod; var H: TJOBCallbackHelper): PByte;
var
aValue: Variant;
aRes : Variant;
begin
aValue:=H.GetVariant;
Result:=H.AllocVariant(TJSPromiseResolver(aMethod)(aValue));
aValue:=H.GetVariant(True);
aRes:=TJSPromiseResolver(aMethod)(aValue);
Result:=H.AllocVariant(aRes);
end;
function JOBCallTJSPromiseFinallyHandler(const aMethod: TMethod; var H: TJOBCallbackHelper): PByte;
@ -3299,7 +3301,7 @@ begin
inc(Index);
end;
function TJOBCallbackHelper.GetVariant: Variant;
function TJOBCallbackHelper.GetVariant(OwnsObject : Boolean = False): Variant;
var
ObjId, Len: LongWord;
Obj: TJSObject;
@ -3357,7 +3359,7 @@ begin
ObjId:=PLongWord(p)^;
inc(p,4);
Obj:=TJSObject.JOBCreateFromID(ObjId);
Obj.JOBObjectIDOwner:=false;
Obj.JOBObjectIDOwner:=OwnsObject;
Result:=Obj as IJSObject;
end;
else