فهرست منبع

* initialize errorp1 for classrefdef after r31856 (mantis #28741, but this
doesn't fix it as there are more problems)

git-svn-id: trunk@31884 -

Jonas Maebe 9 سال پیش
والد
کامیت
2b01a7e2c6
1فایلهای تغییر یافته به همراه1 افزوده شده و 0 حذف شده
  1. 1 0
      compiler/pexpr.pas

+ 1 - 0
compiler/pexpr.pas

@@ -2408,6 +2408,7 @@ implementation
                      end;
                      end;
                   classrefdef:
                   classrefdef:
                     begin
                     begin
+                      erroroutp1:=true;
                       if token=_ID then
                       if token=_ID then
                         begin
                         begin
                           structh:=tobjectdef(tclassrefdef(p1.resultdef).pointeddef);
                           structh:=tobjectdef(tclassrefdef(p1.resultdef).pointeddef);