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

* pchar +/- <array of char> is allowed as well

Browse Source 
git-svn-id: trunk@1277 -
This commit is contained in:
florian 2005-10-03 21:15:18 +00:00
parent 1102cc2b95
commit c1f1424640
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/nadd.pas
View File

@ -1089,9 +1089,9 @@ implementation
else if (
(rd.deftype=pointerdef) and (ld.deftype=pointerdef)
) or
{ compare pchar to char arrays by addresses like BP/Delphi }
{ compare/add pchar to char arrays by addresses like BP/Delphi }
(
(nodetype in [equaln,unequaln]) and
(nodetype in [equaln,unequaln,subn,addn]) and
(
((is_pchar(ld) or (lt=niln)) and is_chararray(rd)) or
((is_pchar(rd) or (rt=niln)) and is_chararray(ld))