소스 검색

+ set expectloc correctly for small CPUs in the first pass of the add node for classrefdefs

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

+ 4 - 1
compiler/nadd.pas

@@ -4170,7 +4170,10 @@ implementation
 
          else if (ld.typ=classrefdef) then
             begin
-              expectloc:=LOC_FLAGS;
+              if ld.size>sizeof(aint) then
+                expectloc:=LOC_JUMP
+              else
+                expectloc:=LOC_FLAGS;
             end
 
          { support procvar=nil,procvar<>nil }