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

+ provided sysbeep for DOS targets

Browse Source 
git-svn-id: trunk@47542 -
This commit is contained in:
Tomas Hajny 2020-11-24 00:25:20 +00:00
parent 63beb1e83a
commit 8038b711a5
3 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/go32v2/sysutils.pp
View File

@ -47,6 +47,7 @@ implementation
{$DEFINE FPC_FEXPAND_UNC} (* UNC paths are supported *) {$DEFINE FPC_FEXPAND_UNC} (* UNC paths are supported *)
{$DEFINE FPC_FEXPAND_DRIVES} (* Full paths begin with drive specification *) {$DEFINE FPC_FEXPAND_DRIVES} (* Full paths begin with drive specification *)
{$DEFINE HAS_LOCALTIMEZONEOFFSET}
{ Include platform independent implementation part } { Include platform independent implementation part }
{$i sysutils.inc} {$i sysutils.inc}
@ -644,6 +645,8 @@ end;
Time Functions Time Functions
****************************************************************************} ****************************************************************************}
{$I tzenv.inc}
Procedure GetLocalTime(var SystemTime: TSystemTime); Procedure GetLocalTime(var SystemTime: TSystemTime);
var var
Regs: Registers; Regs: Registers;
@ -667,8 +670,16 @@ end ;
Misc Functions Misc Functions
****************************************************************************} ****************************************************************************}
const
BeepChars: array [1..2] of char = #7'$';
procedure sysBeep; procedure sysBeep;
var
Regs: Registers;
begin begin
Regs.dx := Ofs (BeepChars);
Regs.ah := 9;
MsDos (Regs);
end; end;
@ -916,6 +927,7 @@ end;
Initialization Initialization
InitExceptions; { Initialize exceptions. OS independent } InitExceptions; { Initialize exceptions. OS independent }
InitInternational; { Initialize internationalization settings } InitInternational; { Initialize internationalization settings }
InitTZ;
OnBeep:=@SysBeep; OnBeep:=@SysBeep;
Finalization Finalization
FreeTerminateProcs; FreeTerminateProcs;

10
rtl/msdos/sysutils.pp
View File

@ -629,6 +629,8 @@ end;
Time Functions Time Functions
****************************************************************************} ****************************************************************************}
{$I tzenv.inc}
Procedure GetLocalTime(var SystemTime: TSystemTime); Procedure GetLocalTime(var SystemTime: TSystemTime);
var var
Regs: Registers; Regs: Registers;
@ -652,8 +654,16 @@ end ;
Misc Functions Misc Functions
****************************************************************************} ****************************************************************************}
const
BeepChars: array [1..2] of char = #7'$';
procedure sysBeep; procedure sysBeep;
var
Regs: Registers;
begin begin
Regs.dx := Ofs (BeepChars);
Regs.ah := 9;
MsDos (Regs);
end; end;

12
rtl/watcom/sysutils.pp
View File

@ -658,6 +658,17 @@ end ;
Misc Functions Misc Functions
****************************************************************************} ****************************************************************************}
const
BeepChars: array [1..2] of char = #7'$';
procedure sysBeep;
var
Regs: Registers;
begin
Regs.dx := Ofs (BeepChars);
Regs.ah := 9;
MsDos (Regs);
end;
{**************************************************************************** {****************************************************************************
Locale Functions Locale Functions
@ -902,6 +913,7 @@ Initialization
InitExceptions; { Initialize exceptions. OS independent } InitExceptions; { Initialize exceptions. OS independent }
InitInternational; { Initialize internationalization settings } InitInternational; { Initialize internationalization settings }
InitDelay; InitDelay;
OnBeep:=@SysBeep;
Finalization Finalization
FreeTerminateProcs; FreeTerminateProcs;
DoneExceptions; DoneExceptions;