See ChangeLog entry 2000-02-10 13:50 GMT-5 David G. Holm <dholm@ sd-llc.com>

2000-02-10 18:52:35 +00:00
parent b4c1c9d79a
commit 4bb67d89ff
2 changed files with 6 additions and 1 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+2000-02-10 13:50 GMT-5 David G. Holm <dholm@ sd-llc.com>
+
+   * source/rtl/tone.c
+     ! Borland C does not support Beep() under Windows.
+
 20000209-22:37 EST Paul Tucker <ptucker@sympatico.ca>
   * makefile.vc
     + /D_Windows to compiler flags
--- a/harbour/source/rtl/tone.c
+++ b/harbour/source/rtl/tone.c
@@ -198,7 +198,7 @@ void hb_tone( double dFrequency, double dDuration )
         beep( dFrequency, temp );
 #elif defined(WINNT)
         Beep( ( ULONG ) dFrequency, temp );
-#elif defined(_Windows)
+#elif defined(_Windows) && ! defined(__BORLANDC__)
         /* Bad news for non-NT Windows platforms: Beep() ignores
            both parameters and either generates the default sound
            event or the standard system beep. */