From 464d595cc63a380322edb0dea58c196b075634cf Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 26 Jul 2009 14:06:34 +0000
Subject: [PATCH]   * renamed selector() to objcselector() for consistency with
 the way all     other Objective-C integration keywords/functions are being
 named

git-svn-id: trunk@13456 -
---
 compiler/psystem.pas |  2 +-
 tests/test/tsel1.pp  | 10 +++++-----
 tests/test/tsel2.pp  |  2 +-
 3 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/compiler/psystem.pas b/compiler/psystem.pas
index f1b9c8405e..b4a876c8ba 100644
--- a/compiler/psystem.pas
+++ b/compiler/psystem.pas
@@ -102,7 +102,7 @@ implementation
 {$ifdef SUPPORT_UNALIGNED}
         systemunit.insert(tsyssym.create('Unaligned',in_unaligned_x));
 {$endif SUPPORT_UNALIGNED}
-        systemunit.insert(tsyssym.create('Selector',in_objc_selector_x)); { objc only }
+        systemunit.insert(tsyssym.create('ObjCSelector',in_objc_selector_x)); { objc only }
       end;
 
 
diff --git a/tests/test/tsel1.pp b/tests/test/tsel1.pp
index 61d3fc2008..d0f8846e25 100644
--- a/tests/test/tsel1.pp
+++ b/tests/test/tsel1.pp
@@ -7,9 +7,9 @@
 var
   a: sel;
 begin
-  a:=selector('mymethod');
-  a:=selector('mymethod');
-  a:=selector('mymethod:');
-  a:=selector('::');
-  a:=selector('a:b:c:');
+  a:=objcselector('mymethod');
+  a:=objcselector('mymethod');
+  a:=objcselector('mymethod:');
+  a:=objcselector('::');
+  a:=objcselector('a:b:c:');
 end.
diff --git a/tests/test/tsel2.pp b/tests/test/tsel2.pp
index bd8a62bca6..5a22d73e19 100644
--- a/tests/test/tsel2.pp
+++ b/tests/test/tsel2.pp
@@ -7,5 +7,5 @@
 var
   a: sel;
 begin
-  a:=selector('my:method');
+  a:=objcselector('my:method');
 end.