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

* cdecl added for doscalls routines

Browse Source
This commit is contained in:
Tomas Hajny 2000-01-02 17:45:25 +00:00
parent 4391a43070
commit 5e32309c67
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/os2/crt.pas
View File

@ -129,7 +129,7 @@ function kbdcharin(var Akeyrec:Tkbdkeyinfo;wait,kbdhandle:longint):word;
function kbdpeek(var Akeyrec:TkbdkeyInfo;kbdhandle:word):word;
external 'EMXWRAP' index 222;
function dossleep(time:longint):word;
function dossleep(time:longint):word; cdecl;
external 'DOSCALLS' index 229;
function vioscrollup(top,left,bottom,right,lines:longint;
var screl:word;viohandle:longint):word;

7
rtl/os2/sysos2.pas
View File

@ -112,7 +112,7 @@ implementation
{$I SYSTEM.INC}
procedure dosgetinfoblocks(var Atib:Pthreadinfoblock;
var Apib:Pprocessinfoblock);
var Apib:Pprocessinfoblock); cdecl;
external 'DOSCALLS' index 312;
{This is the correct way to call external assembler procedures.}
@ -750,7 +750,10 @@ begin
end.
{
$Log$
Revision 1.17 1999-09-10 15:40:35 peter
Revision 1.18 2000-01-02 17:45:25 hajny
* cdecl added for doscalls routines
Revision 1.17 1999/09/10 15:40:35 peter
* fixed do_open flags to be > $100, becuase filemode can be upto 255
Revision 1.16 1999/06/01 13:23:16 peter