From 1bbad05cb07b0c1b93921fd3e04738ab8e3276e2 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Thu, 3 Nov 2005 09:41:04 +0000
Subject: [PATCH] added Microsoft initialization code

---
 harbour/source/lang/msgcs852.c | 16 +++++++++++++---
 harbour/source/lang/msgcsiso.c | 16 +++++++++++++---
 harbour/source/lang/msgcskam.c | 16 +++++++++++++---
 harbour/source/lang/msgcswin.c | 15 ++++++++++++---
 harbour/source/lang/msgde.c    | 16 +++++++++++++---
 harbour/source/lang/msgdewin.c | 16 +++++++++++++---
 harbour/source/lang/msgel.c    | 16 +++++++++++++---
 harbour/source/lang/msgelwin.c | 16 +++++++++++++---
 harbour/source/lang/msgen.c    | 15 ++++++++++++---
 harbour/source/lang/msgeo.c    | 16 +++++++++++++---
 harbour/source/lang/msges.c    | 16 +++++++++++++---
 harbour/source/lang/msgeu.c    | 16 +++++++++++++---
 harbour/source/lang/msgfr.c    | 16 +++++++++++++---
 harbour/source/lang/msghr852.c | 16 +++++++++++++---
 harbour/source/lang/msghriso.c | 16 +++++++++++++---
 harbour/source/lang/msgid.c    | 16 +++++++++++++---
 harbour/source/lang/msgis850.c | 16 +++++++++++++---
 harbour/source/lang/msgit.c    | 16 +++++++++++++---
 harbour/source/lang/msgko.c    | 16 +++++++++++++---
 harbour/source/lang/msgpt.c    | 16 +++++++++++++---
 harbour/source/lang/msgro.c    | 16 +++++++++++++---
 harbour/source/lang/msgru866.c | 16 +++++++++++++---
 harbour/source/lang/msgrukoi.c | 16 +++++++++++++---
 harbour/source/lang/msgruwin.c | 16 +++++++++++++---
 harbour/source/lang/msgsl437.c | 16 +++++++++++++---
 harbour/source/lang/msgsl852.c | 16 +++++++++++++---
 harbour/source/lang/msgsliso.c | 16 +++++++++++++---
 harbour/source/lang/msgslwin.c | 16 +++++++++++++---
 harbour/source/lang/msgsr852.c | 16 +++++++++++++---
 harbour/source/lang/msgsriso.c | 16 +++++++++++++---
 harbour/source/lang/msgsrwin.c | 16 +++++++++++++---
 harbour/source/lang/msgzhb5.c  | 16 +++++++++++++---
 harbour/source/lang/msgzhgb.c  | 16 +++++++++++++---
 33 files changed, 427 insertions(+), 99 deletions(-)

diff --git a/harbour/source/lang/msgcs852.c b/harbour/source/lang/msgcs852.c
index 05bbcd575f..ee9d177101 100644
--- a/harbour/source/lang/msgcs852.c
+++ b/harbour/source/lang/msgcs852.c
@@ -206,7 +206,17 @@ HB_LANG_ANNOUNCE( CS852 );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_CS852 )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_CS852 )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_CS852
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_CS852                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_CS852 = hb_lang_Init_CS852;    
+   #pragma data_seg()                                                  
+#endif                                                                 
 
diff --git a/harbour/source/lang/msgcsiso.c b/harbour/source/lang/msgcsiso.c
index 90871a39f8..f843e00d13 100644
--- a/harbour/source/lang/msgcsiso.c
+++ b/harbour/source/lang/msgcsiso.c
@@ -206,7 +206,17 @@ HB_LANG_ANNOUNCE( CSISO );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_CSISO )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_CSISO )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_CSISO
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_CSISO                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_CSISO = hb_lang_Init_CSISO;    
+   #pragma data_seg()                                                  
+#endif                                                                 
 
diff --git a/harbour/source/lang/msgcskam.c b/harbour/source/lang/msgcskam.c
index dde2010931..bd121b3f74 100644
--- a/harbour/source/lang/msgcskam.c
+++ b/harbour/source/lang/msgcskam.c
@@ -206,7 +206,17 @@ HB_LANG_ANNOUNCE( CSKAM );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_CSKAM )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_CSKAM )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_CSKAM
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_CSKAM                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_CSKAM = hb_lang_Init_CSKAM;    
+   #pragma data_seg()                                                  
+#endif                                                                 
 
