paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-20 13:11:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* mapping of I/O error number 206 having different meaning in FPC to RTE 3

Browse Source 
git-svn-id: trunk@29797 -
This commit is contained in:
Tomas Hajny 2015-02-22 22:25:44 +00:00
parent 79118e531f
commit b9f88aa80c
3 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/emx/sysos.inc
View File

@ -84,7 +84,8 @@ procedure emx_init; external 'EMX' index 1;
112 : InOutRes := 101;
110 : InOutRes := 5;
114 : InOutRes := 6;
290 : InOutRes := 290;
206 : InOutRes := 3;
290 : InOutRes := 4;
end;
{ all other cases ... we keep the same error code }
end;

5
rtl/os2/sysos.inc
View File

@ -226,7 +226,8 @@ const
112 : InOutRes := 101;
110 : InOutRes := 5;
114 : InOutRes := 6;
290 : InOutRes := 290;
206 : InOutRes := 3; (* TH: Path too long *)
290 : InOutRes := 4;
end;
{ all other cases ... we keep the same error code }
end;
@ -321,7 +322,7 @@ type
Nested_RepRec: PExceptionReportRecord;
Address: pointer;
ParamCount: cardinal;
Parameters: array [0..MaxExceptionParameters] of cardinal;
Parameters: array [0..Pred (MaxExceptionParameters)] of cardinal;
end;
TContextRecord = packed record

1
rtl/win/sysos.inc
View File

@ -380,6 +380,7 @@ type
begin
res :=5;
end;
ERROR_FILENAME_EXCED_RANGE : Res := 3;
else
begin
{ other error codes can directly be mapped }