From 521c608ecefde28b025c03316a9b02dfe0bf72f5 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 17 Dec 2001 23:16:05 +0000
Subject: [PATCH]   * array of const can now take widestring parameters as well

---
 compiler/i386/n386ld.pas | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/compiler/i386/n386ld.pas b/compiler/i386/n386ld.pas
index b9e474c35c..d70d87967b 100644
--- a/compiler/i386/n386ld.pas
+++ b/compiler/i386/n386ld.pas
@@ -1000,6 +1000,12 @@ implementation
                          begin
                            vtype:=vtAnsiString;
                            freetemp:=false;
+                         end
+                       else
+                        if is_widestring(lt) then
+                         begin
+                           vtype:=vtWideString;
+                           freetemp:=false;
                          end;
                      end;
                  end;
@@ -1085,7 +1091,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.26  2001-11-02 22:58:11  peter
+  Revision 1.27  2001-12-17 23:16:05  florian
+    * array of const can now take widestring parameters as well
+
+  Revision 1.26  2001/11/02 22:58:11  peter
     * procsym definition rewrite
 
   Revision 1.25  2001/10/28 17:22:25  peter