From f1eb7b81306d0c41ddbfc856ecc65d8764d6db8e Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Sat, 6 Jul 2002 12:14:03 +0000
Subject: [PATCH] - Changes from Strasbourg

---
 rtl/objpas/sysstr.inc | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/rtl/objpas/sysstr.inc b/rtl/objpas/sysstr.inc
index e575035488..039d4211ed 100644
--- a/rtl/objpas/sysstr.inc
+++ b/rtl/objpas/sysstr.inc
@@ -883,6 +883,15 @@ begin
                 else
                   if CheckArg(vtPChar,false) then
                     hs:=Args[doarg].VPChar
+                else
+                  if CheckArg(vtPWideChar,false) then
+                    hs:=char(Args[doarg].VPWideChar^)
+                else
+                  if CheckArg(vtWideChar,false) then
+                    hs:=char(Args[doarg].VWideChar)
+                else
+                  if CheckArg(vtWidestring,false) then
+                    hs:=ansistring(Args[doarg].VWideString)
                 else
                   if CheckArg(vtAnsiString,true) then
                     hs:=ansistring(Args[doarg].VAnsiString);
@@ -1329,7 +1338,10 @@ const
 
 {
   $Log$
-  Revision 1.14  2002-01-24 12:33:53  jonas
+  Revision 1.15  2002-07-06 12:14:03  daniel
+  - Changes from Strasbourg
+
+  Revision 1.14  2002/01/24 12:33:53  jonas
     * adapted ranges of native types to int64 (e.g. high cardinal is no
       longer longint($ffffffff), but just $fffffff in psystem)
     * small additional fix in 64bit rangecheck code generation for 32 bit