paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-29 23:20:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove some unused variables

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-01-23 11:41:21 +01:00
parent 6bba60ec8a
commit 8275bfe7c7
1 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
packages/wasm-oi/src/debug.objectinspector.wasm.pas
View File

@ -220,9 +220,6 @@ end;
function TWasmObjectInspectorApi.InspectorAllocate(aID: TWasmPointer): TWasmOIResult; function TWasmObjectInspectorApi.InspectorAllocate(aID: TWasmPointer): TWasmOIResult;
var
v : TJSDataView;
begin begin
{$IFNDEF NOLOGAPICALLS} {$IFNDEF NOLOGAPICALLS}
If LogAPICalls then If LogAPICalls then
@ -231,16 +228,10 @@ begin
end; end;
{$ENDIF} {$ENDIF}
Result:=WASMOI_NOT_IMPLEMENTED; Result:=WASMOI_NOT_IMPLEMENTED;
{ v:=getModuleMemoryDataView;
v.setInt32(aID,0,Env.IsLittleEndian);
}
end; end;
function TWasmObjectInspectorApi.InspectorDeAllocate(aID: TInspectorID): TWasmOIResult; function TWasmObjectInspectorApi.InspectorDeAllocate(aID: TInspectorID): TWasmOIResult;
var
v : TJSDataView;
begin begin
{$IFNDEF NOLOGAPICALLS} {$IFNDEF NOLOGAPICALLS}
If LogAPICalls then If LogAPICalls then
@ -249,21 +240,16 @@ begin
end; end;
{$ENDIF} {$ENDIF}
Result:=WASMOI_NOT_IMPLEMENTED; Result:=WASMOI_NOT_IMPLEMENTED;
{ v:=getModuleMemoryDataView;
v.setInt32(aID,0,Env.IsLittleEndian);
}
end; end;
function TWasmObjectInspectorApi.InspectorSetCaption(aInspectorID: TInspectorID; aCaption: TWasmPointer; aCaptionLen: Longint function TWasmObjectInspectorApi.InspectorSetCaption(aInspectorID: TInspectorID; aCaption: TWasmPointer; aCaptionLen: Longint
): TWasmOIResult; ): TWasmOIResult;
var var
V : TJSDataView;
OI : THTMLObjectInspector; OI : THTMLObjectInspector;
lCaption : String; lCaption : String;
begin begin
V:=getModuleMemoryDataView;
lCaption:=Env.GetUTF8StringFromMem(aCaption,aCaptionLen); lCaption:=Env.GetUTF8StringFromMem(aCaption,aCaptionLen);
{$IFNDEF NOLOGAPICALLS} {$IFNDEF NOLOGAPICALLS}
If LogAPICalls then If LogAPICalls then
@ -350,12 +336,10 @@ end;
function TWasmObjectInspectorApi.TreeSetCaption(aInspectorID: TInspectorID; aCaption: TWasmPointer; aCaptionLen: Longint function TWasmObjectInspectorApi.TreeSetCaption(aInspectorID: TInspectorID; aCaption: TWasmPointer; aCaptionLen: Longint
): TWasmOIResult; ): TWasmOIResult;
var var
V : TJSDataView;
T : THTMLObjectTree; T : THTMLObjectTree;
lCaption : String; lCaption : String;
begin begin
V:=getModuleMemoryDataView;
lCaption:=Env.GetUTF8StringFromMem(aCaption,aCaptionLen); lCaption:=Env.GetUTF8StringFromMem(aCaption,aCaptionLen);
{$IFNDEF NOLOGAPICALLS} {$IFNDEF NOLOGAPICALLS}
If LogAPICalls then If LogAPICalls then
@ -396,7 +380,6 @@ function TWasmObjectInspectorApi.InspectorAddProperty(aInspectorID: TInspectorID
var var
PropertyKind : TNativeTypeKind; PropertyKind : TNativeTypeKind;
PropertyFlags : Longint; PropertyFlags : Longint;
PropDataFlags : TPropDataFlags;
V : TJSDataView; V : TJSDataView;
OI : THTMLObjectInspector; OI : THTMLObjectInspector;
PropData : TOIPropData; PropData : TOIPropData;