paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-07 13:40:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

fpc: allow hint directives between other procedure directives in Delphi mode (issue #25101)

Browse Source 
git-svn-id: trunk@25710 -
This commit is contained in:
paul 2013-10-07 10:59:53 +00:00
parent 4bdf29795c
commit 912384594b
3 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -13607,6 +13607,7 @@ tests/webtbs/tw25054b.pp svneol=native#text/pascal
tests/webtbs/tw25059.pp svneol=native#text/pascal
tests/webtbs/tw25077.pp svneol=native#text/pascal
tests/webtbs/tw25081.pp svneol=native#text/pascal
tests/webtbs/tw25101.pp svneol=native#text/pascal
tests/webtbs/tw2514.pp svneol=native#text/plain
tests/webtbs/tw2525.pp svneol=native#text/plain
tests/webtbs/tw2536.pp svneol=native#text/plain

5
compiler/pdecsub.pas
View File

@ -2483,7 +2483,10 @@ const
_UNIMPLEMENTED,
_EXPERIMENTAL,
_DEPRECATED :
exit;
if (pd.typ=procdef) and (m_delphi in current_settings.modeswitches) then
maybe_parse_hint_directives(tprocdef(pd))
else
exit;
end;
end;

14
tests/webtbs/tw25101.pp Normal file
View File

@ -0,0 +1,14 @@
program tw25101.pp;
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
type
TTest = class(TObject)
public
procedure Test(); virtual; deprecated 'Do not use this method'; abstract;
end;
begin
end.