From 8fd0a27875abb2636a1388876f590a3a56d83b56 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 19 Aug 2019 20:22:22 +0000
Subject: [PATCH]  Avoid range check error for avr/i8086 CPU by changing local
 variable dist type to asizeuint

git-svn-id: trunk@42741 -
---
 compiler/ncgset.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/ncgset.pas b/compiler/ncgset.pas
index bfe6ef4d6e..2efffde854 100644
--- a/compiler/ncgset.pas
+++ b/compiler/ncgset.pas
@@ -1146,7 +1146,7 @@ implementation
       var
          oldflowcontrol: tflowcontrol;
          i : longint;
-         dist : aword;
+         dist : asizeuint;
          distv,
          lv,hv,
          max_label: tconstexprint;
@@ -1235,7 +1235,7 @@ implementation
                    if distv>=0 then
                      dist:=distv.uvalue
                    else
-                     dist:=aword(-distv.svalue);
+                     dist:=asizeuint(-distv.svalue);
 
                    { optimize for size ? }
                    if cs_opt_size in current_settings.optimizerswitches  then