소스 검색

* fix for the regressions caused by r27417

git-svn-id: trunk@27433 -
florian 11 년 전
부모
커밋
0a7b795744
1개의 변경된 파일1개의 추가작업 그리고 4개의 파일을 삭제
  1. 1 4
      compiler/ncgcnv.pas

+ 1 - 4
compiler/ncgcnv.pas

@@ -758,10 +758,7 @@ interface
             (resultdef.typ=floatdef) and
             (location.loc=LOC_CONSTANT)
            ) or
-           (
-            ((left.resultdef.typ=floatdef) and
-             (resultdef.typ<>floatdef) and (left.location.loc in [LOC_CFPUREGISTER,LOC_FPUREGISTER,LOC_CMMREGISTER,LOC_MMREGISTER]))
-           ) then
+           ((resultdef.typ=floatdef) xor (location.loc in [LOC_CFPUREGISTER,LOC_FPUREGISTER,LOC_CMMREGISTER,LOC_MMREGISTER])) then
           hlcg.location_force_mem(current_asmdata.CurrAsmList,location,left.resultdef);
 
         { but use the new size, but we don't know the size of all arrays }