From 2b01a7e2c65a49b9e5974237d0407ccd5a83312c Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 29 Sep 2015 07:59:59 +0000
Subject: [PATCH]   * initialize errorp1 for classrefdef after r31856 (mantis
 #28741, but this     doesn't fix it as there are more problems)

git-svn-id: trunk@31884 -
---
 compiler/pexpr.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas
index a81f649a5a..6fd9ca820b 100644
--- a/compiler/pexpr.pas
+++ b/compiler/pexpr.pas
@@ -2408,6 +2408,7 @@ implementation
                      end;
                   classrefdef:
                     begin
+                      erroroutp1:=true;
                       if token=_ID then
                         begin
                           structh:=tobjectdef(tclassrefdef(p1.resultdef).pointeddef);