From 0a3f00ef2f9b31956a42d9de17a3692f01e133cb Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Sun, 23 Nov 2014 16:29:09 +0000
Subject: [PATCH] Avoid Internal Error 200310121 with -O3 for
 test/units/system/tabs.pp with ppcarm

git-svn-id: trunk@29123 -
---
 compiler/hlcg2ll.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/hlcg2ll.pas b/compiler/hlcg2ll.pas
index 2d2e6e39cf..6d50fd9d14 100644
--- a/compiler/hlcg2ll.pas
+++ b/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