paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 23:11:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* better size checking of data (now an error is returned for

Browse Source 
"array[longint] of longint") ("merged")
This commit is contained in:
Jonas Maebe 2001-10-15 13:16:26 +00:00
parent 6f2baf0fcf
commit 350a2ad8e3
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symdef.pas
View File

@ -2607,10 +2607,10 @@ implementation
internalerror(99080501); internalerror(99080501);
If (elesize>0) and If (elesize>0) and
( (
(highrange-lowrange = $7fffffff) or (int64(highrange)-int64(lowrange) >= $7fffffff) or
{ () are needed around elesize-1 to avoid a possible { () are needed around elesize-1 to avoid a possible
integer overflow for elesize=1 !! PM } integer overflow for elesize=1 !! PM }
(($7fffffff div elesize + (elesize -1)) < (highrange - lowrange)) (($7fffffff div elesize + (elesize -1)) < (int64(highrange) - int64(lowrange)))
) Then ) Then
Begin Begin
Message(sym_e_segment_too_large); Message(sym_e_segment_too_large);
@ -5420,7 +5420,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.51 2001-09-19 11:04:42 michael Revision 1.52 2001-10-15 13:16:26 jonas
* better size checking of data (now an error is returned for
"array[longint] of longint") ("merged")
Revision 1.51 2001/09/19 11:04:42 michael
* Smartlinking with interfaces fixed * Smartlinking with interfaces fixed
* Better smartlinking for rtti and init tables * Better smartlinking for rtti and init tables