paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 07:49:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* cycling with $R+ fixed

Browse Source 
git-svn-id: trunk@17600 -
This commit is contained in:
florian 2011-05-28 21:18:35 +00:00
parent 7c2f9c9677
commit 2005f6869b
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/nbas.pas
View File

@ -98,10 +98,10 @@ interface
ti_addr_taken,ti_executeinitialisation);
ttempinfoflags = set of ttempinfoflag;
const
const
tempinfostoreflags = [ti_may_be_in_reg,ti_addr_taken];
type
type
{ to allow access to the location by temp references even after the temp has }
{ already been disposed and to make sure the coherency between temps and }
{ temp references is kept after a getcopy }

2
compiler/x86/cgx86.pas
View File

@ -1406,7 +1406,7 @@ unit cgx86;
end
end
else
list.concat(taicpu.op_const_reg(TOpCG2AsmOp[op],TCgSize2OpSize[size],a,reg));
list.concat(taicpu.op_const_reg(TOpCG2AsmOp[op],TCgSize2OpSize[size],aint(a),reg));
OP_SHL,OP_SHR,OP_SAR,OP_ROL,OP_ROR:
begin
{$ifdef x86_64}