2007-04-13 19:05 UTC+0200 Lorenzo Fiorini (lorenzo.fiorini/at/gmail.com)

* harbour/include/Makefile
    ! added install of hbcompat.ch
  * harbour/source/debug/dbgtarr.prg
  * harbour/source/debug/dbgtobj.prg
  * harbour/source/debug/dbgthsh.prg
    * added missed #ifndef HB_NO_READDBG

harbour/ChangeLog

@@ -8,6 +8,14 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2007-04-13 19:05 UTC+0200 Lorenzo Fiorini (lorenzo.fiorini/at/gmail.com)
+  * harbour/include/Makefile
+    ! added install of hbcompat.ch
+  * harbour/source/debug/dbgtarr.prg
+  * harbour/source/debug/dbgtobj.prg  
+  * harbour/source/debug/dbgthsh.prg     
+    * added missed #ifndef HB_NO_READDBG
+
 2007-04-13 18:43 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/common.mak
   * harbour/source/rtl/Makefile

harbour/include/Makefile

@@ -100,6 +100,7 @@ PRG_HEADERS=\
 	std.ch       \
 	tbrowse.ch   \
 	usrrdd.ch    \
+	hbcompat.ch
 
 API_HEADERS=\
 	error.api    \

harbour/source/debug/dbgtarr.prg

@@ -264,6 +264,8 @@ return cResult
 
 METHOD doGet( oBro, pItem, nSet ) Class TDBGArray
 
+#ifndef HB_NO_READDBG
+
     LOCAL nKey
     local getlist := {}
     // save state
@@ -305,6 +307,12 @@ METHOD doGet( oBro, pItem, nSet ) Class TDBGArray
         KEYBOARD CHR( nKey )
     END
 
+#else
+
+    HB_SYMBOL_UNUSED( oBro )
+    HB_SYMBOL_UNUSED( pItem )
+    HB_SYMBOL_UNUSED( nSet )
+
 RETURN  nil
 
 function __DbgArrays( aArray, cArrayName, lEditable )

harbour/source/debug/dbgthsh.prg

@@ -283,6 +283,8 @@ return cResult
 
 METHOD doGet( oBro, pItem, nSet ) Class TDBGHash
 
+#ifndef HB_NO_READDBG
+
     LOCAL nKey
     local getlist := {}
     // save state
@@ -324,6 +326,14 @@ METHOD doGet( oBro, pItem, nSet ) Class TDBGHash
         KEYBOARD CHR( nKey )
     END
 
+#else
+
+    HB_SYMBOL_UNUSED( oBro )
+    HB_SYMBOL_UNUSED( pItem )
+    HB_SYMBOL_UNUSED( nSet )
+
+#endif
+
 RETURN  nil
 
 function __DbgHashes( hHash, chashName, lEditable )

harbour/source/debug/dbgtobj.prg

@@ -313,6 +313,9 @@ static function ValToStr( uVal )
 return cResult
 
 METHOD doGet(oBro,pItem,nSet) class tdbgObject
+
+#ifndef HB_NO_READDBG
+
     LOCAL column,  nKey
     local getlist:={}
     // save state
@@ -325,6 +328,8 @@ METHOD doGet(oBro,pItem,nSet) class tdbgObject
     obro:forcestable()
     // if confirming new record, append blank
 
+
+
     // set insert key to toggle insert mode and cursor
     SetKey( K_INS, ;
         { || SetCursor( if(ReadInsert(!ReadInsert()), SC_NORMAL, SC_INSERT)) };
@@ -360,6 +365,15 @@ METHOD doGet(oBro,pItem,nSet) class tdbgObject
     IF nKey == K_UP .OR. nKey == K_DOWN .OR. nKey == K_PGUP .OR. nKey == K_PGDN
         KEYBOARD CHR( nKey )
     END
+
+#else
+
+    HB_SYMBOL_UNUSED( oBro )
+    HB_SYMBOL_UNUSED( pItem )
+    HB_SYMBOL_UNUSED( nSet )
+
+#endif
+
 RETURN nil
 
 static FUNC maxelem( a )