paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 01:26:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* now also fixes div hz with hz=0 for Linux, and reenables it for FreeBSD. Still needs phys console check though

Browse Source 
git-svn-id: trunk@7489 -
This commit is contained in:
marco 2007-05-27 12:00:55 +00:00
parent d1f7be8c7b
commit 08d10efb9f
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/unix/crt.pp
View File

@ -1390,32 +1390,35 @@ Begin
ScrollScrnRegionDown(WindMinX, CurrY, WindMaxX, WindMaxY, 1);
End;
{$ifdef linux}
const
KIOCSOUND = $4B2F; // start sound generation (0 for off)
{$define havekiocsound}
const KIOCSOUND = $4B2F; // start sound generation (0 for off)
{$else}
{$ifdef FreeBSD}
const KIOCSOUND =$20004b3f;
{$define havekiocsound}
{$endif}
{$endif}
// ioctl might fail e.g. in putty. A redirect check is not enough,
// needs check for physical console too.
Procedure Sound(Hz: Word);
begin
{$ifdef linux}
if not OutputRedir then
{$ifdef havekiocsound}
if (not OutputRedir) and (hz>0) then
fpIoctl(TextRec(Output).Handle, KIOCSOUND, Pointer(1193180 div Hz));
{$endif}
end;
Procedure NoSound;
begin
{$ifdef linux}
{$ifdef havekiocsound}
if not OutputRedir then
fpIoctl(TextRec(Output).Handle, KIOCSOUND, nil);
{$endif}
end;
Procedure TextMode (Mode: word);
{
Only Clears Screen under linux}