diff --git a/compiler/ncgset.pas b/compiler/ncgset.pas
index 4351f292bd..7c8e5cdc29 100644
--- a/compiler/ncgset.pas
+++ b/compiler/ncgset.pas
@@ -959,7 +959,7 @@ implementation
 
       var
         nextarrayentry : int64;
-        i : aint;
+        i : longint;
 
       procedure addarrayentry(entry : pcaselabel);
         begin