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

Avoid internalerror 200203273 by handling LOC_CSUBSETREG and LOC_CSUBSETREF as LOC_SUBSETREG in tcgassignmentnode.pass_generate_code

Browse Source 
git-svn-id: trunk@46484 -
This commit is contained in:
pierre 2020-08-18 20:52:47 +00:00
parent 580e9e5169
commit a4cfade86b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgld.pas
View File

@ -1139,7 +1139,7 @@ implementation
cg.g_flags2ref(current_asmdata.CurrAsmList,left.location.size,right.location.resflags,left.location.reference); cg.g_flags2ref(current_asmdata.CurrAsmList,left.location.size,right.location.resflags,left.location.reference);
cg.a_reg_dealloc(current_asmdata.CurrAsmList,NR_DEFAULTFLAGS); cg.a_reg_dealloc(current_asmdata.CurrAsmList,NR_DEFAULTFLAGS);
end; end;
LOC_SUBSETREG,LOC_SUBSETREF: LOC_CSUBSETREG,LOC_CSUBSETREF,LOC_SUBSETREG,LOC_SUBSETREF:
begin begin
r:=cg.getintregister(current_asmdata.CurrAsmList,left.location.size); r:=cg.getintregister(current_asmdata.CurrAsmList,left.location.size);
cg.g_flags2reg(current_asmdata.CurrAsmList,left.location.size,right.location.resflags,r); cg.g_flags2reg(current_asmdata.CurrAsmList,left.location.size,right.location.resflags,r);