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

* Add calling convention in fullprocname when it is specified

Browse Source
This commit is contained in:
peter 2003-10-07 20:43:49 +00:00
parent 4c9c767687
commit c56c47fbc0
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symdef.pas
View File

@ -3705,6 +3705,9 @@ implementation
not(is_void(rettype.def)) then
s:=s+':'+rettype.def.gettypename;
end;
{ forced calling convention? }
if (po_hascallingconvention in procoptions) then
s:=s+';'+ProcCallOptionStr[proccalloption];
fullprocname:=s;
end;
@ -4082,7 +4085,7 @@ implementation
function tprocdef.gettypename : string;
begin
gettypename := FullProcName(false)+';'+ProcCallOptionStr[proccalloption];
gettypename := FullProcName(false);
end;
@ -5915,7 +5918,10 @@ implementation
end.
{
$Log$
Revision 1.174 2003-10-07 16:06:30 peter
Revision 1.175 2003-10-07 20:43:49 peter
* Add calling convention in fullprocname when it is specified
Revision 1.174 2003/10/07 16:06:30 peter
* tsymlist.def renamed to tsymlist.procdef
* tsymlist.procdef is now only used to store the procdef