From 34487fa4550ee64e2df1428bd1b868f7b9b12397 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 24 Apr 2010 12:49:53 +0000
Subject: [PATCH]   * part of r15163, forgot to commit

git-svn-id: trunk@15164 -
---
 compiler/ncal.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/ncal.pas b/compiler/ncal.pas
index ba02f52161..dca9e446ae 100644
--- a/compiler/ncal.pas
+++ b/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
         }