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

git-svn-id: trunk@3251 -
2025-04-15 12:41:37 +02:00 · 2006-04-17 18:12:14 +00:00 · 2006-04-17 18:12:14 +00:00 · 5a888656ca
commit 5a888656ca
parent 0b0ed3f0f2
1 changed files with 1 additions and 1 deletions
--- a/compiler/x86_64/cpupara.pas
+++ b/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(