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

* fpc_variant_get call fixed

Browse Source
This commit is contained in:
florian 2005-03-28 14:14:52 +00:00
parent e876a77383
commit 10df6ea0a2
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/pexpr.pas
View File

@ -1621,12 +1621,8 @@ implementation
(ctemprefnode.create(temp)),
ccallparanode.create(p1,
ccallparanode.create(
ctypeconvnode.create_internal(
cderefnode.create(
ctypeconvnode.create_internal(ctemprefnode.create(temp),voidpointertype
)
),cvarianttype),
nil))));
ctemprefnode.create(tempresultvariant)
,nil))));
addstatement(newstatement,ccallnode.createintern('fpc_vararray_get',paras));
addstatement(newstatement,ctempdeletenode.create(temp));
@ -2623,7 +2619,10 @@ implementation
end.
{
$Log$
Revision 1.187 2005-03-27 20:19:21 florian
Revision 1.188 2005-03-28 14:14:52 florian
* fpc_variant_get call fixed
Revision 1.187 2005/03/27 20:19:21 florian
+ compiler support for reading/writing of vararrays
Revision 1.186 2005/03/25 22:20:19 peter