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

* fixed overflow

Browse Source 
git-svn-id: trunk@8577 -
This commit is contained in:
peter 2007-09-20 20:23:26 +00:00
parent c806f3e494
commit eb7aedc285
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/ncgset.pas
View File

@ -126,6 +126,7 @@ implementation
i:byte;
begin
analizeset:=false;
fillchar(setparts,sizeof(setparts),0);
numparts:=0;
compares:=0;
{ Lots of comparisions take a lot of time, so do not allow
@ -663,6 +664,7 @@ implementation
var
oldflowcontrol: tflowcontrol;
i : longint;
distv,
lv,hv,
max_label: tconstexprint;
labelcnt : aint;
@ -761,14 +763,10 @@ implementation
{ than the positive range of a aint }
if (min_label<0) and (max_label>0) then
begin
if min_label=TConstExprInt(int64(low(aint))) then
dist:=aword(max_label.uvalue)+aword(low(aint))
else
dist:=aword(max_label.uvalue)+aword(-min_label.svalue)
end
distv:=max_label+min_label
else
dist:=max_label.uvalue-min_label.uvalue;
distv:=max_label-min_label;
dist:=distv.uvalue;
{ optimize for size ? }
if cs_opt_size in current_settings.optimizerswitches then