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

* allow passing records to C varargs (also allowed by C)

Browse Source 
git-svn-id: trunk@13595 -
This commit is contained in:
Jonas Maebe 2009-08-25 19:04:34 +00:00
parent 8864f510e0
commit 106c0673c0
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncnv.pas
View File

@ -612,6 +612,10 @@ implementation
variantdef: variantdef:
if iscvarargs then if iscvarargs then
CGMessagePos1(p.fileinfo,type_e_wrong_type_in_array_constructor,p.resultdef.typename); CGMessagePos1(p.fileinfo,type_e_wrong_type_in_array_constructor,p.resultdef.typename);
{ maybe warn in case it's not using "packrecords c"? }
recorddef:
if not iscvarargs then
CGMessagePos1(p.fileinfo,type_e_wrong_type_in_array_constructor,p.resultdef.typename);
pointerdef: pointerdef:
; ;
classrefdef: classrefdef: