paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 19:11:03 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/wasm32/aasmcpu.pas
View File

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