paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-18 22:59:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed some comments after r16684

Browse Source 
git-svn-id: trunk@16685 -
This commit is contained in:
Jonas Maebe 2011-01-02 15:31:41 +00:00
parent 3ca3276400
commit 360d102ea4
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/pdecl.pas
View File

@ -335,13 +335,9 @@ implementation
procedure finalize_objc_class_or_protocol_external_status(od: tobjectdef);
begin
{ Objective-C classes can be external -> all messages inside are
external (defined at the class level instead of per method, so
that you cannot define some methods as external and some not)
}
if [oo_is_external,oo_is_forward] <= od.objectoptions then
begin
{ formal definition: x = objcclass; external; }
{ formal definition: x = objcclass external; }
exclude(od.objectoptions,oo_is_forward);
include(od.objectoptions,oo_is_formal);
end;