diff --git a/harbour/source/lang/msgcswin.c b/harbour/source/lang/msgcswin.c
index bb2d6b10ba..9bdefcacbf 100644
--- a/harbour/source/lang/msgcswin.c
+++ b/harbour/source/lang/msgcswin.c
@@ -207,7 +207,16 @@ HB_LANG_ANNOUNCE( CSWIN );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_CSWIN )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_CSWIN )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_CSWIN
-#endif
 
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_CSWIN                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_CSWIN = hb_lang_Init_CSWIN;    
+   #pragma data_seg()                                                  
+#endif                                                                 
diff --git a/harbour/source/lang/msgde.c b/harbour/source/lang/msgde.c
index 6006218b1e..69b9b3f8d3 100644
--- a/harbour/source/lang/msgde.c
+++ b/harbour/source/lang/msgde.c
@@ -205,7 +205,17 @@ HB_LANG_ANNOUNCE( DE );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_DE )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_DE )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_DE
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_DE                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_DE = hb_lang_Init_DE;    
+   #pragma data_seg()                                                  
+#endif                                                                 
 
diff --git a/harbour/source/lang/msgdewin.c b/harbour/source/lang/msgdewin.c
index 63294b3043..c42e680292 100644
--- a/harbour/source/lang/msgdewin.c
+++ b/harbour/source/lang/msgdewin.c
@@ -206,7 +206,17 @@ HB_LANG_ANNOUNCE( DEWIN );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_DEWIN )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_DEWIN )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_DEWIN
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_DEWIN                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_DEWIN = hb_lang_Init_DEWIN;    
+   #pragma data_seg()                                                  
+#endif                                                                 
 
diff --git a/harbour/source/lang/msgel.c b/harbour/source/lang/msgel.c
index 0acf8cef57..3bb505284a 100644
--- a/harbour/source/lang/msgel.c
+++ b/harbour/source/lang/msgel.c
@@ -201,6 +201,16 @@ HB_LANG_ANNOUNCE( EL );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_EL )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_EL )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_EL
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_EL                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_EL = hb_lang_Init_EL;    
+   #pragma data_seg()                                                  
+#endif                                                                 
diff --git a/harbour/source/lang/msgelwin.c b/harbour/source/lang/msgelwin.c
index 2ed008cfa5..778bbce4c5 100644
--- a/harbour/source/lang/msgelwin.c
+++ b/harbour/source/lang/msgelwin.c
@@ -201,6 +201,16 @@ HB_LANG_ANNOUNCE( ELWIN );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_ELWIN )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_ELWIN )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_ELWIN
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_ELWIN                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_ELWIN = hb_lang_Init_ELWIN;    
+   #pragma data_seg()                                                  
+#endif                                                                 
diff --git a/harbour/source/lang/msgen.c b/harbour/source/lang/msgen.c
index c761c19c41..45b0cfd050 100644
--- a/harbour/source/lang/msgen.c
+++ b/harbour/source/lang/msgen.c
@@ -203,7 +203,16 @@ HB_LANG_ANNOUNCE( EN );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_EN )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_EN )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_EN
-#endif
 
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_EN                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_EN = hb_lang_Init_EN;    
+   #pragma data_seg()                                                  
+#endif                                                                 
diff --git a/harbour/source/lang/msgeo.c b/harbour/source/lang/msgeo.c
index 25904d4e81..b00f67d612 100644
--- a/harbour/source/lang/msgeo.c
+++ b/harbour/source/lang/msgeo.c
@@ -207,6 +207,16 @@ HB_LANG_ANNOUNCE( EO );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_EO )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_EO )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_EO
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_EO                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_EO = hb_lang_Init_EO;    
+   #pragma data_seg()                                                  
+#endif                                                                 
diff --git a/harbour/source/lang/msges.c b/harbour/source/lang/msges.c
index 5d0bd9500e..0d3b6fd256 100644
--- a/harbour/source/lang/msges.c
+++ b/harbour/source/lang/msges.c
@@ -205,7 +205,17 @@ HB_LANG_ANNOUNCE( ES );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_ES )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_ES )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_ES
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_ES                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_ES = hb_lang_Init_ES;    
+   #pragma data_seg()                                                  
+#endif                                                                 
 
