소스 검색

* set expectloc correctly for procvardef comparisons with nil for small CPUs

git-svn-id: branches/z80@45043 -
nickysn 5 년 전
부모
커밋
96a714b20e
1개의 변경된 파일5개의 추가작업 그리고 1개의 파일을 삭제
  1. 5 1
      compiler/nadd.pas

+ 5 - 1
compiler/nadd.pas

@@ -4180,7 +4180,11 @@ implementation
          else if ((ld.typ=procvardef) and (rt=niln)) or
                  ((rd.typ=procvardef) and (lt=niln)) then
             begin
-              expectloc:=LOC_FLAGS;
+              if (ld.typ=procvardef) and (tprocvardef(ld).size>sizeof(aint)) or
+                 (rd.typ=procvardef) and (tprocvardef(rd).size>sizeof(aint)) then
+                expectloc:=LOC_JUMP
+              else
+                expectloc:=LOC_FLAGS;
             end
 
 {$ifdef SUPPORT_MMX}