From 7082b6e34a8ba9018873a383c058fc0db1863a57 Mon Sep 17 00:00:00 2001 From: florian Date: Wed, 26 Sep 2018 19:38:17 +0000 Subject: [PATCH] * compilation fixed git-svn-id: trunk@39812 - --- compiler/pexpr.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas index 3abb5cf155..56374d89ef 100644 --- a/compiler/pexpr.pas +++ b/compiler/pexpr.pas @@ -1005,7 +1005,7 @@ implementation end; { only need to get the address of the procedure? Check token because - in the case of opening parenthesis is possible to get pointer to + in the case of opening parenthesis is possible to get pointer to function result (lack of checking for token was the reason of tw10933.pp test failure) } if getaddr and (token<>_LKLAMMER) then @@ -3379,6 +3379,7 @@ implementation filepos:=current_tokenpos; again:=false; pd:=nil; + isspecialize:=false; if token=_ID then begin again:=true;