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

[PATCH 161/188] fix writing local variables

Browse Source 
From 0af39269ab1988d36606b5da7d958afce583357c Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Fri, 27 Mar 2020 09:54:00 -0400

git-svn-id: branches/wasm@46157 -
This commit is contained in:
nickysn 2020-08-03 13:01:52 +00:00
parent 1631be00c8
commit 34e5a15752
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

@ -473,8 +473,8 @@ begin
WriteU32(dst, length(la)); WriteU32(dst, length(la));
for j:=0 to length(la)-1 do begin for j:=0 to length(la)-1 do begin
WriteU32(dst, la[i].count); WriteU32(dst, la[j].count);
dst.WriteByte(la[i].tp); dst.WriteByte(la[j].tp);
end; end;
WriteInstList(f.instr, LongWord(dofs-sc.datapos)); WriteInstList(f.instr, LongWord(dofs-sc.datapos));
popStream; popStream;