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

* method pointers are now passed by value, fixes

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

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;