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

* handle addresses just like integers in thlcgwasm.a_load_const_stack

Browse Source 
git-svn-id: branches/wasm@48049 -
This commit is contained in:
nickysn 2021-01-04 14:53:35 +00:00
parent 450883ea2b
commit 0e395a0d06
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/wasm32/hlcgcpu.pas
View File

@ -389,7 +389,8 @@ implementation
procedure thlcgwasm.a_load_const_stack(list : TAsmList;size : tdef;a : tcgint; typ: TRegisterType);
begin
case typ of
R_INTREGISTER:
R_INTREGISTER,
R_ADDRESSREGISTER:
begin
case def_cgsize(size) of
OS_8,OS_16,OS_32,
@ -406,12 +407,6 @@ implementation
internalerror(2010110702);
end;
end;
R_ADDRESSREGISTER:
begin
if a<>0 then
internalerror(2010110701);
list.concat(taicpu.op_none(a_none));
end;
else
internalerror(2010110703);
end;