paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-31 06:22:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes for new widestring handling

Browse Source
This commit is contained in:
florian 2002-10-11 12:21:55 +00:00
parent 431777f64d
commit b1cbfd4c5c
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/objpas/varutils.inc
View File

@ -33,15 +33,13 @@ end;
Procedure MakeWideString (Var P : PWideChar; W : WideString);
begin
WideString(Pointer(P)):=W;
UniqueString(WideString(P));
P:=W;
end;
Procedure CopyAsWideString (Var PDest : PWideChar; PSource : PWideChar);
begin
WideString(Pointer(PDest)):=WideString(Pointer(PSource));
UniqueString(WideString(PDest));
PDest:=WideString(PSource);
end;
{ ---------------------------------------------------------------------
@ -711,7 +709,10 @@ end;
{$endif HASVARIANT}
{
$Log$
Revision 1.8 2002-09-07 16:01:23 peter
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
* old logs removed and tabs fixed
}