소스 검색

* fixed for subsetref/subsetreg

git-svn-id: trunk@4578 -
Jonas Maebe 19 년 전
부모
커밋
1a8c2f405d
1개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  1. 2 0
      compiler/x86/nx86set.pas

+ 2 - 0
compiler/x86/nx86set.pas

@@ -189,6 +189,8 @@ implementation
          if nf_swaped in flags then
          if nf_swaped in flags then
           swapleftright;
           swapleftright;
 
 
+         if not(left.location.loc in [LOC_REGISTER,LOC_CREGISTER,LOC_REFERENCE,LOC_CREFERENCE]) then
+           location_force_reg(current_asmdata.CurrAsmList,left.location,OS_INT,true);
          if genjumps then
          if genjumps then
           begin
           begin
             { It gives us advantage to check for the set elements
             { It gives us advantage to check for the set elements