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

* ugly hack to fix tb0411

Browse Source
This commit is contained in:
peter 2002-10-07 20:12:08 +00:00
parent 05a3b8c136
commit 34dd718c80
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/htypechk.pas
View File

@ -695,6 +695,7 @@ implementation
gotwith,
gotsubscript,
gotpointer,
gotvec,
gotclass,
gotderef : boolean;
fromdef,
@ -702,6 +703,7 @@ implementation
begin
valid_for_assign:=false;
gotsubscript:=false;
gotvec:=false;
gotderef:=false;
gotclass:=false;
gotpointer:=false;
@ -790,7 +792,11 @@ implementation
end;
hp:=ttypeconvnode(hp).left;
end;
vecn,
vecn :
begin
gotvec:=true;
hp:=tunarynode(hp).left;
end;
asn :
hp:=tunarynode(hp).left;
subscriptn :
@ -834,6 +840,17 @@ implementation
begin
{ check return type }
case hp.resulttype.def.deftype of
arraydef :
begin
{ dynamic arrays are allowed when there is also a
vec node }
if is_dynamic_array(hp.resulttype.def) and
gotvec then
begin
gotderef:=true;
gotpointer:=true;
end;
end;
pointerdef :
gotpointer:=true;
objectdef :
@ -958,7 +975,10 @@ implementation
end.
{
$Log$
Revision 1.49 2002-10-05 00:47:03 peter
Revision 1.50 2002-10-07 20:12:08 peter
* ugly hack to fix tb0411
Revision 1.49 2002/10/05 00:47:03 peter
* support dynamicarray<>nil
Revision 1.48 2002/10/04 21:13:59 peter