paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 22:14:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix IE with array of const in array of conts

Browse Source
This commit is contained in:
peter 2005-02-11 16:25:26 +00:00
parent a85e9e6485
commit d4be793575
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/nld.pas
View File

@ -897,8 +897,14 @@ implementation
hp:=tarrayconstructornode(hp.right); hp:=tarrayconstructornode(hp.right);
end; end;
end; end;
if not assigned(htype.def) then { Set the type of empty or varia arrays to void. Also
htype:=voidtype; do this if the type is array of const/open array
because those can't be used with setelementtype }
if not assigned(htype.def) or
varia or
is_array_of_const(htype.def) or
is_open_array(htype.def) then
htype:=voidtype;
resulttype.setdef(tarraydef.create(0,len-1,s32inttype)); resulttype.setdef(tarraydef.create(0,len-1,s32inttype));
tarraydef(resulttype.def).setelementtype(htype); tarraydef(resulttype.def).setelementtype(htype);
tarraydef(resulttype.def).IsConstructor:=true; tarraydef(resulttype.def).IsConstructor:=true;
@ -1181,7 +1187,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.143 2005-01-23 17:14:21 florian Revision 1.144 2005-02-11 16:25:26 peter
* fix IE with array of const in array of conts
Revision 1.143 2005/01/23 17:14:21 florian
+ optimized code generation on sparc + optimized code generation on sparc
+ some stuff for pic code on sparc added + some stuff for pic code on sparc added