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

* missing handle_calling_convention()

Browse Source
This commit is contained in:
peter 2003-12-04 23:27:49 +00:00
parent 1407a03ff1
commit d2cca3fe56
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pdecobj.pas
View File

@ -385,6 +385,7 @@ implementation
{ read is function returning the type of the property }
readprocdef.rettype:=p.proptype;
{ Insert hidden parameters }
handle_calling_convention(readprocdef);
calc_parast(readprocdef);
{ search procdefs matching readprocdef }
p.readaccess.procdef:=Tprocsym(sym).search_procdef_bypara(readprocdef.para,p.proptype.def,[cpo_allowdefaults]);
@ -429,6 +430,7 @@ implementation
writeprocdef.parast.insert(hvs);
writeprocdef.concatpara(nil,p.proptype,hvs,nil,false);
{ Insert hidden parameters }
handle_calling_convention(writeprocdef);
calc_parast(writeprocdef);
{ search procdefs matching writeprocdef }
p.writeaccess.procdef:=Tprocsym(sym).search_procdef_bypara(writeprocdef.para,writeprocdef.rettype.def,[cpo_allowdefaults]);
@ -1160,7 +1162,10 @@ implementation
end.
{
$Log$
Revision 1.73 2003-11-10 18:06:25 florian
Revision 1.74 2003-12-04 23:27:49 peter
* missing handle_calling_convention()
Revision 1.73 2003/11/10 18:06:25 florian
+ published single properties can have a default value now
Revision 1.72 2003/10/30 16:23:13 peter