paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 15:50:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed another WebAssembly compilation error with -CR

Browse Source 
git-svn-id: trunk@48966 -
This commit is contained in:
nickysn 2021-03-14 15:06:13 +00:00
parent 0d1fb41901
commit f0aed5d355
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/wasm32/hlcgcpu.pas
View File

@ -1832,7 +1832,10 @@ implementation
realresdef: tdef;
ft: TWasmFuncType;
begin
ft:=tcpuprocdef(pd).create_functype;
if pd.typ=procvardef then
ft:=tcpuprocvardef(pd).create_functype
else
ft:=tcpuprocdef(pd).create_functype;
totalremovesize:=Length(ft.params)-Length(ft.results);
if (Length(ft.results)=0) and (po_discardresult in pd.procoptions) then
dec(totalremovesize);