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

* MIPS: methodpointers must be compatible with records; since records are never passed by address in this ABI, so must be methodpointers. Fixes webtbs/tw9141.pp.

Browse Source 
git-svn-id: trunk@23392 -
This commit is contained in:
sergei 2013-01-15 19:09:19 +00:00
parent d2758265e3
commit b35d04ffa8
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/mips/cpupara.pas
View File

@ -189,7 +189,8 @@ implementation
stringdef :
result:=(tstringdef(def).stringtype in [st_shortstring,st_longstring]);
procvardef :
result:=not tprocvardef(def).is_addressonly;
{ If we always push records by value, we have to handle methodpointers that way too. }
result:=false; {not tprocvardef(def).is_addressonly;}
setdef :
result:=not(is_smallset(def));
end;
@ -346,6 +347,7 @@ implementation
alignment := 8
else
alignment := 4;
//writeln('para: ',hp.Name,' typ=',hp.vardef.typ,' paracgsize=',paracgsize,' align=',hp.vardef.alignment);
hp.paraloc[side].reset;
hp.paraloc[side].Alignment:=alignment;
if paracgsize=OS_NO then