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

* pointer->array is allowed for all pointer types in FPC, fixed assign

Browse Source 
check for it.
This commit is contained in:
peter 1999-11-09 14:47:03 +00:00
parent 77ee838370
commit 7fc2e3bf91
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/htypechk.pas
View File

@ -747,10 +747,10 @@ implementation
begin begin
if hp^.resulttype^.deftype=pointerdef then if hp^.resulttype^.deftype=pointerdef then
gotpointer:=true; gotpointer:=true;
{ pchar -> array conversion is done then we need to see it { pointer -> array conversion is done then we need to see it
as a deref, because a ^ is then not required anymore } as a deref, because a ^ is then not required anymore }
if is_chararray(hp^.resulttype) and if (hp^.resulttype^.deftype=arraydef) and
is_pchar(hp^.left^.resulttype) then (hp^.left^.resulttype^.deftype=pointerdef) then
gotderef:=true; gotderef:=true;
hp:=hp^.left; hp:=hp^.left;
end; end;
@ -840,7 +840,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.47 1999-11-09 13:29:33 peter Revision 1.48 1999-11-09 14:47:03 peter
* pointer->array is allowed for all pointer types in FPC, fixed assign
check for it.
Revision 1.47 1999/11/09 13:29:33 peter
* valid_for_assign allow properties with calln * valid_for_assign allow properties with calln
Revision 1.46 1999/11/08 22:45:33 peter Revision 1.46 1999/11/08 22:45:33 peter