Browse Source

merge r14140 from cpstrnew branch by paul:
prefer exact string const matches

git-svn-id: trunk@19096 -

paul 14 years ago
parent
commit
8f3f583199
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/defcmp.pas

+ 1 - 1
compiler/defcmp.pas

@@ -346,7 +346,7 @@ implementation
                            else if tstringdef(def_to).stringtype in [st_widestring,st_unicodestring] then
                            else if tstringdef(def_to).stringtype in [st_widestring,st_unicodestring] then
                              eq:=te_convert_l2
                              eq:=te_convert_l2
                            else
                            else
-                             eq:=te_equal;
+                             eq:=te_convert_l1;
                          end;
                          end;
                       end
                       end
                      else
                      else