소스 검색

* fix warnings

Nikolay Nikolov 1 년 전
부모
커밋
e53620ebdb
1개의 변경된 파일2개의 추가작업 그리고 1개의 파일을 삭제
  1. 2 1
      compiler/wasm32/aasmcpu.pas

+ 2 - 1
compiler/wasm32/aasmcpu.pas

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