From 4a730bd053c076acc89f8163176bf843f92dc1f3 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 19 May 2012 14:39:29 +0000
Subject: [PATCH]   * fixed source type for location_force_register() when
 loading second     parameter of inc/dec into a register

git-svn-id: trunk@21338 -
---
 compiler/ncginl.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/ncginl.pas b/compiler/ncginl.pas
index 1492082a15..cfdcb480f4 100644
--- a/compiler/ncginl.pas
+++ b/compiler/ncginl.pas
@@ -455,7 +455,7 @@ implementation
                  addvalue:=addvalue*tpointerconstnode(tcallparanode(tcallparanode(left).right).left).value
               else
                 begin
-                  hlcg.location_force_reg(current_asmdata.CurrAsmList,tcallparanode(tcallparanode(left).right).left.location,left.resultdef,left.resultdef,addvalue<=1);
+                  hlcg.location_force_reg(current_asmdata.CurrAsmList,tcallparanode(tcallparanode(left).right).left.location,tcallparanode(tcallparanode(left).right).left.resultdef,left.resultdef,addvalue<=1);
                   hregister:=tcallparanode(tcallparanode(left).right).left.location.register;
 {$ifndef cpu64bitalu}
                   hregisterhi:=tcallparanode(tcallparanode(left).right).left.location.register64.reghi;