Browse Source

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

git-svn-id: trunk@29771 -
florian 10 năm trước cách đây
mục cha
commit
ba3f0281b0
1 tập tin đã thay đổi với 2 bổ sung0 xóa
  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