From 578c18a204a62d6ba0f214e3ae5ffb510fc16520 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 10 Nov 2007 10:08:41 +0000
Subject: [PATCH] + support of <variant>.<id1>.<id2> ... resolves #9233 and
 partly #10133

git-svn-id: trunk@9172 -
---
 compiler/pexpr.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas
index d8664e330a..8d11a0e0fd 100644
--- a/compiler/pexpr.pas
+++ b/compiler/pexpr.pas
@@ -2078,7 +2078,10 @@ implementation
                                  end
                                else
                                  p2:=nil;
-                               p1:=translate_disp_call(p1,p2,dispatchstring,0,afterassignment);
+                               p1:=translate_disp_call(p1,p2,dispatchstring,0,
+                                 { this is only an approximation
+                                   setting useresult if not necessary is only a waste of time, no more, no less (FK) }
+                                 afterassignment or in_args or (token<>_SEMICOLON));
                              end
                            else { Error }
                              Consume(_ID);