paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* properly rangecheck arrays after last changes

Browse Source 
git-svn-id: trunk@2655 -
This commit is contained in:
Jonas Maebe 2006-02-20 12:04:02 +00:00
parent 4b7f51b0aa
commit 914e2af9b0
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/cgobj.pas
View File

@ -1652,8 +1652,11 @@ implementation
begin
{ range checking on and range checkable value? }
if not(cs_check_range in aktlocalswitches) or
not(fromdef.deftype in [orddef,enumdef,arraydef]) then
not(fromdef.deftype in [orddef,enumdef]) then
exit;
{ check the rangetype of the array, not the array itself }
if (todef.deftype = arraydef) then
todef := tarraydef(todef).rangetype.def;
{$ifndef cpu64bit}
{ handle 64bit rangechecks separate for 32bit processors }
if is_64bit(fromdef) or is_64bit(todef) then
@ -1746,7 +1749,6 @@ implementation
{ fromdef and todef are both signed or unsigned, or that we leave }
{ the parts < 0 and > maxlongint out }
{ is_signed now also works for arrays (it checks the rangetype) (JM) }
if from_signed xor to_signed then
begin
if from_signed then