diff --git a/harbour/source/lang/msgeu.c b/harbour/source/lang/msgeu.c
index 50e5655d66..1fb4c90bfb 100644
--- a/harbour/source/lang/msgeu.c
+++ b/harbour/source/lang/msgeu.c
@@ -188,6 +188,16 @@ HB_LANG_ANNOUNCE( EU );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_EU )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_EU )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_EU
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_EU                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_EU = hb_lang_Init_EU;    
+   #pragma data_seg()                                                  
+#endif                                                                 
diff --git a/harbour/source/lang/msgfr.c b/harbour/source/lang/msgfr.c
index 829b1eaaf3..1717c52f61 100644
--- a/harbour/source/lang/msgfr.c
+++ b/harbour/source/lang/msgfr.c
@@ -205,7 +205,17 @@ HB_LANG_ANNOUNCE( FR );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_FR )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_FR )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_FR
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_FR                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_FR = hb_lang_Init_FR;    
+   #pragma data_seg()                                                  
+#endif                                                                 
 
diff --git a/harbour/source/lang/msghr852.c b/harbour/source/lang/msghr852.c
index 3f7cd78227..62efcd352d 100644
--- a/harbour/source/lang/msghr852.c
+++ b/harbour/source/lang/msghr852.c
@@ -206,7 +206,17 @@ HB_LANG_ANNOUNCE( HR852 );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_HR852 )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_HR852 )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_HR852
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_HR852                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_HR852 = hb_lang_Init_HR852;    
+   #pragma data_seg()                                                  
+#endif                                                                 
 
diff --git a/harbour/source/lang/msghriso.c b/harbour/source/lang/msghriso.c
index d54cf3b8c7..1a4d326a50 100644
--- a/harbour/source/lang/msghriso.c
+++ b/harbour/source/lang/msghriso.c
@@ -206,7 +206,17 @@ HB_LANG_ANNOUNCE( HRISO );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_HRISO )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_HRISO )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_HRISO
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_HRISO                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_HRISO = hb_lang_Init_HRISO;    
+   #pragma data_seg()                                                  
+#endif                                                                 
 
diff --git a/harbour/source/lang/msgid.c b/harbour/source/lang/msgid.c
index 9cdfb9d132..91fb0e1898 100644
--- a/harbour/source/lang/msgid.c
+++ b/harbour/source/lang/msgid.c
@@ -205,7 +205,17 @@ HB_LANG_ANNOUNCE( ID );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_ID )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_ID )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_ID
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_ID                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_ID = hb_lang_Init_ID;    
+   #pragma data_seg()                                                  
+#endif                                                                 
 
diff --git a/harbour/source/lang/msgis850.c b/harbour/source/lang/msgis850.c
index 382388a1ef..5ce4162908 100644
--- a/harbour/source/lang/msgis850.c
+++ b/harbour/source/lang/msgis850.c
@@ -206,6 +206,16 @@ HB_LANG_ANNOUNCE( IS850 );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_IS850 )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_IS850 )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_IS850
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_IS850                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_IS850 = hb_lang_Init_IS850;    
+   #pragma data_seg()                                                  
+#endif                                                                 
diff --git a/harbour/source/lang/msgit.c b/harbour/source/lang/msgit.c
index 2a2c1b5453..9581adfff5 100644
--- a/harbour/source/lang/msgit.c
+++ b/harbour/source/lang/msgit.c
@@ -205,7 +205,17 @@ HB_LANG_ANNOUNCE( IT );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_IT )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_IT )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_IT
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_IT                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_IT = hb_lang_Init_IT;    
+   #pragma data_seg()                                                  
+#endif                                                                 
 
