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

* fixed problem with explicit specified calling conventions for property symbols

Browse Source
This commit is contained in:
florian 2004-08-07 19:13:51 +00:00
parent 37a2ed983f
commit ed872a3600
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/pdecvar.pas
View File

@ -400,7 +400,10 @@ implementation
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,cpo_allowconvert]);
{ we ignore hidden stuff here because the property access symbol might have
non default calling conventions which might change the hidden stuff;
see tw3216.pp (FK) }
p.readaccess.procdef:=Tprocsym(sym).search_procdef_bypara(readprocdef.para,p.proptype.def,[cpo_allowdefaults,cpo_ignorehidden,cpo_allowconvert]);
if not assigned(p.readaccess.procdef) then
Message(parser_e_ill_property_access_sym);
end;
@ -1228,7 +1231,10 @@ implementation
end.
{
$Log$
Revision 1.76 2004-07-14 23:19:22 olle
Revision 1.77 2004-08-07 19:14:50 florian
* fixed problem with explicit specified calling conventions for property symbols
Revision 1.76 2004/07/14 23:19:22 olle
+ added external facilities for macpas
Revision 1.75 2004/06/20 08:55:30 florian

2
tests/webtbs/tw3216.pp
View File

@ -31,4 +31,4 @@ end;
begin
end.
end.