paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 13:09:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ removed empty Beep(); function, uses OnBeep now, sysutils should compile again

Browse Source 
git-svn-id: trunk@14541 -
This commit is contained in:
Károly Balogh 2010-01-04 23:42:16 +00:00
parent 83c3e7a94b
commit 99a94573ed
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/morphos/sysutils.pp
View File

@ -506,15 +506,6 @@ end;
{****************************************************************************
Misc Functions
****************************************************************************}
procedure Beep;
begin
end;
{**************************************************************************** {****************************************************************************
Locale Functions Locale Functions
****************************************************************************} ****************************************************************************}
@ -662,6 +653,8 @@ end;
Initialization Initialization
InitExceptions; InitExceptions;
InitInternational; { Initialize internationalization settings } InitInternational; { Initialize internationalization settings }
OnBeep:=Nil; { No SysBeep() on MorphOS, for now. Figure out if we want
to use intuition.library/DisplayBeep() for this (KB) }
Finalization Finalization
DoneExceptions; DoneExceptions;
end. end.