* do not crash with an internal error if an indexed access is done on a constant pointer node

git-svn-id: trunk@27789 -

.gitattributes

@@ -13927,6 +13927,7 @@ tests/webtbs/tw25956.pp svneol=native#text/pascal
 tests/webtbs/tw25959.pp svneol=native#text/pascal
 tests/webtbs/tw2602.pp svneol=native#text/plain
 tests/webtbs/tw2607.pp svneol=native#text/plain
+tests/webtbs/tw26162.pp svneol=native#text/pascal
 tests/webtbs/tw2620.pp svneol=native#text/plain
 tests/webtbs/tw2626.pp svneol=native#text/plain
 tests/webtbs/tw2627.pp svneol=native#text/plain

compiler/ncgmem.pas

@@ -894,6 +894,10 @@ implementation
                     hlcg.reference_reset_base(location.reference,left.resultdef,hlcg.getaddressregister(current_asmdata.CurrAsmList,left.resultdef),0,location.reference.alignment);
                     hlcg.a_load_ref_reg(current_asmdata.CurrAsmList,left.resultdef,left.resultdef,left.location.reference,location.reference.base);
                   end;
+                LOC_CONSTANT:
+                  begin
+                    hlcg.reference_reset_base(location.reference,left.resultdef,NR_NO,left.location.value,location.reference.alignment);
+                  end;
                 else
                   internalerror(2002032218);
               end;

tests/webtbs/tw26162.pp

@@ -0,0 +1,10 @@
+{ %norun }
+{$inline on}
+procedure p(const s : ansistring);inline;
+begin
+  writeln(s[1]);
+end;
+
+begin
+  p('');
+end.