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

* the 'linking' section is a section, not a subsection. Fix error messages.

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-12-26 15:07:42 +02:00
parent 9063c3c0ed
commit e7f6da4cb0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ogwasm.pas
View File

@ -2253,12 +2253,12 @@ implementation
Result:=False;
if not ReadUleb32(Version) then
begin
InputError('Error reading the version of the ''linking'' subsection');
InputError('Error reading the version of the ''linking'' section');
exit;
end;
if Version<>ExpectedVersion then
begin
InputError('The ''linking'' subsection has an unsupported version (expected version ' + tostr(ExpectedVersion) + ', got version ' + tostr(Version) + ')');
InputError('The ''linking'' section has an unsupported version (expected version ' + tostr(ExpectedVersion) + ', got version ' + tostr(Version) + ')');
exit;
end;
while AReader.Pos<(SectionStart+SectionSize) do