* compilation with -O3 fixed

This commit is contained in:
florian 2022-05-26 22:34:12 +02:00
parent 39b7b07ebb
commit 45bf47ee05
3 changed files with 3 additions and 0 deletions

View File

@ -728,6 +728,7 @@ implementation
hdef:=nil;
first:=true;
had_generic:=false;
storetokenpos:=Default(tfileposinfo);
repeat
defpos:=current_tokenpos;
istyperenaming:=false;

View File

@ -1577,6 +1577,7 @@ implementation
current_genericdef:=nil;
current_specializedef:=nil;
olddef:=nil;
is_func:=(token=_FUNCTION);
consume(token);

View File

@ -6763,6 +6763,7 @@ implementation
include(pno,pno_showhidden);
{$endif EXTDEBUG}
s:='';
rn:='';
if proctypeoption=potype_operator then
begin
for t:=NOTOKEN to last_overloaded do