From 1ac59a5f09dfcecfd0a3e25917399716b5326042 Mon Sep 17 00:00:00 2001 From: Dmitry Boyarintsev <[email protected]> Date: Fri, 27 Mar 2020 10:15:06 -0400 git-svn-id: branches/wasm@46158 -
@@ -613,9 +613,11 @@ var
u32 : LongWord;
begin
Val(operand, i32, err);
- if err = 0 then
- u32 := LongWord(i32)
- else
+ if err = 0 then begin
+ WriteS( dst, i32, sizeof(i32));
+ Result := true;
+ Exit;
+ end else
Val(operand, u32, err);
Result := (err = 0);