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

+ variants are now assigned using fpc_variant_copy

Browse Source
This commit is contained in:
florian 2005-03-28 13:36:15 +00:00
parent 12283206d1
commit a680ccb389
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/nld.pas
View File

@ -681,6 +681,20 @@ implementation
right:=nil;
exit;
end;
{ call helpers for variant, they can contain non ref. counted types like
vararrays which must be really copied }
if left.resulttype.def.deftype=variantdef then
begin
hp:=ccallparanode.create(ctypeconvnode.create_internal(
caddrnode.create_internal(right),voidpointertype),
ccallparanode.create(ctypeconvnode.create_internal(
caddrnode.create_internal(left),voidpointertype),
nil));
result:=ccallnode.createintern('fpc_variant_copy',hp);
left:=nil;
right:=nil;
exit;
end;
{ check if local proc/func is assigned to procvar }
if right.resulttype.def.deftype=procvardef then
@ -1189,7 +1203,10 @@ begin
end.
{
$Log$
Revision 1.147 2005-03-25 22:20:19 peter
Revision 1.148 2005-03-28 13:36:15 florian
+ variants are now assigned using fpc_variant_copy
Revision 1.147 2005/03/25 22:20:19 peter
* add hint when passing an uninitialized variable to a var parameter
Revision 1.146 2005/03/18 16:41:27 peter