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

Merged revisions 3691 via svnmerge from

Browse Source 
http://svn.freepascal.org/svn/fpc/trunk

r3691 (florian)
* method pointers are now passed by value, fixes #5736

git-svn-id: branches/fixes_2_0@3692 -
This commit is contained in:
florian 2006-05-27 09:02:52 +00:00
parent 26075a0108
commit e0e5ae3ccc
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
getparaloc:=LOC_REGISTER;
procvardef:
if (po_methodpointer in tprocvardef(p).procoptions) then
getparaloc:=LOC_REFERENCE
else
getparaloc:=LOC_REGISTER;
getparaloc:=LOC_REGISTER;
filedef:
getparaloc:=LOC_REGISTER;
arraydef:
@ -180,8 +177,6 @@ unit cpupara;
result:=(tsetdef(def).settype<>smallset);
stringdef :
result:=tstringdef(def).string_typ in [st_shortstring,st_longstring];
procvardef :
result:=po_methodpointer in tprocvardef(def).procoptions;
end;
end;