paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 04:30:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed tw9039{a,b} for 64 bit platforms (qwordvar > int64var) is evaluated

Browse Source 
by the compiler as  (int64(qwordvar) > int64var), which broke the array
    size check for 64 platforms

git-svn-id: trunk@13388 -
This commit is contained in:
Jonas Maebe 2009-07-15 08:22:00 +00:00
parent 8832627178
commit 14107b42b2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symdef.pas
View File

@ -2366,7 +2366,7 @@ implementation
{ prevent overflow, return -1 to indicate overflow }
{ also make sure we don't need 64/128 bit arithmetic to calculate offsets }
if (cachedelecount > high(aint)) or
if (cachedelecount > aword(high(aint))) or
((high(aint) div cachedelesize) < aint(cachedelecount)) or
{ also lowrange*elesize must be < high(aint) to prevent overflow when
accessing the array, see ncgmem (PFV) }