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

* fix warnings

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-02-01 01:20:15 +02:00
parent ae465fa8dc
commit e53620ebdb
1 changed files with 2 additions and 1 deletions

3
compiler/wasm32/aasmcpu.pas
View File

@ -520,6 +520,7 @@ uses
var
I: Integer;
begin
Result:=nil;
SetLength(Result,Length(vals));
for I:=High(vals) downto Low(Vals) do
Result[I]:=PopVal(vals[I]);
@ -543,7 +544,7 @@ uses
function TWasmValidationStacks.PopCtrl: TWasmControlFrame;
begin
FillChar(Result,SizeOf(Result),0);
Result:=Default(TWasmControlFrame);
if FCtrlStack.Count=0 then
internalerror(2024013106);
Result:=FCtrlStack[0];