paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 15:29:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

- Changes from Strasbourg

Browse Source
This commit is contained in:
daniel 2002-07-06 12:14:03 +00:00
parent 21c3f60548
commit f1eb7b8130
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/objpas/sysstr.inc
View File

@ -883,6 +883,15 @@ begin
else else
if CheckArg(vtPChar,false) then if CheckArg(vtPChar,false) then
hs:=Args[doarg].VPChar hs:=Args[doarg].VPChar
else
if CheckArg(vtPWideChar,false) then
hs:=char(Args[doarg].VPWideChar^)
else
if CheckArg(vtWideChar,false) then
hs:=char(Args[doarg].VWideChar)
else
if CheckArg(vtWidestring,false) then
hs:=ansistring(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);
@ -1329,7 +1338,10 @@ const
{ {
$Log$ $Log$
Revision 1.14 2002-01-24 12:33:53 jonas Revision 1.15 2002-07-06 12:14:03 daniel
- Changes from Strasbourg
Revision 1.14 2002/01/24 12:33:53 jonas
* adapted ranges of native types to int64 (e.g. high cardinal is no * adapted ranges of native types to int64 (e.g. high cardinal is no
longer longint($ffffffff), but just $fffffff in psystem) longer longint($ffffffff), but just $fffffff in psystem)
* small additional fix in 64bit rangecheck code generation for 32 bit * small additional fix in 64bit rangecheck code generation for 32 bit