diff options
author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-05-27 15:24:55 +0000 |
---|---|---|
committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-05-27 15:24:55 +0000 |
commit | 1d762a1d5092abe7c8a119d91ba74113592c3ea4 (patch) | |
tree | 8afc0961539fbcaee0738faf684dfbf7cf6c0226 /compiler/pdecvar.pas | |
parent | d4a2159d52d1255191e9c40a84fc075eadc3317a (diff) | |
download | fpc-1d762a1d5092abe7c8a119d91ba74113592c3ea4.tar.gz |
* fixed error msg (that->this)
* array properties can be published in delphi mode though it makes no sense to publish them because they can't be streamed
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@3694 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/pdecvar.pas')
-rw-r--r-- | compiler/pdecvar.pas | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/pdecvar.pas b/compiler/pdecvar.pas index 4e17a09372..17aec59898 100644 --- a/compiler/pdecvar.pas +++ b/compiler/pdecvar.pas @@ -248,7 +248,8 @@ implementation { property parameters ? } if try_to_consume(_LECKKLAMMER) then begin - if (sp_published in current_object_option) then + if (sp_published in current_object_option) and + not (m_delphi in aktmodeswitches) then Message(parser_e_cant_publish_that_property); { create a list of the parameters } symtablestack.push(readprocdef.parast); |