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

* GetStats and DumpLiveObjects calls

Browse Source
This commit is contained in:
Michael Van Canneyt 2024-08-23 16:45:40 +02:00
parent 8770967f35
commit 9361ce944f
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -60,9 +60,16 @@ Type
TWasmPointer = integer;
{ TJSObjectBridge }
TJSObjectBridgeStats = record
LastAllocatedID : NativeInt;
LiveObjectCount : NativeInt;
GlobalObjectCount : NativeInt;
FreeIDCount : Integer;
end;
TJSObjectBridge = class(TImportExtension)
Private
FLastAllocatedID : NativeInt;
FCallbackHandler: TJOBCallback;
FGlobalObjects: TJSArray; // id to TJSObject
FGlobalNames: TJSObject; // name to id
@ -108,6 +115,8 @@ Type
Procedure RegisterObjectFactory(const aName : string; aFunc : TObjectFactory); overload;
Procedure RegisterJSObjectFactory(const aName : string; aFunc : TJSObjectFactory); overload;
Function GetJOBResult(v: jsvalue): TJOBResult;
Function GetStats : TJSObjectBridgeStats;
Procedure DumpLiveObjects;
property CallbackHandler: TJOBCallback read FCallbackHandler write FCallbackHandler;
property OnCallBackJSError : TCallbackErrorJSEventHandler read FOnCallBackJSError Write FOnCallBackJSError;
property OnCallBackPasError : TCallbackErrorPasEventHandler read FOnCallBackPasError Write FOnCallBackPasError;
@ -300,6 +309,7 @@ begin
begin
NewId:=FLocalObjects.push(Obj)-1;
Result:=TJOBObjectID(NewId);
FLastAllocatedID:=Result;
end
else begin
Result:=TJOBObjectID(NewId);
@ -671,6 +681,7 @@ begin
end;
function TJSObjectBridge.ReleaseObject(ObjId: TJOBObjectID): TJOBResult;
begin
{$IFDEF VerboseJOB}
writeln('TJSObjectBridge.ReleaseObject ',ObjId);
@ -1143,4 +1154,20 @@ begin
end;
end;
function TJSObjectBridge.GetStats: TJSObjectBridgeStats;
begin
Result.LastAllocatedID:=FLastAllocatedID;
Result.FreeIDCount:=FFreeLocalIds.Length;
Result.LiveObjectCount:=FLocalObjects.Length;
Result.GlobalObjectCount:=FGlobalObjects.Length;
end;
procedure TJSObjectBridge.DumpLiveObjects;
begin
Console.Log('Local objects');
Console.debug(FLocalObjects);
Console.Log('Global objects');
Console.debug(FGlobalObjects);
end;
end.