Browse Source

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

git-svn-id: trunk@1277 -
florian 20 years ago
parent
commit
c1f1424640
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/nadd.pas

+ 2 - 2
compiler/nadd.pas

@@ -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))