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

* stringconst+pchar returns a string

Browse Source 
git-svn-id: trunk@1283 -
This commit is contained in:
peter 2005-10-04 11:45:26 +00:00
parent 24a2153187
commit 2a6623a97f
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/nadd.pas
View File

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