From 77b155ea79eaf2dda0e3bea104d481a7b174aecb Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 28 Jan 2007 18:06:51 +0000
Subject: [PATCH] * def.size in [1,2,4,8] goes wrong if def.size>255, fixed,
 resolves #8232

git-svn-id: trunk@6245 -
---
 compiler/x86_64/cpupara.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/x86_64/cpupara.pas b/compiler/x86_64/cpupara.pas
index 0b5c191af4..57fb17707a 100644
--- a/compiler/x86_64/cpupara.pas
+++ b/compiler/x86_64/cpupara.pas
@@ -172,7 +172,7 @@ unit cpupara;
       begin
         if target_info.system=system_x86_64_win64 then
           result:=(calloption=pocall_safecall) or
-            not(def.size in [1,2,4,8])
+            (def.size>8) or not(def.size in [1,2,4,8])
         else
           result:=inherited ret_in_param(def,calloption);
       end;