|
@@ -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;
|
florian