From 8ae86c6d2b1223b51ab3615731aeca64db29db9f Mon Sep 17 00:00:00 2001 From: Tomas Hajny Date: Sat, 18 Dec 1999 18:32:38 +0000 Subject: [PATCH] + Starting cdecl additions --- rtl/os2/doscalls.pas | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/rtl/os2/doscalls.pas b/rtl/os2/doscalls.pas index 2559ca5060..15b454d7f4 100644 --- a/rtl/os2/doscalls.pas +++ b/rtl/os2/doscalls.pas @@ -246,11 +246,11 @@ procedure DosGetInfoBlocks(var ATIB:PThreadInfoBlock; var APIB:PProcessInfoBlock); {Wait a number of microseconds. Cannot fail, so it is defined as procedure.} -procedure DosSleep(MSec:longint); +procedure DosSleep(MSec:longint); cdecl; {Beep the speaker. You do not need to check for an error if you can guarantee that the frequency is correct.} -function DosBeep(Freq,MS:longint):longint; +function DosBeep(Freq,MS:longint):longint; cdecl; {**************************************************************************** @@ -2519,11 +2519,11 @@ procedure DosGetInfoBlocks(var ATIB:PThreadInfoBlock; external 'DOSCALLS' index 312; -procedure DosSleep(MSec:longint); +procedure DosSleep(MSec:longint); cdecl; external 'DOSCALLS' index 229; -function DosBeep(Freq,MS:longint):longint; +function DosBeep(Freq,MS:longint):longint; cdecl; external 'DOSCALLS' index 286; @@ -3823,7 +3823,10 @@ external 'DOSCALLS' index 426; end. { $Log$ - Revision 1.6 1999-08-10 14:18:40 hajny + Revision 1.7 1999-12-18 18:32:38 hajny + + Starting cdecl additions + + Revision 1.6 1999/08/10 14:18:40 hajny * corrected characters >127 broken by DBCS editor }