Fix for Mantis #25606.

pexpr.pas, postfixoperators:
  * try_type_helper: also allow type helpers for block type bt_const

+ added test

git-svn-id: trunk@29176 -

.gitattributes

@@ -14058,6 +14058,7 @@ tests/webtbs/tw25600.pp svneol=native#text/pascal
 tests/webtbs/tw25603.pp svneol=native#text/pascal
 tests/webtbs/tw25604.pp svneol=native#text/pascal
 tests/webtbs/tw25605.pp svneol=native#text/pascal
+tests/webtbs/tw25606.pp svneol=native#text/pascal
 tests/webtbs/tw2561.pp svneol=native#text/plain
 tests/webtbs/tw25610.pp -text svneol=native#text/plain
 tests/webtbs/tw25685.pp svneol=native#text/pascal

compiler/pexpr.pas

@@ -1716,7 +1716,7 @@ implementation
           extdef : tdef;
         begin
           result:=false;
-          if (token=_ID) and (block_type in [bt_body,bt_general,bt_except]) then
+          if (token=_ID) and (block_type in [bt_body,bt_general,bt_except,bt_const]) then
             begin
               if not assigned(def) then
                 if node.nodetype=addrn then

tests/webtbs/tw25606.pp

@@ -0,0 +1,17 @@
+{ %NORUN }
+
+program tw25606;
+
+{$MODE DELPHI}
+
+type
+  TValueInt32Helper = record helper for Int32
+  const
+    C{: Int32} = 0;
+  end;
+
+var
+  I: Int32 = Int32.C;
+begin
+end.
+