paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 12:50:28 +02: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
****************************************************************************}
@ -662,6 +653,8 @@ end;
Initialization
InitExceptions;
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
DoneExceptions;
end.