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

+ verify the segment count when parsing the WASM_SEGMENT_INFO subsection

Browse Source 
* moved local vars to avoid bug
This commit is contained in:
Nikolay Nikolov 2023-12-26 20:19:58 +02:00
parent bbb564437d
commit e754937ad3
1 changed files with 26 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
compiler/ogwasm.pas
View File

@ -2149,12 +2149,28 @@ implementation
function TWasmObjInput.ReadObjData(AReader: TObjectreader; out ObjData: TObjData): boolean;
var
SectionId: Byte;
SectionSize: uint32;
SectionStart: LongInt;
CheckSectionBounds: Boolean;
TypeSectionRead: Boolean = false;
ImportSectionRead: Boolean = false;
FunctionSectionRead: Boolean = false;
CodeSectionRead: Boolean = false;
DataSectionRead: Boolean = false;
DataCountSectionRead: Boolean = false;
DataSegments: array of record
Active: Boolean;
MemIdx: uint32;
Len: uint32;
Offset: int32;
DataPos: LongInt;
end;
function ReadSection: Boolean;
var
SectionId: Byte;
SectionSize: uint32;
SectionStart: LongInt;
CheckSectionBounds: Boolean;
function read(out b;len:longint):boolean;
begin
@ -2265,22 +2281,6 @@ implementation
result:=true;
end;
var
TypeSectionRead: Boolean = false;
ImportSectionRead: Boolean = false;
FunctionSectionRead: Boolean = false;
CodeSectionRead: Boolean = false;
DataSectionRead: Boolean = false;
DataCountSectionRead: Boolean = false;
DataSegments: array of record
Active: Boolean;
MemIdx: uint32;
Len: uint32;
Offset: int32;
DataPos: LongInt;
end;
function ReadCustomSection: Boolean;
function ReadRelocationSection: Boolean;
@ -2311,6 +2311,11 @@ implementation
InputError('Error reading the segment count from the WASM_SEGMENT_INFO subsection of the ''linking'' section');
exit;
end;
if SegmentCount<>Length(DataSegments) then
begin
InputError('Segment count in the WASM_SEGMENT_INFO subsection does not match the data count in the data section');
exit;
end;
for i:=0 to SegmentCount-1 do
begin
if not ReadName(SegName) then