* compilation fixed

git-svn-id: trunk@39812 -
This commit is contained in:
florian 2018-09-26 19:38:17 +00:00
parent 41d2a0a496
commit 7082b6e34a

View File

@ -1005,7 +1005,7 @@ implementation
end; end;
{ only need to get the address of the procedure? Check token because { 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 function result (lack of checking for token was the reason of
tw10933.pp test failure) } tw10933.pp test failure) }
if getaddr and (token<>_LKLAMMER) then if getaddr and (token<>_LKLAMMER) then
@ -3379,6 +3379,7 @@ implementation
filepos:=current_tokenpos; filepos:=current_tokenpos;
again:=false; again:=false;
pd:=nil; pd:=nil;
isspecialize:=false;
if token=_ID then if token=_ID then
begin begin
again:=true; again:=true;