From 532c0e4ef5acd0d2d6fce5ef2b8f380dde062bf2 Mon Sep 17 00:00:00 2001
From: Jean-Francois Lefebvre <jfl@mafact.com>
Date: Fri, 22 Aug 2008 09:24:54 +0000
Subject: [PATCH] 2008-08-22 11:20 UTC+0100 JF Lefebvre (MAFACT) (jfl at mafact
 dot com)

---
 harbour/ChangeLog                 | 12 ++++++++++++
 harbour/source/debug/debugger.prg | 10 +++++-----
 harbour/utils/hbdoc/hbdoc.prg     |  2 --
 harbour/utils/hbmake/hbmake.prg   |  2 --
 4 files changed, 17 insertions(+), 9 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 66560bfe1b..fe3a019a5c 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,18 @@
    2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+
+2008-08-22 11:20 UTC+0100 JF Lefebvre (MAFACT) (jfl at mafact dot com)
+   * utils/hbdoc/hbdoc.prg 
+   * utils/hbmake/Makefile
+   * utils/hbmake/hbmake.prg
+     % removing 'ANNOUNCE RDDSYS', not anymore needed
+       causing some problem with msvc linking.
+   * debug/debugger.prg 
+     % changing all GTI_ by HB_GTI_
+
+
+
 2008-08-22 09:32 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
    * common.mak
    * source/vm/debug.c
diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg
index 9a8c84826d..4c73224857 100644
--- a/harbour/source/debug/debugger.prg
+++ b/harbour/source/debug/debugger.prg
@@ -408,13 +408,13 @@ METHOD New() CLASS HBDebugger
 METHOD OpenDebuggerWindow() CLASS HBDebugger
 
    IF !::lDebuggerWindowIsOpen
-      ::hUserWindow := hb_gtInfo( GTI_GETWIN )
+      ::hUserWindow := hb_gtInfo( HB_GTI_GETWIN )
       IF ::hDebuggerWindow == NIL
-         ::hDebuggerWindow := hb_gtInfo( GTI_GETWIN, ;
+         ::hDebuggerWindow := hb_gtInfo( HB_GTI_GETWIN, ;
                                  { "Debugger", DEBUGGER_MINROW, DEBUGGER_MINCOL, ;
                                    DEBUGGER_MAXROW, DEBUGGER_MAXCOL } )
       ELSE
-         hb_gtInfo( GTI_SETWIN, ::hDebuggerWindow )
+         hb_gtInfo( HB_GTI_SETWIN, ::hDebuggerWindow )
       ENDIF
       ::lDebuggerWindowIsOpen := .T.
    ENDIF
@@ -425,8 +425,8 @@ METHOD OpenDebuggerWindow() CLASS HBDebugger
 METHOD CloseDebuggerWindow() CLASS HBDebugger
 
    IF ::lDebuggerWindowIsOpen
-      ::hDebuggerWindow := hb_gtInfo( GTI_GETWIN )
-      hb_gtInfo( GTI_SETWIN, ::hUserWindow )
+      ::hDebuggerWindow := hb_gtInfo( HB_GTI_GETWIN )
+      hb_gtInfo( HB_GTI_SETWIN, ::hUserWindow )
       ::lDebuggerWindowIsOpen := .F.
    ENDIF
 
diff --git a/harbour/utils/hbdoc/hbdoc.prg b/harbour/utils/hbdoc/hbdoc.prg
index 2a8b053e58..4563ad4f12 100644
--- a/harbour/utils/hbdoc/hbdoc.prg
+++ b/harbour/utils/hbdoc/hbdoc.prg
@@ -108,8 +108,6 @@
  *    Fixed the help text when hbdoc is called with out any parameter
  */
 
-ANNOUNCE RDDSYS
-
 #include "directry.ch"
 #include "fileio.ch"
 #include "inkey.ch"
diff --git a/harbour/utils/hbmake/hbmake.prg b/harbour/utils/hbmake/hbmake.prg
index 6a90a85353..67f68a9760 100644
--- a/harbour/utils/hbmake/hbmake.prg
+++ b/harbour/utils/hbmake/hbmake.prg
@@ -55,8 +55,6 @@
  * added suport to OS Unix
  */
 
-ANNOUNCE RDDSYS
-
 #include "fileio.ch"
 #include "common.ch"
 #include "inkey.ch"