From 1b1fe68f92f7df02e308e1865d2e91e7621a77cf Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 5 Jan 2017 13:41:44 +0000
Subject: [PATCH]  Fix aarch64 cycle after constant parser simplification
 change in rev 35229-35230

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

diff --git a/compiler/aarch64/cgcpu.pas b/compiler/aarch64/cgcpu.pas
index e0c9d724c8..8112f6a4ca 100644
--- a/compiler/aarch64/cgcpu.pas
+++ b/compiler/aarch64/cgcpu.pas
@@ -586,7 +586,7 @@ implementation
       begin
         { if we load a value into a 32 bit register, it is automatically
           zero-extended to 64 bit }
-        if (high(a)=0) and
+        if (hi(a)=0) and
            (size in [OS_64,OS_S64]) then
           begin
             size:=OS_32;