paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-23 15:09:27 +01: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 not(is_void(rettype.def)) then
s:=s+':'+rettype.def.gettypename; s:=s+':'+rettype.def.gettypename;
end; end;
{ forced calling convention? }
if (po_hascallingconvention in procoptions) then
s:=s+';'+ProcCallOptionStr[proccalloption];
fullprocname:=s; fullprocname:=s;
end; end;
@ -4082,7 +4085,7 @@ implementation
function tprocdef.gettypename : string; function tprocdef.gettypename : string;
begin begin
gettypename := FullProcName(false)+';'+ProcCallOptionStr[proccalloption]; gettypename := FullProcName(false);
end; end;
@ -5915,7 +5918,10 @@ implementation
end. end.
{ {
$Log$ $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.def renamed to tsymlist.procdef
* tsymlist.procdef is now only used to store the procdef * tsymlist.procdef is now only used to store the procdef