瀏覽代碼

* fixed reg_cgsize

git-svn-id: trunk@4760 -
Jonas Maebe 19 年之前
父節點
當前提交
d379417ca4
共有 1 個文件被更改,包括 4 次插入2 次删除
  1. 4 2
      compiler/powerpc/cpubase.pas

+ 4 - 2
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;