From 11d5367e01aa2368d63f86b4c5dad1bb8b8e42bb Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 22 Nov 2002 16:30:05 +0000
Subject: [PATCH] * Widestring->PWidechar requires a typecast
---
rtl/objpas/varutils.inc | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/rtl/objpas/varutils.inc b/rtl/objpas/varutils.inc
index cb429affd4..73d6a1adcb 100644
--- a/rtl/objpas/varutils.inc
+++ b/rtl/objpas/varutils.inc
@@ -33,13 +33,13 @@ end;
Procedure MakeWideString (Var P : PWideChar; W : WideString);
begin
- P:=W;
+ P:=PWideChar(W);
end;
Procedure CopyAsWideString (Var PDest : PWideChar; PSource : PWideChar);
begin
- PDest:=WideString(PSource);
+ PDest:=PWideChar(WideString(PSource));
end;
{ ---------------------------------------------------------------------
@@ -709,7 +709,10 @@ end;
{$endif HASVARIANT}
{
$Log$
- Revision 1.9 2002-10-11 12:21:55 florian
+ Revision 1.10 2002-11-22 16:30:05 peter
+ * Widestring->PWidechar requires a typecast
+
+ Revision 1.9 2002/10/11 12:21:55 florian
* fixes for new widestring handling
Revision 1.8 2002/09/07 16:01:23 peter