mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-10 14:26:00 +02:00
* compilation with -O3 fixed
This commit is contained in:
parent
39b7b07ebb
commit
45bf47ee05
@ -728,6 +728,7 @@ implementation
|
||||
hdef:=nil;
|
||||
first:=true;
|
||||
had_generic:=false;
|
||||
storetokenpos:=Default(tfileposinfo);
|
||||
repeat
|
||||
defpos:=current_tokenpos;
|
||||
istyperenaming:=false;
|
||||
|
@ -1577,6 +1577,7 @@ implementation
|
||||
|
||||
current_genericdef:=nil;
|
||||
current_specializedef:=nil;
|
||||
olddef:=nil;
|
||||
|
||||
is_func:=(token=_FUNCTION);
|
||||
consume(token);
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user