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/sysos: use the symbolic names for error numbers

Browse Source
This commit is contained in:
Thorsten Otto 2022-02-06 16:43:00 +01:00 committed by Charlie Balogh
parent b31d5386ee
commit 685f72ca2f
2 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/atari/gemdos.inc
View File

@ -19,12 +19,14 @@
const
E_OK = 0; // OK. No error has arisen
ESPIPE = -6; // Illegal seek
EINVFN = -32; // Unknown function number
EFILNF = -33; // File not found
EPTHNF = -34; // Directory (folder) not found
ENHNDL = -35; // No more handles available
EACCDN = -36; // Access denied
EIHNDL = -37; // Invalid file handle
EPERM = -38; // Permission denied
ENSMEM = -39; // Insufficient memory
EIMBA = -40; // Invalid memory block address
EDRIVE = -46; // Invalid drive specification

20
rtl/atari/sysos.inc
View File

@ -25,16 +25,16 @@ begin
else
begin
case errno of
-32 : InOutRes:=1;
-33 : InOutRes:=2;
-34 : InOutRes:=3;
-35 : InOutRes:=4;
-36 : InOutRes:=5;
-37 : InOutRes:=8;
-39 : InOutRes:=8;
-40 : InOutRes:=9;
-46 : InOutRes:=15;
-67..-64 : InOutRes:=153;
EINVFN : InOutRes:=1;
EFILNF : InOutRes:=2;
EPTHNF : InOutRes:=3;
ENHNDL : InOutRes:=4;
EACCDN : InOutRes:=5;
EIHNDL : InOutRes:=6;
ENSMEM,EGSBF : InOutRes:=8;
EIMBA : InOutRes:=9;
EDRIVE : InOutRes:=15;
EPLFMT,EINTRN,ERANGE : InOutRes:=153;
-15 : InOutRes:=151;
-13 : InOutRes:=150;
else