paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-07 04:59:26 +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); Procedure MakeWideString (Var P : PWideChar; W : WideString);
begin begin
WideString(Pointer(P)):=W; P:=W;
UniqueString(WideString(P));
end; end;
Procedure CopyAsWideString (Var PDest : PWideChar; PSource : PWideChar); Procedure CopyAsWideString (Var PDest : PWideChar; PSource : PWideChar);
begin begin
WideString(Pointer(PDest)):=WideString(Pointer(PSource)); PDest:=WideString(PSource);
UniqueString(WideString(PDest));
end; end;
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
@ -711,7 +709,10 @@ end;
{$endif HASVARIANT} {$endif HASVARIANT}
{ {
$Log$ $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 * old logs removed and tabs fixed
} }