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

+ Added support for deprecated after function/procedures

Browse Source
This commit is contained in:
michael 2004-04-15 22:15:57 +00:00
parent eb5d730d99
commit 5603092308
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/passrc/pparser.pp
View File

@ -1317,6 +1317,10 @@ begin
begin begin
{ El['calling-conv'] := 'stdcall';} { El['calling-conv'] := 'stdcall';}
ExpectToken(tkSemicolon); ExpectToken(tkSemicolon);
end else if (CurToken = tkIdentifier) and (UpperCase(CurTokenString) = 'DEPRECATED') then
begin
{ El['calling-conv'] := 'cdecl';}
ExpectToken(tkSemicolon);
end else if (CurToken = tkIdentifier) and (UpperCase(CurTokenString) = 'EXTERNAL') then end else if (CurToken = tkIdentifier) and (UpperCase(CurTokenString) = 'EXTERNAL') then
begin begin
repeat repeat
@ -1812,7 +1816,10 @@ end.
{ {
$Log$ $Log$
Revision 1.4 2003-11-22 12:14:14 sg Revision 1.5 2004-04-15 22:15:57 michael
+ Added support for deprecated after function/procedures
Revision 1.4 2003/11/22 12:14:14 sg
* Added support for source line number information * Added support for source line number information
Revision 1.3 2003/06/24 12:59:07 michael Revision 1.3 2003/06/24 12:59:07 michael