paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 03:00:58 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed pchar and deref detection for assigning

Browse Source
This commit is contained in:
peter 1999-11-04 23:11:21 +00:00
parent f17c81bda2
commit aa295af911
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/htypechk.pas
View File

@ -61,7 +61,7 @@ implementation
globtype,systems,tokens, globtype,systems,tokens,
cobjects,verbose,globals, cobjects,verbose,globals,
symconst, symconst,
types, types,pass_1,
{$ifdef newcg} {$ifdef newcg}
cgbase cgbase
{$else} {$else}
@ -741,9 +741,17 @@ implementation
gotderef:=true; gotderef:=true;
hp:=hp^.left; hp:=hp^.left;
end; end;
typeconvn, typeconvn :
asn, begin
{ pchar -> array conversion is done then we need to see it
as a deref, because a ^ is then not required anymore }
if is_chararray(hp^.resulttype) and
is_pchar(hp^.left^.resulttype) then
gotderef:=true;
hp:=hp^.left;
end;
vecn, vecn,
asn,
subscriptn : subscriptn :
hp:=hp^.left; hp:=hp^.left;
subn, subn,
@ -826,7 +834,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.43 1999-10-27 16:04:45 peter Revision 1.44 1999-11-04 23:11:21 peter
* fixed pchar and deref detection for assigning
Revision 1.43 1999/10/27 16:04:45 peter
* valid_for_assign support for calln,asn * valid_for_assign support for calln,asn
Revision 1.42 1999/10/26 12:30:41 peter Revision 1.42 1999/10/26 12:30:41 peter