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

[PATCH 071/188] fix parameters and result writeout

Browse Source 
From a37869979cd8c437eed122205317b1eeb5d1148a Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Thu, 5 Mar 2020 09:47:40 -0500

git-svn-id: branches/wasm@46067 -
This commit is contained in:
nickysn 2020-08-03 12:59:58 +00:00
parent 72d5937c38
commit e0621577f4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils/wasmbin/wasmbinwriter.pas
View File

@ -291,11 +291,11 @@ begin
WriteU32(dst, tp.ParamCount); WriteU32(dst, tp.ParamCount);
for j:=0 to tp.ParamCount-1 do for j:=0 to tp.ParamCount-1 do
dst.WriteByte(tp.GetParam(i).tp); dst.WriteByte(tp.GetParam(j).tp);
WriteU32(dst, tp.ResultCount); WriteU32(dst, tp.ResultCount);
for j:=0 to tp.ResultCount-1 do for j:=0 to tp.ResultCount-1 do
dst.WriteByte(tp.GetResult(i).tp); dst.WriteByte(tp.GetResult(j).tp);
end; end;
SectionEnd(sc); SectionEnd(sc);
end; end;