paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 05:28:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* renamed selector() to objcselector() for consistency with the way all

Browse Source 
other Objective-C integration keywords/functions are being named

git-svn-id: trunk@13456 -
This commit is contained in:
Jonas Maebe 2009-07-26 14:06:34 +00:00
parent f17943371c
commit 464d595cc6
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/psystem.pas
View File

@ -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;

10
tests/test/tsel1.pp
View File

@ -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.

2
tests/test/tsel2.pp
View File

@ -7,5 +7,5 @@
var
a: sel;
begin
a:=selector('my:method');
a:=objcselector('my:method');
end.