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

* set type of self for obj-c instance methods to the type of the

Browse Source 
class instead of to ID (gcc-compatible)

git-svn-id: branches/objc@13722 -
This commit is contained in:
Jonas Maebe 2009-09-16 18:40:15 +00:00
parent ef2fbe7ed6
commit eb2dc7a674
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pdecsub.pas
View File

@ -178,7 +178,13 @@ implementation
include(aliasvs.varoptions,vo_is_msgsel);
tlocalsymtable(tprocdef(pd).localst).insert(aliasvs);
vs:=tparavarsym.create('$self',paranr_objc_self,vs_value,objc_idtype,[vo_is_self,vo_is_hidden_para]);
if (po_classmethod in pd.procoptions) then
{ compatible with what gcc does }
hdef:=objc_idtype
else
hdef:=tprocdef(pd)._class;
vs:=tparavarsym.create('$self',paranr_objc_self,vs_value,hdef,[vo_is_self,vo_is_hidden_para]);
pd.parast.insert(vs);
end
else if (pd.typ=procvardef) and