paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 11:24:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid range check error for avr/i8086 CPU by changing local variable dist type to asizeuint

Browse Source 
git-svn-id: trunk@42741 -
This commit is contained in:
pierre 2019-08-19 20:22:22 +00:00
parent 687554f4ec
commit 8fd0a27875
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgset.pas
View File

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