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

[PATCH 162/188] always write signed operator for i32

Browse Source 
From 1ac59a5f09dfcecfd0a3e25917399716b5326042 Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Fri, 27 Mar 2020 10:15:06 -0400

git-svn-id: branches/wasm@46158 -
This commit is contained in:
nickysn 2020-08-03 13:01:53 +00:00
parent 34e5a15752
commit b737cc6cbe
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utils/wasmbin/wasmbinwriter.pas
View File

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