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

* if calling convention doesn't match don't print note about

Browse Source 
different manglednames
This commit is contained in:
peter 2000-02-27 14:44:39 +00:00
parent 66ea55dd7c
commit 50a4b4b4db
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/psub.pas
View File

@ -1238,6 +1238,9 @@ begin
begin
{ only trigger an error, becuase it doesn't hurt }
Message(parser_e_call_convention_dont_match_forward);
{ set the mangledname to the interface name so it doesn't trigger
the Note about different manglednames (PFV) }
aktprocsym^.definition^.setmangledname(hd^.mangledname);
end;
{ manglednames are equal? }
hd^.count:=false;
@ -1986,7 +1989,11 @@ end.
{
$Log$
Revision 1.50 2000-02-20 20:49:45 florian
Revision 1.51 2000-02-27 14:44:39 peter
* if calling convention doesn't match don't print note about
different manglednames
Revision 1.50 2000/02/20 20:49:45 florian
* newcg is compiling
* fixed the dup id problem reported by Paul Y.