Forráskód Böngészése

* compilation with -O3 fixed

florian 3 éve
szülő
commit
45bf47ee05
3 módosított fájl, 3 hozzáadás és 0 törlés
  1. 1 0
      compiler/pdecl.pas
  2. 1 0
      compiler/ptype.pas
  3. 1 0
      compiler/symdef.pas

+ 1 - 0
compiler/pdecl.pas

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

+ 1 - 0
compiler/ptype.pas

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

+ 1 - 0
compiler/symdef.pas

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