Browse Source

atari: add missing type LongIntFunc to tos unit

Thorsten Otto 3 years ago
parent
commit
b4d8f2d1b6
1 changed files with 3 additions and 1 deletions
  1. 3 1
      packages/tosunits/src/tos.pas

+ 3 - 1
packages/tosunits/src/tos.pas

@@ -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;