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

+ parse and check the version of the 'linking' section

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-12-26 14:42:51 +02:00
parent 5a5abe2419
commit 8802c7d489
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/ogwasm.pas
View File

@ -2232,8 +2232,22 @@ implementation
end;
function ReadLinkingSection: Boolean;
const
ExpectedVersion = 2;
var
Version: uint32;
begin
Result:=False;
if not ReadUleb32(Version) then
begin
InputError('Error reading the version of the ''linking'' subsection');
exit;
end;
if Version<>ExpectedVersion then
begin
InputError('The ''linking'' subsection has an unsupported version (expected version ' + tostr(ExpectedVersion) + ', got version ' + tostr(Version) + ')');
exit;
end;
end;
function ReadProducersSection: Boolean;