* also parse postfix operators after parsing a _STRING token (required for class functions on type helpers for String)

+ added tests

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@39399 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 9 insertions, 1 deletions

diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas
index 53e92f277b..cffe8144b2 100644
--- a/compiler/pexpr.pas
+++ b/compiler/pexpr.pas
@@ -3698,7 +3698,15 @@ implementation
                     postfixoperators(p1,again,getaddr);
                   end
                  else
-                  p1:=ctypenode.create(hdef);
+                   begin
+                     p1:=ctypenode.create(hdef);
+                     if token=_POINT then
+                       begin
+                         again:=true;
+                         { handle type helpers here }
+                         postfixoperators(p1,again,getaddr);
+                       end;
+                   end;
                end;
 
              _FILE :