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

compiler: fix accidentally committed code in r20285

Browse Source 
git-svn-id: trunk@20347 -
This commit is contained in:
paul 2012-02-14 00:25:29 +00:00
parent b19b8badf9
commit 4d863aff03
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ptype.pas
View File

@ -652,8 +652,8 @@ implementation
end;
_CONSTRUCTOR :
begin
//if not is_classdef then
// Message(parser_e_no_constructor_in_records);
if not is_classdef then
Message(parser_e_no_constructor_in_records);
if not is_classdef and (current_structdef.symtable.currentvisibility <> vis_public) then
Message(parser_w_constructor_should_be_public);