paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 21:50:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* range check for array of const

Browse Source
This commit is contained in:
peter 1999-08-16 23:20:28 +00:00
parent b29395f75e
commit da93a8740e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cg386mem.pas
View File

@ -622,7 +622,8 @@ implementation
begin
if p^.left^.resulttype^.deftype=arraydef then
begin
if is_open_array(p^.left^.resulttype) then
if is_open_array(p^.left^.resulttype) or
is_array_of_const(p^.left^.resulttype) then
begin
reset_reference(href);
parraydef(p^.left^.resulttype)^.genrangecheck;
@ -849,7 +850,10 @@ implementation
end.
{
$Log$
Revision 1.50 1999-08-14 00:36:05 peter
Revision 1.51 1999-08-16 23:20:28 peter
* range check for array of const
Revision 1.50 1999/08/14 00:36:05 peter
* array constructor support
Revision 1.49 1999/08/04 00:22:53 florian