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

* pass classes and interfaces by value if const is used, resolves #9674

Browse Source 
git-svn-id: trunk@8484 -
This commit is contained in:
florian 2007-09-14 19:26:09 +00:00
parent f5ac7ca9be
commit 039b513d93
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/arm/cpupara.pas
View File

@ -160,7 +160,8 @@ unit cpupara;
exit; exit;
end; end;
case def.typ of case def.typ of
objectdef, objectdef:
result:=is_object(def) and ((varspez=vs_const) or (def.size=0));
recorddef: recorddef:
result:=(varspez=vs_const) or (def.size=0); result:=(varspez=vs_const) or (def.size=0);
variantdef, variantdef,