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

+ added DataSegments dynarray of record, that will store data segment info

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-12-26 16:32:30 +02:00
parent e3c5d016e0
commit 6f7c1b5b4e
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ogwasm.pas
View File

@ -2222,7 +2222,8 @@ implementation
CodeSectionRead: Boolean = false;
DataCountSectionRead: Boolean = false;
DataCount: uint32;
DataSegments: array of record
end;
function ReadCustomSection: Boolean;
@ -2245,7 +2246,7 @@ implementation
Result:=False;
if SegmentInfoSectionRead then
begin
InputError('The WASM_SEGMENT_INFO section is duplicated');
InputError('The WASM_SEGMENT_INFO subsection is duplicated');
exit;
end;
SegmentInfoSectionRead:=True;
@ -2735,7 +2736,7 @@ implementation
function ReadDataCountSection: Boolean;
var
v: uint32;
DataCount: uint32;
begin
Result:=False;
if DataCountSectionRead then
@ -2744,17 +2745,17 @@ implementation
exit;
end;
DataCountSectionRead:=True;
if not ReadUleb32(v) then
if not ReadUleb32(DataCount) then
begin
InputError('Error reading the data count from the data count section');
exit;
end;
DataCount:=v;
if AReader.Pos<>(SectionStart+SectionSize) then
begin
InputError('Unexpected data count section size');
exit;
end;
SetLength(DataSegments, DataCount);
Result:=true;
end;