paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-25 01:51:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed copy support for array of char,pchar in $H+ mode

Browse Source 
* fixed copy support for pwidechar,array of widechar
This commit is contained in:
peter 2003-08-21 15:10:51 +00:00
parent b9afdc6a36
commit 4b44f9b557
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/pinline.pas
View File

@ -607,10 +607,16 @@ implementation
ppn:=tcallparanode(ppn.right); ppn:=tcallparanode(ppn.right);
end; end;
paradef:=ppn.left.resulttype.def; paradef:=ppn.left.resulttype.def;
if is_ansistring(paradef) then if is_ansistring(paradef) or
(is_chararray(paradef) and
(paradef.size>255)) or
((cs_ansistrings in aktlocalswitches) and
is_pchar(paradef)) then
copynode:=ccallnode.createintern('fpc_ansistr_copy',paras) copynode:=ccallnode.createintern('fpc_ansistr_copy',paras)
else else
if is_widestring(paradef) then if is_widestring(paradef) or
is_widechararray(paradef) or
is_pwidechar(paradef) then
copynode:=ccallnode.createintern('fpc_widestr_copy',paras) copynode:=ccallnode.createintern('fpc_widestr_copy',paras)
else else
if is_char(paradef) then if is_char(paradef) then
@ -679,7 +685,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.16 2003-08-10 17:25:23 peter Revision 1.17 2003-08-21 15:10:51 peter
* fixed copy support for array of char,pchar in $H+ mode
* fixed copy support for pwidechar,array of widechar
Revision 1.16 2003/08/10 17:25:23 peter
* fixed some reported bugs * fixed some reported bugs
Revision 1.15 2003/05/17 13:30:08 jonas Revision 1.15 2003/05/17 13:30:08 jonas