paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 10:30:29 +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 const
E_OK = 0; // OK. No error has arisen E_OK = 0; // OK. No error has arisen
ESPIPE = -6; // Illegal seek
EINVFN = -32; // Unknown function number EINVFN = -32; // Unknown function number
EFILNF = -33; // File not found EFILNF = -33; // File not found
EPTHNF = -34; // Directory (folder) not found EPTHNF = -34; // Directory (folder) not found
ENHNDL = -35; // No more handles available ENHNDL = -35; // No more handles available
EACCDN = -36; // Access denied EACCDN = -36; // Access denied
EIHNDL = -37; // Invalid file handle EIHNDL = -37; // Invalid file handle
EPERM = -38; // Permission denied
ENSMEM = -39; // Insufficient memory ENSMEM = -39; // Insufficient memory
EIMBA = -40; // Invalid memory block address EIMBA = -40; // Invalid memory block address
EDRIVE = -46; // Invalid drive specification EDRIVE = -46; // Invalid drive specification

20
rtl/atari/sysos.inc
View File

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