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

* calling convention fix

Browse Source
This commit is contained in:
peter 2003-09-09 15:54:10 +00:00
parent f495796796
commit 0a8bddc756
2 changed files with 23 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/pdecsub.pas
View File

@ -1573,13 +1573,14 @@ const
{ set calling convention }
if proc_direcdata[p].pocall<>pocall_none then
begin
if pd.proccalloption<>pocall_none then
if (po_hascallingconvention in pd.procoptions) then
begin
Message2(parser_w_proc_overriding_calling,
proccalloptionStr[pd.proccalloption],
proccalloptionStr[proc_direcdata[p].pocall]);
end;
pd.proccalloption:=proc_direcdata[p].pocall;
include(pd.procoptions,po_hascallingconvention);
end;
{ check if method and directive not for object, like public.
@ -1640,9 +1641,15 @@ const
procedure handle_calling_convention(pd:tabstractprocdef);
begin
{ set the default calling convention }
if pd.proccalloption=pocall_none then
pd.proccalloption:=aktdefproccall;
{ set the default calling convention if none provided }
if not(po_hascallingconvention in pd.procoptions) then
pd.proccalloption:=aktdefproccall
else
begin
if pd.proccalloption=pocall_none then
internalerror(200309081);
end;
{ handle proccall specific settings }
case pd.proccalloption of
pocall_cdecl :
@ -1970,10 +1977,10 @@ const
part }
if (m_delphi in aktmodeswitches) then
begin
if (pd.proccalloption=pocall_none) then
if not(po_hascallingconvention in pd.procoptions) then
pd.proccalloption:=hd.proccalloption
else
if (hd.proccalloption=pocall_none) then
if not(po_hascallingconvention in hd.procoptions) then
hd.proccalloption:=pd.proccalloption
else
begin
@ -2141,7 +2148,10 @@ const
end.
{
$Log$
Revision 1.131 2003-09-07 22:09:35 peter
Revision 1.132 2003-09-09 15:54:10 peter
* calling convention fix
Revision 1.131 2003/09/07 22:09:35 peter
* preparations for different default calling conventions
* various RA fixes

8
compiler/symconst.pas
View File

@ -201,7 +201,8 @@ type
po_varargs, { printf like arguments }
po_internconst, { procedure has constant evaluator intern }
po_addressonly, { flag that only the address of a method is returned and not a full methodpointer }
po_public { procedure is exported }
po_public, { procedure is exported }
po_hascallingconvention { calling convention is specified explicitly }
);
tprocoptions=set of tprocoption;
@ -372,7 +373,10 @@ implementation
end.
{
$Log$
Revision 1.61 2003-09-07 22:09:35 peter
Revision 1.62 2003-09-09 15:54:10 peter
* calling convention fix
Revision 1.61 2003/09/07 22:09:35 peter
* preparations for different default calling conventions
* various RA fixes