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

atari: add missing type LongIntFunc to tos unit

Browse Source
This commit is contained in:
Thorsten Otto 2022-02-03 07:09:35 +01:00 committed by Charlie Balogh
parent b66802a14e
commit b4d8f2d1b6
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/tosunits/src/tos.pas
View File

@ -85,6 +85,8 @@ type
d_fname : String[12];
end;
LongIntFunc = Function: LongInt;
(* ++++++++++++++++++++++++++++++++++++++++ *)
(* BIOS *)
(* ++++++++++++++++++++++++++++++++++++++++ *)
@ -145,7 +147,7 @@ function Kbdvbase: PKBDVECS; syscall 14 34;
function Kbrate(initial, speed: smallint): smallint; syscall 14 35;
procedure Prtblk(var defptr: TPBDEF); syscall 14 36;
procedure vsync; syscall 14 37;
function Supexec(codeptr: TLongIntFunc): LongInt; syscall 14 38;
function Supexec(codeptr: LongIntFunc): LongInt; syscall 14 38;
procedure Puntaes; syscall 14 39;
function Floprate(drive, seekrate: smallint): smallint; syscall 14 41;
function DMAread(sector: LongInt; count: smallint; buffer: Pointer; devno: smallint): LongInt; syscall 14 42;