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

Amend commit 46484: Do not accept LOC_CSUBSETREF location type as this represents read-only memory region which should never be modified

Browse Source 
git-svn-id: trunk@46487 -
This commit is contained in:
pierre 2020-08-18 21:58:19 +00:00
parent b267f6fcb3
commit 5d6d47bad1
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_CSUBSETREG,LOC_CSUBSETREF,LOC_SUBSETREG,LOC_SUBSETREF: LOC_CSUBSETREG,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);