* part of r15163, forgot to commit

git-svn-id: trunk@15164 -

compiler/ncal.pas

@@ -1777,6 +1777,8 @@ implementation
         srsymtable    : tsymtable;
         msgsendname   : string;
       begin
+        if not(m_objectivec1 in current_settings.modeswitches) then
+          Message(parser_f_modeswitch_objc_required);
         { typecheck pass must already have run on the call node,
           because pass1 calls this method
         }