* pass records of all sizes by reference if they are const

git-svn-id: trunk@3251 -

compiler/x86_64/cpupara.pas

@@ -183,7 +183,7 @@ unit cpupara;
           formaldef :
             result:=true;
           recorddef :
-            result:=(def.size>sizeof(aint));
+            result:=(def.size>sizeof(aint)) or (varspez=vs_const);
           arraydef :
             begin
               result:=not(