diff --git a/harbour/source/lang/msgko.c b/harbour/source/lang/msgko.c
index 1d308e7159..55c887c153 100644
--- a/harbour/source/lang/msgko.c
+++ b/harbour/source/lang/msgko.c
@@ -205,6 +205,16 @@ HB_LANG_ANNOUNCE( KO );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_KO )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_KO )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_KO
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_KO                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_KO = hb_lang_Init_KO;    
+   #pragma data_seg()                                                  
+#endif                                                                 
diff --git a/harbour/source/lang/msgpt.c b/harbour/source/lang/msgpt.c
index 3b52e1771f..4407d4fae9 100644
--- a/harbour/source/lang/msgpt.c
+++ b/harbour/source/lang/msgpt.c
@@ -217,6 +217,16 @@ HB_LANG_ANNOUNCE( PT );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_PT )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_PT )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_PT
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_PT                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_PT = hb_lang_Init_PT;    
+   #pragma data_seg()                                                  
+#endif                                                                 
diff --git a/harbour/source/lang/msgro.c b/harbour/source/lang/msgro.c
index 686c527821..503f2f7d64 100644
--- a/harbour/source/lang/msgro.c
+++ b/harbour/source/lang/msgro.c
@@ -205,7 +205,17 @@ HB_LANG_ANNOUNCE( RO );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_RO )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_RO )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_RO
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_RO                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_RO = hb_lang_Init_RO;    
+   #pragma data_seg()                                                  
+#endif                                                                 
 
diff --git a/harbour/source/lang/msgru866.c b/harbour/source/lang/msgru866.c
index 5cd06f81f3..31101362aa 100644
--- a/harbour/source/lang/msgru866.c
+++ b/harbour/source/lang/msgru866.c
@@ -206,7 +206,17 @@ HB_LANG_ANNOUNCE( RU866 );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_RU866 )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_RU866 )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_RU866
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_RU866                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_RU866 = hb_lang_Init_RU866;    
+   #pragma data_seg()                                                  
+#endif                                                                 
 
diff --git a/harbour/source/lang/msgrukoi.c b/harbour/source/lang/msgrukoi.c
index 854dea716e..7b2687c4c3 100644
--- a/harbour/source/lang/msgrukoi.c
+++ b/harbour/source/lang/msgrukoi.c
@@ -205,7 +205,17 @@ HB_LANG_ANNOUNCE( RUKOI8 );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_RUKOI8 )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_RUKOI8 )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_RUKOI8
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_RUKOI8                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_RUKOI8 = hb_lang_Init_RUKOI8;    
+   #pragma data_seg()                                                  
+#endif                                                                 
 
diff --git a/harbour/source/lang/msgruwin.c b/harbour/source/lang/msgruwin.c
index 0f76b6d1a2..f38982c79b 100644
--- a/harbour/source/lang/msgruwin.c
+++ b/harbour/source/lang/msgruwin.c
@@ -206,7 +206,17 @@ HB_LANG_ANNOUNCE( RUWIN );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_RUWIN )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_RUWIN )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_RUWIN
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_RUWIN                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_RUWIN = hb_lang_Init_RUWIN;    
+   #pragma data_seg()                                                  
+#endif                                                                 
 
