* fix default parameter compare for widestring

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@982 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 7 insertions, 1 deletions

diff --git a/compiler/symutil.pas b/compiler/symutil.pas
index fb28a90c02..6e9c87b1a8 100644
--- a/compiler/symutil.pas
+++ b/compiler/symutil.pas
@@ -41,7 +41,7 @@ implementation
 
     uses
        globtype,cpuinfo,procinfo,
-       symconst;
+       symconst,widestr;
 
 
     function is_funcret_sym(p:tsymentry):boolean;
@@ -89,6 +89,12 @@ implementation
                    equal_constsym:=true;
                 end;
              end;
+           constwstring :
+             begin
+               if (sym1.value.len=sym2.value.len) and
+                  (comparewidestrings(sym1.value.valueptr,sym2.value.valueptr)=0) then
+                 equal_constsym:=true;
+             end;
            constreal :
              equal_constsym:=(pbestreal(sym1.value.valueptr)^=pbestreal(sym2.value.valueptr)^);
            constset :