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

* method pointers are now passed by value, fixes #5736

Browse Source 
git-svn-id: trunk@3691 -
This commit is contained in:
florian 2006-05-27 08:52:05 +00:00
parent 02db8f5c84
commit 86d9e04409
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/arm/cpupara.pas
View File

@ -132,10 +132,7 @@ unit cpupara;
else else
getparaloc:=LOC_REGISTER; getparaloc:=LOC_REGISTER;
procvardef: procvardef:
if (po_methodpointer in tprocvardef(p).procoptions) then getparaloc:=LOC_REGISTER;
getparaloc:=LOC_REFERENCE
else
getparaloc:=LOC_REGISTER;
filedef: filedef:
getparaloc:=LOC_REGISTER; getparaloc:=LOC_REGISTER;
arraydef: arraydef:
@ -180,8 +177,6 @@ unit cpupara;
result:=(tsetdef(def).settype<>smallset); result:=(tsetdef(def).settype<>smallset);
stringdef : stringdef :
result:=tstringdef(def).string_typ in [st_shortstring,st_longstring]; result:=tstringdef(def).string_typ in [st_shortstring,st_longstring];
procvardef :
result:=po_methodpointer in tprocvardef(def).procoptions;
end; end;
end; end;