From fd3a96beadfaa845e26bd980cda0a741644f89fe Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Wed, 16 Feb 2005 12:52:01 +0000
Subject: [PATCH] hb_objGetpMethod() compiled as extern "C" for MSVC
 compatibility with xHarbour

---
 harbour/source/vm/classes.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/harbour/source/vm/classes.c b/harbour/source/vm/classes.c
index 02c15a9592..ffaf318b29 100644
--- a/harbour/source/vm/classes.c
+++ b/harbour/source/vm/classes.c
@@ -215,7 +215,15 @@ static void     hb_clsRelease( PCLASS );
        char *   hb_objGetRealClsName( PHB_ITEM pObject, char * szName );
        PHB_FUNC hb_objGetMethod( PHB_ITEM, PHB_SYMB );
        PHB_FUNC hb_objGetMthd( PHB_ITEM pObject, PHB_SYMB pMessage, BOOL lAllowErrFunc );
-       PMETHOD  hb_objGetpMethod( PHB_ITEM, PHB_SYMB );
+       
+       #ifdef _MSC_VER
+          extern "C" { 
+       #endif   	
+         	PMETHOD  hb_objGetpMethod( PHB_ITEM, PHB_SYMB );
+       #ifdef _MSC_VER
+        }
+       #endif   	
+         	
        BOOL     hb_objHasMsg( PHB_ITEM pObject, char * szString );
 
        void *   hb_mthRequested( void );