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

+ started implementing TWasmObjInput.ReadObjData

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-11-15 17:58:15 +02:00
parent b9668a88c6
commit d98d0c5e62
1 changed files with 78 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
compiler/ogwasm.pas
View File

@ -183,9 +183,12 @@ interface
{ TWasmObjInput }
TWasmObjInput = class(TObjInput)
private
function ReadUleb(r: TObjectReader; out v: uint64): boolean;
public
constructor create;override;
class function CanReadObjData(AReader:TObjectreader):boolean;override;
function ReadObjData(AReader:TObjectreader;out ObjData:TObjData):boolean;override;
end;
{ TWasmAssembler }
@ -2094,6 +2097,24 @@ implementation
TWasmObjInput
****************************************************************************}
function TWasmObjInput.ReadUleb(r: TObjectReader; out v: uint64): boolean;
var
b: byte;
shift:integer;
begin
result:=false;
b:=0;
v:=0;
shift:=0;
repeat
if not r.read(b,1) then
exit;
v:=v or (uint64(b and 127) shl shift);
inc(shift,7);
until (b and 128)=0;
result:=true;
end;
constructor TWasmObjInput.create;
begin
inherited create;
@ -2120,6 +2141,63 @@ implementation
result:=true;
end;
function TWasmObjInput.ReadObjData(AReader: TObjectreader; out ObjData: TObjData): boolean;
function ReadSection: Boolean;
var
SectionId: Byte;
SectionSize: uint64;
begin
Result:=False;
if not AReader.read(SectionId,1) then
begin
InputError('Error reading section ID');
exit;
end;
if not ReadUleb(AReader,SectionSize) then
begin
InputError('Error reading section size');
exit;
end;
if SectionSize>high(uint32) then
begin
InputError('Invalid section size');
exit;
end;
if (AReader.Pos+SectionSize)>AReader.size then
begin
InputError('Section exceeds beyond the end of file');
exit;
end;
{ skip the section for now... TODO: parse the section }
if SectionSize>0 then
AReader.seek(AReader.Pos+SectionSize);
Result:=True;
end;
var
ModuleMagic: array [0..3] of Byte;
ModuleVersion: array [0..3] of Byte;
i: Integer;
begin
objdata:=CObjData.Create(InputFileName);
result:=false;
if not AReader.read(ModuleMagic,4) then
exit;
for i:=0 to 3 do
if ModuleMagic[i]<>WasmModuleMagic[i] then
exit;
if not AReader.read(ModuleVersion,4) then
exit;
for i:=0 to 3 do
if ModuleVersion[i]<>WasmVersion[i] then
exit;
while AReader.Pos<AReader.size do
if not ReadSection then
exit;
Result:=True;
end;
{****************************************************************************
TWasmAssembler
****************************************************************************}