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

* allow nil initialization of dynamic array

Browse Source
This commit is contained in:
peter 2003-03-17 21:42:32 +00:00
parent 5e45fbb32e
commit 4be7d9ddeb
1 changed files with 21 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
compiler/ptconst.pas
View File

@ -620,17 +620,16 @@ implementation
end;
arraydef:
begin
if token=_LKLAMMER then
if try_to_consume(_LKLAMMER) then
begin
consume(_LKLAMMER);
for l:=tarraydef(t.def).lowrange to tarraydef(t.def).highrange-1 do
begin
readtypedconst(tarraydef(t.def).elementtype,nil,writable);
consume(_COMMA);
end;
readtypedconst(tarraydef(t.def).elementtype,nil,writable);
consume(_RKLAMMER);
end
for l:=tarraydef(t.def).lowrange to tarraydef(t.def).highrange-1 do
begin
readtypedconst(tarraydef(t.def).elementtype,nil,writable);
consume(_COMMA);
end;
readtypedconst(tarraydef(t.def).elementtype,nil,writable);
consume(_RKLAMMER);
end
else
{ if array of char then we allow also a string }
if is_char(tarraydef(t.def).elementtype.def) then
@ -672,6 +671,14 @@ implementation
end;
p.free;
end
else
{ dynamic array nil }
if is_dynamic_array(t.def) then
begin
{ Only allow nil initialization }
consume(_NIL);
curconstSegment.concat(Tai_const.Create_32bit(0));
end
else
begin
{ we want the ( }
@ -988,7 +995,10 @@ implementation
end.
{
$Log$
Revision 1.64 2003-01-02 20:45:08 peter
Revision 1.65 2003-03-17 21:42:32 peter
* allow nil initialization of dynamic array
Revision 1.64 2003/01/02 20:45:08 peter
* fix uninited var
Revision 1.63 2002/12/26 12:34:54 florian