paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-19 11:49:34 +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 hs:=Args[doarg].VPChar
else else
if CheckArg(vtPWideChar,false) then if CheckArg(vtPWideChar,false) then
hs:=char(Args[doarg].VPWideChar^) hs:=Args[doarg].VPWideChar
else else
if CheckArg(vtWideChar,false) then if CheckArg(vtWideChar,false) then
hs:=char(Args[doarg].VWideChar) hs:=Args[doarg].VWideChar
else else
if CheckArg(vtWidestring,false) then if CheckArg(vtWidestring,false) then
hs:=ansistring(Args[doarg].VWideString) hs:=WideString(Args[doarg].VWideString)
else else
if CheckArg(vtAnsiString,true) then if CheckArg(vtAnsiString,true) then
hs:=ansistring(Args[doarg].VAnsiString); hs:=ansistring(Args[doarg].VAnsiString);
@ -2234,7 +2234,10 @@ const
{ {
$Log$ $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 * fixed little 1.0.xism
Revision 1.19 2004/11/21 19:33:20 marco Revision 1.19 2004/11/21 19:33:20 marco