Browse Source

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

git-svn-id: trunk@29123 -
pierre 10 years ago
parent
commit
0a3f00ef2f
1 changed files with 1 additions and 0 deletions
  1. 1 0
      compiler/hlcg2ll.pas

+ 1 - 0
compiler/hlcg2ll.pas

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