From 347b23caf4bb92914123c6d9b1edfe3020e609ee Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 6 Sep 2015 03:59:59 +0200
Subject: [PATCH] fix, project-related messages not cleared anymore before
 compiling

---
 src/ce_dubproject.pas    | 2 +-
 src/ce_nativeproject.pas | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/ce_dubproject.pas b/src/ce_dubproject.pas
index d76b95d9..78cb25ac 100644
--- a/src/ce_dubproject.pas
+++ b/src/ce_dubproject.pas
@@ -186,7 +186,7 @@ var
 begin
   result := false;
   msgs := getMessageDisplay;
-  msgs.clearByData(Self);
+  msgs.clearByData(Self as ICECommonProject);
   prjname := shortenPath(fFilename);
   dubproc := TProcess.Create(nil);
   getDir(0, olddir);
diff --git a/src/ce_nativeproject.pas b/src/ce_nativeproject.pas
index e1ef36e3..d2033b83 100644
--- a/src/ce_nativeproject.pas
+++ b/src/ce_nativeproject.pas
@@ -687,7 +687,7 @@ begin
     exit;
   end;
   //
-  msgs.clearByData(Self);
+  msgs.clearByData(self as ICECommonProject);
   subjProjCompiling(fProjectSubject, Self);
   //
   if not runPrePostProcess(config.preBuildProcess) then