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

* fix warning

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-06 22:05:35 +02:00
parent 3fddae4a40
commit 4b2a924ea0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ogwasm.pas
View File

@ -2789,7 +2789,7 @@ implementation
InputError('Error reading symbol type from the WASM_SYMBOL_TABLE subsection of the ''linking'' section');
exit;
end;
if SymKindB>High(Ord(TWasmSymbolType)) then
if SymKindB>Ord(High(TWasmSymbolType)) then
begin
InputError('Unsupported symbol type from the WASM_SYMBOL_TABLE subsection of the ''linking'' section');
exit;