mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-09 22:06:08 +02:00
* stringconst+pchar returns a string
git-svn-id: trunk@1283 -
This commit is contained in:
parent
24a2153187
commit
2a6623a97f
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user