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

* fixed internal error 2019083002 with e.g. inc(local)

Browse Source 
git-svn-id: branches/wasm@47927 -
This commit is contained in:
nickysn 2020-12-31 18:23:49 +00:00
parent 0858579b50
commit 31bc357c1b
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/wasm32/hlcgcpu.pas
View File

@ -1055,12 +1055,7 @@ implementation
{ regular field -> load self on the stack } { regular field -> load self on the stack }
a_load_reg_stack(list,voidpointertype,ref.base); a_load_reg_stack(list,voidpointertype,ref.base);
if dup then if dup then
begin a_load_reg_stack(list,voidpointertype,ref.base);
internalerror(2019083002);
//todo: add duplicate
//list.concat(taicpu.op_none(a_dup));
incstack(list,1);
end;
{ field name/type encoded in symbol, no index/offset } { field name/type encoded in symbol, no index/offset }
result:=1; result:=1;
ref.base:=NR_NO; ref.base:=NR_NO;