From a2e40996fffda2973b0118087b9ed6aaa99f7201 Mon Sep 17 00:00:00 2001
From: ocoursiere <ocoursiere@d5ff2aa3-e835-421f-bc93-9a7aa3229f71>
Date: Thu, 18 Oct 2012 19:50:00 +0000
Subject: [PATCH] Avoid some warnings under Haiku.

---
 bepascal/source/bepascal/cpp/src/be/app/Application.cpp | 2 +-
 bepascal/source/bepascal/cpp/src/be/app/Message.cpp     | 2 +-
 bepascal/source/bepascal/cpp/src/be/app/Roster.cpp      | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/bepascal/source/bepascal/cpp/src/be/app/Application.cpp b/bepascal/source/bepascal/cpp/src/be/app/Application.cpp
index 5a94a19..0608dcb 100644
--- a/bepascal/source/bepascal/cpp/src/be/app/Application.cpp
+++ b/bepascal/source/bepascal/cpp/src/be/app/Application.cpp
@@ -193,7 +193,7 @@ TCPlusObject BApplication_Create_3(TPasObject PasObject, const char *Signature,
 
 void BApplication_Free(TCPlusObject Application)
 {
-	delete Application;
+	delete reinterpret_cast<BPApplication*>(Application);
 }
 
 void BApplication_HideCursor(TCPlusObject Application)
diff --git a/bepascal/source/bepascal/cpp/src/be/app/Message.cpp b/bepascal/source/bepascal/cpp/src/be/app/Message.cpp
index 8e145da..9d7f07b 100644
--- a/bepascal/source/bepascal/cpp/src/be/app/Message.cpp
+++ b/bepascal/source/bepascal/cpp/src/be/app/Message.cpp
@@ -77,7 +77,7 @@ TCPlusObject BMessage_Create_2(TPasObject PasObject, uint32 what)
 
 void BMessage_Free(TCPlusObject message)
 {
-	delete message;
+	delete reinterpret_cast<BPMessage*>(message);
 }
 
 uint32 BMessage_Getwhat(TCPlusObject message)
diff --git a/bepascal/source/bepascal/cpp/src/be/app/Roster.cpp b/bepascal/source/bepascal/cpp/src/be/app/Roster.cpp
index 32c036f..16bab20 100644
--- a/bepascal/source/bepascal/cpp/src/be/app/Roster.cpp
+++ b/bepascal/source/bepascal/cpp/src/be/app/Roster.cpp
@@ -42,7 +42,7 @@ TCPlusObject BRoster_Create(TPasObject PasObject)
 
 void BRoster_Destroy(TPasObject PasObject)
 {
-	delete PasObject;
+	delete reinterpret_cast<BRoster*>(PasObject);
 }
 
 //status_t BRoster_Broadcast(TCPlusObject Roster, TCPlusObject *message)