From d379417ca408f409dfd5871c2b2423a42dbf1b76 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 30 Sep 2006 21:43:10 +0000
Subject: [PATCH]   * fixed reg_cgsize

git-svn-id: trunk@4760 -
---
 compiler/powerpc/cpubase.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/compiler/powerpc/cpubase.pas b/compiler/powerpc/cpubase.pas
index 3f108077cb..204c1c354c 100644
--- a/compiler/powerpc/cpubase.pas
+++ b/compiler/powerpc/cpubase.pas
@@ -516,10 +516,12 @@ implementation
     function reg_cgsize(const reg: tregister): tcgsize;
       begin
         case getregtype(reg) of
-          R_MMREGISTER,
-          R_FPUREGISTER,
           R_INTREGISTER :
             result:=OS_32;
+          R_MMREGISTER:
+            result:=OS_M128;
+          R_FPUREGISTER:
+            result:=OS_F64;
           else
             internalerror(200303181);
         end;