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

+ check for duplicated data sections

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-12-26 16:39:29 +02:00
parent 6f7c1b5b4e
commit 10b201c506
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ogwasm.pas
View File

@ -2220,6 +2220,7 @@ implementation
ImportSectionRead: Boolean = false; ImportSectionRead: Boolean = false;
FunctionSectionRead: Boolean = false; FunctionSectionRead: Boolean = false;
CodeSectionRead: Boolean = false; CodeSectionRead: Boolean = false;
DataSectionRead: Boolean = false;
DataCountSectionRead: Boolean = false; DataCountSectionRead: Boolean = false;
DataSegments: array of record DataSegments: array of record
@ -2732,6 +2733,12 @@ implementation
function ReadDataSection: Boolean; function ReadDataSection: Boolean;
begin begin
Result:=False; Result:=False;
if DataSectionRead then
begin
InputError('Data section is duplicated');
exit;
end;
DataSectionRead:=True;
end; end;
function ReadDataCountSection: Boolean; function ReadDataCountSection: Boolean;