diff --git a/compiler/ptype.pas b/compiler/ptype.pas index f3ae1f0be1..5df541e436 100644 --- a/compiler/ptype.pas +++ b/compiler/ptype.pas @@ -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);