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

atari: add a new Error to InOutRes function

Browse Source 
git-svn-id: trunk@34659 -
This commit is contained in:
Károly Balogh 2016-10-08 12:49:10 +00:00
parent 1c0a370ce2
commit 74516f90d3
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/atari/sysos.inc
View File

@ -14,3 +14,28 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
procedure Error2InOutRes(errno: longint);
begin
if (errno <= -2) and (errno >= -11) then
InOutRes:=150-errno
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;
-15 : InOutRes:=151;
-13 : InOutRes:=150;
else
InOutRes := word(errno);
end;
end;
end;