paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 01:39:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* part of r15163, forgot to commit

Browse Source 
git-svn-id: trunk@15164 -
This commit is contained in:
Jonas Maebe 2010-04-24 12:49:53 +00:00
parent 0dcedf3799
commit 34487fa455
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncal.pas
View File

@ -1777,6 +1777,8 @@ implementation
srsymtable : tsymtable; srsymtable : tsymtable;
msgsendname : string; msgsendname : string;
begin 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, { typecheck pass must already have run on the call node,
because pass1 calls this method because pass1 calls this method
} }