paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 19:59:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* support objc.id.<anyobjcmethod> in Delphi mode (mantis #15607)

Browse Source 
git-svn-id: trunk@14822 -
This commit is contained in:
Jonas Maebe 2010-01-28 16:14:42 +00:00
parent df33542ca9
commit 2be600afff
3 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -10240,6 +10240,7 @@ tests/webtbs/tw15467.pp svneol=native#text/pascal
tests/webtbs/tw15500.pp svneol=native#text/plain
tests/webtbs/tw15504.pp svneol=native#text/plain
tests/webtbs/tw15530.pp svneol=native#text/pascal
tests/webtbs/tw15607.pp svneol=native#text/plain
tests/webtbs/tw1567.pp svneol=native#text/plain
tests/webtbs/tw1573.pp svneol=native#text/plain
tests/webtbs/tw1592.pp svneol=native#text/plain

5
compiler/pexpr.pas
View File

@ -2020,7 +2020,10 @@ implementation
begin
consume(_POINT);
if (p1.resultdef.typ=pointerdef) and
(m_autoderef in current_settings.modeswitches) then
(m_autoderef in current_settings.modeswitches) and
{ don't auto-deref objc.id, because then the code
below for supporting id.anyobjcmethod isn't triggered }
(p1.resultdef<>objc_idtype) then
begin
p1:=cderefnode.create(p1);
do_typecheckpass(p1);

9
tests/webtbs/tw15607.pp Normal file
View File

@ -0,0 +1,9 @@
{ %norun }
{$mode delphi}{$modeswitch objectivec1}
var
o: id;
begin
o.description;
end.