From 41a415d3662a15461ce0b669f589b331295ccb37 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Wed, 4 Oct 2006 21:23:36 +0000
Subject: [PATCH]   * fixed type errors

git-svn-id: trunk@4800 -
---
 ide/fpcompil.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ide/fpcompil.pas b/ide/fpcompil.pas
index 2796dc8e0d..82e8efddec 100644
--- a/ide/fpcompil.pas
+++ b/ide/fpcompil.pas
@@ -311,7 +311,7 @@ function TCompilerMessageListBox.GetPalette: PPalette;
 const
   P: string[length(CBrowserListBox)] = CBrowserListBox;
 begin
-  GetPalette:=@P;
+  GetPalette:=PPalette(@P);
 end;
 
 procedure TCompilerMessageListBox.SelectFirstError;
@@ -436,7 +436,7 @@ function TCompilerMessageWindow.GetPalette: PPalette;
 const
   S : string[length(CBrowserWindow)] = CBrowserWindow;
 begin
-  GetPalette:=@S;
+  GetPalette:=PPalette(@S);
 end;