Browse Source

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

git-svn-id: trunk@29797 -
Tomas Hajny 10 years ago
parent
commit
b9f88aa80c
3 changed files with 6 additions and 3 deletions
  1. 2 1
      rtl/emx/sysos.inc
  2. 3 2
      rtl/os2/sysos.inc
  3. 1 0
      rtl/win/sysos.inc

+ 2 - 1
rtl/emx/sysos.inc

@@ -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;

+ 3 - 2
rtl/os2/sysos.inc

@@ -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 - 0
rtl/win/sysos.inc

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