paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 02:28:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Widestring->PWidechar requires a typecast

Browse Source
This commit is contained in:
peter 2002-11-22 16:30:05 +00:00
parent bd484276cd
commit 11d5367e01
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/varutils.inc
View File

@ -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