diff --git a/harbour/source/lang/msgsl437.c b/harbour/source/lang/msgsl437.c
index dcec5ba897..0b696eaaa6 100644
--- a/harbour/source/lang/msgsl437.c
+++ b/harbour/source/lang/msgsl437.c
@@ -189,6 +189,16 @@ HB_LANG_ANNOUNCE( SL437 );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_SL437 )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_SL437 )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_SL437
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_SL437                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_SL437 = hb_lang_Init_SL437;    
+   #pragma data_seg()                                                  
+#endif                                                                 
diff --git a/harbour/source/lang/msgsl852.c b/harbour/source/lang/msgsl852.c
index 97c4e25cc7..ed892830d2 100644
--- a/harbour/source/lang/msgsl852.c
+++ b/harbour/source/lang/msgsl852.c
@@ -188,6 +188,16 @@ HB_LANG_ANNOUNCE( SL852 );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_SL852 )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_SL852 )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_SL852
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_SL852                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_SL852 = hb_lang_Init_SL852;    
+   #pragma data_seg()                                                  
+#endif                                                                 
diff --git a/harbour/source/lang/msgsliso.c b/harbour/source/lang/msgsliso.c
index 172fbd9e98..748aa12e0b 100644
--- a/harbour/source/lang/msgsliso.c
+++ b/harbour/source/lang/msgsliso.c
@@ -188,6 +188,16 @@ HB_LANG_ANNOUNCE( SLISO );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_SLISO )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_SLISO )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_SLISO
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_SLISO                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_SLISO = hb_lang_Init_SLISO;    
+   #pragma data_seg()                                                  
+#endif                                                                 
diff --git a/harbour/source/lang/msgslwin.c b/harbour/source/lang/msgslwin.c
index 99ff342aaa..88ac79f36c 100644
--- a/harbour/source/lang/msgslwin.c
+++ b/harbour/source/lang/msgslwin.c
@@ -188,6 +188,16 @@ HB_LANG_ANNOUNCE( SLWIN );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_SLWIN )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_SLWIN )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_SLWIN
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_SLWIN                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_SLWIN = hb_lang_Init_SLWIN;    
+   #pragma data_seg()                                                  
+#endif                                                                 
diff --git a/harbour/source/lang/msgsr852.c b/harbour/source/lang/msgsr852.c
index d742371a67..e875f87109 100644
--- a/harbour/source/lang/msgsr852.c
+++ b/harbour/source/lang/msgsr852.c
@@ -188,6 +188,16 @@ HB_LANG_ANNOUNCE( SR852 );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_SR852 )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_SR852 )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_SR852
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_SR852                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_SR852 = hb_lang_Init_SR852;    
+   #pragma data_seg()                                                  
+#endif                                                                 
diff --git a/harbour/source/lang/msgsriso.c b/harbour/source/lang/msgsriso.c
index 69ff41083d..e118b002b7 100644
--- a/harbour/source/lang/msgsriso.c
+++ b/harbour/source/lang/msgsriso.c
@@ -188,6 +188,16 @@ HB_LANG_ANNOUNCE( SRISO );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_SRISO )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_SRISO )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_SRISO
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_SRISO                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_SRISO = hb_lang_Init_SRISO;    
+   #pragma data_seg()                                                  
+#endif                                                                 
diff --git a/harbour/source/lang/msgsrwin.c b/harbour/source/lang/msgsrwin.c
index e0fc19a169..c68ddd947b 100644
--- a/harbour/source/lang/msgsrwin.c
+++ b/harbour/source/lang/msgsrwin.c
@@ -205,6 +205,16 @@ HB_LANG_ANNOUNCE( SRWIN );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_SRWIN )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_SRWIN )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_SRWIN
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_SRWIN                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_SRWIN = hb_lang_Init_SRWIN;    
+   #pragma data_seg()                                                  
+#endif                                                                 
diff --git a/harbour/source/lang/msgzhb5.c b/harbour/source/lang/msgzhb5.c
index 79b67992be..857e53cd07 100644
--- a/harbour/source/lang/msgzhb5.c
+++ b/harbour/source/lang/msgzhb5.c
@@ -206,6 +206,16 @@ HB_LANG_ANNOUNCE( ZHB5 );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_ZHB5 )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_ZHB5 )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_ZHB5
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_ZHB5                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_ZHB5 = hb_lang_Init_ZHB5;    
+   #pragma data_seg()                                                  
+#endif                                                                 
diff --git a/harbour/source/lang/msgzhgb.c b/harbour/source/lang/msgzhgb.c
index 3d9d0527c3..0a971957e7 100644
--- a/harbour/source/lang/msgzhgb.c
+++ b/harbour/source/lang/msgzhgb.c
@@ -206,6 +206,16 @@ HB_LANG_ANNOUNCE( ZHGB );
 HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_ZHGB )
    hb_langRegister( &s_lang );
 HB_CALL_ON_STARTUP_END( hb_lang_Init_ZHGB )
-#if ! defined(__GNUC__) && ! defined(_MSC_VER)
-   #pragma startup hb_lang_Init_ZHGB
-#endif
+
+#if defined(HB_PRAGMA_STARTUP)                                         
+   #pragma startup hb_lang_Init_ZHGB                                     
+#elif defined(HB_MSC_STARTUP)                                          
+   #if _MSC_VER >= 1010                                                
+      #pragma data_seg( ".CRT$XIY" )                                   
+      #pragma comment( linker, "/Merge:.CRT=.data" )                   
+   #else                                                               
+      #pragma data_seg( "XIY" )                                        
+   #endif                                                              
+   static HB_$INITSYM hb_vm_auto_hb_lang_Init_ZHGB = hb_lang_Init_ZHGB;    
+   #pragma data_seg()                                                  
+#endif