Browse Source

* fix warnings

Nikolay Nikolov 1 year ago
parent
commit
e53620ebdb
1 changed files with 2 additions and 1 deletions
  1. 2 1
      compiler/wasm32/aasmcpu.pas

+ 2 - 1
compiler/wasm32/aasmcpu.pas

@@ -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];