|
@@ -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;
|