paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 01:19:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Fix from Alexey Barkovoy for bug #3302

Browse Source
This commit is contained in:
michael 2004-11-30 20:56:27 +00:00
parent 5ee6daf1bf
commit 9eb3c1ced6
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/objpas/sysutils/sysstr.inc
View File

@ -1040,13 +1040,13 @@ begin
hs:=Args[doarg].VPChar
else
if CheckArg(vtPWideChar,false) then
hs:=char(Args[doarg].VPWideChar^)
hs:=Args[doarg].VPWideChar
else
if CheckArg(vtWideChar,false) then
hs:=char(Args[doarg].VWideChar)
hs:=Args[doarg].VWideChar
else
if CheckArg(vtWidestring,false) then
hs:=ansistring(Args[doarg].VWideString)
hs:=WideString(Args[doarg].VWideString)
else
if CheckArg(vtAnsiString,true) then
hs:=ansistring(Args[doarg].VAnsiString);
@ -2234,7 +2234,10 @@ const
{
$Log$
Revision 1.20 2004-11-22 05:53:44 marco
Revision 1.21 2004-11-30 20:56:27 michael
+ Fix from Alexey Barkovoy for bug 3302
Revision 1.20 2004/11/22 05:53:44 marco
* fixed little 1.0.xism
Revision 1.19 2004/11/21 19:33:20 marco