paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-15 23:50:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* temp for dynarray copy needs to be typed

Browse Source
This commit is contained in:
peter 2004-11-01 10:32:27 +00:00
parent 91a00b5344
commit a66a2c855e
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/pinline.pas
View File

@ -717,10 +717,8 @@ implementation
lowppn:=cordconstnode.create(-1,s32inttype,false);
end;
{ create temp for result, we've to use a temp because a dynarray
type is handled differently from a pointer so we can't
use createinternres() and a function }
temp := ctempcreatenode.create(voidpointertype,voidpointertype.def.size,tt_persistent);
{ create typed temp for result so the temp is finalized }
temp := ctempcreatenode.create(ppn.left.resulttype,ppn.left.resulttype.def.size,tt_persistent);
addstatement(newstatement,temp);
{ create call to fpc_dynarray_copy }
@ -731,13 +729,13 @@ implementation
ccallparanode.create
(ctypeconvnode.create_explicit(ppn.left,voidpointertype),
ccallparanode.create
(ctemprefnode.create(temp),nil)))));
(ctypeconvnode.create_explicit(ctemprefnode.create(temp),voidpointertype),nil)))));
addstatement(newstatement,ccallnode.createintern('fpc_dynarray_copy',npara));
{ convert the temp to normal and return the reference to the
created temp, and convert the type of the temp to the dynarray type }
addstatement(newstatement,ctempdeletenode.create_normal_temp(temp));
addstatement(newstatement,ctypeconvnode.create_explicit(ctemprefnode.create(temp),ppn.left.resulttype));
addstatement(newstatement,ctemprefnode.create(temp));
ppn.left:=nil;
paras.free;
@ -756,7 +754,10 @@ implementation
end.
{
$Log$
Revision 1.33 2004-10-15 09:14:17 mazen
Revision 1.34 2004-11-01 10:32:27 peter
* temp for dynarray copy needs to be typed
Revision 1.33 2004/10/15 09:14:17 mazen
- remove $IFDEF DELPHI and related code
- remove $IFDEF FPCPROCVAR and related code