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

[PATCH 084/188] update writing out a constant value

Browse Source 
From e6c40ff6530c403dcee9ad36b3991e6f36be8267 Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Mon, 9 Mar 2020 11:11:43 -0400

git-svn-id: branches/wasm@46080 -
This commit is contained in:
nickysn 2020-08-03 13:00:15 +00:00
parent dc4ceed0bb
commit 553e32eb1e
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
utils/wasmbin/wasmbinwriter.pas
View File

@ -476,13 +476,14 @@ begin
dst.WriteByte(ci.code); dst.WriteByte(ci.code);
case INST_FLAGS[ci.code].Param of case INST_FLAGS[ci.code].Param of
ipi32: begin ipi32: begin
Val(ci.operandText, u32, err); Val(ci.operandText, i32, err);
if err = 0 then begin if err = 0 then
u32 := LongWord(i32)
else
Val(ci.operandText, u32, err);
if err = 0 then
WriteU32(dst, u32); WriteU32(dst, u32);
end else begin
Val(ci.operandText, i32, err);
if err = 0 then WriteU32(dst, i32);
end;
end; end;
ipi64, // signed Leb of maximum 8 bytes ipi64, // signed Leb of maximum 8 bytes