소스 검색

Avoid Internal Error 200310121 with -O3 for test/units/system/tabs.pp with ppcarm

git-svn-id: trunk@29123 -
pierre 10 년 전
부모
커밋
0a3f00ef2f
1개의 변경된 파일1개의 추가작업 그리고 0개의 파일을 삭제
  1. 1 0
      compiler/hlcg2ll.pas

+ 1 - 0
compiler/hlcg2ll.pas

@@ -656,6 +656,7 @@ implementation
         internalerror(2012071226);
       tocgsize:=getintmmcgsize(reg,def_cgmmsize(tosize));
       case loc.loc of
+        LOC_CONSTANT,
         LOC_SUBSETREG,LOC_CSUBSETREG,
         LOC_SUBSETREF,LOC_CSUBSETREF:
           begin