Browse Source

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

git-svn-id: trunk@29771 -
florian 10 years ago
parent
commit
ba3f0281b0
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/pexpr.pas

+ 2 - 0
compiler/pexpr.pas

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