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

* Allow to call DebugLiveObjects using object id -1

Browse Source
This commit is contained in:
Michael Van Canneyt 2024-09-20 10:23:24 +02:00
parent b0dfc31b05
commit 1efaac6c8d
1 changed files with 18 additions and 10 deletions

28
packages/job/src/job_browser.pp
View File

@ -118,7 +118,7 @@ Type
Procedure RegisterJSObjectFactory(const aName : string; aFunc : TJSObjectFactory); overload;
Function GetJOBResult(v: jsvalue): TJOBResult;
Function GetStats : TJSObjectBridgeStats;
Procedure DumpLiveObjects;
Procedure DumpLiveObjects(S : String = '');
property CallbackHandler: TJOBCallback read FCallbackHandler write FCallbackHandler;
property OnCallBackJSError : TCallbackErrorJSEventHandler read FOnCallBackJSError Write FOnCallBackJSError;
property OnCallBackPasError : TCallbackErrorPasEventHandler read FOnCallBackPasError Write FOnCallBackPasError;
@ -753,16 +753,24 @@ var
begin
S:=Env.GetUTF8StringFromMem(aMessage,aMessageLen);
Obj:=FindObject(ObjId);
if not assigned(Obj) then
if ObjID=-1 then
begin
Result:=JOBResult_UnknownObjId;
console.warn('Cannot find object ',ObjId);
DumpLiveObjects(S);
Result:=JOBResult_Success;
end
else
begin
console.debug(S,' dumping object ',ObjID,' : ',Obj);
Result:=JOBResult_Success;
Obj:=FindObject(ObjId);
if not assigned(Obj) then
begin
Result:=JOBResult_UnknownObjId;
console.warn('Cannot find object ',ObjId);
end
else
begin
console.debug(S,' dumping object ',ObjID,' : ',Obj);
Result:=JOBResult_Success;
end;
end;
end;
@ -1217,11 +1225,11 @@ begin
Result.GlobalObjectCount:=FGlobalObjects.Length;
end;
procedure TJSObjectBridge.DumpLiveObjects;
procedure TJSObjectBridge.DumpLiveObjects(S: String);
begin
Console.Log('Local objects');
Console.Log(S,'Local objects:');
Console.debug(FLocalObjects);
Console.Log('Global objects');
Console.Log(S,'Global objects:');
Console.debug(FGlobalObjects);
end;