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

compiler: handle calling convention of record (class)constructors/destructors later as it is done with other record methods

Browse Source 
git-svn-id: trunk@23329 -
This commit is contained in:
paul 2013-01-06 17:04:28 +00:00
parent b55eb113a6
commit 1508fd427d
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/pdecobj.pas
View File

@ -70,13 +70,21 @@ implementation
begin begin
case astruct.typ of case astruct.typ of
recorddef: recorddef:
parse_record_proc_directives(pd); begin
parse_record_proc_directives(pd);
// we can't add hidden params here because record is not yet defined
// and therefore record size which has influence on paramter passing rules may change too
// look at record_dec to see where calling conventions are applied (issue #0021044)
handle_calling_convention(pd,[hcc_check]);
end;
objectdef: objectdef:
parse_object_proc_directives(pd); begin
parse_object_proc_directives(pd);
handle_calling_convention(pd);
end
else else
internalerror(2011040502); internalerror(2011040502);
end; end;
handle_calling_convention(pd);
{ add definition to procsym } { add definition to procsym }
proc_add_definition(pd); proc_add_definition(pd);