diff options
author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-02-14 20:56:55 +0000 |
---|---|---|
committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-02-14 20:56:55 +0000 |
commit | 9a5fe27c019841e9d177dadd1fa464215b51107a (patch) | |
tree | 2edad52cfd4ceb77b127af8eb9d2692682908d71 /compiler/pdecsub.pas | |
parent | 4ef349a72759a71d17cfaba5d3f84cc4da5987f6 (diff) | |
download | fpc-9a5fe27c019841e9d177dadd1fa464215b51107a.tar.gz |
* do not allow constraints in headers of procedure implementations in delphi mode, resolves #36584
* better error message if a constraint is found at a wrong location
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@44174 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/pdecsub.pas')
-rw-r--r-- | compiler/pdecsub.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas index c6e1252f49..011677fc8e 100644 --- a/compiler/pdecsub.pas +++ b/compiler/pdecsub.pas @@ -664,7 +664,7 @@ implementation message(type_e_type_id_expected) else begin - genericparams:=parse_generic_parameters(true); + genericparams:=parse_generic_parameters(not(m_delphi in current_settings.modeswitches) or parse_only); if not assigned(genericparams) then internalerror(2015061201); if genericparams.count=0 then |