paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 05:37:41 +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; 112 : InOutRes := 101;
110 : InOutRes := 5; 110 : InOutRes := 5;
114 : InOutRes := 6; 114 : InOutRes := 6;
290 : InOutRes := 290; 206 : InOutRes := 3;
290 : InOutRes := 4;
end; end;
{ all other cases ... we keep the same error code } { all other cases ... we keep the same error code }
end; end;

5
rtl/os2/sysos.inc
View File

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

1
rtl/win/sysos.inc
View File

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