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

* fixed misplaced braces that caused all records to be passed by reference

Browse Source 
on ppc64 with the mwpascal calling convention, instead of only the const
    ones

git-svn-id: trunk@30219 -
This commit is contained in:
Jonas Maebe 2015-03-14 18:36:35 +00:00
parent 7bc66a5142
commit a02fb7c794
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/powerpc64/cpupara.pas
View File

@ -178,7 +178,8 @@ begin
procvardef, procvardef,
recorddef: recorddef:
result := result :=
((varspez = vs_const) and (varspez = vs_const) and
(
( (
(not (calloption in [pocall_cdecl, pocall_cppdecl]) and (not (calloption in [pocall_cdecl, pocall_cppdecl]) and
(def.size > 8)) (def.size > 8))