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

* fixed warning

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-31 02:33:31 +02:00
parent 4cc5cf4d0e
commit 4cb97dcdb3
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/wasm32/aasmcpu.pas
View File

@ -479,6 +479,7 @@ uses
function TWasmValidationStacks.PopVal(expect: TWasmBasicType): TWasmBasicType; function TWasmValidationStacks.PopVal(expect: TWasmBasicType): TWasmBasicType;
begin begin
Result:=wbt_Unknown;
Result:=PopVal; Result:=PopVal;
if (Result<>expect) and (Result<>wbt_Unknown) and (expect<>wbt_Unknown) then if (Result<>expect) and (Result<>wbt_Unknown) and (expect<>wbt_Unknown) then
internalerror(2024013105); internalerror(2024013105);