Procházet zdrojové kódy

* fix compilation errors with -O2 due to dfa based warnings

git-svn-id: trunk@29771 -
florian před 10 roky
rodič
revize
ba3f0281b0
1 změnil soubory, kde provedl 2 přidání a 0 odebrání
  1. 2 0
      compiler/pexpr.pas

+ 2 - 0
compiler/pexpr.pas

@@ -2196,6 +2196,7 @@ implementation
                      if isspecialize or (token=_ID) then
                        begin
                          erroroutp1:=true;
+                         srsym:=nil;
                          structh:=tabstractrecorddef(p1.resultdef);
                          if isspecialize then
                            begin
@@ -2368,6 +2369,7 @@ implementation
                       if isspecialize or (token=_ID) then
                         begin
                           erroroutp1:=true;
+                          srsym:=nil;
                           structh:=tobjectdef(p1.resultdef);
                           if isspecialize then
                             begin