* cycling with $R+ fixed

git-svn-id: trunk@17600 -

compiler/nbas.pas

@@ -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                                    }

compiler/x86/cgx86.pas

@@ -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}