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

Avoid range check error inside tcgcasenode.pass_generate_code method

Browse Source
This commit is contained in:
Pierre Muller 2022-01-05 16:38:54 +00:00
parent 86c097086a
commit c06a3f2ca3
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

@ -1251,9 +1251,9 @@ implementation
distv:=max_label-min_label; distv:=max_label-min_label;
if distv>=0 then if distv>=0 then
dist:=distv.uvalue dist:=min(distv.uvalue,high(dist))
else else
dist:=asizeuint(-distv.svalue); dist:=min(asizeuint(-distv.svalue),high(dist));
{ optimize for size ? } { optimize for size ? }
if cs_opt_size in current_settings.optimizerswitches then if cs_opt_size in current_settings.optimizerswitches then