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

* fixed regvar bug in in-node code (regvar could be modified by

Browse Source 
"in" code)

git-svn-id: trunk@3191 -
This commit is contained in:
Jonas Maebe 2006-04-11 15:08:07 +00:00
parent 48370071d3
commit 0a10fac060
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgset.pas
View File

@ -302,9 +302,9 @@ implementation
if (left.location.loc = LOC_CREGISTER) and
(hr<>pleftreg) then
begin
cg.a_op_const_reg(current_asmdata.CurrAsmList,OP_SUB,opsize,setparts[i].start,pleftreg);
{ don't change this back to a_op_const_reg/a_load_reg_reg, since pleftreg must not be modified }
hr:=cg.getintregister(current_asmdata.CurrAsmList,opsize);
cg.a_load_reg_reg(current_asmdata.CurrAsmList,opsize,opsize,pleftreg,hr);
cg.a_op_const_reg_reg(current_asmdata.CurrAsmList,OP_SUB,opsize,setparts[i].start,pleftreg,hr);
pleftreg:=hr;
end
else