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

* also check for valid min/maxlabel range for jumptable in case

Browse Source 
of cs_opt_size

git-svn-id: trunk@8281 -
This commit is contained in:
Jonas Maebe 2007-08-14 13:58:56 +00:00
parent d0c832019c
commit 1c71bb36a1
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgset.pas
View File

@ -765,6 +765,8 @@ implementation
if cs_opt_size in current_settings.optimizerswitches then if cs_opt_size in current_settings.optimizerswitches then
begin begin
if has_jumptable and if has_jumptable and
(min_label>=int64(low(aint))) and
(max_label<=high(aint)) and
not((labelcnt<=2) or not((labelcnt<=2) or
((max_label-min_label)<0) or ((max_label-min_label)<0) or
((max_label-min_label)>3*labelcnt)) then ((max_label-min_label)>3*labelcnt)) then